ado.SQL.Clear; //清除sql语句
ado.SQL.Text:='insert into userinfo(数据库字段值) values(A)';
ado.Parameters.ParamByName('A').Value:=trim(edit1.Text);
ado.ExecSQL //执行sql语句
ado.SQL.Text:='insert into userinfo(数据库字段值) values(A)';
ado.Parameters.ParamByName('A').Value:=trim(edit1.Text);
ado.ExecSQL //执行sql语句
其中:ado为重命名后的ADOQuery1控件名称