吴学文24个经典案例 经典案例 财务管理系统（10）[4]

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

　　//显示统计结果

　　stringgrid Cells[ ]:= 是否平衡 ;

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　stringgrid Cells[ ]:=floattostr(val );

　　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:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　end;

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

　　begin

　　//设置系统参数表列宽

　　dbgrid Columns[ ] Width:= ;

　　dbgrid Columns[ ] Width:= ;

　　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;

[ ]  [ ]  [ ]  [ ]  [ ]