commusefunctionexport.~pas

对fastreport进行封装成dll,只需传一个query即可显示报表内容,显示的列可以自定义,对学习fastreport可以参考一下

unit CommUseFunctionExport;

interface
uses adodb,classes,forms;
function ReadReg(Key,Value:pchar):Pchar;stdcall;external  'CommUseFunction.dll';
procedure WriteReg(key,Value:pchar);stdcall;external  'CommUseFunction.dll';
procedure WriteToTextFile(sFileName, sText: pchar);stdcall;external 'CommUseFunction.dll';
procedure WriteIni(sFileName,sSection,ident,sText:string);stdcall;external 'CommUseFunction.dll';
function ReadIni(sFileName,sSection,ident,DefaultText:string):string;stdcall;external 'CommUseFunction.dll';
procedure QueryToExcel(connstr,sqlstr,sCaption:pchar);stdcall; external 'CommUseFunction.dll';
procedure ADOQueryToExcel(adoquery:TADOQuery;sCaption:pchar); stdcall; external 'CommUseFunction.dll';
procedure ExecQuery(con:TADOConnection;sSql:pchar); stdcall; external 'CommUseFunction.dll';
function OpenQuery(con:TADOConnection;sSql:pchar):TADOquery; stdcall; external 'CommUseFunction.dll';
//procedure ReportView(app:Tapplication;scr:Tscreen);stdcall;external 'CommUseFunction.dll';
procedure ReportView( PADOQuery: Pointer;app:Tapplication;sCaption,sPrintPeaple:pchar;sFlagTableName:pchar);stdcall; external 'CommUseFunction.dll';
procedure SetupReportFormat(PADOQuery:Pointer ;app:Tapplication;sFlagTableName:pchar);stdcall;external 'CommUseFunction.dll';
implementation

end.