怎么将一个ADOQuery的数据复制到另一个ADOQuery?
我想将窗体A中的ADOQuery的结构及数据复制给窗体B中的ADOQuery
窗体B中代码:
procedure TFHelpConfig.FormInit(ADOConn:TAdoConnection;Const ADOQuery:TADOQuery;UserId,ModuleId:integer);
begin
self.ADOQuery1.Connection:=ADOConn;
self.ADOQuery1.Clone(ADOQuery);
self.UserId:=UserId;
self.ModuleId:=ModuleId;
end;
窗体A中调用代码:
procedure TFHelp.EditConfig1Click(Sender: TObject);
begin
with TFHelpConfig.Create(nil) do
try
FormInit(self.ADOConn,self.ADOQueryConfig,UserId,ModuleId);
ShowModal;
finally
Free;
end;
end;
当我在窗体B中修改ADOQuery1的数据时,窗体A的ADOQueryConfig中的数据也跟着变了,我需要的是2个ADOQuery分别独立互不影响。请问要怎么做?