求助：那位有qrddlgs.dcu的文件，是quickreportdesign的对话框组件(100分)

万分感谢先，给分

QRDDlgs单元：
{$I QRDESIGN.INC}
unit QRDDlgs;
interface
uses
DB, Classes, Forms, qrdQuickrep, QRDesign, qrdDBSettings,
thsdRuntimeLoader, thsdRuntimeEditor;
type
TQRDPrinterSettings = class(TQuickRepPrinterSettings)
private
FVerticalPrintOffset : Extended;
FHorizontalPrintOffset : Extended;
protected
public
published
property PrintOffsetVerticalMM: Extended Read FVerticalPrintOffset Write FVerticalPrintOffset;
property PrintOffsetHorizontalMM: Extended Read FHorizontalPrintOffset Write FHorizontalPrintOffset;
end;

TQRDAfterReportFormCreatedEvent = procedure(Form: TForm;
QRD: TComponent) of Object;
TQRDAfterReportLoadedEvent = procedure(Form: TForm;
QRD: TComponent) of Object;
TReportPrinterDialog = class(TComponent)
private
FPrepareAutomatically : Boolean;
FPrintIfEmpty : Boolean;
FBeforePrint : TQRReportBeforePrintEvent;
FOnStartPage : TQRNotifyEvent;
FOnEndPage : TQRNotifyEvent;
FAfterPrint : TQRAfterPrintEvent;
FAfterPreview : TQRAfterPreviewEvent;
FAfterReportLoaded : TQRDAfterReportLoadedEvent;
FAfterReportFormCreated : TQRDAfterReportFormCreatedEvent;
FOnCalcFieldsEvent : TDataSetNotifyEvent;
FBeforeOpenDataset : TDataSetNotifyEvent;
FBandBeforePrint : TQRBandBeforePrintEvent;
FBeforeExecuteScript : TBeforeExecuteScriptEvent;
FDBImageBeforePrint : TQRDDBImageBeforePrintEvent;
FSessionName : String;
FUseDataModules : Boolean;
FUseCurrentDatasets : Boolean;
FSaveLoadPrinterSetup : Boolean;
FShowFilterBeforePrint : Boolean;
FPrinterSettings : TQRDPrinterSettings;
FScriptsEnabled : Boolean;
FUsePrinterSettings : Boolean;
FUseModalPreview : Boolean;
FVersion : String;
FOnNeedData : TQROnNeedDataEvent;
FLabelse
ttings : TLabelse
ttings;
FOnLoadReport : TOnLoadUserDataEvent;
FBeforeGetQueryParams : TQRDBeforeGetQueryParams;
FQRPreview : TComponent;
{$IFDEF QR36}
FPreviewWidth : Integer;
FPreviewHeight : Integer;
FPrevFormStyle : TFormStyle;
FPreviewInitialState : TWindowState;
{$ENDIF}
procedure LoadBoolProperty(Reader: TReader);
procedure LoadStringProperty(Reader: TReader);
procedure StoreDummyProperty(Writer: TWriter);
{$IFDEF QR36}
function GetPreviewHeight: Integer;
function GetPreviewWidth: Integer;
{$ENDIF}
protected
procedure SetVersion(Value: String);
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
procedure DefineProperties(Filer: TFiler);
override;
published
property OnLoadReport: TOnLoadUserDataEvent Read FOnLoadReport Write FOnLoadReport;
property OnNeedData: TQROnNeedDataEvent Read FOnNeedData Write FOnNeedData;
property BandBeforePrint: TQRBandBeforePrintEvent read FBandBeforePrint write FBandBeforePrint;
property BeforeExecuteScript: TBeforeExecuteScriptEvent read FBeforeExecuteScript write FBeforeExecuteScript;
property DBImageBeforePrint: TQRDDBImageBeforePrintEvent read FDBImageBeforePrint write FDBImageBeforePrint;
property AfterReportLoaded: TQRDAfterReportLoadedEvent Read FAfterReportLoaded Write FAfterReportLoaded;
property AfterReportFormCreated: TQRDAfterReportFormCreatedEvent Read FAfterReportFormCreated
Write FAfterReportFormCreated;
property QRPreview: TComponent Read FQRPreview Write FQRPreview;
property BeforePrint : TQRReportBeforePrintEvent Read FBeforePrint Write FBeforePrint;
property OnStartPage : TQRNotifyEvent Read FOnStartPage Write FOnStartPage;
property OnEndPage : TQRNotifyEvent Read FOnEndPage Write FOnEndPage;
property AfterPrint : TQRAfterPrintEvent Read FAfterPrint Write FAfterPrint;
property AfterPreview : TQRAfterPreviewEvent Read FAfterPreview Write FAfterPreview;
property BeforeOpenDataset: TDataSetNotifyEvent Read FBeforeOpenDataset Write FBeforeOpenDataset;
property OnCalcFields : TDataSetNotifyEvent Read FOnCalcFieldsEvent Write FOnCalcFieldsEvent;
property BeforeGetQueryParams: TQRDBeforeGetQueryParams Read FBeforeGetQueryParams Write FBeforeGetQueryParams;
property Labelse
ttings: TLabelse
ttings Read FLabelse
ttings Write FLabelse
ttings;
property ShowFilterBeforePrint: Boolean Read FShowFilterBeforePrint Write FShowFilterBeforePrint;
property UseDataModules: Boolean read FUseDataModules write FUseDataModules;
property UseCurrentDatasets: Boolean read FUseCurrentDatasets write FUseCurrentDatasets;
property SaveLoadPrinterSetup: Boolean Read FSaveLoadPrinterSetup Write FSaveLoadPrinterSetup;
property ScriptsEnabled: Boolean Read FScriptsEnabled Write FScriptsEnabled;
property SessionName: String Read FSessionName Write FSessionName;
property PrepareAutomatically: Boolean Read FPrepareAutomatically Write FPrepareAutomatically;
property PrintIfEmpty: Boolean Read FPrintIfEmpty Write FPrintIfEmpty;
property PrinterSettings: TQRDPrinterSettings Read FPrinterSettings Write FPrinterSettings;
property UsePrinterSettings: Boolean Read FUsePrinterSettings Write FUsePrinterSettings;
property UseModalPreview: Boolean Read FUseModalPreview Write FUseModalPreview;
{$IFDEF QR36}
property PrevFormStyle: TFormStyle Read FPrevFormStyle Write FPrevFormStyle;
property PreviewInitialState: TWindowState Read FPreviewInitialState Write FPreviewInitialState;
property PreviewWidth: Integer Read GetPreviewWidth Write FPreviewWidth default 500;
property PreviewHeight: Integer Read GetPreviewHeight Write FPreviewHeight default 500;
{$ENDIF}
property Version: String Read FVersion Write SetVersion;
end;

