创建一个VB程序,如何使程序能判断用户输入的用户名和密码是否正确?

我知道,当然可以创建数据库(比如ACCRSS数据库),把用户名和密码存储在数据库中,程序运行的时候,把用户的输入和数据库中的值进行比较就可以了。我想说的是除了创建数据库的... 我知道,当然可以创建数据库(比如ACCRSS数据库),把用户名和密码存储在数据库中,程序运行的时候,把用户的输入和数据库中的值进行比较就可以了。
我想说的是除了创建数据库的方法之外,还有没有其他方法呢,程序本身能不能具有这个功能呢?比如说通过某个变量来记忆用户名和密码的值。
请赐教。
呵呵,也许是我没有说的太清楚。
我的目的是“这个变量不仅要能记忆用户名和密码,而且用户还能在运行程序后更改密码,并且程序能保存修改后的密码,下次程序运行的时候就需要输入新密码”。这个怎么弄呢?
展开
 我来答
Oo苍雪oO
2007-12-24 · TA获得超过289个赞
知道小有建树答主
回答量:272
采纳率:0%
帮助的人:0
展开全部
我这个可以满足你,今天刚做的!
新建一个工程,放两个文本框,连个按钮。文本框记得清空。
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下,使设置按钮变亮,然后重置密码。要慢慢的点!
love_u365s
2007-12-21 · TA获得超过983个赞
知道小有建树答主
回答量:1269
采纳率:50%
帮助的人:0
展开全部
程序如果不借助外部文件是不可能保存更改的
因为程序运行时的变量都是保存在内存中的
当程序关闭后内存将释放
这些变量就没有值了
所以你的想法是不可行的
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
knowID
2007-12-20 · 超过11用户采纳过TA的回答
知道答主
回答量:53
采纳率:0%
帮助的人:0
展开全部
sub cmdChk_cilck()
if txtPass.text="你设置的正确的密码" then
msgbox "密码正确"
else
msgbox "密码不正确"

判断用户名同理
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
泠月冰辰
2007-12-20 · TA获得超过981个赞
知道小有建树答主
回答量:1149
采纳率:0%
帮助的人:814万
展开全部
程序一结束,变量占的内存就释放了,也就没法保存密码.
只有通过数据库,或者文件的方式,才能修改,保存密码.

呵呵.我新手,上面是我的拙见.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式