經典案例 財務管理系統（10）[5]

　　//如果試算平衡則可以新建帳簿

　　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;

[]  []  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25052.html