oncalcFields |
|
答題得分者是：Fishman
|
|
monkeyhung
一般會員   發表：51 回覆：55 積分：21 註冊：2006-12-16 發送簡訊給我 |
 各位大大想讓user輸入完數量、單價、折扣後，小計及累計金額會自動算出來 我這樣的寫法有啥錯嗎? var Sum:=integer procedure TFPUR220.Query_PUR200DDiscountValidate(Sender: TField); begin inherited; Query_PUR200D.FieldByName('SubTot').text :=((Query_PUR200D.FieldByName('Qty').Value) *(Query_PUR200D.FieldByName('PriceU').Value)-(Query_PUR200D.FieldByName('Discount').Value)); end; procedure TFPUR220.Query_PUR200DPriceUValidate(Sender: TField); begin inherited; Query_PUR200D.FieldByName('SubTot').text :=((Query_PUR200D.FieldByName('Qty').Value) *(Query_PUR200D.FieldByName('PriceU').Value)); end; 會寫上面這二行主要是因為我想說，折扣是不一定會輸入的，所以會寫這二行的 procedure TFPUR220.Query_PUR200DCalcFields(DataSet: TDataSet); begin inherited; Sum:=Sum Query_PUR200DSubTot.AsInteger; Query_PUR200DSum.Value:=Sum; end; |
|
kevin2004
資深會員  發表：18 回覆：463 積分：416 註冊：2005-05-29 發送簡訊給我 |
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Sample Codes :
http://delphi.ktop.com.tw/board.php?cid=31&fid=130&tid=88381 http://delphi.ktop.com.tw/download.php?download=upload/463fe6735b0f9_Test104.rar Good Luck !!
------
Fishman |
發表時間：2007-05-07 11:35:23
IP:203.69.xxx.xxx 訂閱
系統時間：2024-07-02 9:17:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |