進銷存管理系統資料管理功能的實現（二）[1]

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

    雙擊圖所示界面中的【查詢】按鈕為按鈕添加下面的事件處理程序實現對所使用的數據表的動態判斷和模糊查詢整個信息管理窗體的代碼如下
    //單擊商品信息管理菜單顯示商品清單
    procedure TInfoNClick(Sender: TObject);
    begin
    //查詢商品信息
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLText:=select * from  商品清單;
    adoqueryOpen;
    //設置列的寬度方便用戶查看
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    //提示用戶輸入商品拼音以供查詢
    labelCaption:=商品拼音;
    end;
     
    //單擊供貨商信息管理菜單顯示供貨商清單
    procedure TInfoNClick(Sender: TObject);
    begin
    //查詢供貨商信息
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLText:=select * from  供貨商清單;
    adoqueryOpen;
    //設置列的寬度方便用戶查看
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    //提示用戶輸入供貨商拼音以供查詢
    labelCaption:=供貨商拼音;
    end;
    //單擊客戶信息管理菜單顯示客戶清單
    procedure TInfoNClick(Sender: TObject);
    begin
    //查詢客戶信息
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLText:=select * from  客戶清單;
    adoqueryOpen;
    //設置列的寬度方便用戶查看
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    //提示用戶輸入客戶拼音以供查詢
    labelCaption:=客戶拼音;
    end;

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

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