我有:
德尔福 2007
水晶 11
Crystal VCL 组件的 Delphi 7 版本(我知道的最新版本,它在 D2007 中编译良好)
一个非常简单的测试 Crystal 报告,用 Crystal 11 编写,它只是将表格转储到屏幕上(没有选择标准,没有公式,只有直接数据)
我试过了
创建了一个新的 VCL 表单应用程序
将 TCrpe 组件拖放到表单上
将“ReportName”属性设置为我的测试报告。
我在表单上放了一个按钮,在它后面放了一行:
Crpe1.Execute
如果报告打开了“使用报告保存数据”选项,那么这可以正常工作。
如果我关闭该选项,那么我需要提供登录凭据。
使用此代码(在一百万年前的 Delphi 中运行良好):
procedure TForm1.BitBtn1Click(Sender: TObject);
var
logonItem: integer;
begin
Crpe1.LogOnServer.Clear;
logonItem := Crpe1.LogOnServer.Add('MYSERVER.MYDOMAIN.COM');
Crpe1.LogonServer[logonItem].UserID := 'USERNAME';
Crpe1.LogOnServer[logonItem].Password := 'PASSWORD';
Crpe1.LogOnServer[logonItem].DatabaseName := 'MYDATABASE';
Crpe1.Execute;
end;
我收到此错误:
---------------------------
Project2
---------------------------
Error:536 Error in File C:\REPORT.RPT:
Unable to connect: incorrect log on parameters.
Execute <PEStartPrintJob>.
---------------------------
OK
---------------------------
我究竟做错了什么?如何为 Delphi 中的 Crystal VCL 组件提供登录凭据?我目前的解决方法很丑陋,而且我有很多遗留代码要转换。如果我能以一种直接的方式使用 VCL 组件,那就太好了。