經典案例財務管理系統（14）[2]

() 設置憑證輸入窗體的代碼如下

　　public

　　{ Public declarations }

　　procedure SetToolBar(isEnable:bool);

　　procedure SumAccount();

　　//執行新增和編輯操作後保存時會執行不同的代碼

　　procedure OpType(opname:string);

　　end;

　　//對將要從dll中的調用的函數的聲明

　　type

　　Tshowdllform=function(Ahandle:Thandle; Acaption:string; tablename:string):string; stdcall;

　　Ttable=array[] of string;

　　var

　　DocuInput: TDocuInput;

　　maxnumrecordnumcurRowcurCol:integer;

　　mytable:Ttable;

　　op:string;

　　implementation

　　{$R *dfm}

　　procedure TDocuInputFormClose(Sender: TObject; var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　//初始化表

　　procedure TDocuInputDataSourceDataChange(Sender: TObject;

　　Field: TField);

　　var

　　ij:integer;

　　begin

　　//設置數據表寬度

　　dbgridColumns[]Width:=;

　　//顯示與憑證編號對應的分錄表

　　adoqueryClose;

　　adoquerySQLClear;

　　adoquerySQLAdd(select distinct a*c科目名稱 from 分錄表 a憑證表 b科目表 c

　　where (a憑證編號=+dbeditText+)and(a科目代碼=c科目代碼) order by 編號);

　　adoqueryOpen;

　　//初始化表將表格清空

　　for i:= to do

　　for j:= to do

　　if op<>insert then

　　stringgridCells[ji]:=;

　　//將分錄表數據讀入表格並保存編號數據以供後面的數據庫操作使用

　　i:=;

　　recordnum:=;

　　while not adoqueryEof do

　　begin

　　stringgridCells[i]:=adoqueryfieldbyname(科目代碼)AsString;

　　stringgridCells[i]:=adoqueryfieldbyname(科目名稱)AsString;

　　stringgridCells[i]:=adoqueryfieldbyname(借方)AsString;

　　stringgridCells[i]:=adoqueryfieldbyname(貸方)AsString;

　　stringgridCells[i]:=adoqueryfieldbyname(摘要)AsString;

　　mytable[i]:=adoqueryfieldbyname(編號)AsString;

　　i:=i+;

　　recordnum:=recordnum+;

　　adoqueryNext;

　　end;

　　//設置分錄表的列寬度

　　stringgridColWidths[]:=;

　　//顯示憑證數

　　labelCaption:=inttostr(datasourceDataSetRecordCount);

　　end;

[] [] []

From:http://tw.wingwit.com/Article/program/Delphi/201311/24865.html

經典案例 財務管理系統（14）[2]

經典案例財務管理系統（14）[2]