sql.txt

来自「同学通讯录」· 文本 代码 · 共 15 行

 str :='insert into record values('
    +':name,:email,:bth,:worktel,:QQ,:phone,:tel,:workunit,:contactadd,:phone)';
 query1.Close;
 query1.SQL.Clear;
 query1.SQL.Add(str);//增加SQL语句
 query1.ParamByName('name').AsString:=edit1.Text;
 query1.ParamByName('email').AsString:=edit2.Text;
 query1.ParamByName('bth').AsString:=edit3.Text;
 query1.ParamByName('worktel').AsString:=edit4.Text;
 query1.ParamByName('QQ').AsString:=edit5.Text;
 query1.ParamByName('phone').AsString:=edit6.Text;
 query1.ParamByName('tel').AsString:=edit7.Text;
 query1.ParamByName('workunit').AsString:=edit8.Text;
 query1.ParamByName('contactadd').AsString:=edit9.Text;
 query1.ExecSQL;