操作记录实施

附件6

操作记录实施

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

15、SQL安装完成后，就可启动SQL2005了。点击开始菜单—>程序—>Microsoft SQL server 2005—>Sql Server management studio或者在桌面点击SQL Server Management Studio 打开SQL 2005。如图：

16、出现登入对话框，服务器名称：HISSVER 身份验证选择：SQL Server 身份验证 登入名：sa 密码：hissver。如下图：

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

二、客户机ODBC配置

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

2、在ODBC中创建DSN，命名为hisoperate。点击“添加”按钮，在数据源驱动列表中选择SQL Server。如下图

3、在名称填入“hisoperate”，服务器填写“hissver”即可(服务器计算机的名称)，

点击下一步。如下图

4、选择“使用用户输入登录ID和密码的SQL Server验证（S）。”，在登入ID和密码处分别填入“sa”“hissver”，点击下一步。如下图

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

6、就这样ODBC配置完成点击测试，如果测试成功说明客户机与数据库连接正常。如果测试失败建议重新配置或者检查网络是否正常。如下图

三、操作记录实现

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

如果某画面或者操作窗口有按钮操作要被记录。则实现方法如下

1、 首先在VBA中引用microsoft activeX data object 2.x

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

Dim rsADO As New ADODB.Recordset

Dim cnADO As New ADODB.Connection

Dim buttonname As String

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

Function operate(buttonname)

On Error Resume Next

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

cnADO.Open

rsADO.Open \"select * from hisoperate\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

Set rsADO = Nothing

cnADO.Close

Set cnADO = Nothing

End Function

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

3、 将此行代码：“Call operate(\"操作按钮名称\")“ 插入到要被记录的按钮中（双引号不包括），在画面或者操作窗口画面中，选择要被记录操作的按钮右击选择编辑脚本，将代码复制到按钮事件中，在括弧中填入按钮的名称。例如：Call operate(\"一号炉#1输送空压机启用\")。

4、 如果碰到有些操作窗口或画面应用到了标签组的调用，则代码使用此行代码：Call operate(Text47.Caption & \"操作按钮名称\")，Text47.Caption是操作窗口的标题名的一个对象,选中标题右击选择动画，在对象名中就可以知道对象的名称。如图

然后选择要被记录操作的按钮右击选择编辑脚本，将代码复制到按钮事件中。例如：Call operate(\"#1\" & Text47.Caption & \"启动\")。

四、注意事项

如果画面中应用到了操作记录的功能，在使用前必须确认网络是否连通，数据库服务器有没有正常运行，否则系统会提示报错。同样如果没有正确配置ODBC或者没有引用microsoft activeX data object 2.x也会报错。