var
e_id,e_name,e_sex,e_birth,e_sf, e_jg, e_address, e_telphone, e_additems:string;
begin
e_id:=edit1.Text;
e_name:=edit2.Text;
e_sex:=combobox1.Items.Text;
e_birth:=datetostr(datetimepicker1.Date);
e_sf:=edit3.Text;
e_jg:=edit6.Text;
e_address:=edit4.Text;
e_telphone:=edit7.Text;
e_additems:=tabsheet1.Caption+memo1.Text+ tabsheet2.Caption+memo2.Text+tabsheet3.Caption+memo3.Text; with form2.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into xg0108_employee ');
//sql.Add('values('+'e_id'+','+'e_name'+','+'e_sex'+','+'e_birth'+','+'e_sf'+','+'e_jg'+','+'e_address'+','+'e_telphone'+','+'e_additems'+')');
sql.Add('values('+''''+e_id+''''+','+''''+e_name+''''+','+''''+e_sex+''''+','+''''+e_birth+''''+','+''''+e_sf+''''+','+''''+e_jg+''''+','+''''+e_address+''''+','+''''+e_telphone+''''+','+''''+e_additems+''''+')');
execsql;
close;
sql.Clear;
sql.Add('select * from xg0108_employee');
open;
end;
请各大高手帮忙!!!
e_id,e_name,e_sex,e_birth,e_sf, e_jg, e_address, e_telphone, e_additems:string;
begin
e_id:=edit1.Text;
e_name:=edit2.Text;
e_sex:=combobox1.Items.Text;
e_birth:=datetostr(datetimepicker1.Date);
e_sf:=edit3.Text;
e_jg:=edit6.Text;
e_address:=edit4.Text;
e_telphone:=edit7.Text;
e_additems:=tabsheet1.Caption+memo1.Text+ tabsheet2.Caption+memo2.Text+tabsheet3.Caption+memo3.Text; with form2.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into xg0108_employee ');
//sql.Add('values('+'e_id'+','+'e_name'+','+'e_sex'+','+'e_birth'+','+'e_sf'+','+'e_jg'+','+'e_address'+','+'e_telphone'+','+'e_additems'+')');
sql.Add('values('+''''+e_id+''''+','+''''+e_name+''''+','+''''+e_sex+''''+','+''''+e_birth+''''+','+''''+e_sf+''''+','+''''+e_jg+''''+','+''''+e_address+''''+','+''''+e_telphone+''''+','+''''+e_additems+''''+')');
execsql;
close;
sql.Clear;
sql.Add('select * from xg0108_employee');
open;
end;
请各大高手帮忙!!!
比如用“:param”之类
with adoquery do
begin
append;
fieldbyname('').asstring:=...;
....
post;
end;
这样的方式来保存数据这样可以省略一次查询