TQRDUserSetting = (AllowSQLEdit, AllowDatasetEdit, QueriesOnlyInExpert, QueriesOnlyInDBSetup,
AllowNewCalcFields, AllowBlockEdit, AllowScriptEdit);
TQRDUserSettings = set of TQRDUserSetting;
TQRDEditorSetting = (UndoEnabled, SaveBackupFiles, AutoEditAfterInsert,
ShowDatafieldListbox, DatafieldsSorted);
TQRDEditorSettings = set of TQRDEditorSetting;
TReportDesignerDialog = class(TReportPrinterDialog)
private
{$IFDEF QR2PP}
FNewReportGrid : TCustomGrid;
FNewReportGridSpanPages : Boolean;
{$ENDIF}
FUserSettings : TQRDUserSettings;
FEditorSettings : TQRDEditorSettings;
FAfterReportComponentCreated : TQRDAfterReportComponentCreated;
FOnShowDatafield : TQRDOnShowDatafieldEvent;
FDefaultFileExtension : String;
FDefaultFileFilter : String;
FFieldDisplayLabels : TStrings;
FIndexDisplayLabels : TStrings;
FDatasetDisplayLabels : TStrings;
FAvailableDatasetNames : TStrings;
FAvailableTableNames : TStrings;
FAvailableDatabaseNames : TStrings;
FDefaultSaveDir : String;
FDefaultOpenDir : String;
FOnNewReport : TQRDOnNewReportEvent;
FQRDHelpFile : String;
FSQLSettings : TQRDatabaseSettings;
FOnSaveReport : TOnSaveUserDataEvent;
procedure SetSQLSettings(const Value: TQRDatabaseSettings);
procedure SetDefaultFileExtension(const Value: String);
protected
procedure SetAvailableDatasetNames(Value: TStrings);
procedure SetAvailableDatabaseNames(Value: TStrings);
procedure SetAvailableTableNames(Value: TStrings);
procedure SetDatasetDisplayLabels(Value: TStrings);
procedure SetFieldDisplayLabels(Value: TStrings);
procedure SetIndexDisplayLabels(Value: TStrings);
procedure ReadAllowSQLEdit(Reader: TReader);
virtual;
procedure ReadQueriesOnlyInExpert(Reader: TReader);
virtual;
procedure ReadQueriesOnlyInDBSetup(Reader: TReader);
virtual;
procedure ReadAllowNewCalcFields(Reader: TReader);
virtual;
procedure ReadAllowBlockEdit(Reader: TReader);
virtual;
procedure ReadUndoEnabled(Reader: TReader);
virtual;
procedure ReadSaveBackupFiles(Reader: TReader);
virtual;
procedure ReadAutoEditAfterInsert(Reader: TReader);
virtual;
procedure ReadShowDatafieldListbox(Reader: TReader);
virtual;
public
procedure DefineProperties(Filer: TFiler);
override;
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
published
property SQLSettings: TQRDatabaseSettings Read FSQLSettings Write SetSQLSettings;
property AfterReportComponentCreated : TQRDAfterReportComponentCreated Read FAfterReportComponentCreated
Write FAfterReportComponentCreated;
property OnShowDatafield: TQRDOnShowDatafieldEvent Read FOnShowDatafield Write FOnShowDatafield;
property OnNewReport: TQRDOnNewReportEvent Read FOnNewReport Write FOnNewReport;
property OnSaveReport: TOnSaveUserDataEvent Read FOnSaveReport Write FOnSaveReport;
property UserSettings: TQRDUserSettings Read FUserSettings Write FUserSettings;
property EditorSettings: TQRDEditorSettings Read FEditorSettings Write FEditorSettings;
property DefaultSaveDir: String Read FDefaultSaveDir Write FDefaultSaveDir;
property DefaultOpenDir: String Read FDefaultOpenDir Write FDefaultOpenDir;
property FieldDisplayLabels: TStrings Read FFieldDisplayLabels Write SetFieldDisplayLabels;
property IndexDisplayLabels: TStrings Read FIndexDisplayLabels Write SetIndexDisplayLabels;
property DatasetDisplayLabels: TStrings Read FDatasetDisplayLabels Write SetDatasetDisplayLabels;
property AvailableDatasetNames: TStrings Read FAvailableDatasetNames Write SetAvailableDatasetNames;
property AvailableDatabaseNames: TStrings Read FAvailableDatabaseNames Write SetAvailableDatabaseNames;
property AvailableTableNames: TStrings Read FAvailableTableNames Write SetAvailableTableNames;
property HelpFile: String Read FQRDHelpFile Write FQRDHelpFile;
property DefaultFileExtension: String Read FDefaultFileExtension Write SetDefaultFileExtension;
property DefaultFileFilter: String Read FDefaultFileFilter Write FDefaultFileFilter;
{$IFDEF QR2PP}
property NewReportGrid: TCustomGrid read FNewReportGrid Write FNewReportGrid;
property NewReportGridSpanPages: Boolean read FNewReportGridSpanPages Write FNewReportGridSpanPages;
{$ENDIF}
end;

