创建一个VB程序,如何使程序能判断用户输入的用户名和密码是否正确?
我知道,当然可以创建数据库(比如ACCRSS数据库),把用户名和密码存储在数据库中,程序运行的时候,把用户的输入和数据库中的值进行比较就可以了。我想说的是除了创建数据库的...
我知道,当然可以创建数据库(比如ACCRSS数据库),把用户名和密码存储在数据库中,程序运行的时候,把用户的输入和数据库中的值进行比较就可以了。
我想说的是除了创建数据库的方法之外,还有没有其他方法呢,程序本身能不能具有这个功能呢?比如说通过某个变量来记忆用户名和密码的值。
请赐教。
呵呵,也许是我没有说的太清楚。
我的目的是“这个变量不仅要能记忆用户名和密码,而且用户还能在运行程序后更改密码,并且程序能保存修改后的密码,下次程序运行的时候就需要输入新密码”。这个怎么弄呢? 展开
我想说的是除了创建数据库的方法之外,还有没有其他方法呢,程序本身能不能具有这个功能呢?比如说通过某个变量来记忆用户名和密码的值。
请赐教。
呵呵,也许是我没有说的太清楚。
我的目的是“这个变量不仅要能记忆用户名和密码,而且用户还能在运行程序后更改密码,并且程序能保存修改后的密码,下次程序运行的时候就需要输入新密码”。这个怎么弄呢? 展开
4个回答
展开全部
我这个可以满足你,今天刚做的!
新建一个工程,放两个文本框,连个按钮。文本框记得清空。
Dim PassWord As String
Dim strYorN As String
Dim i As Integer
Private Sub Command1_Click()
Call SaveSetting(App.Title, Text1.Name, "text", Text1.Text)
Call SaveSetting(App.Title, Command1.Name, "Enabled", "False")
End Sub
Private Sub Command2_Click()
PassWord = GetSetting(App.Title, Text1.Name, "text")
If Text1.Text = PassWord Then
Form2.Show
Else
MsgBox "密码错误,请重新设置"
End If
End Sub
Private Sub Form_Click()
i = i + 1
If i Mod 20 = 0 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Form_Load()
strYorN = GetSetting(App.Title, Command1.Name, "Enabled")
Command1.Enabled = strYN
Text1.PasswordChar = "*"
Text2.PasswordChar = "*"
Command1.Caption = "密码设置"
Command2.Caption = "进入系统"
End Sub
Private Sub Text2_LostFocus()
If Text2.Text = Text1.Text Then
Exit Sub
Else
MsgBox "两次输入的密码不一致"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
End Sub
如果下次登录的时候忘记密码,可以点击窗口20下,使设置按钮变亮,然后重置密码。要慢慢的点!
新建一个工程,放两个文本框,连个按钮。文本框记得清空。
Dim PassWord As String
Dim strYorN As String
Dim i As Integer
Private Sub Command1_Click()
Call SaveSetting(App.Title, Text1.Name, "text", Text1.Text)
Call SaveSetting(App.Title, Command1.Name, "Enabled", "False")
End Sub
Private Sub Command2_Click()
PassWord = GetSetting(App.Title, Text1.Name, "text")
If Text1.Text = PassWord Then
Form2.Show
Else
MsgBox "密码错误,请重新设置"
End If
End Sub
Private Sub Form_Click()
i = i + 1
If i Mod 20 = 0 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Form_Load()
strYorN = GetSetting(App.Title, Command1.Name, "Enabled")
Command1.Enabled = strYN
Text1.PasswordChar = "*"
Text2.PasswordChar = "*"
Command1.Caption = "密码设置"
Command2.Caption = "进入系统"
End Sub
Private Sub Text2_LostFocus()
If Text2.Text = Text1.Text Then
Exit Sub
Else
MsgBox "两次输入的密码不一致"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End If
End Sub
如果下次登录的时候忘记密码,可以点击窗口20下,使设置按钮变亮,然后重置密码。要慢慢的点!
展开全部
程序如果不借助外部文件是不可能保存更改的
因为程序运行时的变量都是保存在内存中的
当程序关闭后内存将释放
这些变量就没有值了
所以你的想法是不可行的
因为程序运行时的变量都是保存在内存中的
当程序关闭后内存将释放
这些变量就没有值了
所以你的想法是不可行的
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
sub cmdChk_cilck()
if txtPass.text="你设置的正确的密码" then
msgbox "密码正确"
else
msgbox "密码不正确"
判断用户名同理
if txtPass.text="你设置的正确的密码" then
msgbox "密码正确"
else
msgbox "密码不正确"
判断用户名同理
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
程序一结束,变量占的内存就释放了,也就没法保存密码.
只有通过数据库,或者文件的方式,才能修改,保存密码.
呵呵.我新手,上面是我的拙见.
只有通过数据库,或者文件的方式,才能修改,保存密码.
呵呵.我新手,上面是我的拙见.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询