intouch报表access版Word下载.docx

1、如果工具箱没有没有dtpicker控件，在工具箱空白处鼠标右键-附件控件中找。3.“工具控件”菜单下添加如下引用。四Intouch安装时选上intouch自带的SQL安装包。1.在intouch“特别SQL访问管理器绑定列表（B）”下添加列表（可见多个列表）。绑定列表名为REPORT1。如下图：2.在“控制面板”-管理工具-数据源（ODBC）下“系统DSN选项卡”中创建数据源。本例中数据源名为INTOUCHDSN,“创建”-保存在某一目录下。（本例中在“E:REPORTTEMPLAT”目录下，文件名为MYREPORT.mdb）3.打开MYREPORT.mdb， 第一项“使用设计器创建表”，分别

2、配置字段（字段名和intouch绑定列表中的“列名”对应，注意大小写），配置字段的数据类型（数字），属性表中配置字段大小为“小数”或“双精度”。保存为TABLE1.4.INTOUCH-“应用程序脚本”中输入如下函数STATUS=SQLConnect（ ConnectionID, Provider=MSDASQL;DSN=INTOUCHDSN;UID= ;PWD= ）;INTOUCH-“数据改变脚本”中输入如下函数STATUS=SQLInsert（ ConnectionID,TABLE1,REPORT1STATUS=0表示没有错误。可以在画面中用两个按钮实现以上两条语句的模拟和STATUS状态监

3、控。（注：本例中的彩色字体部分需严格对应。）五Excel模板中进行VB编程。1.打开模板时显示窗体，代码如下图2.窗体初始化，代码如下Private Sub UserForm_Initialize（）DTPicker1.Value = Nowi = rst!XIAOSHISheet1.Cells（i + 7, 2） = rst!A001MPSheet1.Cells（i + 7, 3） = rst!A001MTSheet1.Cells（i + 7, 4） = rst!A001MDSheet1.Cells（i + 7, 5） = rst!A001MGSheet1.Cells（i + 7, 6） =

4、 rst!A101MPSheet1.Cells（i + 7, 7） = rst!A102MPSheet1.Cells（i + 7, 8） = rst!A103MPSheet1.Cells（i + 7, 9） = rst!A101MDSheet1.Cells（i + 7, 10） = rst!A104MPSheet1.Cells（i + 7, 11） = rst!A105MPSheet1.Cells（i + 7, 12） = rst!A106MPSheet1.Cells（i + 7, 13） = rst!A102MDSheet1.Cells（i + 7, 14） = rst!A107MPShee

5、t1.Cells（i + 7, 15） = rst!A108MPSheet1.Cells（i + 7, 16） = rst!A109MPSheet1.Cells（i + 7, 17） = rst!A103MDSheet1.Cells（i + 7, 18） = rst!A110MPSheet1.Cells（i + 7, 19） = rst!A111MPSheet1.Cells（i + 7, 20） = rst!A112MPSheet1.Cells（i + 7, 21） = rst!A104MDSheet1.Cells（i + 7, 22） = rst!A113MPSheet1.Cells（i +

6、 7, 23） = rst!A114MPSheet1.Cells（i + 7, 24） = rst!A115MPSheet1.Cells（i + 7, 25） = rst!A105MDi = i + 1rst.MoveNextSheet1.Cells（2, 8） = iWendSheet1.Cells（2, 12） = DTPicker1.ValueSetAttr sname1, 1 将文件设为只读属性FileCopy sname1, sname2Set xlBook = GetObject（sname1）xlBook.PrintPreview TrueEnd Sub注；本例中把数据从TABLE1 先读到 TABLE1_D中，然后从TABLE1_D中再读到模板中，是为了节省数据查询时间。3.INTOUCH中添加按钮，打开报表模板StartApp C:Program FilesMicrosoft OfficeOFFICE11Excel.exe E:REPORTTEMPLAT REPORT.xls ;