看内容
begin
datamodule4.adocommand1.connection:= datamodule4.ADOConnection1;
datamodule4.adocommand1.CommandText:='insert into spxxb(spid,spmc,spbc,spgg,spxh,sycx,flh,syfdj,sybsq,spcd,sccj) values('''+edit1.text+''','''+edit2.text+''','''+edit3.text+''','''+edit4.text+''','''+edit5.text+''','''+edit6.text+''','''+edit7.text+''','''+edit8.text+''','''+edit9.text+''','''+edit10.text+''','''+edit11.text+''')';
datamodule4.adocommand1.Execute;
end;
写入数据库以后如何直接清空edit以方便写入新的数据？
问题点数：0、回复次数：4Top
1 楼sixgj（轰炸机）回复于 2003-11-01 20:25:40 得分 0
edit9.text:='';
……Top
2 楼aiirii（ari-http://spaces.msn.com/members/aiirii/）回复于 2003-11-01 20:28:36 得分 0
var I: integer;
begin
for I:= 0 to Self.ComponentCount -1 do
begin
if Self.Components[i] is TEdit then
(Self.Components[i] as Tedit).Text := '';
end;
end;Top
3 楼jnzcs（清雅）回复于 2003-11-01 20:28:39 得分 0
写在什么位置？？Top
4 楼WGYKING（修罗是谁?![就缺孩子了……]）回复于 2003-11-01 20:56:35 得分 0
...Top