{--------------------------------------------------------------------------------}
{--------------------------------------------------------------------------------}
implementation
{--------------------------------------------------------------------------------}
procedure TReportPrinterDialog.LoadBoolProperty(Reader: TReader);
begin
Reader.ReadBoolean;
end;

{--------------------------------------------------------------------------------}
procedure TReportPrinterDialog.DefineProperties(Filer: TFiler);
begin
Filer.DefineProperty('DefaultDatabaseName',LoadStringProperty,StoreDummyProperty,False);
Filer.DefineProperty('DefaultAdoConnection',LoadStringProperty,StoreDummyProperty,False);
inherited;
end;

{--------------------------------------------------------------------------------}
procedure TReportPrinterDialog.LoadStringProperty(Reader: TReader);
begin
Reader.ReadString;
end;

{--------------------------------------------------------------------------------}
procedure TReportPrinterDialog.StoreDummyProperty(Writer: TWriter);
begin
end;

{--------------------------------------------------------------------------------}
procedure TReportPrinterDialog.SetVersion(Value: String);
begin
end;

{--------------------------------------------------------------------------------}
{$IFDEF QR36}
function TReportPrinterDialog.GetPreviewHeight: Integer;
begin
if FPreviewHeight>0 then
Result:=FPreviewHeight else
Result:=500;
end;

