unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, FR_DSet, FR_DBSet, FR_Class;type
TForm1 = class(TForm)
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frUserDataset1: TfrUserDataset;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
frUserDataset2: TfrUserDataset;
procedure Button1Click(Sender: TObject);
procedure frReport1GetValue(const ParName: String; var ParValue: Variant);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
frUserDataset1.RangeEndCount := Table1.FieldCount;
frUserDataset2.RangeEndCount := Table1.FieldCount;
frReport1.ShowReport;
end;procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant);
begin
if ParName = 'Cell' then
ParValue := Table1.Fields[frUserDataset1.RecNo].Value;
if ParName = 'Header' then
ParValue := Table1.Fields[frUserDataset2.RecNo].FieldName;
end;end.
运行时出现如下错误:[Fatal Error] Unit1.pas(7): File not found: 'FR_Class.dcu',何解,请指教?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, FR_DSet, FR_DBSet, FR_Class;type
TForm1 = class(TForm)
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frUserDataset1: TfrUserDataset;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
frUserDataset2: TfrUserDataset;
procedure Button1Click(Sender: TObject);
procedure frReport1GetValue(const ParName: String; var ParValue: Variant);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
frUserDataset1.RangeEndCount := Table1.FieldCount;
frUserDataset2.RangeEndCount := Table1.FieldCount;
frReport1.ShowReport;
end;procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant);
begin
if ParName = 'Cell' then
ParValue := Table1.Fields[frUserDataset1.RecNo].Value;
if ParName = 'Header' then
ParValue := Table1.Fields[frUserDataset2.RecNo].FieldName;
end;end.
运行时出现如下错误:[Fatal Error] Unit1.pas(7): File not found: 'FR_Class.dcu',何解,请指教?
解决方案 »
- Delphi XE发送邮件附件
- 新手不敢作声!小声的问:QuickReport定义颜色和自动适应大小的问题!
- OFFICE中的ACCESS,我有理由说要比DELPHI说好
- 动态创建TWebBrowser和关于浏览器的session问题
- Python for Delphi
- 技术小总结,(有些英文回答)。
- Error For Delphi 6
- socket连接为什么要那么长时间
- 哪里有DelPhi6下载?包括注册码的.
- 报表打印使用哪个控件(或解决方安)比较好?请给出个理由?参与者有份!!
- 关于HOOK API的问题,也许只是数据操作的问题,100分求救~~~
- 谁用过TClientDataSet的savetofile(loadfromfile)方法啊?????[悬赏100分]
在你的delphi菜单->tools->Environment options->library 里加上控件的安装路径(FR_Class.pas所在的路径),或者干脆把FR_Class.dcu考到你的工程目录下。