用VB编写登录程序
编程——华佾搜集整理 ———————————————————————————————————————————
用VB编写登录程序
? 王海燕
我们在使用许多软件时都遇到过这样的情况,当你运行它时,通常需要用户输入一个用户名和密码才能进入,其实我们在编制自己的软件时,也完全可以自己设计一个必须输入密码才能登录运行的程序。现将登录程序的编写过程介绍如下。
一、建立窗体
首先,打开"VB6.0",出现"新建工程"对话框,选择"标准EXE"单击"打开"即可新建一个工程。新建一个工程后,VB自动生成了一个窗体,其默认的名称是Form1,且显示的标题也是Form1,显然与我们要编写的程序不符。我们可以更改这些设置,方法是点击Form1窗体,在右边的属性窗口中的"名称"后输入"Denglu"(在后面讲的Denglu就是指的这个窗体),在"Caption"后输入"登录窗口"。窗体设置好后,我们便可以将控件放置到这个窗体中去了。
二、加入控件
"登录窗口"中主要用到的是TextBox(文本框)控件,该控件主要是用于接收用户输入的文字并显示出来。在该程序中我们便可以使用TextBox控件接收用户输入的信息来判断是否是合法的用户。另外,我们还将用到Label(标签)控件及CommandButton(命令按钮)控件。Label控件用来显示"用户名"及"密码"标题;CommandButton控件用来设计"确定"及"取消"按钮。下面我们将这些控件放置到窗体中,在工具箱中选择"Label"控件,在窗体中拖动鼠标直到一定的大小,然后在属性窗口中的"Caption"属性后输入"用户名",然后在其下方再拖动一个Label控件,将Caption的值改为"密码:";在工具箱中选择"TextBox"控件,在"用户名"后拖动一个TextBox控件,用同样的方法在"密码:"后拖动一个TextBox控件,然后在"属性窗口"中将Text的值改为空(即删除默认的Text1),为了不显示出用户输入的密码,我们将第二个TextBox控件的PasswordChar属性设置为,这样在用户输入密码时显示的就是;在工具箱中选择"CommandButton"控件,将其拖动到窗体的下方(一共两个),分别将其Caption属性设置为"确定"和"取消"。调整好这些控件的位置后即可完成界面的设计。
三、添加代码
编写该程序的主要目的是要判断输入的用户名和密码是否合法,所以我们首先编写判断用户名的程序代码。双击"确定"按钮,添加如下的程序代码:
Private Sub Command1_Click
′判断是否输入了用户名
If Text1.Text=″″ Then ′如果Text1为空,即没有输入用户
MsgBox ″请输入用户名!″vbOKOnly+vbCritical
Exit Sub ′退出这个过程
Else ′如果输入了用户名
1
编程——华佾搜集整理 ———————————————————————————————————————————
If Text1.Text=″计算机″ And Text2.Text=″computer″ Then ′如果输入的用户名是″电脑报″且密码为″computer″
MsgBox ″你是合法用户,欢迎进入!″vbOKOnly+vbInformation
Else ′如果不是″计算机″或密码不是″computer″
MsgBox ″用户名或密码错误!″vbOKOnly+vbCritical
Text1.Text=″″
Text2.Text=″″ ′清空Text1及Text2控件中的文本
,让用户重新输入
End If
End If
End Sub
在这一段代码中,我们使用了If…Then…Else…End If:这是一个条件判断语句,If Text1.Text=″″ Then这句代码则是判断Text1是否为空,如果为空,这个条件就成立,则执行Then后的语句,如果Text1不为空,则这个条件不成立,程序将会跳到Else处,执行Else后的语句。
四、测试程序
现在我们可以单击"F5"键来运行这个程序,看看它的运行效果。直接单击"确定"按钮,将会弹出一个对话框;在"用户名"后输入"计算机","密码:"后输入"computer",再单击"确定"按钮,此时便会出现一个"欢迎进行"的信息框。怎么样,一个属于自己的"登录窗口"就制作好了。
2