工資發放歷史查詢功能的實現

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    工資發放歷史頁面的作用是查詢職員歷史月份的工資預設的查詢條件有月份職員編號兩個屬性在【工資發放歷史】頁面上放置個文本框控件個按鈕控件個Label控件他們的屬性設置如圖所示數據庫組件的設置如表所示

http://developcsaicn/delphi/images/jpg>
圖  工資發放歷史查詢頁控件設置

http://developcsaicn/delphi/images/gif>
表  工資發放歷史查詢頁控件及其屬性設置     

    雙擊【查詢】按鈕為其添加如下代碼
    //工資發放歷史查詢
    procedure TmainButtonClick(Sender: TObject);
    var
    i:integer;
    begin
      adoqueryClose;
      adoquerySQLClear;
      adoquerySQLAdd(select b姓名a* from 工資發放歷史表 a職員基本信息表 b );
      adoquerySQLAdd(where (a職員編號=b職員編號)and((b姓名 like
      %+editText+%)and);
      adoquerySQLAdd((a日期 like %+editText+%)));
      adoqueryOpen;
      //設置表的寬度
        for i:= to do
        dbgridColumns[i]Width:=;
    end;
     
    procedure TmainTabSheetShow(Sender: TObject);
     //顯示時列出表中所有數據相當於輸入空值進行查詢
    begin
    buttonClick;
    end;      

    該功能相當簡單直接使用我們以前講過的內容既可很輕松地完成程序運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  工資發放歷史查詢功能

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