我有个财务软件上的问题

[wsh1688]

我做了一个软件是关于仓库帐簿管理的

他里面有个先进先出的功能用sql怎么做到？！~~

[wsh1688]

555555555~!!~~~~~

怎么没有人回答

[lining_1977]

排序呀，

[江山易改]

按时间顺序排序，成本核算用存贮过程

[michaelpeng7799]

库存成本？？要用存储过程。算法参考同类软件或是找本这方面的书。

[wsh1688]

哪本书上又存储过程？？！～～

[ltmb118]

加一个批号字段

[wsh1688]

什么意思，说的具体点

[wsh1688]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, ComCtrls,
TFlatProgressBarUnit;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
FlatProgressBar1: TFlatProgressBar;
procedure Button1Click(Sender: TObject);
procedure ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress,
MaxProgress: Integer; var EventStatus: TEventStatus);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from MainTable');
ADOQuery1.Open;
end;

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
FlatProgressBar1.Position := Progress*100 div maxProgress;
label1.Caption := IntToStr(Progress);
label2.Caption := IntToStr(maxProgress);
Application.ProcessMessages;
end;

end.

[xiaoxian1314]

用存储过程做好算法，在前台调用。帐表做成视图。