DELPHI 數據集在內存中快速查詢方法
阿新 • • 發佈：2019-02-22
font close spa aci pac show sun form int
結果返回True/False; 即表示找到此記錄/找不到,具體用法請按F1看幫助
1、Bookmark
var p:pointer;
procedure TForm1.Button1Click(Sender: TObject);//加個標簽
begin
p:=cxGrid1DBTableView1.DataController.DataSet.GetBookmark;
end;
procedure TForm1.Button2Click(Sender: TObject);//行焦點定位到標簽
begin
cxGrid1DBTableView1.DataController.DataSet.GotoBookmark(p);
end;
2、recNo var i:integer;
i:=adodataset1.recno;
adodataset1.recno:=i;
3、locate
單個字段
Locate(‘ID‘, ‘A001‘, []);
多個字段
Locate(‘ID;Name‘, VarArrayOf([‘A001‘, ‘小三‘]), []);
var fname,fv:string;
begin
fname:=ADOQuery.Fields.Fields[0].Name;
fv:=ADOQuery.Fields.Fields[0].AsString;
ADOQuery.Close;
ADOQuery.Open;
if ADOQuery.Locate(fname,fv, []) then
showmessage(‘定位記錄完成‘)
else
showmessage(‘定位失敗。‘);
//......
end;
|
結果返回True/False; 即表示找到此記錄/找不到,具體用法請按F1看幫助
4、CXGRID
i := View1.Controller.FocusedRowIndex;
Ds.Open;
View1.Controller.FocusedRowIndex := i;DELPHI 數據集在內存中快速查詢方法