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

    ——此文章摘自《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