import1.pas

来自「相关的销售服务管理行业的一个软件」· PAS 代码 · 共 25 行

unit import1;

interface
uses
  Windows,Classes,ADODB;

{$IFNDEF PENNIESLIB}

function SetReport(AHandle: THandle;RepOrder,MCode1: String): integer;StdCall;
function CreateReport(AHandle: THandle;strcon:WideString;RepOrder:string;
                      StrMaster,StrDetail:TADOQuery;flg:boolean):integer;StdCall;

{$ENDIF}

implementation

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

{$ENDIF}

end.