intouch报表access版.docx

intouch报表access版.docx

《intouch报表access版.docx》由会员分享，可在线阅读，更多相关《intouch报表access版.docx（9页珍藏版）》请在冰豆网上搜索。

intouch报表access版

intouch报表（access版）

Intouch报表作法（access版）

一．将电脑的时间格式设为如下

二．如果电脑没有dtpicker控件，可将mscomct2.ocx控件拷贝到“C:

\WINDOWS\system32”目录下，在开始-运行中输入“mscomct2.ocx”进行注册，即可用。

（注册方法：

regsvr32mscomct2.ocx）。

三．做excel报表模板REPORT.xls，如下

1.做报表模板，设置每一列的数据格式（字体和小数位数等）。

2.在“工具\宏\visualbasic编辑器”进入VB环境插入窗体如下图

如果工具箱没有没有dtpicker控件，在工具箱空白处鼠标右键-附件控件中找。

3.“工具\控件”菜单下添加如下引用。

四．Intouch安装时选上intouch自带的SQL安装包。

1.在intouch“特别\SQL访问管理器\绑定列表（B）”下添加列表（可见多个列表）。

绑定列表名为REPORT1。

如下图：

2.在“控制面板”-管理工具-数据源（ODBC）下“系统DSN选项卡”中创建数据源。

本例中数据源名为INTOUCHDSN,“创建”-保存在某一目录下。

（本例中在“E:

\REPORT\TEMPLAT”目录下，文件名为MYREPORT.mdb）

3.打开MYREPORT.mdb，第一项“使用设计器创建表”，分别配置字段（字段名和intouch绑定列表中的“列名”对应，注意大小写），配置字段的数据类型（数字），属性表中配置字段大小为“小数”或“双精度”。

保存为TABLE1.

4.INTOUCH-“应用程序脚本”中输入如下函数

STATUS=SQLConnect（ConnectionID,"Provider=MSDASQL;DSN=INTOUCHDSN;UID=;PWD="）;

INTOUCH-“数据改变脚本”中输入如下函数

STATUS=SQLInsert（ConnectionID,"TABLE1","REPORT1"）;

STATUS=0表示没有错误。

可以在画面中用两个按钮实现以上两条语句的模拟和STATUS状态监控。

（注：

本例中的彩色字体部分需严格对应。

）

五．Excel模板中进行VB编程。

1.打开模板时显示窗体，代码如下图

2.窗体初始化，代码如下

PrivateSubUserForm_Initialize（）

DTPicker1.Value=Now

i=rst!

XIAOSHI

'Sheet1.Cells（i+7,2）=rst!

XIAOSHI

Sheet1.Cells（i+7,2）=rst!

A001MP

Sheet1.Cells（i+7,3）=rst!

A001MT

Sheet1.Cells（i+7,4）=rst!

A001MD

Sheet1.Cells（i+7,5）=rst!

A001MG

Sheet1.Cells（i+7,6）=rst!

A101MP

Sheet1.Cells（i+7,7）=rst!

A102MP

Sheet1.Cells（i+7,8）=rst!

A103MP

Sheet1.Cells（i+7,9）=rst!

A101MD

Sheet1.Cells（i+7,10）=rst!

A104MP

Sheet1.Cells（i+7,11）=rst!

A105MP

Sheet1.Cells（i+7,12）=rst!

A106MP

Sheet1.Cells（i+7,13）=rst!

A102MD

Sheet1.Cells（i+7,14）=rst!

A107MP

Sheet1.Cells（i+7,15）=rst!

A108MP

Sheet1.Cells（i+7,16）=rst!

A109MP

Sheet1.Cells（i+7,17）=rst!

A103MD

Sheet1.Cells（i+7,18）=rst!

A110MP

Sheet1.Cells（i+7,19）=rst!

A111MP

Sheet1.Cells（i+7,20）=rst!

A112MP

Sheet1.Cells（i+7,21）=rst!

A104MD

Sheet1.Cells（i+7,22）=rst!

A113MP

Sheet1.Cells（i+7,23）=rst!

A114MP

Sheet1.Cells（i+7,24）=rst!

A115MP

Sheet1.Cells（i+7,25）=rst!

A105MD

'i=i+1

rst.MoveNext

Sheet1.Cells（2,8）=i

Wend

Sheet1.Cells（2,12）=DTPicker1.Value

SetAttrsname1,1'将文件设为只读属性

'FileCopysname1,sname2

'SetxlBook=GetObject（sname1）

'xlBook.PrintPreviewTrue

EndSub

注；本例中把数据从TABLE1先读到TABLE1_D中，然后从TABLE1_D中再读到模板中，是为了节省数据查询时间。

3.INTOUCH中添加按钮，打开报表模板

StartApp"C:

\ProgramFiles\MicrosoftOffice\OFFICE11\Excel.exe

E:

\REPORT\TEMPLAT\REPORT.xls";