90年版阿拉丁神灯国语:这有一段delphi程序,请看得懂的人给我解释一下。关于bookmark的

来源:百度文库 编辑:高考问答 时间:2024/05/06 06:49:44
请帮忙解释一下,谢谢大家了!!!

procedure TXXQK.Button7Click(Sender: TObject);
var BOOKMARK:Tbookmark;
begin
try
if dbedit1.Text='' then
begin
showmessage('合同号不能为空');
dbedit1.SetFocus;
exit;
end;
button1.Enabled:=true;
button9.Enabled:=true;
button6.Enabled:=true;
query1.post;
if FJQKForm.Visible=true then
FJQKForm.OnShow(nil);
bookmark:=query1.GetBookmark;
button7.Enabled:=false;
button1.SetFocus;
query1.Close;
query1.Open;
query1.GotoBookmark(bookmark);
except
on E:Exception do
ErrMsg(Handle,81031005,E);
end;
end;

就是BDE Query 加了个书签吧!
type TBookmark = Pointer; 类型是指针