如何用VB6.0编写一个用户登录系统

工具/原料

• 电脑

• VB6.0软件（没有的就去去下载一个）

方法/步骤

1.     进入VB6.0软件，双击“标准EXE”显示的页面如图。预设正确的用户名和密码为cxywlq和701213。

   

       先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签，再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框，然后再从控件栏选择按钮控件在form1窗体的相应位置画两个大小适合的按钮。

   
2.     选中（单击即可）窗体Form1，在右边的属性栏将Caption属性值改为“用户登录”；选中标签Lable1将Caption属性值改为“用户名”，选中标签Lable2将Caption属性值改为“密码”，属；选中文本框Text1，将Text属性值置空，选中文本框Text2，将Text属性值置空且将PasswordChar属性值改为“*”；选中按钮Command1，将Caption属性值改为“登录”，选中按钮Command2，将Caption属性值改为“重新输入”。然后调整各控件位置和大小，使整个窗体更加美观。

   

   
3.     在右边右键点击“窗体”，选中“添加”，点击“添加窗体”，如图在出现的窗口里双击“窗体”，添加一个form2窗体；用同样的方法再添加一个form3窗体。   

   
4. 在form2窗体各添加一个标签和按钮。在标签的Caption属性值改为“恭喜您，登录成功！”也可以通过Font属性更改字体；按钮的Caption属性值改为“注销”。在form3窗体各添加一个标签和按钮。在标签的Caption属性值改为“您的用户名或密码输入错误”也可以通过Font属性更改字体；按钮的Caption属性值改为“重新登录”。
   

在form1窗体里，双击“登录”按钮，弹出代码窗口，写上代码（在编写代码时系统会自动检查代码错误，但不是万能的哦，有些错误系统检查不出来）然后关闭代码窗口，代码会自动保存。
我把代码也写下来，以方便新手们复制粘贴验证一下。

Private Sub Command1_Click()

If Text1 = "aaa" And Text2 = "abc123" Then

Form1.Hide

Form2.Show

Else

Form1.Hide

Form3.Show

End If

End Sub

7

    在form1窗体里，双击“重新输入”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

End Sub

8

在form2窗体里，双击“返回”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command1_Click()

Form2.Hide

Form1.Show

Form1.Text1 = ""

Form1.Text2 = ""

End Sub

9

在form3窗体里，双击“重新输入”按钮，弹出代码窗口，写上代码，然后关闭代码窗口。

Private Sub Command1_Click()

Form3.Hide

Form1.Show

Form1.Text1 = ""

Form1.Text2 = ""

End Sub

10

至此，我们完成了编程，调试一下以检验程序的正确性。一种可以右键“文件”，再点击“调试”，另一种是直接点击调试按钮。

11

调试正确后可以生成工程了。点击“文件”，在下拉选项中选择“生成工程1.EXE”项即可生成可执行的exe文件，如果该项是灰色的，则先保存，，关闭VB，再打开VB。如果还是灰色的，则可能是安装VB6.0软件被破坏了，建议重装VB6.0。