機構信息管理功能的實現[1]

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

    在這裡我們要實現對於【省醫藥集團】所屬的所有機構信息的維護和查找因此可以用很簡單的程序來實現它我們在前面的進銷存系統實例中曾講過類似的功能首先該頁面的頁面設置如圖所示控件清單和屬性設置如表所示圖右上角的數據鏈接圖標為本實例用到的所有數據鏈接控件它們浮在面板上方本節功能用到的僅僅是其中的一個ADOQuery和一個DataSource而已

http://developcsaicn/delphi/images/jpg>
圖  機構信息管理頁面控件設置

http://developcsaicn/delphi/images/gif>
表  機構信息管理頁控件及其屬性設置

    實現該功能的代碼非常簡單只需要分別為【查詢】按鈕和該頁面顯示時的TabSheetShow事件添加處理代碼即可代碼如下
    //
     //機構信息管理功能的實現
     //
    procedure TmainTabSheetShow(Sender: TObject);
    //顯示機構信息
    begin
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select 內部編號單位編號單位名稱拼音編碼單位地址);
    adoquerySQLAdd(單位電話號碼開戶銀行帳號開戶全稱 from 組織機構編碼表);

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

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