{--------------------------------------------------------------------------------}
function TReportPrinterDialog.GetPreviewWidth: Integer;
begin
if FPreviewWidth>0 then
Result:=FPreviewWidth else
Result:=500;
end;

{$ENDIF}
{--------------------------------------------------------------------------------}
constructor TReportPrinterDialog.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
FVersion:={$I ../VERSION.INC};
SessionName:='';
FPrinterSettings:=TQRDPrinterSettings.Create;
FPrintIfEmpty:=True;
FScriptsEnabled:=True;
FLabelse
ttings:=TLabelse
ttings.Create;
{$IFDEF QR36}
FPreviewInitialState:=wsMaximized;
{$ENDIF}
end;

{--------------------------------------------------------------------------------}
destructor TReportPrinterDialog.Destroy;
begin
FPrinterSettings.Free;
FLabelse
ttings.Free;
Inherited Destroy;
end;

{--------------------------------------------------------------------------------}
{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetSQLSettings(const Value: TQRDatabaseSettings);
begin
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetDefaultFileExtension(
const Value: String);
begin
If Value<>'' then
begin
FDefaultFileExtension := Value;
If FDefaultFileExtension[1]='*' then
FDefaultFileExtension:=Copy(FDefaultFileExtension,2,10);
If FDefaultFileExtension[1]<>'.' then
FDefaultFileExtension:='.'+FDefaultFileExtension;
end;
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetAvailableDatasetNames(Value: TStrings);
begin
FAvailableDatasetNames.Assign(Value);
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetAvailableDatabaseNames(Value: TStrings);
begin
FAvailableDatabaseNames.Assign(Value);
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetAvailableTableNames(Value: TStrings);
begin
FAvailableTableNames.Assign(Value);
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetFieldDisplayLabels(Value: TStrings);
begin
FFieldDisplayLabels.Assign(Value);
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetDatasetDisplayLabels(Value: TStrings);
begin
FDatasetDisplayLabels.Assign(Value);
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.SetIndexDisplayLabels(Value: TStrings);
begin
FIndexDisplayLabels.Assign(Value);
end;

{--------------------------------------------------------------------------------}
destructor TReportDesignerDialog.Destroy;
begin
FFieldDisplayLabels.Free;
FIndexDisplayLabels.Free;
FDatasetDisplayLabels.Free;
FAvailableDatasetNames.Free;
FAvailableDatabaseNames.Free;
FAvailableTableNames.Free;
FSQLSettings.Free;
Inherited Destroy;
end;

{--------------------------------------------------------------------------------}

constructor TReportDesignerDialog.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
FSQLSettings:=TQRDatabaseSettings.Create(self);
UserSettings:=[AllowDatasetEdit, AllowSQLEdit, AllowBlockEdit, AllowScriptEdit];
FDefaultFileFilter:='Reports|*.QR2';
FDefaultFileExtension:='.QR2';
FDefaultSaveDir:='';
FDefaultOpenDir:='';
EditorSettings:=[AutoEditAfterInsert, DatafieldsSorted, ShowDatafieldListbox];
FFieldDisplayLabels:=TStringList.Create;
FDatasetDisplayLabels:=TStringList.Create;
FIndexDisplayLabels:=TStringList.Create;
FAvailableDatasetNames:=TStringList.Create;
FAvailableDatabaseNames:=TStringList.Create;
FAvailableTableNames:=TStringList.Create;
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.DefineProperties(Filer: TFiler);
begin
Filer.DefineProperty('AllowSQLEdit', ReadAllowSQLEdit, StoreDummyProperty, False);
Filer.DefineProperty('QueriesOnlyInExpert', ReadQueriesOnlyInExpert, StoreDummyProperty, False);
Filer.DefineProperty('QueriesOnlyInDBSetup', ReadQueriesOnlyInDBSetup, StoreDummyProperty, False);
Filer.DefineProperty('AllowNewCalcFields', ReadAllowNewCalcFields, StoreDummyProperty, False);
Filer.DefineProperty('AllowBlockEdit', ReadAllowBlockEdit, StoreDummyProperty, False);
Filer.DefineProperty('UndoEnabled', ReadUndoEnabled, StoreDummyProperty, False);
Filer.DefineProperty('SaveBackupFiles', ReadSaveBackupFiles, StoreDummyProperty, False);
Filer.DefineProperty('AutoEditAfterInsert', ReadAutoEditAfterInsert, StoreDummyProperty, False);
Filer.DefineProperty('ShowDatafieldListbox', ReadShowDatafieldListbox, StoreDummyProperty, False);
Filer.DefineProperty('SaveImagesInReportFile', LoadBoolProperty, StoreDummyProperty, False);
Filer.DefineProperty('DefaultDatabaseOnly',LoadBoolProperty,StoreDummyProperty,False);
Filer.DefineProperty('DefaultAdoConnectionOnly',LoadBoolProperty,StoreDummyProperty,False);
Inherited DefineProperties(Filer);
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadQueriesOnlyInExpert(Reader: TReader);
begin
If Reader.ReadBoolean then
UserSettings:=UserSettings+[QueriesOnlyInExpert];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadQueriesOnlyInDBSetup(Reader: TReader);
begin
If Reader.ReadBoolean then
UserSettings:=UserSettings+[QueriesOnlyInDBSetup];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadAllowNewCalcFields(Reader: TReader);
begin
If Reader.ReadBoolean then
UserSettings:=UserSettings+[AllowNewCalcFields];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadUndoEnabled(Reader: TReader);
begin
If Reader.ReadBoolean then
EditorSettings:=EditorSettings+[UndoEnabled];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadSaveBackupFiles(Reader: TReader);
begin
If Reader.ReadBoolean then
EditorSettings:=EditorSettings+[SaveBackupFiles];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadAutoEditAfterInsert(Reader: TReader);
begin
If Reader.ReadBoolean then
EditorSettings:=EditorSettings+[AutoEditAfterInsert];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadShowDatafieldListbox(Reader: TReader);
begin
If Reader.ReadBoolean then
EditorSettings:=EditorSettings+[ShowDatafieldListbox];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadAllowBlockEdit(Reader: TReader);
begin
If Reader.ReadBoolean then
UserSettings:=UserSettings+[AllowBlockEdit];
end;

{--------------------------------------------------------------------------------}
procedure TReportDesignerDialog.ReadAllowSQLEdit(Reader: TReader);
begin
If Reader.ReadBoolean then
UserSettings:=UserSettings+[AllowSQLEdit];
end;

{--------------------------------------------------------------------------------}
{--------------------------------------------------------------------------------}
end.

拜托，是dcu文件啊，总不能让我自己编译吧