W
weibinggui
Unregistered / Unconfirmed
GUEST, unregistred user!
要求:点了按钮之后,将记录本身按输入的数值去复制出几条完全相同的记录。<br>代码我是这样写的:<br>procedure Tfr_SC_SCJH.N1Click(Sender: TObject);<br>var<br>i,j:integer;<br>Adoq_Temp:TAdoquery;<br>begin<br>try<br>j:=StrToint(inputbox('请输入需要增加的记录数','提示',''));<br>except<br>Application.MessageBox('只能输入数字','奇良提标',MB_OK+MB_ICONINFORMATION);<br>end;<br>I:=Adoq_dj.RecNo ;<br>Adoq_Temp:=TAdoquery.Create(self);<br>Adoq_Temp.Clone(Adoq_dj);<br>Adoq_temp.MoveBy(i);<br>for i:=1 to j-1 do<br>begin<br>Adoq_dj.Insert ;<br>Adoq_dj.FieldByName('sfdr').Value :=Adoq_Temp.FieldByName('sfdr').Value;<br>Adoq_dj.FieldByName('scrq').Value :=Adoq_Temp.FieldByName('scrq').Value; <br>Adoq_dj.Post ;<br><br>end;<br>Next;<br><br>end;<br>程序执行时,按了按钮之后,在dbgrid中看确实复制了那么多条记录,但是用select * from 去查表里,却只有原来表里的内容。请问大家这该如何改。<br>再一个问题是,要实现这样的要求,有没有更简单点的方法。初学者向您致敬。