|
//启用新帐户 procedure TAccountSettingBitBtnClick(Sender: TObject); begin //判断是否试算平衡 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select sum(累计借方) 借方sum(累计贷方) 贷方 from 帐簿初始化表); adoqueryOpen; if adoqueryFieldByName(借方)AsString<>adoqueryFieldByName(贷方)AsString then begin showmessage(新帐簿初始化不平衡请检查试算平衡表后重新输入); exit; end; //如果试算平衡则可以新建帐簿 if applicationMessageBox(试算结果平衡启用新帐簿将删除所有历史记录+#+是否继续? 确认MB_OKCANCEL)=IDOK then begin //执行储存过程启用帐户 adocommandCommandText:=EXEC sf_启用帐户; adocommandExecute; //刷新数据表 adotableActive:=false; adotableActive:=true; adotableActive:=false; adotableActive:=true; //显示帐户启用成功消息 showmessage(新帐户启用成功); end; end; //显示初始化时的试算平衡表 procedure TAccountSettingBitBtnClick(Sender: TObject); var newform:Tsumaccount; begin //创建试算平衡窗体 newform:=TsumaccountCreate(application); newformCaption:=试算平衡表(初始化); //在初始化时使用 newformforinitial; end; [] [] [] [] |
