Question

VB做的系统中，窗体的登陆代码？

新建一个登陆对话框，怎么样使我在数据库里的口令表在这里起作用呢？
比如数据库里有一个口令表：
用户名 密码
0101 1188
0102 2233
0103 4422
该怎么样使登陆对话框只有在这用户名和密码都正确的情况下登陆系统？？
我就是不知道怎么写代码呀，最好详细点哟，我是菜鸟！

Answer 1

给你些思路吧。
1、先链接数据库，就是你的ACCESS里面的那张表
2、通过SQL语句查询，查询什么呢，就是通过用户名和密码差数据。
3、判断SQL语句执行后的信息，如果没有记录，就是说你数据库里没有当前的用户和密码，那就意味着你的用户名或者是密码输入错误。弹出对话框提示：“用户名，密码错误”，清空文本框重新输入。
4、如果数据库中有数据，那么说明你的密码帐号是对的，可以进去下一窗体。即打开下一窗体（form2.show）
密码登录界面制作完成！
难点：VB链接数据库（其实语句都是很固定的，建议你去看下）如果你搞不清楚这个，那写了代码你也调试不出来的。

Answer 2

可以先查找用户名，比如“0101”，然后再从密码的栏里找出密码来，再与数据库里的进行比对，就可以了。
大概是这样，好长时间不动VB了，具体的代码自己写吧！

Answer 3

操作数据库吧...
密码记得加密,这是基础问题,自己去查书吧...你既然都说自己是菜鸟了,干嘛搞这么复杂的东西,

Answer 4

在窗体中加入两个文本框,和一个DATA控件(Data1),一个按钮
1链接数据表
With Data1
.DatabaseName = App.Path & "\数据库的地址\数据库名.mdb"
.RecordSource = "select * from 表名"
.Refresh
End With
2.确认按钮控件的触发事件
On Error GoTo err
Dim str_user_name As String'用户名
Dim str_password As String'密码
With Data1.Recordset
str_user_name =text2.Text'从窗体中的控件文本框2取值
str_password = Text1.Text'从窗体中的控件文本框1取值
.MoveFirst
.FindFirst "用户名= '" & str_user_name & "' And 密码='" & str_password & "'"'如果是字符串要用单引号.
If Not .NoMatch Then '密码正确进入主界面
显示的窗体.Show
Unload Me
Else '没有此用户名，或密码错误
MsgBox "请确定你所输入的登入信息!", vbOKOnly, "对话框的标题名"
End If
End With
Exit Sub
err:
MsgBox err.Number & err.Description, vbOKOnly, "对话框的标题名"