简直就是送分？？？？？？？？？？？

Question

将query的requestlive属性改为true
其他和table相同

Answer 1

procedure Tfrmldps.BBtnYesClick(Sender: TObject);
begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('insert into oadbo.oc_cypsb (id,ps)'
    + ' values (' "'+ trim(edit1.text) + "',"' + trim(edit2.Text) + '")');
    Query1.ExecSQL ;

Answer 2

with query1 do 
  begin  
   close;
   sql.clear;
   sql.add('insert into oadbo.oc_cypsb ( id ,ps) values (:id, :ps ) ');
   parambyname('id').asstring:=edit1.text;
   parambyname('ps').asstring:=edit2.text;
   execsql;
  end;