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

Posted 2022-07-21 知

篇首语：不磨不炼，不成好汉。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（10）[4]相关的知识，希望对你有一定的参考价值。

　　//显示统计结果

　　stringgrid Cells[ ]:= 是否平衡 ;

　　stringgrid Cells[ ]:=floattostr(val );

　　if (val <>val )or(val <>val )or(val <>val ) then

　　begin

　　stringgrid Cells[ ]:= 不平衡 ;

　　stringgrid Font Color:=clred;

　　end

　　else

　　stringgrid Cells[ ]:= 平衡 ;

　　end;

　　// 以下是帐户设置窗体的代码

　　implementation

　　$R * dfm

　　uses sumaccountform;

　　procedure TAccountSetting FormClose(Sender: TObject;

　　var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　// 设置表格

　　procedure TAccountSetting DataSource DataChange(Sender: TObject;

　　Field: TField);

　　begin

　　//设置帐簿初始化表列宽

　　dbgrid Columns[ ] Width:= ;

　　end;

　　procedure TAccountSetting DataSource DataChange(Sender: TObjectField: TField);

　　begin

　　//设置系统参数表列宽

　　dbgrid Columns[ ] Width:= ;

　　end;

　　// 初始化帐户

　　procedure TAccountSetting BitBtn Click(Sender: TObject);

　　begin

　　//执行储存过程初始化帐户

　　adomand CommandText:= EXEC sf_初始化帐户 ;

　　if application MessageBox( 是否清除原帐簿信息并初始化新帐簿? 确认

　　MB_OKCANCEL)=IDOK then

　　adomand Execute;

　　//刷新数据表

　　adotable Active:=false;

　　adotable Active:=true;

　　adotable Active:=false;

　　adotable Active:=true;

　　end;

　　// 启用新帐户

　　procedure TAccountSetting BitBtn Click(Sender: TObject);

　　begin

　　//判断是否试算平衡

　　adoquery Close;

　　adoquery SQL Clear;

　　adoquery SQL Add( select sum(累计借方) 借方 sum(累计贷方) 贷方 from 帐簿初始化表 );

　　adoquery Open;

　　if adoquery FieldByName( 借方 ) AsString<>adoquery FieldByName( 贷方 ) AsString then

　　begin

　　showmessage( 新帐簿初始化不平衡请检查试算平衡表后重新输入 );

　　exit;

　　end;

[ ] [ ] [ ] [ ] [ ]

cha138/Article/program/Delphi/201311/25051

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

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