經典案例 財務管理系統（9）[2]

　　//設置關閉窗體的模式

　　procedure TSecSettingFormClose(Sender: TObject; var Action: TCloseAction);

　　begin

　　action:=cafree;

　　end;

　　//設置表格寬度

　　procedure TSecSettingDataSourceDataChange(Sender: TObject;

　　Field: TField);

　　begin

　　//顯示數據數量

　　labelCaption:=inttostr(adoqueryRecordCount);

　　//設置數據表寬度

　　dbgridColumns[]Width:=;

　　dbgridColumns[]Width:=;

　　end;

　　//專門寫一個函數來實現工具欄按鈕的設置讓代碼更加簡練

　　procedure TSecSettingSetToolBar(isEnable: bool);

　　begin

　　if isEnable=true then

　　begin

　　//將首記錄等記錄移動按鈕設置為不可用

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　//將新增修改等按鈕設置為不可用

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　//將保存和取消按鈕設置為可用

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　//將窗體內的數據顯示控件設為可讀

　　dbeditReadOnly:=false;

　　dbeditReadOnly:=false;

　　dbeditReadOnly:=false;

　　dbradiogroupReadOnly:=false;

　　dbradiogroupReadOnly:=false;

　　end;

　　if isEnable=false then

　　begin

　　//將首記錄等記錄移動按鈕設置為可用

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　//將新增修改等按鈕設置為可用

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　toolbuttonEnabled:=true;

　　//將保存和取消按鈕設置為不可用

　　toolbuttonEnabled:=false;

　　toolbuttonEnabled:=false;

　　//將窗體內的數據顯示控件設為只讀

　　dbeditReadOnly:=true;

　　dbeditReadOnly:=true;

　　dbeditReadOnly:=true;

　　dbradiogroupReadOnly:=true;

　　dbradiogroupReadOnly:=true;

　　end;

　　end;

　　//新增記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　SetToolBar(true);

　　datasourceDataSetInsert;

　　end;

　　//修改記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　SetToolBar(true);

　　datasourceDataSetEdit;

　　end;

　　//刪除記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　if applicationMessageBox(刪除該條記錄?財務管理系統MB_OKCANCEL)=IDOK then

　　datasourceDataSetDelete;

　　end;

[]  []  []  

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