在 Delphi6 中，如何在 Edit1 中顯示前兩個 DBEdits 的乘積？

在 edit1 中顯示前兩個 dbedits 的乘積？

dbedit是乙個資料感知控制項，你要顯示資料記錄，自動計算出一些欄位的乘積，有很多方法可以處理它，給你兩種常用的方法：

1. 在 dbedit 資料集的 afterscroll 事件中計算，如下例所示：

procedure : tdataset);

varv: integer;

beginv := 'f1').asinteger * 'f2').asinteger;

inttostr(v);

end;2. 在SQL查詢過程中處理。

示例：sql：='select f1, f2, f1*f2 as f3 from table'，在這種情況下，將 edit1 替換為 dbedit，並且可以關聯 f3 字段。

看看你的問題。 我想這是對資料庫的操作。 如果您的前兩個 dbedit 將更改。 我想實時顯示要編輯的產品。 使用欄位的 onchange 事件。

初始化：'a').onchange = dochange;

b').onchange = dochange;

procedure dochange(sender: tfield);

'a').asfloat * 'b').asfloat;

end;在關閉時，請記住關閉初始化。

a').onchange = nil;

b').onchange = nil;

如果直接查詢。 然後將其寫入 SQL 語句中。 最好直接為其賦值。

記得引用。

以下 ** 是在 delphi xe3 下編譯的。

uses ;

procedure : tobject);

vard1,d2:tdate;

begind1:=now;取當前日期。

formatdatetime('yyyy-mm-dd',d1);顯示在編輯中。

showmessage(;提示。

d2:=incday(d1,-2);減去 2 天：= formatdatetime（'yyyy-mm-dd',d2);顯示在編輯中。

end;

"yyyy-mm-dd");

其實很簡單，我只用C++Buildr，和德爾福很像，試試吧。 要學習德爾福，你必須找到德爾福討論。 祭壇，這個。 村。 人。 氣。 不。 好的，尋找 csdn討論。 祭壇。 德爾福，人。 氣。 腳。

執行此操作的唯一方法是讀取和寫入檔案或登錄檔，在編輯輸入完成後寫入檔案，並在下次開啟相應檔案時從相應檔案中讀取它。

在程式關閉之前，將 edit1 的內容寫入 ini 檔案，並考慮響應 main form 的 onclose 事件，寫入 ** 將 edit1 的內容寫入 ini 檔案。

至於“程式再次開啟後，關閉前的內容仍然顯示在edit1中”，可以響應表單的onshow事件，先從ini檔案中獲取內容，然後將內容分配給它，也可以考慮響應oncreate事件，這樣編輯的內容在程式開始時只會更新一次， 而不是更新 OnShow 中的每個顯示。