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

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

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

    //當商品信息數量單價不為空時才能進行計算
    if (currentRow<>)and(stringgridCells[currentRow]<>)and(stringgridCells[
    currentRow]<>)and(stringgridCells[currentRow]<>)and(stringgridCells[
    currentRow]<>) then
       begin
     //計算某條銷售單明細的進貨金額稅額和不含稅額
    //這裡開始添加的代碼是判斷出貨量的
    //銷售商品的數量不允許大於庫存中的儲存數量
     adoqueryClose;
     adoquerySQLClear;
     adoquerySQLAdd(select 庫存數量 from 庫存庫 where 貨號
     =+stringgridCells[currentRow]+);
     adoqueryOpen;
     if strtoint(stringgridCells[currentRow])>adoquery
     FieldByName(庫存數量)AsInteger then
      begin
      showmessage(該庫中此種商品的最大儲量小於您的輸入將按照最大儲量出貨);
      stringgridCells[currentRow]:=adoqueryFieldByName(庫存數量)AsString;
      end;
     
    //計算某條銷售單明細的進貨金額稅額和不含稅額
       number:=strtofloat(stringgridCells[currentRow]);
       price:=strtofloat(stringgridCells[currentRow]);
       tax:=strtofloat(stringgridCells[currentRow])/;
       stringgridCells[currentRow]:=floattostr(number*price);
       stringgridCells[currentRow]:=floattostr(tax*number*price/(+tax));
       stringgridCells[currentRow]:=floattostr(number*price/(+tax));

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


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