操作记录实施剖析.docx

操作记录实施剖析.docx

《操作记录实施剖析.docx》由会员分享，可在线阅读，更多相关《操作记录实施剖析.docx（15页珍藏版）》请在冰豆网上搜索。

操作记录实施剖析

附件6

操作记录实施

在此次工程中需要对每台客户机操作员操作的记录保存到数据库中，在此称之为操作记录历史库，然后再通过操作记录历史库查询操作历史记录。

此次以MSSQL2005作为操作记录历史库，每台客户机的操作都将统一的保存到操作记录历史库中，便于集中管理及查询。

一、操作记录历史库安装配置

1、进入MSSQL2005安装目录，然后双击setup.exe,出现如下图：

2、稍等一会儿弹出安装向导界面。

如下图：

3、点击一下步，系统开始对系统配置进行检测。

如下图：

4、点击下一步，安装程序准备安装向导，接着开始安装前的准备工作，比如磁盘空间检测等等。

如下图：

5、检测完成后点下一步再下一步，进行组件选择，所有组件全部选中。

如下图：

6、点下一步，选中默认实例下一步。

如下图：

7、点击下一步，进行服务帐户设置，选择使用系统内置帐户：

选择本地系统。

如下图：

8、点击下一步，选择混合模式（windows身份验证和SQLsverver身份验证），密码设置为：

hissver。

如下图：

9、点击下一步，进入排序规则设置，如下图：

10、点击下一步，进入报表服务器的一些设置，不作什么修改后点一步。

如下图

12、再下一步，显示你设置的所有选项，如下图：

13、点击安装后系统开始配置选择，再点一步后进行安装进度界面

14、知道安装完成，点下一步按完成。

如下图：

15、SQL安装完成后，就可启动SQL2005了。

点击开始菜单—>程序—>MicrosoftSQLserver2005—>SqlServermanagementstudio或者在桌面点击SQLServerManagementStudio打开SQL2005。

如图：

16、出现登入对话框，服务器名称：

HISSVER身份验证选择：

SQLServer身份验证登入名：

sa密码：

hissver。

如下图：

17、点击链接就可以登入到SQL管理环境。

如下图：

二、客户机ODBC配置

1、点击开始菜单-设置-控制面板-管理工具-数据源（ODBC）。

如下图

2、在ODBC中创建DSN，命名为hisoperate。

点击“添加”按钮，在数据源驱动列表中选择SQLServer。

如下图

3、在名称填入“hisoperate”，服务器填写“hissver”即可（服务器计算机的名称），点击下一步。

如下图

4、选择“使用用户输入登录ID和密码的SQLServer验证（S）。

”，在登入ID和密码处分别填入“sa”“hissver”，点击下一步。

如下图

5、选择数据库“hisoperate”，点击下一步。

如下图

6、就这样ODBC配置完成点击测试，如果测试成功说明客户机与数据库连接正常。

如果测试失败建议重新配置或者检查网络是否正常。

如下图

三、操作记录实现

操作记录是通过获取按钮事件来实现的，只要按钮一有动作就被记录到历史库中，这种方法是最可靠的获取最准的。

如果某画面或者操作窗口有按钮操作要被记录。

则实现方法如下

1、首先在VBA中引用microsoftactiveXdataobject2.x

2、然后在画面VBA编辑器中添加代码，代码如下：

DimrsADOAsNewADODB.Recordset

DimcnADOAsNewADODB.Connection

DimbuttonnameAsString

////////////////////////////将此段代码复制到最头上

Functionoperate（buttonname）

OnErrorResumeNext

cnADO.ConnectionString="DSN=hisoperate;pwd=hissver;uid=sa"

cnADO.Open

rsADO.Open"select*fromhisoperate",cnADO,adOpenDynamic,adLockOptimistic

rsADO.AddNew

rsADO（"datetime"）=Format（Date,"yyyy-MM-DD"）&""&Format（Time,"HH:

MM:

SS"）

rsADO（"czjl"）=buttonname

rsADO（"clientname"）=VBA.Environ（"computername"）

rsADO.Update

rsADO.Close

SetrsADO=Nothing

cnADO.Close

SetcnADO=Nothing

EndFunction

////////////////////////////将此段代码复制到最底下

3、将此行代码：

“Calloperate（"操作按钮名称"）“　插入到要被记录的按钮中（双引号不包括），在画面或者操作窗口画面中，选择要被记录操作的按钮右击选择编辑脚本，将代码复制到按钮事件中，在括弧中填入按钮的名称。

例如：

Calloperate（"一号炉#1输送空压机启用"）。

4、如果碰到有些操作窗口或画面应用到了标签组的调用，则代码使用此行代码：

Calloperate（Text47.Caption&"操作按钮名称"），Text47.Caption是操作窗口的标题名的一个对象,选中标题右击选择动画，在对象名中就可以知道对象的名称。

如图

然后选择要被记录操作的按钮右击选择编辑脚本，将代码复制到按钮事件中。

例如：

Calloperate（"#1"&Text47.Caption&"启动"）。

四、注意事项

　　如果画面中应用到了操作记录的功能，在使用前必须确认网络是否连通，数据库服务器有没有正常运行，否则系统会提示报错。

同样如果没有正确配置ODBC或者没有引用microsoftactiveXdataobject2.x也会报错。