大家帮帮忙！回答就有分！

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
   query1.close;
   query1.sql.clear;
   query1.sql.Add(format('insert into standrd(STANDARD_NAME,BASE_CENT,PER) values (''%s''，''%s'',''%s'')',
   [edit1.text,edit2.text,combobox.text]))
end;

Answer 1

那这样说吧，就是通过按钮的单击，将Edit1、Edit2、Edit3的内容存到表中！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
   query1.close;
   query1.sql.clear;
   query1.sql.Add('insert into 表名 (STANDARD_NAME,BASE_CENT,PER) values (''''+edit1.text+''''，''''+edit2.text+'''',''''+edit3.text+'''')');
end;不行的话，你用MessageBox（query1.sql)
看看这个SQL语句是不是正确，然后再改正

Answer 3

query1.close;
   query1.sql.Text := Format(
'insertrecord into standrd(STANDARD_NAME,BASE_CENT,PER)'#13#10 +
'values (%s,%s,%s)'#13#10, 
     [QuotedStr(Edit1.Text), QuotedStr(Edit2.Text), QuotedStr(Edit3.Text)]);
   query1.ExecSQL;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
   query1.close;
   query1.sql.clear;
   query1.sql.Add('insert into standrd(STANDARD_NAME,BASE_CENT,PER) values (:x1，:x2,:x3)');
 parambyname(x1).asstring:=edit1.text;
 parambyname(x2).asstring:=edit2.text;
 parambyname(x3).asstring:=edit3.text;
 execsql;
end;

Answer 5

query1.sql.Add('insert into standrd(STANDARD_NAME,BASE_CENT,PER) values ('''+edit1.text+'''，'''+edit2.text+''','''+edit3.text+''')');

Answer 6

这样来做是正确的
procedure TForm1.Button1Click(Sender: TObject);
begin
   query1.close;
   query1.sql.clear;
   query1.sql.Text:='insert into 表名 TANDARD_NAME,BASE_CENT,PER)
                    values (''''+edit1.text+''''，''''+edit2.text+'''',''''+edit3.text+'''')');
   query1.execsql;
end;
即可把edit中的值存到数据库中了。

Answer 7

为什么不是query1.sql.add，而是query1.sql.Text？