職員信息查詢功能的實現[2]

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

    //
    //職員信息管理功能的實現
    //職員信息查詢
     
    procedure TmainButtonClick(Sender: TObject);
    begin
    //這裡是從兩個表中查詢數據請注意其中邏輯運算符的使用方法和通配符的使用
      adoqueryClose;
      adoquerySQLClear;
      adoquerySQLAdd(select a姓名a性別a出生日期a籍貫a民族b單位名稱
      a辦公電話a婚姻狀況a文化程度 from 職員基本信息表 a組織機構編碼表 b);
      adoquerysqladd(where (a單位編號=b單位編號)and((姓名 like
      %+edittext+%)and);
      adoquerySQLAdd((姓名簡碼 like %+editText+%)and);
      adoquerySQLAdd((籍貫 like %+editText+%)and);
      adoquerySQLAdd((民族 like %+comboboxText+)and);
      adoquerySQLAdd((性別 like %+comboboxText+)));
      adoqueryOpen
     
    end;
    //窗體顯示時將表中所有數據顯示出來
    procedure TmainTabSheetShow(Sender: TObject);
    begin
    buttonClick;
    end;      

    至此我們完成了職員信息查詢的功能運行結果如圖所示在查詢條件框中輸入查詢條件單擊【查詢】按鈕可以查詢出我們所要的結果

http://developcsaicn/delphi/images/jpg>
圖  職員信息查詢功能

right>[http://developcsaicn/delphi/htm>]  []  

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