將 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='設計' onclick='DesignReport()'/>
<input type='button' value='預覽' onclick='ShowReport()'/>
<input type='button' value='列印' onclick='PrintReport()'/>
<input type='button' value='匯出' onclick='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>