操作记录实施精要.doc

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
操作记录实施精要

附件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配置完成点击测试,如果测试成功说明客户机与数据库连接正常。如果测试失败建议重新配置或者检查网络是否正常。如下图 三、操作记录实现 操作记录是通过获取按钮事件来实现的,只要按钮一有动作就被记录到历史库中,这种方法是最可靠的获取最准的。 如果某画面或者操作窗口有按钮操作要被记录。则实现方法如下 首先在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 oper

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档