操作记录实施选读.docVIP

附件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—Sql Server management studio或者在桌面点击SQL Server Management StudioODBC中创建DSN，命名为hisoperate。点击“添加”按钮，在数据源驱动列表中选择SQL Serhisoperate”，服务器填写“hissver”即可(服务器计算机的名称)，点击下一步。如下图 4、选择“使用用户输入登录ID和密码的SQL Server验证（S）。”，在登入ID和密码处分别填入“sa”“hissver”，点击下一步。如下图 5、选择数据库“hisoperate”，点击下一步。如下图 6、就这样ODBC配置完成点击测试，如果测试成功说明客户机与数据库连接正常。如果测试失败建议重新配置或者检查网络是否正常。如下图 三、操作记录实现 操作记录是通过获取按钮事件来实现的，只要按钮一有动作就被记录到历史库中，这种方法是最可靠的获取最准的。 如果某画面或者操作窗口有按钮操作要被记录。则实现方法如下 首先在VBA中引用microsoft activeX data object 2.x 然后在画面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 ////////////////////////////将此段代码复制到最底下 将此行代码：“Call operate(操作按钮名称)“　插入到要被记录的按钮中（双引号不包括），在画面或者操作窗口画面中，选择要被记录操作的按钮右击选择编辑脚本，将代码复制到按钮事件中，在括弧中填入按钮的名称。例如：Call operate(一号炉#1输送空压机启用)。 如果碰到有些操作窗口或画面应用到了标签组的调用，则代码使用此行代码：Call operate(Text47.Caption 操作按钮名称)，Text47.Caption是操作窗口的标题名的一个对象,选中标题右击选择动画，在对象名中就可以知道对象的名称。如图 然后选择