看内容

Question

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以方便写入新的数据？

Answer 1

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;