有多好种方法:1.用BatchMove控件。2.用SQL SERVER中引入数据。这是一个向导。
你一步步的作就行了。3.自己编程实现。下面是例子:
procedure TForm1.bbtnChangeClick(Sender: TObject);
var wn:integer;
w:string;
begin
Qleave.close;
Qleave.SQL.Clear;
Qleave.sql.Add('select * from shinew where 1=1');
//Qleave.sql.Add('and workno>0');
Qleave.Open;
Qleave.First;
while not Qleave.EOF do
begin
with Tresignation do
begin
Append;
FieldByName('empNo').value:=Qleave.fieldbyname('empNo').asstring;
Fieldbyname('checkNo').value:=Qleave.fieldbyname('pNo').asstring;
Fieldbyname('checkDate').value:=Qleave.fieldbyname('dates').asstring;
Fieldbyname('chkpoint').value:=Qleave.fieldbyname('point').asfloat;
Fieldbyname('checknum').value:=Qleave.fieldbyname('Num').asfloat;
Fieldbyname('status').value:='M';
Post;
if PBhr.Position=10 then PBhr.Position:=0
else PBhr.Position:=PBhr.Position+1;
end;
Qleave.Next;
end;
PBhr.Visible:=false;
end;