将 fastreport 封装为 ocx 控件

将 fastreport 封装为 ocx 控件

webprint.htm

<OBJECT ID='WebPrint' name='WebPrint' CLASSID='CLSID:CD74E6C5-730C-4D5F-8AFE-DAE1C4FA0639' align=center hspace=0 vspace=0></OBJECT>

<hr />
<input type='button' value='设计' οnclick='DesignReport()'/>
<input type='button' value='预览' οnclick='ShowReport()'/>
<input type='button' value='打印' οnclick='PrintReport()'/>
<input type='button' value='导出' οnclick='ExportReport()'/>

<script type='text/javascript'>
    
/*
如果浏览器弹出警告，那么请您设置浏览器安全性[选择菜单]：工具==》Internet选项 弹出选项对话框，再选择 安全 面板点击 自定义级别
在弹出的安全设置框中设置 对没有标记为安全的ActiveX控件进行初始化和脚本运行

数据源说明：
1、var：这里放入的是变量 格式=变量名:值
2、表名+'_Field':需要显示的字段  格式= 字段名:类型
   支持类型：bit、string、dateTime、float、int

3、表名+'_Fieldcn':需要显示的字段转义中文名  格式= 字段名:中文名
4、表名+'_data':表记录

其中 2、3、4 为一组配套的，都要有正确的数据，可以添加任意多组 表数据

{'var':{'total':3,'per_page':3,'current_page':1,'last_page':1},
'tp_users_Field':{'_id':int,'nickname':string,'email':string,'birthday':datetime},
'tp_users_Fieldcn':{'_id':ID,'nickname':姓名,'email':邮箱,'birthday':生日},
'tp_users_data':[
{'_id':1,'nickname':'thinkphp22122','email':'thinkphp@qq.com22','birthday':'1922\/1\/2'},
{'_id':16,'nickname':'thinkphp22122','email':'thinkphp@qq.com22','birthday':'1989-05-05'},
{'_id':17,'nickname':'aaaaa','email':'aaaa@qq.com','birthday':'1989-05-05'}],

报表文件：由组进自动根据 内存流生成 base64 的字符串，用于保存在数据库中，当控制点击 保存 按钮时触发 OnSaveToStr 事件。

使用：
  传入两个参数
      Filest : 报表文件
      dataJson ：数据源  
*/

