oncalcFields

發文回覆瀏覽次數：897

推到 Plurk!

推到 Facebook!

尚未結案

monkeyhung
一般會員

發表：51
回覆：55
積分：21
註冊：2006-12-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-05-07 11:12:09

IP:203.69.xxx.xxx 訂閱

各位大大想讓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;

系統時間：2024-07-02 8:44:40

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！