所用控件砂DCOMConnection1
with Unit2.DataModule2.T_student_info_client do
begin
insert ; with Unit2.DataModule2.T_student_info_client.Fields do
begin
Fields[0].Value :=44;
Fields[1].Value :=edit1.Text ;
Fields[2].Value :=edit5.Text ;
Fields[3].Value :=edit2.Text ;
Fields[4].Value :=edit3.Text ;
Fields[5].Value :=edit4.Text ;
Fields[6].Value :=combobox1.Text;
Fields[7].Value :=edit6.Text ;
Fields[8].Value :=edit7.Text ;
Fields[9].Value :=edit8.Text ;
Fields[10].Value :=edit9.Text ; //以交费用
Fields[11].Value :=datatime1.DateTime ;
Fields[12].Value :=datatime2.DateTime ;
end; post;
ApplyUpdates(0);
active:=true;
end;
不知错在哪里,请指教
with Unit2.DataModule2.T_student_info_client do
begin
insert ; with Unit2.DataModule2.T_student_info_client.Fields do
begin
Fields[0].Value :=44;
Fields[1].Value :=edit1.Text ;
Fields[2].Value :=edit5.Text ;
Fields[3].Value :=edit2.Text ;
Fields[4].Value :=edit3.Text ;
Fields[5].Value :=edit4.Text ;
Fields[6].Value :=combobox1.Text;
Fields[7].Value :=edit6.Text ;
Fields[8].Value :=edit7.Text ;
Fields[9].Value :=edit8.Text ;
Fields[10].Value :=edit9.Text ; //以交费用
Fields[11].Value :=datatime1.DateTime ;
Fields[12].Value :=datatime2.DateTime ;
end; post;
ApplyUpdates(0);
active:=true;
end;
不知错在哪里,请指教
Action:=HandleReconcileErro(DataSet, UpdateKind, E); 目的是提示出错信息
with Unit2.DataModule2.T_student_info_client do
begin
insert ;
with Unit2.DataModule2.T_student_info_client.Fields do//这句话是没有必要的上面已经有了 是多余的!
begin
..................