续前引例,在登录窗体输入用户名和口令,单击“确定”按钮的 代码 Private Sub Cmdok Click0 声明变量 .校验用户名和口令 I用户名或密码错误Then Msg Box"无此用户或密码错误,请重新输入!", acRitical,"错误 Else FrmMain Show 载入主窗体 Unload Me 从内存删除登录窗体 End If End sub 在学籍管理系统主窗体单击修改密码菜单项的代码: Private Sub mnu ChangePsw Click'单击修改密码菜单项 frm Psw. show 显示修改密码窗体 End Sub 在修改密码窗体单击“取消”按钮的代码: Private Sub CmdCancel click Unload me 从内存删除修改密码窗体 End Sub续前引例，在登录窗体输入用户名和口令，单击“确定”按钮的 代码 在学籍管理系统主窗体单击修改密码菜单项的代码： Private Sub CmdOk_Click() … '声明变量 … '校验用户名和口令 If 用户名或密码错误Then MsgBox "无此用户或密码错误，请重新输入！", vbCritical, "错误" Else FrmMain.Show '载入主窗体 Unload Me '从内存删除登录窗体 End If End Sub 在修改密码窗体单击“取消”按钮的代码： Private Sub mnuChangePsw_Click() '单击修改密码菜单项 frmChangePsw.Show '显示修改密码窗体 End Sub Private Sub CmdCancel_Click() Unload Me '从内存删除修改密码窗体 End Sub