知识大全经典案例财务管理系统（14）[2]

Posted 2022-07-14 知

篇首语：读过一本好书，像交了一个益友本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（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;

　　maxnum recordnum curRow curCol:integer;

　　mytable:Ttable;

　　op:string;

　　implementation

　　$R * dfm

　　procedure TDocuInput FormClose(Sender: TObject; var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　// 初始化表

　　procedure TDocuInput DataSource DataChange(Sender: TObject;

　　Field: TField);

　　var

　　i j:integer;

　　begin

　　//设置数据表宽度

　　dbgrid Columns[ ] Width:= ;

　　//显示与凭证编号对应的分录表

　　adoquery Close;

　　adoquery SQL Clear;

　　adoquery SQL Add( select distinct a * c 科目名称 from 分录表 a 凭证表 b 科目表 c

　　where (a 凭证编号= +dbedit Text+ )and(a 科目代码=c 科目代码) order by 编号 );

　　adoquery Open;

　　//初始化表将表格清空

　　for i:= to do

　　for j:= to do

　　if op<> insert then

　　stringgrid Cells[j i]:= ;

　　//将分录表数据读入表格并保存编号数据以供后面的数据库操作使用

　　i:= ;

　　recordnum:= ;

　　while not adoquery Eof do

　　begin

　　stringgrid Cells[ i]:=adoquery fieldbyname( 科目代码 ) AsString;

　　stringgrid Cells[ i]:=adoquery fieldbyname( 科目名称 ) AsString;

　　stringgrid Cells[ i]:=adoquery fieldbyname( 借方 ) AsString;

　　stringgrid Cells[ i]:=adoquery fieldbyname( 贷方 ) AsString;

　　stringgrid Cells[ i]:=adoquery fieldbyname( 摘要 ) AsString;

　　mytable[i]:=adoquery fieldbyname( 编号 ) AsString;

　　i:=i+ ;

　　recordnum:=recordnum+ ;

　　adoquery Next;

　　end;

　　//设置分录表的列宽度

　　stringgrid ColWidths[ ]:= ;

　　//显示凭证数

　　label Caption:=inttostr(datasource DataSet RecordCount);

　　end;

[ ] [ ] [ ]

cha138/Article/program/Delphi/201311/24865

知识大全 经典案例 财务管理系统（14）[2]

知识大全经典案例财务管理系统（14）[2]