连接oracle数据库,query查询都集成在一个dll里,请问在其他project用fastreport如何调用dll里的query查询制作报表?data.dll 的代码如下:
function openquery(sql:string):toraquery;stdcall;export;
begin
dm:=tdm.Create(nil);
with dm do
begin
oquery.Session:=orasess;
if oquery.Active then oquery.Close;
oquery.SQL.Clear;
oquery.SQL.Add(sql);
oquery.FetchAll:=true;
oquery.ReadOnly:=true;
try
oquery.Open;
result:=oquery;
except
result:=nil;
end;
end;
end;procedure TDM.DataModuleCreate(Sender: TObject);
begin
orasess.Server:=oraserver;
orasess.Username:=user;
orasess.Password:=pass;
orasess.ConnectPrompt:=false;
orasess.Options.Net:=true;
try
orasess.Open;
except
orasess.Close;
end;
end;
function openquery(sql:string):toraquery;stdcall;export;
begin
dm:=tdm.Create(nil);
with dm do
begin
oquery.Session:=orasess;
if oquery.Active then oquery.Close;
oquery.SQL.Clear;
oquery.SQL.Add(sql);
oquery.FetchAll:=true;
oquery.ReadOnly:=true;
try
oquery.Open;
result:=oquery;
except
result:=nil;
end;
end;
end;procedure TDM.DataModuleCreate(Sender: TObject);
begin
orasess.Server:=oraserver;
orasess.Username:=user;
orasess.Password:=pass;
orasess.ConnectPrompt:=false;
orasess.Options.Net:=true;
try
orasess.Open;
except
orasess.Close;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货