2,496
社区成员
发帖
与我相关
我的任务
分享
query1.SQL.Text :='insert into (rno,bno,rjdate,rhdate)'+#13+
'values(:rno,:bno,:rjdate ,:rhdate )';
query1.Close ;
query1.ParamByName('rno').Value :=edit2.Text ;
query1.ParamByName('bno').Value :=edit3.Text ;
query1.ParamByName('rjdate').Value :=stringToDateTime(edit4.Text) ;
query1.ParamByName('rhdate').Value :=stringToDateTime((edit5.Text);
query1.ExecSQL ;
edit2.Clear ;
query1.SQL.Text :='insert into (rno,bno,rjdate,rhdate)'+#13+
'values(:rno,:bno,:rjdate ,:rhdate )';
query1.Close ;
query1.ParamByName('rno').Value :=edit2.Text ;
query1.ParamByName('bno').Value :=edit3.Text ;
query1.ParamByName('rjdate').Value :=DateTimeTostring(edit4.Text) ;
query1.ParamByName('rhdate').Value :=DateTimeTostring(edit5.Text);
query1.ExecSQL ;
edit2.Clear ;
FQuery.SQL.Text:='select * from 表A
where id=:id and name=:name';
FQuery.Parameters.ParamByName('id').Value:=edit1.text;
FQuery.Parameters.ParamByName('name').Value:=edit2.text;
...
FQuery.open;
FQuery.SQL.Text:='insert into UserGroup(p1,p2,p3,p4)'+#13+
' values(:Caption,:UpID,:Pro,:ViewOrder,:IsUser,:AccountID)';
FQuery.Parameters.ParamByName('p1').Value:=edit1.text;
FQuery.Parameters.ParamByName('p2').Value:=edit2.text;
FQuery.Parameters.ParamByName('p3').Value:=edit3.text;
FQuery.Parameters.ParamByName('p4').Value:=edit4.text;
FQuery.ExecSQL;