www.pudn.com > Fr3ReportDLL.rar > KDReportControl_TLB.pas
unit KDReportControl_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130 $
// File generated on 2006-2-15 13:31:31 from Type Library described below.
// ************************************************************************ //
// Type Lib: E:\工程文件夹\SeLang\改写报表控件\KDReport3\KDReport.tlb (1)
// LIBID: {77317D09-9C04-49D1-A846-4CA2B41241C2}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v2.0 stdole, (C:\WINNT\system32\stdole2.tlb)
// (2) v4.0 StdVCL, (C:\WINNT\system32\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
interface
uses ActiveX, Classes, Graphics, OleCtrls, StdVCL, Variants, Windows;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
KDReportControlMajorVersion = 3;
KDReportControlMinorVersion = 0;
LIBID_KDReportControl: TGUID = '{77317D09-9C04-49D1-A846-4CA2B41241C2}';
IID_IKDReport: TGUID = '{69D86A68-3B79-4612-921E-95C8D5D35352}';
DIID_IKDReportEvents: TGUID = '{8180BFF1-716F-4A0E-B080-A30A9E6AA036}';
CLASS_KDReport: TGUID = '{3F9223A8-3B4E-4C01-A1F2-DEB35CA34E68}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum TxAlignment
type
TxAlignment = TOleEnum;
const
taLeftJustify = $00000000;
taRightJustify = $00000001;
taCenter = $00000002;
// Constants for enum TxBevelCut
type
TxBevelCut = TOleEnum;
const
bvNone = $00000000;
bvLowered = $00000001;
bvRaised = $00000002;
bvSpace = $00000003;
// Constants for enum TxBorderStyle
type
TxBorderStyle = TOleEnum;
const
bsNone = $00000000;
bsSingle = $00000001;
// Constants for enum TxDragMode
type
TxDragMode = TOleEnum;
const
dmManual = $00000000;
dmAutomatic = $00000001;
// Constants for enum TxMouseButton
type
TxMouseButton = TOleEnum;
const
mbLeft = $00000000;
mbRight = $00000001;
mbMiddle = $00000002;
// Constants for enum TxHelpType
type
TxHelpType = TOleEnum;
const
htKeyword = $00000000;
htContext = $00000001;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IKDReport = interface;
IKDReportDisp = dispinterface;
IKDReportEvents = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
KDReport = IKDReport;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PPUserType1 = ^IFontDisp; {*}
// *********************************************************************//
// Interface: IKDReport
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {69D86A68-3B79-4612-921E-95C8D5D35352}
// *********************************************************************//
IKDReport = interface(IDispatch)
['{69D86A68-3B79-4612-921E-95C8D5D35352}']
function Get_Alignment: TxAlignment; safecall;
procedure Set_Alignment(Value: TxAlignment); safecall;
function Get_AutoSize: WordBool; safecall;
procedure Set_AutoSize(Value: WordBool); safecall;
function Get_BevelInner: TxBevelCut; safecall;
procedure Set_BevelInner(Value: TxBevelCut); safecall;
function Get_BevelOuter: TxBevelCut; safecall;
procedure Set_BevelOuter(Value: TxBevelCut); safecall;
function Get_BorderStyle: TxBorderStyle; safecall;
procedure Set_BorderStyle(Value: TxBorderStyle); safecall;
function Get_Caption: WideString; safecall;
procedure Set_Caption(const Value: WideString); safecall;
function Get_Color: OLE_COLOR; safecall;
procedure Set_Color(Value: OLE_COLOR); safecall;
function Get_Ctl3D: WordBool; safecall;
procedure Set_Ctl3D(Value: WordBool); safecall;
function Get_UseDockManager: WordBool; safecall;
procedure Set_UseDockManager(Value: WordBool); safecall;
function Get_DockSite: WordBool; safecall;
procedure Set_DockSite(Value: WordBool); safecall;
function Get_DragCursor: Smallint; safecall;
procedure Set_DragCursor(Value: Smallint); safecall;
function Get_DragMode: TxDragMode; safecall;
procedure Set_DragMode(Value: TxDragMode); safecall;
function Get_Enabled: WordBool; safecall;
procedure Set_Enabled(Value: WordBool); safecall;
function Get_FullRepaint: WordBool; safecall;
procedure Set_FullRepaint(Value: WordBool); safecall;
function Get_Font: IFontDisp; safecall;
procedure Set_Font(const Value: IFontDisp); safecall;
procedure _Set_Font(var Value: IFontDisp); safecall;
function Get_Locked: WordBool; safecall;
procedure Set_Locked(Value: WordBool); safecall;
function Get_ParentColor: WordBool; safecall;
procedure Set_ParentColor(Value: WordBool); safecall;
function Get_ParentCtl3D: WordBool; safecall;
procedure Set_ParentCtl3D(Value: WordBool); safecall;
function Get_Visible: WordBool; safecall;
procedure Set_Visible(Value: WordBool); safecall;
function Get_DoubleBuffered: WordBool; safecall;
procedure Set_DoubleBuffered(Value: WordBool); safecall;
function Get_AlignDisabled: WordBool; safecall;
function Get_VisibleDockClientCount: Integer; safecall;
function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
procedure InitiateAction; safecall;
function IsRightToLeft: WordBool; safecall;
function UseRightToLeftReading: WordBool; safecall;
function UseRightToLeftScrollBar: WordBool; safecall;
function Get_Cursor: Smallint; safecall;
procedure Set_Cursor(Value: Smallint); safecall;
function Get_HelpType: TxHelpType; safecall;
procedure Set_HelpType(Value: TxHelpType); safecall;
function Get_HelpKeyword: WideString; safecall;
procedure Set_HelpKeyword(const Value: WideString); safecall;
procedure SetSubComponent(IsSubComponent: WordBool); safecall;
procedure AddConnectionStr(const ConnectionStr: WideString); safecall;
procedure PrintReport(const ReportPath: WideString); safecall;
procedure AddSqlCommand(const CommandSQL: WideString); safecall;
procedure DesignReport(const ReportPath: WideString); safecall;
procedure ClearAllSqlCommand; safecall;
procedure FreeReport; safecall;
procedure SetMainADOQ(CurIndex: Integer); safecall;
procedure CloseADOConnect; safecall;
procedure DownLoadReportFile(const SqlCommandStr: WideString; const FiledName: WideString;
const FileAllPath: WideString); safecall;
procedure UpLoadReportFile(const TableName: WideString; const WhereStr: WideString;
const FileAllPath: WideString; const FiledName: WideString;
const FiledNameList: WideString; const ValuesList: WideString); safecall;
procedure DesignReportNOConnect(const ReportPath: WideString); safecall;
procedure InitialNoConnect; safecall;
procedure AddProcedureName(ProcedureNameIndex: Integer; const ProcedureName: WideString); safecall;
procedure AddParameterName(ProcedureNameIndex: Integer; const ParameterName: WideString); safecall;
procedure AddParameterValue(ProcedureNameIndex: Integer; const AddParameterValue: WideString;
AddParameterIndex: Integer); safecall;
procedure ExecProc(ProcedureNameIndex: Integer); safecall;
procedure CloseProc; safecall;
procedure AddParameterNameValue(ProcedureNameIndex: Integer;
const AddParameterName: WideString;
const AddParameterValue: WideString); safecall;
procedure ExportRTF(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportXLS(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportXML(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportPDF(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportBMP(const ReportPath: WideString; const FileName: WideString); safecall;
procedure PrintReportEx(const ReportPath: WideString; bPrintView: SYSINT; bShowDialog: SYSINT); safecall;
procedure ExportJPEG(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportTIFF(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportHTML(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportTXT(const ReportPath: WideString; const FileName: WideString); safecall;
procedure ExportFile(const ReportPath: WideString; const FileName: WideString;
const FileType: WideString; bExportSet: SYSINT); safecall;
function Get_xlsExportStyles: WordBool; safecall;
procedure Set_xlsExportStyles(Value: WordBool); safecall;
function Get_xlsExportPictures: WordBool; safecall;
procedure Set_xlsExportPictures(Value: WordBool); safecall;
function Get_xlsMergeCells: WordBool; safecall;
procedure Set_xlsMergeCells(Value: WordBool); safecall;
function Get_xlsWysiwyg: WordBool; safecall;
procedure Set_xlsWysiwyg(Value: WordBool); safecall;
function Get_ReportName: WideString; safecall;
procedure Set_ReportName(const Value: WideString); safecall;
function Get_xmlExportStyles: WordBool; safecall;
procedure Set_xmlExportStyles(Value: WordBool); safecall;
function Get_xmlWysiwyg: WordBool; safecall;
procedure Set_xmlWysiwyg(Value: WordBool); safecall;
function Get_xmlExportPageBreaks: WordBool; safecall;
procedure Set_xmlExportPageBreaks(Value: WordBool); safecall;
function Get_xmlShowProgress: WordBool; safecall;
procedure Set_xmlShowProgress(Value: WordBool); safecall;
function Get_xmlOpenExcelAfterExport: WordBool; safecall;
procedure Set_xmlOpenExcelAfterExport(Value: WordBool); safecall;
function Get_xmlShowDialog: WordBool; safecall;
procedure Set_xmlShowDialog(Value: WordBool); safecall;
function Get_xlsShowDialog: WordBool; safecall;
procedure Set_xlsShowDialog(Value: WordBool); safecall;
function Get_xlsShowProgress: WordBool; safecall;
procedure Set_xlsShowProgress(Value: WordBool); safecall;
function Get_xlsOpenExcelAfterExport: WordBool; safecall;
procedure Set_xlsOpenExcelAfterExport(Value: WordBool); safecall;
function Get_PrintOptionShowDialog: WordBool; safecall;
procedure Set_PrintOptionShowDialog(Value: WordBool); safecall;
function Get_PrintOptionPrinter: WideString; safecall;
procedure Set_PrintOptionPrinter(const Value: WideString); safecall;
function Get_PrintOptionPageNumbers: WideString; safecall;
procedure Set_PrintOptionPageNumbers(const Value: WideString); safecall;
function Get_PrintOptionCollate: WordBool; safecall;
procedure Set_PrintOptionCollate(Value: WordBool); safecall;
function Get_PrintOptionCopies: Integer; safecall;
procedure Set_PrintOptionCopies(Value: Integer); safecall;
procedure AddRecordset(vRecordset: OleVariant); safecall;
procedure ClearAllRecordset; safecall;
function Get_ConnectionObj: OleVariant; safecall;
procedure Set_ConnectionObj(Value: OleVariant); safecall;
procedure FreeAllObj; safecall;
function Get_RSCName: WideString; safecall;
procedure Set_RSCName(const Value: WideString); safecall;
property Alignment: TxAlignment read Get_Alignment write Set_Alignment;
property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
property BevelInner: TxBevelCut read Get_BevelInner write Set_BevelInner;
property BevelOuter: TxBevelCut read Get_BevelOuter write Set_BevelOuter;
property BorderStyle: TxBorderStyle read Get_BorderStyle write Set_BorderStyle;
property Caption: WideString read Get_Caption write Set_Caption;
property Color: OLE_COLOR read Get_Color write Set_Color;
property Ctl3D: WordBool read Get_Ctl3D write Set_Ctl3D;
property UseDockManager: WordBool read Get_UseDockManager write Set_UseDockManager;
property DockSite: WordBool read Get_DockSite write Set_DockSite;
property DragCursor: Smallint read Get_DragCursor write Set_DragCursor;
property DragMode: TxDragMode read Get_DragMode write Set_DragMode;
property Enabled: WordBool read Get_Enabled write Set_Enabled;
property FullRepaint: WordBool read Get_FullRepaint write Set_FullRepaint;
property Font: IFontDisp read Get_Font write Set_Font;
property Locked: WordBool read Get_Locked write Set_Locked;
property ParentColor: WordBool read Get_ParentColor write Set_ParentColor;
property ParentCtl3D: WordBool read Get_ParentCtl3D write Set_ParentCtl3D;
property Visible: WordBool read Get_Visible write Set_Visible;
property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
property AlignDisabled: WordBool read Get_AlignDisabled;
property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
property Cursor: Smallint read Get_Cursor write Set_Cursor;
property HelpType: TxHelpType read Get_HelpType write Set_HelpType;
property HelpKeyword: WideString read Get_HelpKeyword write Set_HelpKeyword;
property xlsExportStyles: WordBool read Get_xlsExportStyles write Set_xlsExportStyles;
property xlsExportPictures: WordBool read Get_xlsExportPictures write Set_xlsExportPictures;
property xlsMergeCells: WordBool read Get_xlsMergeCells write Set_xlsMergeCells;
property xlsWysiwyg: WordBool read Get_xlsWysiwyg write Set_xlsWysiwyg;
property ReportName: WideString read Get_ReportName write Set_ReportName;
property xmlExportStyles: WordBool read Get_xmlExportStyles write Set_xmlExportStyles;
property xmlWysiwyg: WordBool read Get_xmlWysiwyg write Set_xmlWysiwyg;
property xmlExportPageBreaks: WordBool read Get_xmlExportPageBreaks write Set_xmlExportPageBreaks;
property xmlShowProgress: WordBool read Get_xmlShowProgress write Set_xmlShowProgress;
property xmlOpenExcelAfterExport: WordBool read Get_xmlOpenExcelAfterExport write Set_xmlOpenExcelAfterExport;
property xmlShowDialog: WordBool read Get_xmlShowDialog write Set_xmlShowDialog;
property xlsShowDialog: WordBool read Get_xlsShowDialog write Set_xlsShowDialog;
property xlsShowProgress: WordBool read Get_xlsShowProgress write Set_xlsShowProgress;
property xlsOpenExcelAfterExport: WordBool read Get_xlsOpenExcelAfterExport write Set_xlsOpenExcelAfterExport;
property PrintOptionShowDialog: WordBool read Get_PrintOptionShowDialog write Set_PrintOptionShowDialog;
property PrintOptionPrinter: WideString read Get_PrintOptionPrinter write Set_PrintOptionPrinter;
property PrintOptionPageNumbers: WideString read Get_PrintOptionPageNumbers write Set_PrintOptionPageNumbers;
property PrintOptionCollate: WordBool read Get_PrintOptionCollate write Set_PrintOptionCollate;
property PrintOptionCopies: Integer read Get_PrintOptionCopies write Set_PrintOptionCopies;
property ConnectionObj: OleVariant read Get_ConnectionObj write Set_ConnectionObj;
property RSCName: WideString read Get_RSCName write Set_RSCName;
end;
// *********************************************************************//
// DispIntf: IKDReportDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {69D86A68-3B79-4612-921E-95C8D5D35352}
// *********************************************************************//
IKDReportDisp = dispinterface
['{69D86A68-3B79-4612-921E-95C8D5D35352}']
property Alignment: TxAlignment dispid 1;
property AutoSize: WordBool dispid 2;
property BevelInner: TxBevelCut dispid 3;
property BevelOuter: TxBevelCut dispid 4;
property BorderStyle: TxBorderStyle dispid 5;
property Caption: WideString dispid -518;
property Color: OLE_COLOR dispid -501;
property Ctl3D: WordBool dispid 6;
property UseDockManager: WordBool dispid 7;
property DockSite: WordBool dispid 8;
property DragCursor: Smallint dispid 9;
property DragMode: TxDragMode dispid 10;
property Enabled: WordBool dispid -514;
property FullRepaint: WordBool dispid 11;
property Font: IFontDisp dispid -512;
property Locked: WordBool dispid 12;
property ParentColor: WordBool dispid 13;
property ParentCtl3D: WordBool dispid 14;
property Visible: WordBool dispid 15;
property DoubleBuffered: WordBool dispid 16;
property AlignDisabled: WordBool readonly dispid 17;
property VisibleDockClientCount: Integer readonly dispid 18;
function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 20;
procedure InitiateAction; dispid 21;
function IsRightToLeft: WordBool; dispid 22;
function UseRightToLeftReading: WordBool; dispid 25;
function UseRightToLeftScrollBar: WordBool; dispid 26;
property Cursor: Smallint dispid 27;
property HelpType: TxHelpType dispid 28;
property HelpKeyword: WideString dispid 29;
procedure SetSubComponent(IsSubComponent: WordBool); dispid 31;
procedure AddConnectionStr(const ConnectionStr: WideString); dispid 39;
procedure PrintReport(const ReportPath: WideString); dispid 40;
procedure AddSqlCommand(const CommandSQL: WideString); dispid 41;
procedure DesignReport(const ReportPath: WideString); dispid 42;
procedure ClearAllSqlCommand; dispid 43;
procedure FreeReport; dispid 44;
procedure SetMainADOQ(CurIndex: Integer); dispid 45;
procedure CloseADOConnect; dispid 46;
procedure DownLoadReportFile(const SqlCommandStr: WideString; const FiledName: WideString;
const FileAllPath: WideString); dispid 48;
procedure UpLoadReportFile(const TableName: WideString; const WhereStr: WideString;
const FileAllPath: WideString; const FiledName: WideString;
const FiledNameList: WideString; const ValuesList: WideString); dispid 49;
procedure DesignReportNOConnect(const ReportPath: WideString); dispid 19;
procedure InitialNoConnect; dispid 23;
procedure AddProcedureName(ProcedureNameIndex: Integer; const ProcedureName: WideString); dispid 24;
procedure AddParameterName(ProcedureNameIndex: Integer; const ParameterName: WideString); dispid 30;
procedure AddParameterValue(ProcedureNameIndex: Integer; const AddParameterValue: WideString;
AddParameterIndex: Integer); dispid 32;
procedure ExecProc(ProcedureNameIndex: Integer); dispid 33;
procedure CloseProc; dispid 34;
procedure AddParameterNameValue(ProcedureNameIndex: Integer;
const AddParameterName: WideString;
const AddParameterValue: WideString); dispid 35;
procedure ExportRTF(const ReportPath: WideString; const FileName: WideString); dispid 37;
procedure ExportXLS(const ReportPath: WideString; const FileName: WideString); dispid 38;
procedure ExportXML(const ReportPath: WideString; const FileName: WideString); dispid 47;
procedure ExportPDF(const ReportPath: WideString; const FileName: WideString); dispid 50;
procedure ExportBMP(const ReportPath: WideString; const FileName: WideString); dispid 51;
procedure PrintReportEx(const ReportPath: WideString; bPrintView: SYSINT; bShowDialog: SYSINT); dispid 52;
procedure ExportJPEG(const ReportPath: WideString; const FileName: WideString); dispid 53;
procedure ExportTIFF(const ReportPath: WideString; const FileName: WideString); dispid 54;
procedure ExportHTML(const ReportPath: WideString; const FileName: WideString); dispid 55;
procedure ExportTXT(const ReportPath: WideString; const FileName: WideString); dispid 56;
procedure ExportFile(const ReportPath: WideString; const FileName: WideString;
const FileType: WideString; bExportSet: SYSINT); dispid 57;
property xlsExportStyles: WordBool dispid 58;
property xlsExportPictures: WordBool dispid 59;
property xlsMergeCells: WordBool dispid 60;
property xlsWysiwyg: WordBool dispid 61;
property ReportName: WideString dispid 62;
property xmlExportStyles: WordBool dispid 36;
property xmlWysiwyg: WordBool dispid 63;
property xmlExportPageBreaks: WordBool dispid 64;
property xmlShowProgress: WordBool dispid 65;
property xmlOpenExcelAfterExport: WordBool dispid 66;
property xmlShowDialog: WordBool dispid 67;
property xlsShowDialog: WordBool dispid 68;
property xlsShowProgress: WordBool dispid 69;
property xlsOpenExcelAfterExport: WordBool dispid 70;
property PrintOptionShowDialog: WordBool dispid 71;
property PrintOptionPrinter: WideString dispid 72;
property PrintOptionPageNumbers: WideString dispid 73;
property PrintOptionCollate: WordBool dispid 74;
property PrintOptionCopies: Integer dispid 75;
procedure AddRecordset(vRecordset: OleVariant); dispid 78;
procedure ClearAllRecordset; dispid 79;
property ConnectionObj: OleVariant dispid 81;
procedure FreeAllObj; dispid 82;
property RSCName: WideString dispid 83;
end;
// *********************************************************************//
// DispIntf: IKDReportEvents
// Flags: (4096) Dispatchable
// GUID: {8180BFF1-716F-4A0E-B080-A30A9E6AA036}
// *********************************************************************//
IKDReportEvents = dispinterface
['{8180BFF1-716F-4A0E-B080-A30A9E6AA036}']
procedure OnCanResize(var NewWidth: Integer; var NewHeight: Integer; var Resize: WordBool); dispid 1;
procedure OnClick; dispid 2;
procedure OnConstrainedResize(var MinWidth: Integer; var MinHeight: Integer;
var MaxWidth: Integer; var MaxHeight: Integer); dispid 3;
procedure OnDblClick; dispid 7;
procedure OnResize; dispid 16;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TKDReport
// Help String : KDReport Control
// Default Interface: IKDReport
// Def. Intf. DISP? : No
// Event Interface: IKDReportEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TKDReportOnCanResize = procedure(Sender: TObject; var NewWidth: Integer; var NewHeight: Integer;
var Resize: WordBool) of object;
TKDReportOnConstrainedResize = procedure(Sender: TObject; var MinWidth: Integer;
var MinHeight: Integer;
var MaxWidth: Integer;
var MaxHeight: Integer) of object;
TKDReport = class(TOleControl)
private
FOnCanResize: TKDReportOnCanResize;
FOnClick: TNotifyEvent;
FOnConstrainedResize: TKDReportOnConstrainedResize;
FOnDblClick: TNotifyEvent;
FOnResize: TNotifyEvent;
FIntf: IKDReport;
function GetControlInterface: IKDReport;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_ConnectionObj: OleVariant;
procedure Set_ConnectionObj(Value: OleVariant);
public
function DrawTextBiDiModeFlagsReadingOnly: Integer;
procedure InitiateAction;
function IsRightToLeft: WordBool;
function UseRightToLeftReading: WordBool;
function UseRightToLeftScrollBar: WordBool;
procedure SetSubComponent(IsSubComponent: WordBool);
procedure AddConnectionStr(const ConnectionStr: WideString);
procedure PrintReport(const ReportPath: WideString);
procedure AddSqlCommand(const CommandSQL: WideString);
procedure DesignReport(const ReportPath: WideString);
procedure ClearAllSqlCommand;
procedure FreeReport;
procedure SetMainADOQ(CurIndex: Integer);
procedure CloseADOConnect;
procedure DownLoadReportFile(const SqlCommandStr: WideString; const FiledName: WideString;
const FileAllPath: WideString);
procedure UpLoadReportFile(const TableName: WideString; const WhereStr: WideString;
const FileAllPath: WideString; const FiledName: WideString;
const FiledNameList: WideString; const ValuesList: WideString);
procedure DesignReportNOConnect(const ReportPath: WideString);
procedure InitialNoConnect;
procedure AddProcedureName(ProcedureNameIndex: Integer; const ProcedureName: WideString);
procedure AddParameterName(ProcedureNameIndex: Integer; const ParameterName: WideString);
procedure AddParameterValue(ProcedureNameIndex: Integer; const AddParameterValue: WideString;
AddParameterIndex: Integer);
procedure ExecProc(ProcedureNameIndex: Integer);
procedure CloseProc;
procedure AddParameterNameValue(ProcedureNameIndex: Integer;
const AddParameterName: WideString;
const AddParameterValue: WideString);
procedure ExportRTF(const ReportPath: WideString; const FileName: WideString);
procedure ExportXLS(const ReportPath: WideString; const FileName: WideString);
procedure ExportXML(const ReportPath: WideString; const FileName: WideString);
procedure ExportPDF(const ReportPath: WideString; const FileName: WideString);
procedure ExportBMP(const ReportPath: WideString; const FileName: WideString);
procedure PrintReportEx(const ReportPath: WideString; bPrintView: SYSINT; bShowDialog: SYSINT);
procedure ExportJPEG(const ReportPath: WideString; const FileName: WideString);
procedure ExportTIFF(const ReportPath: WideString; const FileName: WideString);
procedure ExportHTML(const ReportPath: WideString; const FileName: WideString);
procedure ExportTXT(const ReportPath: WideString; const FileName: WideString);
procedure ExportFile(const ReportPath: WideString; const FileName: WideString;
const FileType: WideString; bExportSet: SYSINT);
procedure AddRecordset(vRecordset: OleVariant);
procedure ClearAllRecordset;
procedure FreeAllObj;
property ControlInterface: IKDReport read GetControlInterface;
property DefaultInterface: IKDReport read GetControlInterface;
property DoubleBuffered: WordBool index 16 read GetWordBoolProp write SetWordBoolProp;
property AlignDisabled: WordBool index 17 read GetWordBoolProp;
property VisibleDockClientCount: Integer index 18 read GetIntegerProp;
property ConnectionObj: OleVariant index 81 read GetOleVariantProp write SetOleVariantProp;
published
property ParentFont;
property Align;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property Alignment: TOleEnum index 1 read GetTOleEnumProp write SetTOleEnumProp stored False;
property AutoSize: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
property BevelInner: TOleEnum index 3 read GetTOleEnumProp write SetTOleEnumProp stored False;
property BevelOuter: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
property BorderStyle: TOleEnum index 5 read GetTOleEnumProp write SetTOleEnumProp stored False;
property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False;
property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False;
property Ctl3D: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
property UseDockManager: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False;
property DockSite: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
property DragCursor: Smallint index 9 read GetSmallintProp write SetSmallintProp stored False;
property DragMode: TOleEnum index 10 read GetTOleEnumProp write SetTOleEnumProp stored False;
property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
property FullRepaint: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
property Font: TFont index -512 read GetTFontProp write _SetTFontProp stored False;
property Locked: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
property ParentColor: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
property ParentCtl3D: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
property Visible: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
property Cursor: Smallint index 27 read GetSmallintProp write SetSmallintProp stored False;
property HelpType: TOleEnum index 28 read GetTOleEnumProp write SetTOleEnumProp stored False;
property HelpKeyword: WideString index 29 read GetWideStringProp write SetWideStringProp stored False;
property xlsExportStyles: WordBool index 58 read GetWordBoolProp write SetWordBoolProp stored False;
property xlsExportPictures: WordBool index 59 read GetWordBoolProp write SetWordBoolProp stored False;
property xlsMergeCells: WordBool index 60 read GetWordBoolProp write SetWordBoolProp stored False;
property xlsWysiwyg: WordBool index 61 read GetWordBoolProp write SetWordBoolProp stored False;
property ReportName: WideString index 62 read GetWideStringProp write SetWideStringProp stored False;
property xmlExportStyles: WordBool index 36 read GetWordBoolProp write SetWordBoolProp stored False;
property xmlWysiwyg: WordBool index 63 read GetWordBoolProp write SetWordBoolProp stored False;
property xmlExportPageBreaks: WordBool index 64 read GetWordBoolProp write SetWordBoolProp stored False;
property xmlShowProgress: WordBool index 65 read GetWordBoolProp write SetWordBoolProp stored False;
property xmlOpenExcelAfterExport: WordBool index 66 read GetWordBoolProp write SetWordBoolProp stored False;
property xmlShowDialog: WordBool index 67 read GetWordBoolProp write SetWordBoolProp stored False;
property xlsShowDialog: WordBool index 68 read GetWordBoolProp write SetWordBoolProp stored False;
property xlsShowProgress: WordBool index 69 read GetWordBoolProp write SetWordBoolProp stored False;
property xlsOpenExcelAfterExport: WordBool index 70 read GetWordBoolProp write SetWordBoolProp stored False;
property PrintOptionShowDialog: WordBool index 71 read GetWordBoolProp write SetWordBoolProp stored False;
property PrintOptionPrinter: WideString index 72 read GetWideStringProp write SetWideStringProp stored False;
property PrintOptionPageNumbers: WideString index 73 read GetWideStringProp write SetWideStringProp stored False;
property PrintOptionCollate: WordBool index 74 read GetWordBoolProp write SetWordBoolProp stored False;
property PrintOptionCopies: Integer index 75 read GetIntegerProp write SetIntegerProp stored False;
property RSCName: WideString index 83 read GetWideStringProp write SetWideStringProp stored False;
property OnCanResize: TKDReportOnCanResize read FOnCanResize write FOnCanResize;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
property OnConstrainedResize: TKDReportOnConstrainedResize read FOnConstrainedResize write FOnConstrainedResize;
property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
property OnResize: TNotifyEvent read FOnResize write FOnResize;
end;
procedure Register;
resourcestring
dtlServerPage = 'Servers';
implementation
uses ComObj;
procedure TKDReport.InitControlData;
const
CEventDispIDs: array [0..4] of DWORD = (
$00000001, $00000002, $00000003, $00000007, $00000010);
CTFontIDs: array [0..0] of DWORD = (
$FFFFFE00);
CControlData: TControlData2 = (
ClassID: '{3F9223A8-3B4E-4C01-A1F2-DEB35CA34E68}';
EventIID: '{8180BFF1-716F-4A0E-B080-A30A9E6AA036}';
EventCount: 5;
EventDispIDs: @CEventDispIDs;
LicenseKey: nil (*HR:$00000000*);
Flags: $0000001D;
Version: 401;
FontCount: 1;
FontIDs: @CTFontIDs);
begin
ControlData := @CControlData;
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnCanResize) - Cardinal(Self);
end;
procedure TKDReport.CreateControl;
procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as IKDReport;
end;
begin
if FIntf = nil then DoCreate;
end;
function TKDReport.GetControlInterface: IKDReport;
begin
CreateControl;
Result := FIntf;
end;
function TKDReport.Get_ConnectionObj: OleVariant;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ConnectionObj;
end;
procedure TKDReport.Set_ConnectionObj(Value: OleVariant);
begin
DefaultInterface.ConnectionObj := Value;
end;
function TKDReport.DrawTextBiDiModeFlagsReadingOnly: Integer;
begin
Result := DefaultInterface.DrawTextBiDiModeFlagsReadingOnly;
end;
procedure TKDReport.InitiateAction;
begin
DefaultInterface.InitiateAction;
end;
function TKDReport.IsRightToLeft: WordBool;
begin
Result := DefaultInterface.IsRightToLeft;
end;
function TKDReport.UseRightToLeftReading: WordBool;
begin
Result := DefaultInterface.UseRightToLeftReading;
end;
function TKDReport.UseRightToLeftScrollBar: WordBool;
begin
Result := DefaultInterface.UseRightToLeftScrollBar;
end;
procedure TKDReport.SetSubComponent(IsSubComponent: WordBool);
begin
DefaultInterface.SetSubComponent(IsSubComponent);
end;
procedure TKDReport.AddConnectionStr(const ConnectionStr: WideString);
begin
DefaultInterface.AddConnectionStr(ConnectionStr);
end;
procedure TKDReport.PrintReport(const ReportPath: WideString);
begin
DefaultInterface.PrintReport(ReportPath);
end;
procedure TKDReport.AddSqlCommand(const CommandSQL: WideString);
begin
DefaultInterface.AddSqlCommand(CommandSQL);
end;
procedure TKDReport.DesignReport(const ReportPath: WideString);
begin
DefaultInterface.DesignReport(ReportPath);
end;
procedure TKDReport.ClearAllSqlCommand;
begin
DefaultInterface.ClearAllSqlCommand;
end;
procedure TKDReport.FreeReport;
begin
DefaultInterface.FreeReport;
end;
procedure TKDReport.SetMainADOQ(CurIndex: Integer);
begin
DefaultInterface.SetMainADOQ(CurIndex);
end;
procedure TKDReport.CloseADOConnect;
begin
DefaultInterface.CloseADOConnect;
end;
procedure TKDReport.DownLoadReportFile(const SqlCommandStr: WideString;
const FiledName: WideString; const FileAllPath: WideString);
begin
DefaultInterface.DownLoadReportFile(SqlCommandStr, FiledName, FileAllPath);
end;
procedure TKDReport.UpLoadReportFile(const TableName: WideString; const WhereStr: WideString;
const FileAllPath: WideString; const FiledName: WideString;
const FiledNameList: WideString; const ValuesList: WideString);
begin
DefaultInterface.UpLoadReportFile(TableName, WhereStr, FileAllPath, FiledName, FiledNameList,
ValuesList);
end;
procedure TKDReport.DesignReportNOConnect(const ReportPath: WideString);
begin
DefaultInterface.DesignReportNOConnect(ReportPath);
end;
procedure TKDReport.InitialNoConnect;
begin
DefaultInterface.InitialNoConnect;
end;
procedure TKDReport.AddProcedureName(ProcedureNameIndex: Integer; const ProcedureName: WideString);
begin
DefaultInterface.AddProcedureName(ProcedureNameIndex, ProcedureName);
end;
procedure TKDReport.AddParameterName(ProcedureNameIndex: Integer; const ParameterName: WideString);
begin
DefaultInterface.AddParameterName(ProcedureNameIndex, ParameterName);
end;
procedure TKDReport.AddParameterValue(ProcedureNameIndex: Integer;
const AddParameterValue: WideString;
AddParameterIndex: Integer);
begin
DefaultInterface.AddParameterValue(ProcedureNameIndex, AddParameterValue, AddParameterIndex);
end;
procedure TKDReport.ExecProc(ProcedureNameIndex: Integer);
begin
DefaultInterface.ExecProc(ProcedureNameIndex);
end;
procedure TKDReport.CloseProc;
begin
DefaultInterface.CloseProc;
end;
procedure TKDReport.AddParameterNameValue(ProcedureNameIndex: Integer;
const AddParameterName: WideString;
const AddParameterValue: WideString);
begin
DefaultInterface.AddParameterNameValue(ProcedureNameIndex, AddParameterName, AddParameterValue);
end;
procedure TKDReport.ExportRTF(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportRTF(ReportPath, FileName);
end;
procedure TKDReport.ExportXLS(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportXLS(ReportPath, FileName);
end;
procedure TKDReport.ExportXML(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportXML(ReportPath, FileName);
end;
procedure TKDReport.ExportPDF(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportPDF(ReportPath, FileName);
end;
procedure TKDReport.ExportBMP(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportBMP(ReportPath, FileName);
end;
procedure TKDReport.PrintReportEx(const ReportPath: WideString; bPrintView: SYSINT;
bShowDialog: SYSINT);
begin
DefaultInterface.PrintReportEx(ReportPath, bPrintView, bShowDialog);
end;
procedure TKDReport.ExportJPEG(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportJPEG(ReportPath, FileName);
end;
procedure TKDReport.ExportTIFF(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportTIFF(ReportPath, FileName);
end;
procedure TKDReport.ExportHTML(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportHTML(ReportPath, FileName);
end;
procedure TKDReport.ExportTXT(const ReportPath: WideString; const FileName: WideString);
begin
DefaultInterface.ExportTXT(ReportPath, FileName);
end;
procedure TKDReport.ExportFile(const ReportPath: WideString; const FileName: WideString;
const FileType: WideString; bExportSet: SYSINT);
begin
DefaultInterface.ExportFile(ReportPath, FileName, FileType, bExportSet);
end;
procedure TKDReport.AddRecordset(vRecordset: OleVariant);
begin
DefaultInterface.AddRecordset(vRecordset);
end;
procedure TKDReport.ClearAllRecordset;
begin
DefaultInterface.ClearAllRecordset;
end;
procedure TKDReport.FreeAllObj;
begin
DefaultInterface.FreeAllObj;
end;
procedure Register;
begin
RegisterComponents('ActiveX',[TKDReport]);
end;
end.