手把手教你制作定时读取Intouch中数据并生成EXCEL做表格
- 格式：pdf
- 大小：2.75 MB
- 文档页数：31
本教程的目的：定时（时间可以自由设置）读取intouch上的数据并导出到EXCEL表格中。
导出后的表格见下图（小编懒省事随便弄了一下，可以根据需要设置）：
第一步开始：安装SQL2000。
安装C:\SQLEVAL autorun.exe
安装SQL server2000组件安装数据库服务器本地计算机点下一步，如果出现要重启电脑，去注册表regedit。
删除下面的选项。
继续安装SQL2000创建新的SQL server服务器和客户端工具使用本地系统账户混合模式密码123456下一步完成安装。
在程序中打开Microsoft SQL Server企业管理器
在G盘建立文件夹SQLData
新建数据库：名称intouch，分别在数据文件和事务日志中位置找
到刚建立的SQLData文件。
Intouch中表新建表，第一行右键设置主键，其它如下。
点击保存表命名为Report。
打开intouch、安装包。
将安装在本地硬盘驱动上
INTOUCH表里面都有才行。
新建ConnectString
脚本-应用程序
ConnectString="Provider=SQLOLEDB.1;User ID=sa; Password=123456;Initial Catalog=Intouch;Data Source=.;"; ResultCode=SQLConnect(ConnectionId,ConnectString);
在关闭时：附件里面可以找到下面函数
SQLDisconnect(ConnectionId);
插入-标记名-$Minute
ResultCode=SQLInsert(ConnectionId,"Report","Report"); ErrorMsg=SQLErrorMsg(ResultCode);
运行INTOUCH
安装Microsoft Office mscomct2控件包
把MSCOMCT2.OCX复制到C:\WINDOWS\system32文件里面
运行-cmd-regsvr32MSCOMCT2.OCX
在INTOUCH中找到可用的ACtivex控件中：如下控件。
点击安装
找到下面的控件
这是个时间换个电脑，这个控件放到画面上，是一个黑方块，安装Microsoft Office2007Pro简体中文正常。
中间由于经常弹出CAD，把CAD卸载了。
拷贝这两个文件。
KVADODBGrid.dll复制到C:\WINDOWS\system32文件里面
运行-cmd-regsvr32KVADODBGrid.dll
在INTOUCH中找到可用的ACtivex控件中：如下控件。
点击安装
找到下面控件
把原来画面中的表格删掉了
系统DSN添加SQL Server
密码123456
完成可以测试看一下是不是正常
回到Intouch
使用数据源名称：intouch用户名：sa密码123456允许保护
在画面右侧点击按钮，新加按钮
插入---activeX---
同样的方法插入FetchEnd()
保存允许试了一下，表格里面会有数据这时候建议按照OFFIcs表格
完整脚本：
DIM whe AS MESSAGE; DIM StartT AS MESSAGE; DIM EndT AS MESSAGE; DIM mm AS MESSAGE; StartT=#Date1.Value; EndT=#Date2.Value;
mm=StringFromIntg(JG,10);
whe="MyTime>='"+StartT+"'and MyTime<='"+EndT+"'and datepart(mi,MyTime)%"+mm+"=0";
#KVDBGrid.Where=whe;
#KVDBGrid.FetchData();
#KVDBGrid.FetchEnd();
另建一个按钮
DIM filename AS MESSAGE;
DIM MyDate AS MESSAGE;
MyDate=$DateString+$TimeString;(这个实在INTOUCH中插入的)
MyDate="20180106";
filename="G:\报表目录"+"\Report"+MyDate+".csv";
#KVDBGrid.SaveToCSV(filename);
在G:在建立文件夹报表目录。
在标记名字典里-建一个
这个实际运行的时候不能给0，要不点按钮显示表格时报错
在时间那右击
在画面空白处右击窗口属性
#Date1.Year=$Year;
#Date1.Month=$Month;这里面等号后的年月日都是从intouch、导入的
#Date1.Day=$Day;
#Date2.Year=$Year;
#Date2.Month=$Month;
#Date2.Day=$Day;
#Date2.Hour=$Hour;
等号前的年月日
注意：本教程是在XP系统下制作完成的，如需在W7上制作，原理一样。
