unit1.pas

来自「用delphi+intraweb写的简单报表系统（activeform使用技术）」· PAS 代码 · 共 53 行

UNIT Unit1;

{$WARN SYMBOL_PLATFORM OFF}

INTERFACE

USES
  ComObj, ActiveX, printx_TLB, StdVcl, adodb, db, forms, SysUtils, Classes, DATANEWPRINTERLib_TLB;

TYPE
  Tadocon=CLASS(TAutoObject, Iadocon)
  PROTECTED
    FUNCTION Iadocon_Fprint(CONST Param1, Param2, Param3:WideString):OleVariant; SAFECALL;
    function Fprint(const Param1, Param2, Param3: WideString): OleVariant;
      safecall;
  END;

IMPLEMENTATION

USES ComServ, ADOFuncs, HapReportFuncs;

FUNCTION Tadocon.Fprint(CONST Param1, Param2, Param3:WideString):OleVariant;
VAR
  ss:STRING;
  aqTmp: TADOQuery;
  Report:TDNPrinter;
BEGIN
  aqTmp:=tadoquery.Create(nil);
  Report:=TDNPrinter.Create(nil);
  aqTmp.ConnectionString:=Param1;

  try
    OpenQuery(aqTmp, Param2);
    if aqTmp.RecordCount>0 then
      ViewReportByRecordset(Report, Param3, aqTmp.Recordset);
  finally
    aqTmp.Free;
    Report.Free;
  end;
END;

FUNCTION Tadocon.Iadocon_Fprint(CONST Param1, Param2,
  Param3:WideString):OleVariant;
BEGIN

END;

INITIALIZATION
  TAutoObjectFactory.Create(ComServer, Tadocon, Class_adocon,
    ciMultiInstance, tmApartment);
END.