var
h : HDBICur;
ph : PHDBICur;
begin
Qry.Prepare;
Check(dbiQExec(Qry.StmtHandle, ph));
h := ph^ ;
Check(DbiMakePermanent(h, Pchar(ExtractFilePath(Application.ExeName)+'qry.dbf'), True));
end;
h : HDBICur;
ph : PHDBICur;
begin
Qry.Prepare;
Check(dbiQExec(Qry.StmtHandle, ph));
h := ph^ ;
Check(DbiMakePermanent(h, Pchar(ExtractFilePath(Application.ExeName)+'qry.dbf'), True));
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货