//var Filest='PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiIHN0YW5kYWxvbmU9Im5vIj8+DQo8VGZyeFJlcG9ydCBWZXJzaW9uPSI1LjMuMTYiIERvdE1hdHJpeFJlcG9ydD0iRmFsc2UiIEluaUZpbGU9IlxTb2Z0d2FyZVxGYXN0IFJlcG9ydHMiIFByZXZpZXdPcHRpb25zLkJ1dHRvbnM9IjQwOTUiIFByZXZpZXdPcHRpb25zLlpvb209IjEiIFByaW50T3B0aW9ucy5QcmludGVyPSJEZWZhdWx0IiBQcmludE9wdGlvbnMuUHJpbnRPblNoZWV0PSIwIiBSZXBvcnRPcHRpb25zLkNyZWF0ZURhdGU9IjQzNDI2LjQ4MDUxNjI4NDciIFJlcG9ydE9wdGlvbnMuRGVzY3JpcHRpb24uVGV4dD0iIiBSZXBvcnRPcHRpb25zLkxhc3RDaGFuZ2U9IjQzNDI3LjM2NjQxNTM3MDQiIFNjcmlwdExhbmd1YWdlPSJQYXNjYWxTY3JpcHQiIFNjcmlwdFRleHQuVGV4dD0iYmVnaW4mIzEzOyYjMTA7JiMxMzsmIzEwO2VuZC4iPg0KICA8RGF0YXNldHM+DQogICAgPGl0ZW0gRGF0YVNldD0iZnJ4REJEYXRhc2V0MiIgRGF0YVNldE5hbWU9ImZyeERCRGF0YXNldDEiLz4NCiAgPC9EYXRhc2V0cz4NCiAgPFRmcnhEYXRhUGFnZSBOYW1lPSJEYXRhIiBIZWlnaHQ9IjEwMDAiIExlZnQ9IjAiIFRvcD0iMCIgV2lkdGg9IjEwMDAiLz4NCiAgPFRmcnhSZXBvcnRQYWdlIE5hbWU9IlBhZ2UxIiBQYXBlcldpZHRoPSIyMTAiIFBhcGVySGVpZ2h0PSIyOTciIFBhcGVyU2l6ZT0iOSIgTGVmdE1hcmdpbj0iMTAiIFJpZ2h0TWFyZ2luPSIxMCIgVG9wTWFyZ2luPSIxMCIgQm90dG9tTWFyZ2luPSIxMCIgQ29sdW1uV2lkdGg9IjAiIENvbHVtblBvc2l0aW9ucy5UZXh0PSIiIEhHdWlkZXMuVGV4dD0iIiBWR3VpZGVzLlRleHQ9IiI+DQogICAgPFRmcnhNZW1vVmlldyBOYW1lPSJNZW1vMSIgTGVmdD0iMzQ3LjcxNjc2IiBUb3A9IjIxMS42NTM2OCIgV2lkdGg9IjE0My42MjIxNCIgSGVpZ2h0PSIxOC44OTc2NSIgRGF0YUZpZWxkPSLmlYjmnJ/kv6Hmga8iIERhdGFTZXQ9ImZyeERCRGF0YXNldDIiIERhdGFTZXROYW1lPSJmcnhEQkRhdGFzZXQxIiBGb250LkNoYXJzZXQ9IjEiIEZvbnQuQ29sb3I9Ii0xNjc3NzIwOCIgRm9udC5IZWlnaHQ9Ii0xMyIgRm9udC5OYW1lPSJBcmlhbCIgRm9udC5TdHlsZT0iMCIgUGFyZW50Rm9udD0iRmFsc2UiIFRleHQ9IltmcnhEQkRhdGFzZXQxLiYjMzQ75pWI5pyf5L+h5oGvJiMzNDtdIi8+DQogICAgPFRmcnhNZW1vVmlldyBOYW1lPSJmcnhEQkRhdGFzZXQxIiBMZWZ0PSIyODMuNDY0NzUiIFRvcD0iMTI4LjUwNDAyIiBXaWR0aD0iNzkuMzcwMTMiIEhlaWdodD0iMTguODk3NjUiIERhdGFGaWVsZD0i6YeR6aKdIiBEYXRhU2V0PSJmcnhEQkRhdGFzZXQyIiBEYXRhU2V0TmFtZT0iZnJ4REJEYXRhc2V0MSIgRm9udC5DaGFyc2V0PSIxIiBGb250LkNvbG9yPSItMTY3NzcyMDgiIEZvbnQuSGVpZ2h0PSItMTMiIEZvbnQuTmFtZT0iQXJpYWwiIEZvbnQuU3R5bGU9IjAiIFBhcmVudEZvbnQ9IkZhbHNlIiBUZXh0PSJbZnJ4REJEYXRhc2V0MS4mIzM0O+mHkeminSYjMzQ7XSIvPg0KICA8L1RmcnhSZXBvcnRQYWdlPg0KPC9UZnJ4UmVwb3J0Pg0K'
var Filest = 'testreport.fr3';
var dataJson="{'var':{'total':3,'per_page':3,'current_page':1,'last_page':1},'tp_users_Field':{'_id':int,'nickname':string,'email':string,'birthday':datetime},'tp_users_Fieldcn':{'_id':ID,'nickname':姓名,'email':邮箱,'birthday':生日},'tp_users_data':[{'_id':1,'nickname':'thinkphp22122','email':'thinkphp@qq.com22','birthday':'1922\/1\/2'},{'_id':16,'nickname':'thinkphp22122','email':'thinkphp@qq.com22','birthday':'1989-05-05'},{'_id':17,'nickname':'aaaaa','email':'aaaa@qq.com','birthday':'1989-05-05'}],'tp_users1_Field':{'_id':int,'nickname':string,'email':string,'birthday':datetime},'tp_users1_Fieldcn':{'_id':ID,'nickname':姓名,'email':邮箱,'birthday':生日},'tp_users1_data':[{'_id':1,'nickname':'aaaa','email':'aaaa@qq.com22','birthday':'1922\/1\/2'},{'_id':16,'nickname':'bbbb','email':'bbbb@qq.com22','birthday':'1989-05-05'},{'_id':17,'nickname':'cccc','email':'cccc@qq.com','birthday':'1989-05-05'}]}"

var WebPrint = document.getElementById("WebPrint");
var DesignReport = function(){
    WebPrint.DesignReport(Filest,dataJson);
}

var ShowReport = function(){
    WebPrint.ShowReport(Filest,dataJson);
}

var PrintReport = function(){
    WebPrint.PrintReport(Filest,dataJson);
}

var ExportReport = function(){
    WebPrint.ExportReport(Filest,dataJson);
}
</script>

 <script language="javascript" event="OnSaveToStr(aStr)" for="WebPrint">
        Filest = aStr;
     return 2;
 </script>