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

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

    adoqueryOpen;
    end;
     
    procedure TmainButtonClick(Sender: TObject);
    begin
    //查詢機構信息
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select 內部編號單位編號單位名稱拼音編碼單位地址);
    adoquerySQLAdd(單位電話號碼開戶銀行帳號開戶全稱 from 組織機構編碼表);
    adoquerySQLAdd(where 單位名稱 like %+editText+%);
    adoqueryOpen;
    end;      

    用戶可以在dbgrid中直接修改機構的信息並可以在上面的文本框中輸入要查詢的機構信息查詢相應的結果上面代碼中用到的模糊查詢功能我們在第章的實例中已經講到過這裡就不再重復敘述同時為了界面更加簡潔美觀應該為相應的字段指定寬度指定寬度可以在程序設計時通過雙擊dbgrid然後設置手工設置每個字段的寬度也可以在程序中來設置每一個字段的寬度這兩種方法我們在進銷存系統中都已經介紹過讀者可以參考前面的代碼至此就實現了機構信息管理功能程序的運行結果如圖所示

http://developcsaicn/delphi/images/jpg>
圖  機構信息管理功能

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

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