VB程序设计学生信息管理系统说明(3)

4.2系统管理模块设计

“系统管理”模块分为“添加新用户”和“退出”两个子模块。

在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“frmuser1”。 进行代码设计，代码如下： Private Sub Command1_Click()

If Trim(Text1(0).Text) = "" Then

VB程序设计学生信息管理系统说明

MsgBox "用户名不能为空！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If

If Trim(Text1(1).Text) = "" Then

MsgBox "密码不能为空！", vbExclamation + vbOKOnly, "警告" Text1(1).SetFocus Exit Sub End If

If Trim(Text1(2).Text) = "" Then

MsgBox "确认密码不能为空！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit Sub End If

If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then

MsgBox "确认密码不正确！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit Sub End If

Dim aa As Integer aa = 0

If Option1(2).Value = True Then For i = 0 To 2

If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i