熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:44:04  來源: Delphi編程 
    ——此文章摘自《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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.