- 1、本文档共15页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- 厦门东部三期垃圾焚烧发电厂项目环境影响报告书.pdf
- 2022火力发电厂化学系统智能化设计导则.docx
- MQY-202使用说明V1.2(增加CPA标志及使用说明).pdf VIP
- 国际课程课件系列之物理boardworks 5. Momentum v1.1.ppt
- 豫新船舶公司(原泥矶船厂)技术改造项目环评(新版环评)环境影响报告表.pdf
- 五年级下册综合实践活动课件-中国结——鞭炮结 全国通用 20张.pptx
- 企业风险防控清单.pdf
- 《风险管理》教案.docx
- 幼儿园保教设施设备配标准(2023版).doc
- INOVANCE汇川-中型PLC编程软件使用手册-AM400 AM600 AP700 AC700 AC800中文.pdf
文档评论(0)