main.frm

guan yu pai ke xi tong de ruan jian

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5775
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9225
   LinkTopic       =   "MDIForm1"
   Picture         =   "main.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu system 
      Caption         =   "〖系统〗"
      Begin VB.Menu JHJ 
         Caption         =   "添加新用户"
      End
      Begin VB.Menu shanchu 
         Caption         =   "删除用户"
         Shortcut        =   ^D
      End
      Begin VB.Menu zhuxiao 
         Caption         =   "注销"
         Shortcut        =   ^Z
      End
      Begin VB.Menu quit 
         Caption         =   "退出 "
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu student 
      Caption         =   "〖学生管理〗"
      Begin VB.Menu xstj 
         Caption         =   "学生信息管理"
         Shortcut        =   ^S
      End
      Begin VB.Menu xscx 
         Caption         =   "学生信息查询"
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu xuank 
      Caption         =   "〖选课管理〗"
      Begin VB.Menu anpai 
         Caption         =   "课程安排/查询"
         Shortcut        =   ^A
      End
      Begin VB.Menu xuanke 
         Caption         =   "选课"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu kecheng 
      Caption         =   "〖课程管理〗"
      Begin VB.Menu anp 
         Caption         =   "课程安排"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu teacher 
      Caption         =   "〖教师管理〗"
      Begin VB.Menu jiaoshi 
         Caption         =   "教师安排"
         Shortcut        =   ^T
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub anp_Click()
Form_classroomtime.Show
End Sub

Private Sub anpai_Click()
Form_classroomtime.Show
Form_classroomtime.Command2.Enabled = False
Form_classroomtime.Command4.Enabled = False
Form_classroomtime.Command5.Enabled = False

End Sub

Private Sub JHJ_Click()

adduser.Visible = True
adduser.Text1.Text = ""
adduser.Text2.Text = ""
adduser.Text3.Text = ""
adduser.Combo1.Text = ""
End Sub

Private Sub jiaoshi_Click()
Form_teacher.Show
End Sub

Private Sub quit_Click()
myexit = MsgBox("确定退出？(记录是否保存？)", vbQuestion + vbOKCancel, "注销")
    If myexit = vbOK Then
    End
        End If

End Sub

Private Sub shanchu_Click()
deluser.Visible = True
End Sub

Private Sub xscx_Click()
Form_student.Show
Form_student.Command5.Enabled = False
Form_student.Command1.Enabled = False
End Sub

Private Sub xstj_Click()
Form_student.Show
End Sub

Private Sub xuanke_Click()
Form_studentsubject.Show
End Sub

Private Sub zhuxiao_Click()
myexit = MsgBox("确定注销？(记录是否保存？)", vbQuestion + vbOKCancel, "退出")
    If myexit = vbOK Then
        frmLogin.Visible = True
        Unload MDIForm1
        frmLogin.txtPassword.Text = ""
        frmLogin.txtusername.Text = ""
    Else
    End If
End Sub