dm.addQdoctor.Close;
dm.addQdoctor.SQL.Clear;
dm.addQdoctor.SQL.Add('insert into doctor');
dm.addQdoctor.SQL.Add('values (:trim(edit1.Text),:trim(edit2.Text),:strbirthday,:trim(combobox1.Text),:edit3.Text,:edit4.Text,:inhousecode,:dtcosttypecode)');
dm.addQdoctor.Params[0].AsString:=trim(edit1.Text);
dm.addQdoctor.Params[1].AsString:=trim(edit2.Text);
dm.addQdoctor.Params[2].AsDate:=strbirthday;
dm.addQdoctor.Params[3].AsString:=trim(combobox1.Text);
dm.addQdoctor.Params[4].AsString:=trim(edit3.Text);
dm.addQdoctor.Params[5].AsString:=trim(edit4.Text);
dm.addQdoctor.Params[6].AsString:=inhousecode;
dm.addQdoctor.Params[7].AsString:=dtcosttypecode;
dm.addQdoctor.ExecSQL;
dm.addQdoctor.SQL.Clear;
dm.addQdoctor.SQL.Add('insert into doctor');
dm.addQdoctor.SQL.Add('values (:trim(edit1.Text),:trim(edit2.Text),:strbirthday,:trim(combobox1.Text),:edit3.Text,:edit4.Text,:inhousecode,:dtcosttypecode)');
dm.addQdoctor.Params[0].AsString:=trim(edit1.Text);
dm.addQdoctor.Params[1].AsString:=trim(edit2.Text);
dm.addQdoctor.Params[2].AsDate:=strbirthday;
dm.addQdoctor.Params[3].AsString:=trim(combobox1.Text);
dm.addQdoctor.Params[4].AsString:=trim(edit3.Text);
dm.addQdoctor.Params[5].AsString:=trim(edit4.Text);
dm.addQdoctor.Params[6].AsString:=inhousecode;
dm.addQdoctor.Params[7].AsString:=dtcosttypecode;
dm.addQdoctor.ExecSQL;
换成
dm.addQdoctor.SQL.Add('values (:v1,:v2,:v3,:v4,:v5,:v6,:v7,:v8)');
values前面好象少个空格
dm.addQdoctor.SQL.Clear;
dm.addQdoctor.SQL.Add('insert into doctor');
dm.addQdoctor.SQL.Add('values (:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7)');
dm.addQdoctor.Params[0].AsString:=trim(edit1.Text);
dm.addQdoctor.Params[1].AsString:=trim(edit2.Text);
dm.addQdoctor.Params[2].AsDate:=strbirthday;
dm.addQdoctor.Params[3].AsString:=trim(combobox1.Text);
dm.addQdoctor.Params[4].AsString:=trim(edit3.Text);
dm.addQdoctor.Params[5].AsString:=trim(edit4.Text);
dm.addQdoctor.Params[6].AsString:=inhousecode;
dm.addQdoctor.Params[7].AsString:=dtcosttypecode;
dm.addQdoctor.ExecSQL;
trim(combobox1.Text)+''''+','+''''+edit3.Text+''''+','+''''+edit4.Text+''''
+','+''''+inhousecode+''''+','+''''+dtcosttypecode+''''+')');
dm.addQdoctor.ExecSQL;