intouch报表access版Word下载.docx
《intouch报表access版Word下载.docx》由会员分享,可在线阅读,更多相关《intouch报表access版Word下载.docx(9页珍藏版)》请在冰豆网上搜索。
如果工具箱没有没有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!
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"
;