Delphi简单数据操作

增加

ADOQuery1.Close ;
ADOQuery1.SQL.Clear;
str:='insert into PGUSER (loginName) values('''+ edit1.Text +''')';

ADOQuery1.SQL.Add(str);
ADOQuery1.ExecSQL;

删除

begin
ADOQuery1.Close ;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE PGUSER where loginName='''+ edit1.Text +'''');
ADOQuery1.ExecSQL;
end;

 

查询

ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from PGUSER';
ADOQuery1.Open;