用VB实现用户登录密码的修改
用VB实现用户登录密码的修改
学习各种高级外挂制作技术,马上去百度搜索 "魔鬼作坊",点击第一个站进入,
快速成为做挂达人。
我们在设计应用软件时,总希望在进入软件主窗体之前,显示用户登录窗体,要求用户输入
密码,当用户的密码得到验证后,即可进入软件应用环境。用户登录密码的修改是指进入主
窗体后,能够对登录密码进行修改,设置的新密码将成为下一次登录时用的密码,本文就谈
谈如何在VB5.0中实现用户登录密码的修改。
一、实现原理
在 VB5.0中,文件共有三类:顺序文件;随机文件;二进制文件。顺序文件的主要用
途是存取...
用VB实现用户登录密码的修改
学习各种高级外挂制作技术,马上去百度搜索 "魔鬼作坊",点击第一个站进入,
快速成为做挂达人。
我们在设计应用软件时,总希望在进入软件主窗体之前,显示用户登录窗体,要求用户输入
密码,当用户的密码得到验证后,即可进入软件应用环境。用户登录密码的修改是指进入主
窗体后,能够对登录密码进行修改,设置的新密码将成为下一次登录时用的密码,本文就谈
谈如何在VB5.0中实现用户登录密码的修改。
一、实现原理
在 VB5.0中,文件共有三类:顺序文件;随机文件;二进制文件。顺序文件的主要用
途是存取文本文件,按照先后顺序进行存取数据,使用简单容易。要实现密码的修改设置,
可把密码保存在一顺序文件 config.txt中,然后对其进行打开、关闭、读写等操作。用户登
录时,先用Open语句打开 config.txt文件,用 Input #语句从该文件中读取密码。设置新密
码时,要求用户输入两次密码,进行确认,在确认这两次输入的密码一致后,用 Open语句
建立文件 config.txt,用 Print #语句将密码写入文件,就将用户新设置的密码存入指定的
config.txt文件中。
现将与文件操作的语句解释如下:
1.Open语句
打开顺序文件,模式为 Input时,
示将数据从磁盘上输入内存中;模式为Output时,
表示将数据从内存写入磁盘。
2.Close语句
关闭所有已打开的数据文件。
3.Input #语句
用于从顺序文件中读取数据。
4.Print #语句
把内存中的数写入顺序文件。
二、程序的实现
1.新建一个
,将窗体 Form1命名为 yhdl,该窗体是整个程序运行后首先出现在用户
面前的,用于用户登录,而且必须通过合法性的检查。将窗体的 ControlBox属性设为 False,
标题为 “用户登录 ”。在窗体中添加文本框 (Text1)用于用户输入密码,两个命令按钮
(Command1、Command2)的标题分别为:“确认”、“取消”,创建好的窗体如下图所示。用字
处理软件建立一文本文件 config.txt,将密码存 于该文件中,将该文件保存在新建工程所在
的目录。将文本框的 PasswordChar 属性设为*,程序代码如下:
Dim i As Integer ’用户登录程序
Dim passwordstr As String
Private Sub Command1_Click()
Open "config.txt" For InputAs #1
DoWhile Not EOF(1)
Input #1, passwordstr
Loop
Close #1
i = i + 1
If i < = 3 Then
If Text1.Text = passwordstr Then
’输入正确
Unload Me
ksxt.Show
’ksxt为笔者设计的考试系统窗体
Else ’输入错误
x = MsgBox("用户密码输入错误!请再输一次!", 17, "警告")
Text1.SetFocus
End If
Else
Unload Me ’输入次数超过三次,卸载窗体
End If
End Sub
Private Sub Command2_Click()
Unload Me ’按取消按钮,卸载登录窗体
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width)
/ 2, (Screen.Height - Me.Height) / 2
Show
Text1.SetFocus
i = 0 ’输入次数初始化
End Sub
2 .在工程 1中,添加笔者设计的考试系统窗体 ksxt,有一密码设置 子菜单,名为 szmm
Private Sub szmm_Click()
mmsz.show ’单击 mmsz 菜单项显示密码设置窗体
End Sub
3 .在工程 1中,添加窗体 Form2,命名为mmsz,标题为“密码设置”,当用户需要更改
密码时,可以在程序中调用此窗体。这个窗体需要正确接收用户输入的密码,并且将两次输
入的密码进行比较,当符合要求时将密码存入 config.txt文件中。在窗体中添加文本框(text1)
用于用户输入密码,添加文本框(text2)用于用户对输入的密码进行确认,,两个命令按钮
(Command1、Command2)的标题分别为:“确认”、“取消”,创建好的窗体如下图所示。将两
个文本框的 PasswordChar 属性都设为*,程序代码如下:
Private Sub Command1_Click() ’密码设置程序
If Text1.Text = Text2.Text Then
’确认两次输入密码是否一致
passwordstr = "text2.text"
Open "config.txt" For Output As #1
Print #1, Text1.Text
Close #1
Unload Me
Else
x = MsgBox("密码输入错误!请重新输入!", 17, "警告")
Text2.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width)
/ 2, (Screen.Height - Me.Height) / 2
Show
Text1.SetFocus
End Sub
本文档为【用VB实现用户登录密码的修改】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。