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

　　//首記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　datasourceDataSetFirst;

　　end;

　　//上記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　datasourceDataSetPrior;

　　end;

　　//下記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　datasourceDataSetNext;

　　end;

　　//尾記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　datasourceDataSetLast;

　　end;

　　//關閉窗體

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　close;

　　end;

　　//保存記錄

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　//檢查科目代碼是否已輸入

　　if dbeditText= then

　　begin

　　showmessage(科目代碼不允許為空值);

　　exit;

　　end;

　　datasourceDataSetPost;

　　SetToolBar(false);

　　end;

　　//取消操作

　　procedure TSecSettingToolButtonClick(Sender: TObject);

　　begin

　　datasourceDataSetCancel;

　　SetToolBar(false);

　　end;

　　//查詢數據並顯示

　　procedure TSecSettingBitBtnClick(Sender: TObject);

　　begin

　　adoqueryClose;

　　adoquerySQLClear;

　　adoquerySQLAdd(select * from 科目表 where (科目代碼 like %+editText+%)and);

　　adoquerySQLAdd((科目名稱 like %+editText+%)and(科目類別 like %+editText+%));

　　adoqueryOpen;

　　end;

[]  []  []  

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