frmsystem.frm

这是别人的数据库课程设计

VERSION 5.00
Begin VB.MDIForm frmSystem 
   BackColor       =   &H8000000C&
   Caption         =   "学生管理系统"
   ClientHeight    =   5655
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7410
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuStudentManage 
      Caption         =   "学生信息维护"
      Begin VB.Menu mnuStudentInput 
         Caption         =   "信息录入"
      End
      Begin VB.Menu mnuStudentFind 
         Caption         =   "信息查询"
      End
      Begin VB.Menu mnuStudentModify 
         Caption         =   "信息更新"
      End
      Begin VB.Menu mnuStudentPrint 
         Caption         =   "信息输出"
      End
   End
   Begin VB.Menu mnuBaseManage 
      Caption         =   "基本表维护"
      Begin VB.Menu mnuMinZuManage 
         Caption         =   "民族维护"
      End
      Begin VB.Menu mnuSpeciality 
         Caption         =   "专业维护"
      End
   End
   Begin VB.Menu mnuSystem 
      Caption         =   "系统管理"
      Begin VB.Menu mnuUserManage 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuChangePassword 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu mnuQuitSystem 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "frmSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuMinZuManage_Click()
frmBase.Caption = "民族"
frmBase.Show
End Sub

Private Sub mnuSpeciality_Click()
frmBase.Caption = "专业"
frmBase.Show
End Sub

Private Sub mnuStudentFind_Click()
Set adoRS = adoCon.Execute("select count(*) from student")
If adoRS(0) = 0 Then
   MsgBox "学生表中没有信息，不能执行查询功能！"
   Exit Sub
End If
frmStudentSelect.Show
ErrMsg:
    If Err.Number <> 0 Then
     MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
     Exit Sub
  End If
End Sub

Private Sub mnuStudentInput_Click()
On Error GoTo ErrMsg
'判断专业表中是否有记录
Set adoRS = adoCon.Execute("Select * From Speciality")
If adoRS.EOF Then
   MsgBox "专业表中没有记录，请输入！", vbOKOnly + vbExclamation, "系统提示"
   frmBase.Caption = "专业"
   frmBase.Show
   Exit Sub
End If

'判断民族表中是否有记录
Set adoRS = adoCon.Execute("Select * From Nation")
If adoRS.EOF Then
   MsgBox "民族表中没有记录，请输入！", vbOKOnly + vbExclamation, "系统提示"
   frmBase.Caption = "民族"
   frmBase.Show
   Exit Sub
End If

Set adoRS = Nothing
'基本表中都有有效记录
frmStudentInput.Show

'错误处理
ErrMsg:
  If Err.Number <> 0 Then
     MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
     Exit Sub
  End If
End Sub

Private Sub mnuStudentModify_Click()
frmUpdateID.Show

End Sub

Private Sub mnuStudentPrint_Click()
  ReportPrint.Show
End Sub

Private Sub mnuUserManage_Click()
'用户管理窗体调用
FrmUser.Show
End Sub