我们在设计应用软件时，总希望在进入软件主窗体之前，显示用户登录窗体，要求用户输入密码，当用户的密码得到验证后，即可进入软件应用环境。 用户登录密码的修改是指进入主窗体后，能够对登录密码进行修改，设置的新密码将成为下一次登录时用的密码，本文就谈谈如何在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 input as #1
do while 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
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
