我想做一个计算字段和的程序!
用到的控件: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;
用到的控件: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;
解决方案 »
- 实现透明窗体中遇到的问题,为什么画出来的窗体缺四个角?
- 提一个delphi的问题,附上源码,请高手指点下(短)
- 如何用命令行方式或WinAPI给一个文件夹添加权限?
- 用PromptDataSource得到链接字符串,哪如何再得到密码和用户名
- ADO+ACCESS
- 在线等待,马上结帐 分辩率的问题,很简单,但没有找到答案
- 大家看看,这条SQL怎么达不到我预想的结果!!!!!!
- dll窗体嵌套
- 自定义的类的问题,继承自Tolecontrol
- 各位高手,Delphi中如何使用WINSOCK2.0的API,我好象找不到?
- 关于PopupMenu菜单位置的问题
- (送分给伴水清清)怎样把16进制数(字符串)转换为浮点数并显示出来!
谢谢!