《ACCESS有权限登要求的录窗口集锦》由会员分享，可在线阅读，更多相关《ACCESS有权限登要求的录窗口集锦（19页珍藏版）》请在金锄头文库上搜索。
1、ACCESS 登录权限 1我做了一个 access 的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限， 2011-06-21 11:26 昏睡的猫 1 号 | 分类： 数据库 DB | 浏览 621 次我做了一个 access 的登录窗体，在加入代码后能够成功的登录，但是不能控制数据库权限，也就是说我那个登录窗体即使不用密码登录也可以关闭和打开数据库，求不能够区分管理员和用户，两者都可以修改数据库，这是我的代码Private Sub cmdYes_Click()On Error GoTo erIf IIf(IsNull(Me.用户名), , Me.用户名) = Or IIf(Is
2、Null(Me.密码), , Me.密码) = ThenMsgBox 请输入用户名和密码！ , vbInformation, 登录Me.用户名.SetFocusExit SubEnd IfDim rst As New ADODB.Recordsetrst.Open select 用户名 from 用户 where 用户名= & Me.用户名 & and 密码= & Me.密码 & , CurrentProject.AccessConnection, adOpenForwardOnly, adLockReadOnlyIf rst.EOF ThenMsgBox 用户名或密码错误，请重新输入！ ,
3、vbCritical, 登录Me.用户名.SetFocusElse记录登录用户名和登录时间Dim rstInsert As New ADODB.RecordsetrstInsert.Open 登陆日志, CurrentProject.Connection, adOpenDynamic, adLockOptimisticWith rstInsert.AddNew !用户名 = Me.用户名.UpdateEnd WithrstInsert.CloseSet rstInsert = NothingDoCmd.CloseEnd Ifrst.CloseSet rst = NothingExit_cmdY
4、es_Click:Exit Suber:MsgBox Err.DescriptionResume Exit_cmdYes_Click上面字打错了，是不能狗区分管理员和用户的权限，而且即使是我不用窗体登录也可随便修改数据库，要入何修改才可以分清管理员权限而且如果不用密码登录就不能打开数据库啊，我的 qq 是692153207，求高手解答，万分感激。建议：可使用微信的“扫一扫 ”功能扫描下载分享到： 2011-06-21 11:36 提问者采纳 那是你代码写的问题,登陆和权限没有关系,access 的权限不强 ,只能这样控制了, 你要做的是判断提交过来的资料是否可以被当前用户处理,不能就直接结束程
5、序或者是跳过就好了追问如何判断提交过来的资料是否可以被当前用户处理,不能就直接结束程序或者是跳过就好了 ，登录窗体可以识别是不是用户登录，但问题在于，即使我没有登录，程序也不会结束，我仍然可以继续编辑数据库，这样登录窗体就失去意义了，关键是如何直接结束在登录密码错误的情况下，谢谢！回答整个判断啊.判断是不是已经登陆就好了,登陆成功,将数据记录到 session 里面,你们老师没有说过吗?判断可不可以操作,就在用户表里面加个权限字段,表示是不是管理员啊,然后, 操作的时候,检查下是不是权限足够了,就可以了啊提问者评价谢谢！老师没讲过，是说过用安全向导做，再加上我上课没听，下来都是自己自学的，很多
6、都不懂，不过谢谢！评论 | 00ACCESS 登录窗口 2关于 access 登录窗口代码！ 2010-01-03 01:48 bradcheng | 分类： 数据库 DB | 浏览 2704 次Private Sub login_ok_Click()Dim userID As IntegerIf IsNull(Me.Com 用户) = False ThenIf DLookup(密码, 系统用户, 用户名= & Com 用户 & ) = Me.txt 密码 ThenuserID = DLookup(id, 系统用户, 用户名= & Com 用户 & )DoCmd.CloseDoCmd.Open
7、Form 主窗口Form -主窗口 .User = userIDElsetxt 密码 = txt 密码.SetFocusMsgBox 密码错误 !, vbCriticalEnd IfEnd IfEnd Sub请问这段代码哪儿有问题？点“确定”就是没反应。新手！谢谢高手了！分享到： 2010-01-03 07:36 提问者采纳 程序比较乱，说 access 登录窗口，但没有发现连接数据库的关键语句。很多不知道是控件还是其他，其实 access 登录窗口是特别简单的，只要使用文本框中的数据和数据库的数据进行对比即可。给你代码参考：Private Sub Command1_Click()登录确认Di
8、m sqldl As StringIf Text1.Text = Or Text2.Text = ThenMsgBox 没有输入用户名或用户密码,请输入!, 16, 警告！ Text1.SetFocusText2.Text = Exit SubEnd Ifdb.ConnectionString = DRIVER=Microsoft Access Driver (*.mdb);dbQ= & App.Path & 数据库名.mdbdb.OpenstrSQL = select * from 登录表 where 名称= & Text1.Text & RS.Open strSQL, db, 3, 3If
9、 RS.EOF = True ThenMsgBox 没有这个用户 ,请重新输入用户名 !, 16, 警告Text1.SetFocusText1.Text = Text2.Text = RS.CloseSet RS = Nothingdb.CloseExit SubEnd IfIf RS(密码 ) 0 ThenV.Enabled = TrueElseV.Enabled = FalseEnd IfEnd IfNext评论 | 00anankid | 来自团队 电脑 DIY | 十级 采纳率 45% 擅长： VB 图像处理软件 办公软件 医疗健康 其他类似问题 2012-04-07 VB+acces
10、s 设置登陆权限问题 4 2012-04-09 vb+access 分权限 1 2009-11-15 vb+access权限相关 2010-10-14 怎么用 VB 和 access 做一个登陆界面 分用户权限 7 更多相关问题 按默认排序 | 按时间排序 其他 1 条回答2012-03-26 16:30 李一是天才 | 三级 vb2008 做的： userpri = ComboBox1.Text.ToString.Trimusername = TextBox1.Text.ToString.Trimpassword = TextBox2.Text.ToString.TrimDim n As I
11、nteger = judgeVege()If (username = And password = ) ThenMessageBox.Show(用户名密码不能为空!) ElseIf (userpri = 操作员) ThenIf n = 1 ThenForm1.Show()ElseMessageBox.Show(用户名或密码错误)End IfElseIf (userpri = 管理员) ThenIf n = 1 ThenManager.Show()ElseMessageBox.Show(用户名或密码错误)End IfEnd IfEnd IfTextBox1.Text = TextBox2.Tex
12、t = ACCESS 登录窗口 ADO 版ADO(ACTIVEX DATA OBJECTS)应用层的数据访问接口 ODBC 数据库驱动接口 OLE DB 系统级数据访问接口 DAO (DATA ACCESS OBJECTS) 对象的数据访问接口 ADO 是基于全新的 OLE DB 技术而设计的.是一种基于应用程序层的数据访问接口.它是 DAO/RDO的后继产物. DAO 是 VB 最先采用的面向对象的数据访问接口,通过 DAO 访问 MICROSOFT JET 数据库引擎. ADODC 是封装 ADO 的 VB 数据控件,可减少代码编写. ADODB 是数据对象,操作数据库需通过编写代码 来实
13、现. 以上简单说明仅供参考.想用 VB 做一个登陆界面如何和 access 相连接？ 2009-10-25 09:02 panweikl | 分类： 数据库 DB | 浏览 2948 次想用 VB 做一个管理系统的登陆界面，如何和 access 相连接？请回答具体一点？我是新手，我想看看每步的详细步骤。不要别处复制的。现在已经有一个 access 数据库，并且有一个数据表，表内有两个属性：Username 和 Password。分享到： 2009-10-25 20:34 提问者采纳 1、首先在部件-控件里找到 Microsoft ADO DataControl 6.0，打勾，然后在窗体上添加
14、Adodc1。2. 添加两个文本输入框 text1,text2，分别用来接收用户输入用户名和密码。 3、在 Adodc1 控件的属性窗口中单击 Connectionstring 右侧的按钮，打开 ADO 的属性页，选择“使用连接字符串”，单击“ 生成 ”按钮，打开数据链接属性对话框，在“提供程序” 页中选择 Microsoft Jet 4.0 OLE DB Provider，单击“下一步”，在“连接”页中，输入数据库名称 XXXX.mdb（前提是将数据库文件和工程文件保存在同一目录下），单击“测试连接 ”，如果连接成功，单击“确定” 即可。4、将以下代码添加到登录按钮：Private Sub
15、Command1_Click()Adodc1.RecordSource = select * from 数据表名称 where username= & Text1.Text & Adodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox 没有这个用户，请重新输入正确的用户名, , 错误提示ElseIf Text2.Text = Adodc1.Recordset.Fields(password) ThenMsgBox 登录成功！, , 错误提示 ElseMsgBox 你的密码错误,请输入正确的用户密码！, , 错误提示End IfEnd IfEnd Sub提问者评价你给的解决方案比较简便易行。谢谢！评论(1) | 362其他 2 条回答2009-10-25 10:17 gavinfanlove | 五级 1. 利用 Adodc 控件来实现，首先在部件-控件里找到 Microsoft ADO DataControl 6.0，打勾，然后在窗体上添加 Adodc，设置 visible 为 false。2. 添加 textbox 两个，text1,text2 (将 text2 的 PasswordChar 属性值设置为*)3. 添加 botton 一个， command1Private Sub Form_Lo
