import1.pas

相关的销售服务管理行业的一个软件

unit import1;

interface
uses
  Windows,Classes,ADODB;

{$IFNDEF PENNIESLIB}

 procedure SetReport(AHandle: THandle;strcon:WideString;RepOrder,MCode1: String);StdCall;
           //------------------设置报表-----------------------------------------
           //  AHandle     Application.Handle
           //  strcon     为帐套数据库的ADOConnection.ConnectionString
           //  RepOrder   为报表编号
           //  MCode1     为模块编码
           //-------------------------------------------------------------------
 procedure CreateReport(AHandle: THandle;strcon:WideString;RepOrder,ckno:string;
                      StrMaster,StrDetail:TADOQuery;flg:boolean);StdCall;
           //----------------预览、打印报表-------------------------------------
           //  AHandle     Application.Handle
           //  strcon     为帐套数据库的ADOConnection.ConnectionString
           //  RepOrder   为报表编号
           //  CkNo       为仓库编号,不分仓库管理的为'0'
           //  StrMaster  为主表的数据集,无为''
           //  Strdetail  为从表的数据集
           //  flg        为false 时预览，为true 时打印           
           //-------------------------------------------------------------------
           

{$ENDIF}

implementation

{$IFNDEF PENNIESLIB}
{ Define the imported function }
  procedure SetReport; external 'reportdll.dll' name 'SetReport';
  procedure CreateReport; external 'reportdll.dll' name 'CreateReport';

{$ENDIF}

end.