请问如何用sql语句在数据库里面加一条记录

[_coco]

procedure TForm2.BitBtn3Click(Sender: TObject);
var
s1,s2,s3:string;
begin
s1:=Edit2.Text;
s3:=Edit4.Text;
s2:=Edit3.Text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into goods.db values()');
query1.Open;
end


value后面的括号怎么填阿？其中呢edit4.text应该填入一个money型的数据，那又怎么转换阿~~各位帮帮忙

[cnhgj]

insert into goods(db) values ('''+edit1.text+''')

[cnhgj]

query1.SQL.Add('insert into goods(db) values ('+edit1.text+')')

[sixgj]

edit4换成markedit。values就添你要的参数了。

[AsonLee]

procedure TForm2.BitBtn3Click(Sender: TObject);
var
s1,s2,s3:string;
begin
s1:=Edit2.Text;
s3:=Edit4.Text;
s2:=Edit3.Text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into goods.db values(:sa,:sb,sc)');

query1.Parameters.ParamByName('sa').Value:=s1;
query1.Parameters.ParamByName('sb').Value:=s2;
query1.Parameters.ParamByName('sc').Value:=s3;

query1.ExecSQL;///////不要用open

end

[wyr521]

procedure TForm2.BitBtn3Click(Sender: TObject);
var
s1,s2,s3:string;
begin
s1:=Edit2.Text;
s3:=Edit4.Text;
s2:=Edit3.Text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into goods.db values(:sa,:sb,sc)');

query1.Parameters.ParamByName('sa').Value:=s1;
query1.Parameters.ParamByName('sb').Value:=s2;
query1.Parameters.ParamByName('sc').Value:=s3;

query1.ExecSQL;///////不要用open

end

[漠北刀客]

procedure TForm2.BitBtn3Click(Sender: TObject);
var
s1,s2,s3:string;
begin
s1:=Edit2.Text;
s3:=Edit4.Text;
s2:=Edit3.Text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into goods.db values(''' + s1 + ''',''' + s2 + ''',' + strtocurrency(s3) + ')');
query1.execSQL
end

[XXSingle]

首先应把sql基本语法搞懂先：
insert into 表名(字段名1,字段名2....)
values(值1,值2......);

[karach]

迟到了，本来这分是我的！！

[sy_315]

insert into goods.db values('''+s1+''','''+s2+''','''+s3+''');
用execsql

[cow8063]

s1:=Edit2.Text;
s3:=Edit4.Text;
s2:=Edit3.Text;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into goods.db values('''+s1+''''+','''+s2+''''+','+s3+')');
query1.execSQL