我做了个VB登陆系统,但代码错误.请看看.错在哪里.急啊

来源：百度知道编辑：UC知道时间：2024/05/27 16:08:12

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"

系统没有Md5_String_Calc()这个函数，你也没有定义它的算法，当然是错的。

Print #2, Md5_String_Calc(Def) 里面中的 Md5_String_Calc( *) 是一个函数，因为你在整个过程里，都没有这个函数，当然会报错了!

我做了个VB登陆系统,但代码错误.请看看.错在哪里.急啊 VB做的系统中，窗体的登陆代码？我用VB做了一个小代码，是关于几天后是星期几的，但有个问题我用DW做了个简单的ASP登陆系统，但不会退出登陆！真差！急!!! VB + ACCESS 做个界面登陆系统? +++++++++急!!! VB + ACCESS 做个界面登陆系统++++++++++ 做了个VB系统在没装VB的机子上登陆界面弹的出来登陆进去后其他界面就弹不出来了 vb登陆代码帮我写个代码，登陆窗口的，用vb需要验证密码！谁是VB高手,我要简单VB登陆代码!急!