Question

求助一个很简单的DELPHI计算小程序（送分）_

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

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

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

得出c。

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

。

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

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

当然如果能提供整个程序源代码那就最好了。非常感谢高人不吝赐教！

Answer 1

var a,b,c,d:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select cindex from tabel1 where ');
adoquery1.sql.add('cindex='''+b+''' ');
adoquery1.open;
if not adoquery1.eof then
c:=adoquery1.fieldbyname('cindex').asinteger;
d:=a+b*c;
edit3.text:=inttostr(d);

我直接写的没有经过调试的,你自己调下...
ADOQUERY1是连接你的数据库