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

来源：百度知道 编辑：UC知道 时间：2024/06/06 18:37:45
各位大侠，我是个新手！现在要写一个小程序，要求一个登陆系统，要调用数据库中的用户名和密码！而且还能添加新的用户。要有说明啊，控件最好不要改名字，顺便写出用到的控件和代码！谢谢拉！！！！如果能实现我会加分！不能的就不给了。

等我试编一下～

代码写好了，你留一下邮箱或者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 = &qu