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

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

      adoqueryOpen;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=;
      dbgridColumns[]Width:=
      end;
    end;
     
    //在進貨單或銷售單窗體中調用信息管理窗體
    //實現通過單擊grid控件向進貨單或銷售單中傳送相應的數據
    procedure TInfoDBGridDblClick(Sender: TObject);
    var
    numname:string;
    begin
    //向進貨單中傳送商品或供貨商信息
    //判斷是否是從進貨單窗體中調用的信息管理窗體以及調用的是哪個數據表
     if (inputEnabled=false)and(labelCaption=供貨商拼音) then
     begin
    //將供貨商的標號和名稱傳回進貨單窗體
     num:=dbgridFields[]AsString;
     name:=dbgridFields[]AsString;
     inputComboBoxText:=num;
     inputEditText:=name;
    //成功後返回進貨單
     inputEnabled:=true;
     infoClose;
     manageHide;
     end;
     
     if (inputEnabled=false)and(labelCaption=商品拼音) then
     begin
    //將貨號和商品名稱傳回進貨單窗體
      num:=dbgridFields[]AsString;
     name:=dbgridFields[]AsString;
     if inputcurrentRow= then
      inputcurrentRow:=;
     inputStringGridCells[inputcurrentRow]:=num;
     inputStringGridCells[inputcurrentRow]:=name;
    //成功後返回進貨單
     inputEnabled:=true;
     infoClose;
     manageHide;
     
     end;
    //向銷售單中傳送客戶信息
     if (outputEnabled=false)and(labelCaption=客戶拼音) then
     begin
    //向將客戶編號和名稱傳回銷售單窗體
     num:=dbgridFields[]AsString;
     name:=dbgridFields[]AsString;
     outputComboBoxText:=num;
     outputEditText:=name;
    //成功後返回銷售單
     outputEnabled:=true;
     infoClose;
     manageHide;
     end;
    end;      

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

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