delphi 表格添加数据
如图,我想把几个edit控件的内容,点”OK“后,添加到下面的数据库中,在DBGrid上显示。请问要如何做才能实现?新手求教。...
如图,我想把几个edit控件的内容,点”OK“后,添加到下面的数据库中,在DBGrid上显示。请问要如何做才能实现?新手求教。
展开
3个回答
展开全部
:= Edit3.Text; //以下属性可以在Delphi左侧的Object Inspector窗口中修改//如果你肯定不使用库的话,你可能就需要自己使用二维循环来手工表格里每个
追问
我要用数据库的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以先用
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add( 'insert into ywprint(Fflag,Cbeno,pno,Cmax) ');
SQL.Add( 'values( '+Edit1.Text+ ','+Edit2.Text+','+Edit3.Text+','+Edit4.Text+')');
ExecSQL;
end;
将数据写入数据库,再用
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select Fflag,Cbeno,pno , Cmax from ywprint ');
AdoQuery1.Active:=true;
ExecSQL;
end;
显示出来,试一下,不一定对
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add( 'insert into ywprint(Fflag,Cbeno,pno,Cmax) ');
SQL.Add( 'values( '+Edit1.Text+ ','+Edit2.Text+','+Edit3.Text+','+Edit4.Text+')');
ExecSQL;
end;
将数据写入数据库,再用
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select Fflag,Cbeno,pno , Cmax from ywprint ');
AdoQuery1.Active:=true;
ExecSQL;
end;
显示出来,试一下,不一定对
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
DBTEXT就行了
参考资料: 大仙
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询