www.pudn.com > Fr3ReportDLL.rar > UnitMain.pas

unit UnitMain; 
 
interface 
 
uses 
        Windows, 
        Messages, 
        SysUtils, 
        Variants, 
        Classes, 
        Graphics, 
        Controls, 
        Forms, 
        Dialogs, 
        frxClass, 
        frxDesgn, 
        frxPreview, 
        frxBarcode, 
        frxOLE, 
        frxChart, 
        frxRich, 
        frxCross, 
        frxChBox, 
        frxGradient, 
        frxDMPExport, 
        frxDCtrl, 
        frxGZip, 
        frxExportPDF, 
        frxExportImage, 
        frxExportRTF, 
        frxExportXML, 
        frxExportXLS, 
        frxExportHTML, 
        frxExportTXT, 
        frxDBSet, 
        DB, 
        ADODB, 
        fs_iibxrtti, 
        fs_idbctrlsrtti, 
        fs_idbrtti, 
        fs_ibdertti, 
        fs_iadortti, 
        fs_ichartrtti, 
        fs_idialogsrtti, 
        fs_iextctrlsrtti, 
        fs_iformsrtti, 
        fs_igraphicsrtti, 
        fs_iclassesrtti, 
        fs_ibasic, 
        fs_ijs, 
        fs_icpp, 
        fs_ipascal, 
        fs_iinterpreter, 
        fs_synmemo; 
 
const 
        QueryNum                                  = 24; 
 
type 
        TFrmMain = class(TForm) 
                frxGZipCompressor1: TfrxGZipCompressor; 
                frxDialogControls1: TfrxDialogControls; 
                frxDotMatrixExport1: TfrxDotMatrixExport; 
                frxGradientObject1: TfrxGradientObject; 
                frxCheckBoxObject1: TfrxCheckBoxObject; 
                frxCrossObject1: TfrxCrossObject; 
                frxRichObject1: TfrxRichObject; 
                frxChartObject1: TfrxChartObject; 
                frxOLEObject1: TfrxOLEObject; 
                frxBarCodeObject1: TfrxBarCodeObject; 
                frxPreview1: TfrxPreview; 
                frxDesigner1: TfrxDesigner; 
                fsScript1: TfsScript; 
                fsPascal1: TfsPascal; 
                fsCPP1: TfsCPP; 
                fsJScript1: TfsJScript; 
                fsBasic1: TfsBasic; 
                fsClassesRTTI1: TfsClassesRTTI; 
                fsGraphicsRTTI1: TfsGraphicsRTTI; 
                fsFormsRTTI1: TfsFormsRTTI; 
                fsExtCtrlsRTTI1: TfsExtCtrlsRTTI; 
                fsDialogsRTTI1: TfsDialogsRTTI; 
                fsChartRTTI1: TfsChartRTTI; 
                fsSyntaxMemo1: TfsSyntaxMemo; 
                fsADORTTI1: TfsADORTTI; 
                fsBDERTTI1: TfsBDERTTI; 
                fsDBRTTI1: TfsDBRTTI; 
                fsDBCtrlsRTTI1: TfsDBCtrlsRTTI; 
                fsIBXRTTI1: TfsIBXRTTI; 
                frxReport1: TfrxReport; 
                procedure FormCreate(Sender: TObject); 
                //    procedure frxPreview1PageChanged(Sender: TfrxPreview; PageNo: Integer); 
        private 
                { Private declarations } 
        public 
                JLKADOConn: TADOConnection; 
 
                JLKADOQ: array[0..QueryNum] of TADOQuery; 
                frxDataSet: array[0..QueryNum] of TfrxDBDataset; 
 
                dsJLKADOQ: array[0..QueryNum] of TADOQuery; 
                dsfrxDataSet: array[0..QueryNum] of TfrxDBDataset; 
 
                ADOStoredProc: array[0..QueryNum] of TADOStoredProc; 
                frxDBDataset: array[0..QueryNum] of TfrxDBDataset; 
 
                vRSCName: string; 
 
                frxRTFExport1: TfrxRTFExport; 
                frxXLSExport1: TfrxXLSExport; 
                frxXMLExport1: TfrxXMLExport; 
                frxBMPExport1: TfrxBMPExport; 
                frxJPEGExport1: TfrxJPEGExport; 
                frxTIFFExport1: TfrxTIFFExport; 
                frxTXTExport1: TfrxTXTExport; 
                frxHTMLExport1: TfrxHTMLExport; 
                frxPDFExport1: TfrxPDFExport; 
        end; 
 
var 
        FrmMain                                   : TFrmMain; 
 
implementation 
 
{$R *.dfm} 
 
procedure TFrmMain.FormCreate(Sender: TObject); 
var 
        i                                         : Integer; 
begin 
        JLKADOConn := TADOConnection.Create(Self); 
        JLKADOConn.LoginPrompt := False; 
 
        frxRTFExport1 := TfrxRTFExport.Create(Self); 
        frxXLSExport1 := TfrxXLSExport.Create(Self); 
        frxXMLExport1 := TfrxXMLExport.Create(Self); 
        frxHTMLExport1 := TfrxHTMLExport.Create(Self); 
        frxTXTExport1 := TfrxTXTExport.Create(Self); 
        frxJPEGExport1 := TfrxJPEGExport.Create(Self); 
        frxBMPExport1 := TfrxBMPExport.Create(Self); 
        frxPDFExport1 := TfrxPDFExport.Create(Self); 
        frxTIFFExport1 := TfrxTIFFExport.Create(Self); 
 
        for i := 1 to QueryNum do begin 
                //SQL数据集 
                JLKADOQ[i] := TADOQuery.Create(Self); 
                frxDataSet[i] := TfrxDBDataset.Create(Self); 
                JLKADOQ[i].Connection := JLKADOConn; 
                frxDataSet[i].DataSet := JLKADOQ[i]; 
                //Recordset数据集 
                dsJLKADOQ[i] := TADOQuery.Create(Self); 
                dsfrxDataSet[i] := TfrxDBDataset.Create(Self); 
                dsfrxDataSet[i].DataSet := dsJLKADOQ[i]; 
                //存储过程 
                ADOStoredProc[i] := TADOStoredProc.Create(Self); 
                frxDBDataset[i] := TfrxDBDataset.Create(Self); 
                ADOStoredProc[i].CommandTimeout := 999999; 
                ADOStoredProc[i].Connection := JLKADOConn; 
                frxDBDataset[i].DataSet := ADOStoredProc[i]; 
        end; 
end; 
 
end.