Question

求助一个很简单的DELPHI计算小程序

界面是两个Edit输入框，输入两个数，赋值给变量a和b。然后点击菜单栏

中的“计算”，于是程序利用公式 d=a+c*b 计算出 d 。其中的

c是：根据输入的b调用一个名为"BH.mdb"的数据库表格，查找b的对应值

得出c。

最后得出的结果 c和d 要用一个文本框显示出来并且可以保存为文本文档

。

相当简单的一个小程序。我是DELPHI初学者，做界面很容易，麻烦高人写

一下 从定义变量开始到计算结束用文本输出 的语句参考一下。

当然如果能提供整个程序源代码那就最好了。非常感谢高人不吝赐教！
本人qq:328844156,wwei651@163.com 先谢谢了.....

Answer 1

qry为一查询表。
1.读到c
qry.sql.text:='select c from BH.mdb where id=:id'; //假设与字段id对应,读c
qry.Parameters.ParamByName('pym').Value:=d;
qry.open;
c:=qry.fieldbyname('c').asinteger;
2.这样就可以利用公式了d=a+c*b。
这是一个结果。如果数据库中的多条记录要输出一行一行的。也不难啊。可以用form的canvas属性在上面写州凳。如果要好写一点。用一上listbox或memo一行一行的写薯胡。也行。
如果还不会。把你的表发到我册手旅的邮箱dj1893@163.com

Answer 2

使用ado控件进行数据库链接，使用adoQuery1控件查找数据。

a := Strtoint(Edit1.Text);
b := StrtoInt(Edit2.text);

adoQuery1.SQL.Add('select * from table1'); //Table1是表名
adoQuery1.Open;

if adoQuery1.Locate('value',b,[]) then //数据表按照b的值进行
/敬毁/定位，Value是字段名
begin
c := adoQuery1.FieldByName('Value').AsInteger;
d := a + c * b;
ShowMessage('a + b * c =' + InttoStr(d));
end
else
begin
Showmessage('数据库中无对应值伏稿樱缺丛！');
end;

Answer 3

很简单的，回答 的两个都可以采纳的

Answer 4

有人贴过了，就不再贴了。