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

進銷存管理系統銷售管理功能的實現(二)[1]

2013-11-23 17:41:37  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

      //統計合計金額
       sum:=;
       for j:= to do
       if  stringgridCells[j]<> then
           sum:=sum+strtofloat(stringgridCells[j]);
           editText:=floattostr(sum);
      //統計合計稅額
       sum:=;
       for j:= to do
       if  stringgridCells[j]<> then
           sum:=sum+strtofloat(stringgridCells[j]);
           editText:=floattostr(sum);
       //統計合計不含稅額
       sum:=;
       for j:= to do
       if  stringgridCells[j]<> then
           sum:=sum+strtofloat(stringgridCells[j]);
           editText:=floattostr(sum);
     
    end;
    end;
     
    //在選取倉庫條件滿足時顯示倉庫名下拉列表
    //並設置倉庫名數據詞典
    procedure ToutputStringGridMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X Y: Integer);
    begin
     
    //倉庫名下拉列表框顯示在鼠標附近
    if (currentCol=)and(stringgridCells[currentRow]<>) then
       begin
       comboboxVisible:=true;
       comboboxLeft:=X;
       comboboxTop:=Y+;
     //添加數據詞典
     //注意和進貨單的不同之處
     //這裡是根據商品的編號來查詢存有這個商品的倉庫
     adoqueryClose;
     adoquerySQLClear;
     adoquerySQLAdd(select distinct 倉庫 from 庫存庫 where 貨號
     =+stringgridCells[currentRow]+);
     adoqueryOpen;
     comboboxItemsClear;
     while not adoqueryEof do
      begin
      comboboxItemsAdd(adoqueryFieldByName(倉庫)AsString);
      adoqueryNext;
      end;
      end;
    end;

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


From:http://tw.wingwit.com/Article/program/Delphi/201311/24896.html
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.