Question

vb登陆界面 要调用数据库中的用户名和密码！

各位大侠，我是个新手！现在要写一个小程序，要求一个登陆系统，要调用数据库中的用户名和密码！而且还能添加新的用户。要有说明啊，控件最好不要改名字，顺便写出用到的控件和代码！谢谢拉！！！！如果能实现我会加分！不能的就不给了。

若以下回答无法解决问题，邀请你更新回答

Answer 1

等我试编一下～

代码写好了，你留一下邮箱或者QQ，我给你传过去！
下面是窗体部分的代码，也就是我编写的部分代码。
模块部分代码是在网上找的，加密用的。比较长，就不在这写了。

Dim Dat As String '储存整个密文
Dim Def As String '默认用户
Dim Num As Integer '储存用户个数

Private Sub Command1_Click() '登陆
For I = 1 To Len(Dat) '确定循环长度为数据库中密文的总长度
If Md5_String_Calc("-" & Text1.Text & "*" & Text2.Text) = Mid(Dat, I, 32) Then '把用户名和密码用MD5加密后和数据库种的密文比较
MsgBox "登陆成功！", vbInformation
Frame1.Visible = True '打开添加用户系统
Call Chenggong '执行登陆成功后的代码
Text1.Text = ""
Text2.Text = ""
Exit Sub
Else
I = I + 31 'MD5的密文是32个字母组成的字符串，所以每次循环比较32个字符
End If
Next I
MsgBox "输入错误，请重试", 16
End Sub

Private Sub Command2_Click() '添加用户
Dim Pr As String
If Text3.Text = "" Or Text4.Text = "" Then MsgBox "请输入完整", 16: Exit Sub
Pr = "-" & Text3.Text & "*" & Text4.Text '用Pr暂时放将要添加的用户名和密码
Open App.Path & "/date.dat" For Append As #3
Print #3, Md5_String_Calc(Pr) '写入数据库，并用MD5加密
MsgBox "添加成功", vbInformation
Close #3
Text3.Text = ""
Text4.Text = ""
Text3.SetFocus
Dat = Dat & Md5_String_Calc(Pr) '总密文加新添加的用户密文
Num = Num + 1 '用户个数加1
Label5.Caption = "共有" & Num & "个用户"
End Sub

Private Sub form_Load()
On Error GoTo 1
Dim Da As String
Open App.Path & "\date.dat" For Input As #1 '打开数据库，如果当前目录没有数据库文件则跳转到1
Do Until EOF(1) '打开文件，这里就不用过多解释了吧～
Input #1, Da
Dat = Dat & Da
Num = Num + 1
Loop
Close
Label5.Caption = "共有" & Num & "个用户"
Exit Sub

1 '如果没有数据库文件就跳转到这里
Da = InputBox("请输入默认的用户名", "初始化")
db = InputBox("请输入默用户密码认密码", "初始化")
Def = "-" & Da & "*" & db
Open App.Path & "\date.dat" For Output As #2 '建立空数据库文件
Print #2, Md5_String_Calc(Def) '写入MD5加密算法保存加密后的默认用户名和密码
Close
Label5.Caption = "共有1个用户"
End Sub

Sub Chenggong()
'在这里加上登陆后的代码
End Sub

Answer 2

好~