结果集手工排序

给纤检所做一个项目,对测试报告结果需要调整测试项目的顺序,之前做的是鼠标拖放来重新排列结果集的顺序,现在客户想通过一个向上和向下的按钮来调整结果集中记录的顺序,通过测试,可以通过下面的方法来简单操作(下面仅简单说明下上移动记录的方法,向下移动方法同此,略):

 

 1 procedure TForm3.RzBitBtn1Click(Sender: TObject);
 2 var
 3   CurPos:TBookmark;
 4   n,o:Integer;
 5 begin
 6   //向上移动,注意, ADODataSet1的IndexFieldName要设置成排序编号
 7   if ADODataSet1.Bof then Exit;
 8 
 9   //up
10 
11   //记录当前记录位置
12   CurPos:=ADODataSet1.GetBookmark;
13   o:=ADODataSet1.FieldByName('排序编号').AsInteger;
14   ADODataSet1.Prior;
15 
16   n:=ADODataSet1.FieldByName('排序编号').asinteger;
17   ADODataSet1.Edit;
18   ADODataSet1.FieldByName('排序编号').asinteger:=o;
19   ADODataSet1.Post;
20 
21   ADODataSet1.GotoBookmark(CurPos);
22   ADODataSet1.Edit;
23   ADODataSet1.FieldByName('排序编号').asinteger:=n;
24   ADODataSet1.Post;
25 
26   //ADODataSet1.GotoBookmark(CurPos);
27 end;
28 
29