frmmain.frm

学籍管理系统 建立学生学籍管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "学籍管理系统主界面"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   1020
   ClientWidth     =   4680
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":030A
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   2940
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   2619
            Text            =   "======欢迎使用学籍管理系统======"
            TextSave        =   "======欢迎使用学籍管理系统======"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2004-05-30"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "21:19"
         EndProperty
      EndProperty
   End
   Begin VB.Menu System 
      Caption         =   "系统(&M)"
      Begin VB.Menu Mod_password 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu SEP1 
         Caption         =   "-"
      End
      Begin VB.Menu EXIT 
         Caption         =   "退出系统(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu adm_Apart 
      Caption         =   "部门信息管理(&D)"
      Begin VB.Menu adm_dept 
         Caption         =   "系别管理(&B)"
         Begin VB.Menu add_dept 
            Caption         =   "添加系别名称(&A)"
            Shortcut        =   +{F12}
         End
         Begin VB.Menu mod_dept 
            Caption         =   "修改系别名称(&M)"
         End
      End
      Begin VB.Menu adm_major 
         Caption         =   "班级管理(&C)"
         Begin VB.Menu ADD_Major 
            Caption         =   "添加班级名称(&A)"
            Shortcut        =   ^{F12}
         End
         Begin VB.Menu mod_major 
            Caption         =   "修改班级名称(&M)"
         End
      End
      Begin VB.Menu sep2 
         Caption         =   "-"
      End
      Begin VB.Menu que_major 
         Caption         =   "查询专业设置(&Q)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu adm_stu 
      Caption         =   "学生信息管理(&S)"
      Begin VB.Menu add_stu 
         Caption         =   "添加学生信息(&A)"
         Shortcut        =   ^S
      End
      Begin VB.Menu que_stu 
         Caption         =   "查询学生信息(&Q)"
      End
      Begin VB.Menu sep3 
         Caption         =   "-"
      End
      Begin VB.Menu mod_stu 
         Caption         =   "修改学生信息(&M)"
         Shortcut        =   +^{F1}
      End
   End
   Begin VB.Menu adm_teacher 
      Caption         =   "教师信息管理(&T)"
      Begin VB.Menu add_teacher 
         Caption         =   "添加教师信息(&A)"
         Shortcut        =   ^T
      End
      Begin VB.Menu que_teacher 
         Caption         =   "查询教师信息(&Q)"
      End
      Begin VB.Menu sep5 
         Caption         =   "-"
      End
      Begin VB.Menu mod_teacher 
         Caption         =   "修改教师信息(&M)"
         Shortcut        =   +^{F7}
      End
   End
   Begin VB.Menu adm_user 
      Caption         =   "用户管理(&U)"
      Begin VB.Menu mod_user 
         Caption         =   "修改用户信息(&M)"
         Shortcut        =   ^U
      End
      Begin VB.Menu que_user 
         Caption         =   "查询用户信息(&Q)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu about 
         Caption         =   "关于   学籍管理系统(&A)"
         Shortcut        =   +{F1}
      End
      Begin VB.Menu help_form 
         Caption         =   "联机帮助(&L)"
         Shortcut        =   {F2}
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
frmAbout.Show
End Sub

Private Sub add_dept_Click()
addDept.Show
End Sub

Private Sub ADD_Major_Click()
addMajor.Show
End Sub

Private Sub add_stu_Click()
getMajor.Show
getMajor.Command3.Visible = False
End Sub

Private Sub add_teacher_Click()
getDept.Show
getDept.Command3.Visible = False
getDept.Command4.Visible = False
End Sub

Private Sub adm_Apart_Click()
Call Module2.Check1
Call Module2.Check2
End Sub

Private Sub adm_stu_Click()
Call Module2.Check3
End Sub

Private Sub adm_teacher_Click()
Call Module2.Check4
End Sub

Private Sub adm_user_Click()
Call Module2.Check5
End Sub

Private Sub Again_Click()
Unload frmMain
Call Module1.cnn_UPDATE
frmLogin.Show
frmLogin.txtpassword = ""
frmLogin.txtusername = ""
End Sub

Private Sub EXIT_Click()
Dim i As String
i = MsgBox("是否要退出学籍管理系统！", 4 + 256 + 64, "学籍管理系统")
If i = vbYes Then
Call Module1.cnn_UPDATE
End
End If
End Sub

Private Sub MDIForm_DblClick()
Dim i As String
i = MsgBox("是否要退出学籍管理系统！", 4 + 256 + 64, "学籍管理系统")
If i = vbYes Then
Call Module1.cnn_UPDATE
End
End If
End Sub

Private Sub MDIForm_Load()
Call Module2.Check1
Call Module2.Check2
Call Module2.Check3
Call Module2.Check4
Call Module2.Check5
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Dim i As String
i = MsgBox("是否要退出学籍管理系统！", 4 + 256 + 64, "学籍管理系统")
If i = vbYes Then
Call Module1.cnn_UPDATE
End
End If
Cancel = True
End Sub

Private Sub mod_dept_Click()
modDept.Show
End Sub

Private Sub mod_major_Click()
getDept.Show
getDept.Command1.Visible = False
getDept.Command4.Visible = False
End Sub

Private Sub Mod_password_Click()
modPassword.Show
End Sub

Private Sub mod_stu_Click()
getMajor.Show
getMajor.Command1.Visible = False
End Sub

Private Sub mod_teacher_Click()
getDept.Show
getDept.Command1.Visible = False
getDept.Command3.Visible = False
End Sub

Private Sub mod_user_Click()
modUser.Show
End Sub

Private Sub que_major_Click()
queMajor.Show
End Sub

Private Sub que_stu_Click()
queStudent.Show
End Sub

Private Sub que_teacher_Click()
queTeacher.Show
End Sub

Private Sub que_user_Click()
queUser.Show
End Sub