熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

經典案例 財務管理系統(9)[3]

2013-11-23 17:44:59  來源: Delphi編程 

  //首記錄

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.