在 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 中的每个显示。