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

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

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

    stringgridColWidths[]:=;
    stringgridCols[]Add(單價);
    stringgridColWidths[]:=;
    stringgridCols[]Add(金額);
    stringgridColWidths[]:=;
    stringgridCols[]Add(稅率);
    stringgridColWidths[]:=;
    stringgridCols[]Add(稅額);
    stringgridColWidths[]:=;
    stringgridCols[]Add(不含稅額);
    stringgridColWidths[]:=;
     
    for i:= to do
    begin
    stringgridRows[i]Add(inttostr(i));
    stringgridRowHeights[i]:=;
    end;
    //設置業務員數據詞典
    adoqueryClose;
    adoquerySQLAdd(select 姓名 from 用戶清單 where 姓名!=sys);
    adoqueryOpen;
    comboboxClear;
    while not adoqueryEof do
    begin
    comboboxItemsAdd(adoqueryfieldbyname(姓名)AsString);
    adoqueryNext;
    end;
    end;
     
    //設置選取的單元行列值
    //添加銷售價數量等信息並根據這些信息進行計算
    //將統計結果顯示在窗體下方的文本框中
    procedure ToutputStringGridSelectCell(Sender: TObject; ACol
    ARow: Integer; var CanSelect: Boolean);
    var
    pricenumbertaxsum:double;
    j:integer;
    begin
    //讀取選取的當前單元的行列值
    currentCol:=ACol;
    currentRow:=ARow;
    //只有當選取倉庫時動態下拉列表才顯示
    if (currentCol<>) then
    comboboxVisible:=false;
    //只有商品信息不為空時才可以輸入單位和默認稅率
    if (currentCol=)and(stringgridCells[currentRow]<>) then
    begin
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select distinct 單位 from 商品清單 where 貨號一步
=+stringgridCells[currentRow]+);
    adoqueryOpen;
    stringgridCells[currentRow]:=adoqueryFieldByName(單位)AsString;
    stringgridCells[currentRow]:=;
    end;

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


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