|
//如果试算平衡则可以新建帐簿 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; [] [] [] [] [] |
