Question

在Vb中用Access 2000 数据库创建登录窗口，有用户名和密码框，用Adodc控件实现登录，请看清补充内的条件！

库为Access2000，库名：员工情况表，表名：用户表，有字段UseName和password两个字段，表里有三条记录，看好是三条记录哟，而不是一条记录，在登录窗口中写出相应的用户名和密码，就可以跳到指定窗口中，例如，如果是用户登录的话就跳转到用户界面，如果是系统管理员的话就跳转到系统管理员的界面，如果是高级干部的话，就跳转到高级干部的界面中，因为本人纯属菜鸟等级，所以请大侠高手们帮着编编吧，本人不盛感激
我想要全的并可以运行的代码，不想要写了一半的那种，因为本人能力真的有限，看不明白，所以希望各位大侠给个全的代码，有注释是最好了，并且请不要提问一些什么看书呀的问题，如果我看了书就会的话，也不用上来提问，各位大侠你们说对不？？？所以请大侠们多多帮忙，小的不盛感激了！！！！

Answer 1

建议增加一个字段例如“权限”，权限=1为户界，权限=2为系统管理员，权限=3为高级干部。
数据库连接略！
strSQL = "Select * From 用户表 where UseName='" & Text1.text & "' and password='" & Text2.text & "'"
RS.Open strSQL, db, 2, 2
If not RS.EOF Then
If 权限=1Then
Unload Me
用户界面.Show
elseIf 权限=2Then
Unload Me
系统管理员的界面.Show
elseIf 权限=3Then
Unload Me
高级干部的界面.Show
end if
Else
Msgnox"用户名或密码错误！"
End If
RS.Close

追问

还是不太明白，本人太笨了，能给都说的清楚点吗？权限在哪儿加，怎么个意思？？？？

追答

RS数据表记录集对象
strSQL连接数据表的字符串，看上面语句
db连接数据库对象
2, 2打开数据表的方式

权限字段在你的“用户表”中增加，打开你的“用户表”的设计界面，增加即可，可以是数字，也可以是文本，如果是数字，按上面运行，如果是文本，将“If 权限=1Then”修改为“If 权限="用户" Then”等

Answer 2

数据库课程设计。。。

追问

嗯，老师给留的题目，请高手帮忙设计设计，并能运行了，本人不盛感激呀！！！

追答

这个，我们当时也做过，大部分都是从网上荡，然后做小小修改。。。

Answer 3

好好去看书，不要投机取巧。

追问

书中没有，有是的谁问呀！！！这属于课外的