需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）

增加


with dm.DataModule1.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的
    parameters.ParamByName('a').Value:=trim(edit1.Text);
    parameters.ParamByName('b').Value:=trim(edit2.Text);
    parameters.ParamByName('c').Value:=trim(edit3.Text);
    execsql;
  end;



删除


复制代码
with dm.DataModule1.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('delete from 表 where 字段=:a');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      execsql;
    end;



修改

with dm.DataModule1.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add('update 表 set 字段1=:a where 字段2=:b');//where后面跟的是条件，set为后面跟需要修改的数据所在的字段
       parameters.ParamValues['b']:=trim(Edit4.Text);
       parameters.ParamValues['a']:=trim(Edit14.Text);
       execsql;
     end;



查询


with dm.DataModule1.adoquery1 do
  begin
   Close;
   SQL.Clear;
   sql.Add('select * from 表 where 字段名 = :a ');
   parameters.ParamByName('a').Value:=trim(edit1.Text);
   Open;
end;

https://www.cnblogs.com/windson/p/12650392.html