進銷存管理系統庫存查詢功能的實現[2]

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

     () 為窗體添加如下代碼完成庫存查詢的功能
    //窗體關閉時返回的窗體的選擇
    procedure TstoreFormClose(Sender: TObject; var Action: TCloseAction);
    begin
    manageshow;
    //如果此時是從銷售單功能中調用庫存查詢窗體則不返回管理主窗體而返回銷售單窗體
    if (outputEnabled=false) then
     begin
     manageHide;
     outputenabled:=true;
     end
    end;
     
    //窗體顯示時從兩張不同的表裡面進行組合查詢庫存數據
    procedure TstoreFormShow(Sender: TObject);
    begin
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLText:=select 庫存庫貨號商品清單品名商品清單單位庫存庫倉庫庫存庫
    庫存數量庫存庫庫存單價庫存庫庫存金額 from 庫存庫商品清單 where 庫存庫貨號=商品清單貨號;
    adoqueryOpen;
    end;
     
    //執行查詢
    procedure TstoreButtonClick(Sender: TObject);
    begin
     adoqueryClose;
     adoquerysqlClear;
     adoquerySQLAdd(select 庫存庫貨號商品清單品名商品清單單位庫存庫倉庫庫存庫
     庫存數量庫存庫庫存單價庫存庫庫存金額 from 庫存庫商品清單);
     adoquerySQLAdd(where 庫存庫貨號=商品清單貨號 and );
     adoquerySQLAdd(((商品清單貨號=+editText+)or);
     adoquerySQLAdd((商品清單拼音編碼=+editText+)or);
     adoquerySQLAdd((庫存庫倉庫=+comboboxtext+)));
     adoqueryOpen;
    //上面SQL語句的作用是從數據庫中查詢任意與輸入的商品拼音貨號倉庫三者之一有相同值的記錄因此
    //後面三個語句是或的關系但是任何結果必須至少符合三個條件中的一個所以又是一個與的關系
    //這裡我們沒有使用前面所講過的模糊查詢讀者可以參照前面的章節自行修改程序看看會有什麼樣的結果
    end;
     
    //在銷售單窗體中調用庫存查詢窗體
    //實現通過單擊grid控件向銷售單中傳送相應的數據
    procedure TstoreDBGridDblClick(Sender: TObject);
    var
    namenum:string; 
    begin
    if (outputEnabled=false) then
     begin
      num:=dbgridFields[]AsString;
      name:=dbgridFields[]AsString;
    //向將客戶編號和名稱傳回銷售單窗體
     if outputcurrentRow= then
      outputcurrentRow:=;
      outputStringGridCells[outputcurrentRow]:=num;
      outputStringGridCells[outputcurrentRow]:=name;
      outputEnabled:=true;
      //成功後返回銷售單
      storeClose;
      manageHide;
      end;
    end;

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

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