我想做一个计算字段和的程序!
用到的控件:Edit1、Edit2、DBGrid、ADOConnection、ADOQuery、DataSource、Button
两个Edit用于写入数字,ADOConnection连接数据库,在ADOQuery中选用表jisuan(num1 int,num2 int,sum bigint),
按下Button后,完成在DBGrid中显示两个输入数,并讲和显示出来!
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text=''
then adoquery1.FieldByName('num1').Value:=0;
if edit2.Text=''
then adoquery1.FieldByName('num2').Value:=0;
with adoquery1 do
begin
  insert;
  fieldbyname('num1').Value:=strtobigint(edit1.Text);
  fieldbyname('num2').Value:=strtobigint(edit2.Text);
  fieldbyname('sum').Value:=fieldbyname('num1').Value+fieldbyname('num2').Value;
  post;
end
end;