intouch报表(access版)概要1.doc

Intouch报表作法（access版） 将电脑的时间格式设为如下 如果电脑没有dtpicker控件，可将mscomct2.ocx控件拷贝到“C:\WINDOWS\system32”目录下，在开始-运行中输入“mscomct2.ocx”进行注册，即可用。(注册方法：regsvr32 mscomct2.ocx)。 做excel报表模板REPORT.xls，如下 做报表模板，设置每一列的数据格式（字体和小数位数等）。 在“工具\宏\visual basic编辑器”进入VB环境插入窗体如下图 如果工具箱没有没有dtpicker控件，在工具箱空白处鼠标右键-附件控件中找。 3.“工具\控件”菜单下添加如下引用。 Intouch安装时选上intouch自带的SQL安装包。 在intouch“特别\SQL访问管理器\绑定列表（B）”下添加列表（可见多个列表）。绑定列表名为REPORT1。如下图： 在“控制面板”-管理工具-数据源（ODBC）下“系统DSN选项卡”中创建数据源。 本例中数据源名为INTOUCHDSN,“创建”-保存在某一目录下。 （本例中在“E:\REPORT\TEMPLAT”目录下，文件名为MYREPORT.mdb） 打开MYREPORT.mdb， 第一项“使用设计器创建表”，分别配置字段（字段名和intouch绑定列表中的“列名”对应，注意大小写），配置字段的数据类型（数字），属性表中配置字段大小为“小数”或“双精度”。保存为TABLE1. INTOUCH-“应用程序脚本”中输入如下函数 STATUS=SQLConnect( ConnectionID, Provider=MSDASQL;DSN=INTOUCHDSN;UID= ;PWD= ); INTOUCH-“数据改变脚本”中输入如下函数 STATUS=SQLInsert( ConnectionID,TABLE1,REPORT1 ); STATUS=0表示没有错误。可以在画面中用两个按钮实现以上两条语句的模拟和STATUS状态监控。 （注：本例中的彩色字体部分需严格对应。） Excel模板中进行VB编程。 1.打开模板时显示窗体，代码如下图 2.窗体初始化，代码如下 Private Sub UserForm_Initialize() DTPicker1.Value = Now End Sub 按钮脚本-click事件，脚本如下 Private Sub CommandButton1_Click() Dim smon, syear, sday, sname1, sname2 As String Dim Csheet1, Csheet2 As Excel.Worksheet Dim xlBook As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim yue1 As Integer UserForm1.Hide Sheet1.Activate Range(b7:y30).Select Selection.ClearContents yesday = DateAdd(d, -1, DTPicker1.Value) theday = DateAdd(d, 1, DTPicker1.Value) syear = Format(DTPicker1.Value, yyyymmdd) sname1 = E:\REPORT\TEMPLAT\REPORT.xls sname2 = E:\REPORT\DREPORT\D + syear + .xls Sheet1.Range(a1:y30).Copy Set Newbook = Workbooks.Add Newbook.worksheets(1).Activate Newbook.worksheets(1).Cells(1, 1).Select Newbook.worksheets(1).Paste Set Csheet1 = Newbook.worksheets(1) Set dbs = OpenDatabase(E:\REPORT\TEMPLAT\MYREPORT.mdb) dbs.Execute delete from TABLE1_D SQLString = insert into TABLE1_D(RIQI,XIAOSHI,A001MP,A001MT,A001MD,A001MG,A101MP,A102MP,A103MP,A101MD,A104MP,A105MP,A106MP,A102MD,A107MP,A108MP,A109MP,A103MD,A110MP,A111MP,A112MP,A104MD,A113MP,A114MP,A115MP,A105MD) _ Select R