来源：《才智》2009年第24期 作者：陈卓尔;
用VBA实现Access2003数据库的用户权限管理和网络访问
引言在专业的数据库软件开发中,为了确保数据库中信息的安全,往往要求对使用数据库的用户设置不同的权限和访问密码,以防止未经系统管理员授权的用户访问和修改重要数据。而Access数据库作为一个文件型的小型数据库,本身并没有设置用户权限的功能。在Access的表中,不同的用户可以对一个表的任何记录作访问和修改,为了在Access中实现A用户新建的记录只允许A用户修改,B用户对A用户建立的记录只能读不能写这个功能,我们可以使用VBA对Access数据库进行编程,完成权限设置这个功能。本文通过对一个在windows局域网中使用的Access数据库应用系统的分析,详细介绍如何使用VBA语言实现Access数据库记录级的读写权限设置。1系统设计由于采用单一的Access数据库无法实现对数据的权限分级保护,因此系统采用C/S模式。放在服务器端的Access文件是存储着所有数据的主数据库Db1.mdb,这个Access文件使用密码加密,密码设定为123456。而Access文件User1是作为访问存储着所有数据的db1.mdb数据库的客户端使用,放在用局域网相连的各个客户机......(本文共计1页)
相关文章推荐
《数据采集与处理》2002年04期
《计算机与农业.综合版》2003年03期
《华北水利水电学院学报》2005年04期
《煤矿机械》2008年11期
《福建电脑》2010年12期
《计算机应用研究》2003年10期
《计算机光盘软件与应用》2012年02期
《计算机工程与应用》2003年01期
《安徽农业科学》2012年20期
《青岛远洋船员学院学报》2002年04期
《中文信息》2002年09期
《计算机技术与发展》2012年03期
《网络安全技术与应用》2007年07期
《计算机应用》2005年05期
《计算机应用》2000年11期
《安徽电子信息职业技术学院学报》2006年01期
《大庆石油学院学报》2000年01期
《微机发展》2002年04期
《福建电脑》2007年11期
主办：中国吉林高新技术人才市场
出版：才智杂志编辑部
出版周期：旬刊
出版地：吉林省长春市
数字出版：《中国学术期刊（光盘版）》电子杂志社有限公司
地址：北京清华大学 84-48信箱 大众知识服务
京ICP证040431号
服务咨询：400-810-9-9993
订购咨询：400-819-9993
传真：010-
京公网安备60号最新资料 &&&& &&&&&&&&&&&&&&&& &&&&&&&&
学习资料库，由广大资源爱好者通过共享互助而共享各种学习资料，大家可以免费下载学习使用，但学习资料库无法保证所共享
& 版权所有 Gzip enabled2被浏览333分享邀请回答0添加评论分享收藏感谢收起写回答軟件和應用程序軟件為你註冊碼我們幫你更多的好處關於我們
- 条码软件
- 条码软件 - SAP
- 标签软件
- 报告软件
- 数据采集
- 移动数据采集
- 免费工具
- Barcode Studio
- TBarCode Office
- TBarCode SDK
- TBarCode/X
- TBarCode/SAPwin
- TBarCode/Embedded
- 数据收集
- 移动数据采集
- 免费软件
- 在线订单
- 常见问题
- 许可条件 (PDF)
- 常见问题
- 基础知识
- 其它链接
- SAP 咨询
- 软件开发
- 网络解决方案
- 培训课程
- 联系方式
- 推荐单位
- 联合企业
- 合作伙伴
- 连接到 TEC-IT
- 工作机会
- 具体详情
使用 条码软件组件 TBarCode SDK，您可以在 Microsoft(R) Office 中快速且简便地创建各种 。无需编程技巧。只需点击几下鼠标便可集成与 office 应用程序中，如：Microsoft Excel(R), Word and Access(TM)！如果需要，高级条形码宏可以使用VBA编程实现。
Microsoft Word 和 Excel , 2013 和 2016 的用户，我们建议您添加便于使用的条码插件 ！
适用于 Office 的条码软件
TBarCode SDK 包含一个 Barcode ActiveX 控件它可以很容易地用于 Microsoft Office 应用程序中：
Microsoft InfoPath(R)
以及其它 Office 程序 (Microsoft Visio(R), Microsoft PowerPoint(R), ...)
在 Microsoft Office 中使用条码 ActiveX 控件，无需编程知识。只需点击几下鼠标便可将条码嵌入于您的文档中。如有需要， 是无限制的。
通过 TBarCode SDK 生成的条码用 任何打印机 都可以打印输出。条码通过软件将以尽可能高的输出品质被生成。无需扩展特殊打印机或条码字符！
如何在 Microsoft(R) Office 中工作的呢？
查看以下示例是如何将条码嵌入在您的 Microsoft Office 应用程序中。
现在就来体验一下 TBarCode SDK 吧！ 点击此处
在 Microsoft Word 中生成和打印条码
Microsoft Word 2007 之前的版本
只需在菜单中选择 TBarCode SDK 控制元素 (ActiveX(R) 控件) 以及 插入对象。Microsoft Word 文档中立即显示条形码。 在 Word 2007 中单击 “Developer” 功能区中的“插入控件”按钮。
更多详情，请观看我们的 ！
Microsoft Word ,
请您使用具有
。此插件明显简化了条码插入以及序列信件 的设置。
更多信息，请访问我们的 !
在 Microsoft Excel 中创建和打印条码
Microsoft Excel 2007 之前的版本！
从菜单中选择 插入对象 并选择 TBarCode SDK (ActiveX(R) 控件元素)。一个条码即刻出现在您的 Excel 工作表格中。 在Excel 2007中，单击“开发人员”功能区中的 “Developer ribbon” 按钮。
没有一行程序代码，您可以使用自己的数据打印条形码! TBarCode SDK 支持条码控件将数据绑定自动耦合至您工作表中的指定单元格。另外，您可以将所有被呈现的数据作为条码直接在 TBarCode SDK 中输入。
更多详情，请观看我们的 ！
Microsoft Excel ,
。此插件能让您更快更方便地创建 单个条码 和 条码清单或条码列表。
更多信息，请访问我们的 !
在 Microsoft Access 中生成和打印条形码
只需从菜单中选择 插入对象 并选择 TBarCode SDK (ActiveX(R) 控制元件)。在您的 Microsoft Access 报表中会立即显示条形码。任何字段和任何打印输出都可以打印成条形码。
无需编写一行程序代码，您可以使用自己的报告数据打印条形码！TBarCode SDK 支持条形码控件的数据绑定到报表数据字段或表单数据字段。此外，您可以直接将所有要编码的字符输入到 TBarCode SDK 中。
更多信息：
条形码参数的简单配置
一个简单的右键点击条形码对象打开属性页面，它显示了清晰概述中的所有条形码参数。
轻松调整所有参数，如条码类型，字体特征，模块宽度（X 尺寸），校验位计算（以及更多）。
每个 2D 符号 ( 如 PDF417, Data Matrix, QRCode, ...) 有额外的配置对话框与特定的条形码选项。
1D License
1D 版我们提供四种不同的许可证。 一维许可证只支持线性条码 (Code128, Code39, 2of5, EAN128...)。
SingleEUR 841D-条码Single LicenseSiteEUR 2701D-条码Site LicenseDeveloperEUR 6251D-条码RedistributionWebEUR 6251D-条码Server License
2D License
2D 版我们提供四种不同的许可证。 2D 许可证支持所有条码 (一线条码, 二维条码, GS1 DataBar 堆积和 复合码...)。 请注意: 2D 许可证包括 1D 许可证。
SingleEUR 1681D- 和2D-条码Single LicenseSiteEUR 5401D- 和2D-条码Site LicenseDeveloperEUR 12501D- 和2D-条码RedistributionWebEUR 12501D- 和2D-条码Server License
Enhancements/Bug Fixes
New Barcode Type: Royal Mail 4-State Mailmark(TM)
The Royal Mail 4-State Mailmark(TM) is used for identifying post items.
New Check Digit Method
Added the new ISO 7064 modulus 37,2 check digit method, which is used by the ISBT-128 standard.
TBarCode.OCX - Font Size
Implemented a workaround for a sizing bug in Microsoft Word and Microsoft Excel.
TBarCode.OCX - Composite Component
Fixed the property IsCCPresent which informs about the presence of a composite component.
The latest version contains several minor bug fixes and stability improvements.
Enhancements/Bug Fixes
DotCode: New Size Mode
The user may now specify the number of columns and rows together (fixed size).
DotCode: Choose Preferred Codeset
The user can now choose the preferred codeset for encoding a DotCode symbol. This can be done via option string.
VIN Checkit Digit
The check digit calculation for the VIN code was fixed.
更多信息，请访问我们 !
Stamptech Inc.TBarCode OCX 就是我需要的! 我公司最近需要开始 在我们的一个客户的出货上加条形码。 我现在可以将条形码整合到我写的 VB 数据库程序中，允许我使用已经包含的数据。到现在我用它只用了几天，但可以说你的产品是坚实的。 作得非常好！ 这肯定会使工作的一部分更容易!
TEC-IT 消息查看: 5892|回复: 10
VBA做的登录窗口，目前用户名密码放在Excel中，如何将用户名密码放在Access中
阅读权限20
在线时间 小时
& && &现在有一个VBA登录窗口，目前用户名及密码、登录日志均放在工作表中，如果将用户名及密码、登录日志均放到Access中，如何写这个代码，请各位高手帮忙！！！谢谢啦！！！
00:05 上传
点击文件名下载附件
124.56 KB, 下载次数: 442
阅读权限30
在线时间 小时
录入密码后来个查询，对则继续，不退就退出。在ACCESS中建一个表
有两列即可
阅读权限20
在线时间 小时
本帖最后由 longzhu0623 于
11:08 编辑
青见 发表于
录入密码后来个查询，对则继续，不退就退出。在ACCESS中建一个表
有两列即可
首先感谢您的回复！我是一个初学者，给我代码我大概可以看得明白且可以做一些简单的修改，但还不会写，况且还涉及到一个用户管理权限的问题；另外还有一个问题，之前做的一个单独登录窗口，输入完后可直接回车切换到下一个输入框，但改成多页控件后回车键就用不了，只能用TAB键切换，请问如何解决？
阅读权限20
在线时间 小时
此帖难道就这么沉了，请大家帮帮忙吧，先谢过各位啦！
阅读权限30
在线时间 小时
本帖最后由 青见 于
16:42 编辑
Private Sub CommandButton9_Click()
'On Error Resume Next
If 仓库入库.Value = True Or 合同登记.Value = True Then
工号表.jpg (59.7 KB, 下载次数: 36)
16:41 上传
Sub 登陆()
'On Error Resume Next
If 仓库入库.Value = True Or 合同登记.Value = True Then
If GH.Value = && Then MsgBox &请录入操作员工号.&, 0 + 64, &ERROR~&: GH.SetFocus: Exit Sub
If MM.Value = && Then MsgBox &请录入操作员密码.&, 0 + 64, &ERROR~&: MM.SetFocus: Exit Sub
数据库连接
SQL = &SELECT 密码,姓名,状态 FROM [工号表] WHERE 工号='& & GH & &'&
RST.Open SQL, cnn, adOpenKeyset
'If RST.Fields(&状态&) = True Then MsgBox GH & &已登陆!&, 0 + 64, &ERROR~&: CNN.Close: Set CNN = Nothing: Set RST = Nothing: GH.SetFocus: Exit Sub
If RST.Fields(&密码&) && MM.Value&&Then
MsgBox &密码错误,请重新输入.&, 0 + 64, &ERROR~&
Set cnn = Nothing
Set RST = Nothing
MM.Value = &&
MM.SetFocus
& && &cnn.Close
& &Set RST = Nothing
GH.Enabled = False
CommandButton9.Enabled = True
CommandButton5.Enabled = True
CommandButton7.Enabled = True
CommandButton8.Enabled = True
供应.Enabled = True
供应.Value = True
名称.Enabled = True
合同.Enabled = True
仓库入库.Enabled = False
合同登记.Enabled = False
CommandButton9.Enabled = False
数据库连接‘ 生成日志
SQL = &INSERT INTO [操作日志](USE,DAT,DES) VALUES('& & GH & &','& & Now & &','& & &登陆系统& & &')&
cnn.Execute SQL
Set RST = Nothing
MsgBox &请选择登陆选项.&, 0 + 64, &ERROR~&: Exit Sub
时间关系，把我的部分没有很好修改，你自己参考吧
(59.7 KB, 下载次数: 45)
16:35 上传
阅读权限20
在线时间 小时
青见 发表于
Private Sub CommandButton9_Click()
'On Error Resume Next
If 仓库入库.Value = True Or 合同登记.Valu ...
非常感谢“青见”，在您的帮助下，问题已经解决。现在有1个新的问题，不知能否帮忙解决？
1、保存登录日志已经解决，但如何在退出系统的时保存退出系统日志到数据库的“登录日志信息”表中？
数据库格式为如下：
登录用户名& && && & 登录系统时间& && && && && & 退出系统时间
Admin& && && && && &&& 13:00:00& && && && && & ？（待解决）
张三& && && && && && &
14:00:00& && && && && & ？（待解决）
我写的问题代码如下：
'不保存当前工作薄直接退出
Private Sub Workbook_BeforeClose(Cancel As Boolean)
& & Dim i As Integer
& & Dim sql As String
& & Dim rsx As ADODB.Recordset
& & '建立与数据库的连接
& & With cnn
& && &&&.ConnectionString = &Provider=microsoft.jet.oledb.4.0;& _
& && &&&& &Data Source=& & ThisWorkbook.Path & &\备件管理数据库.& _
& && &&&& &Jet Oledb:database password=&
& && &&&.Open
& & End With
& & '退出时保存日志到数据库中
& & sql = &insert&&into 登录日志信息 (登录用户名,退出系统时间) values ('& & 登录用户.用户名 & &','& & Now & &')&
& & Set rs = New ADODB.Recordset
& & rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
& & cnn.Close
& & Set cnn = Nothing
'原为保存到工作表中
'& &Sheets(&登录日志&).Unprotect Password:=p& && && && && && && && && && && && && && &&&'解锁登录日志工作表
'& &Sheets(&登录日志&).Cells(Sheets(&登录日志&).[C65536].End(xlUp).Row + 1, 3) = Now()&&'记录当前用户退出系统时间
'& &ThisWorkbook.Save& && && && && && && && && && && && && && && && && && && && && && & '保存记录
& &Application.DisplayAlerts = False
& &Application.ThisWorkbook.Close
阅读权限30
在线时间 小时
& & & & & & & &
本帖最后由 青见 于
14:30 编辑
SQL = &INSERT INTO [操作日志](USE,DAT,DES) VALUES('& & GH & &','& & Now & &','& & &登陆系统& & &')&
数据库格式改为如下：
用户名& && && && && && &日期与时间& && && && && && && && && && & 操作记录
Admin& && && && && &&& 13:00:00& && && && && & 登陆系统
Admin& && && && && &&& 13:25:00& && && && && & 查询****记录
Admin& && && && && &&& 13:35:00& && && && && & 修改****记录
Admin& && && && && &&& 13:45:00& && && && && & 删除****记录
Admin& && && && && &&& 14:00:00& && && && && & 退出系统
只需把记录日志写到每个执行操作代码的后边就行了，同时把&&“登陆系统”这个几个字修改为操作任务，如：查询、保存、删除、修改等
阅读权限20
在线时间 小时
青见 发表于
SQL = &INSERT INTO [操作日志](USE,DAT,DES) VALUES('& & GH & &','& & Now & &','& & &登陆系统& & &')&
您的这个思路不光帮我解决了这个问题，还得到了很好的扩展，真的太感谢了！谢谢！！！
另外，请您有空的时候帮我看一下这个问题：详见我之前发的帖了（）
阅读权限20
在线时间 小时
自己搞掂啦，谢谢各位的关注！！！
阅读权限20
在线时间 小时
你好！能教教我，用Excel做一个登录界面，不同用户登录，不同密码，管理不同的单个表格。我没有学过VB，以前没有接触过
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}