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

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

    //窗體關閉時返回的窗體選擇
    procedure TInfoFormClose(Sender: TObject; var Action: TCloseAction);
    begin
    manageshow;
    //如果此時是從進貨單功能中調用信息管理窗體則不返回管理主窗體而返回進貨單窗體
    if (inputEnabled=false) then
     begin
     manageHide;
     inputenabled:=true;
    end
    end;
     
    //窗體顯示時默認顯示商品清單
    procedure TInfoFormShow(Sender: TObject);
    begin
    nClick;
    end;
     
    //實現查詢功能
    procedure TInfoButtonClick(Sender: TObject);
    begin
    //根據標簽的文字進行判斷應該對那個數據表進行查詢
    //查詢商品清單中的信息
     if labelCaption=商品拼音 then
      begin
      adoqueryClose;
      adoquerySQLClear;
      adoquerySQLAdd(select * from 商品清單where 拼音編碼 like %+edittext+%);
      adoqueryOpen;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=
      end;
     
      //查詢供貨商清單中的信息
      if labelCaption=供貨商拼音 then
      begin
      adoqueryClose;
      adoquerySQLClear;
      adoquerySQLAdd(select * from 供貨商清單where 拼音編碼 like %+edittext+%);
      adoqueryOpen;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=
      end;
     
      //查詢客戶清單中的信息
      if labelCaption=客戶拼音 then
      begin
      adoqueryClose;
      adoquerySQLClear;
      adoquerySQLAdd(select * from 客戶清單where 拼音編碼 like %+edittext+%);

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

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