mdifrmmain.frm

数据库要求：Access 2000或者更高的版本。 系统要求：Windows系列操作系统。 运行“安装程序”文件夹中的setup.exe文件

VERSION 5.00
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "招生管理系统"
   ClientHeight    =   5055
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7110
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnlogin 
      Caption         =   "登录系统"
      Begin VB.Menu mnuserLogin 
         Caption         =   "登录系统"
      End
      Begin VB.Menu mnChPwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnAddNew 
         Caption         =   "添加新用户"
      End
      Begin VB.Menu mnExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnStu 
      Caption         =   "考生信息"
      Begin VB.Menu mnInputStu 
         Caption         =   "输入考生信息"
      End
      Begin VB.Menu mnQueryStu 
         Caption         =   "显示考生信息"
      End
      Begin VB.Menu mntgStu 
         Caption         =   "考生信息统计"
      End
   End
   Begin VB.Menu mnPlan 
      Caption         =   "招生计划"
      Begin VB.Menu mnInputPlan 
         Caption         =   "输入招生计划"
      End
      Begin VB.Menu mnAllPlan 
         Caption         =   "显示招生计划"
      End
      Begin VB.Menu mnQueryPlan 
         Caption         =   "查询招生计划"
      End
      Begin VB.Menu mntgPlan 
         Caption         =   "招生计划统计"
      End
   End
   Begin VB.Menu mnAdmit 
      Caption         =   "已招生信息"
      Begin VB.Menu mnAllAdmit 
         Caption         =   "查看全部"
      End
      Begin VB.Menu mnProvince 
         Caption         =   "各省信息"
      End
      Begin VB.Menu mnDept 
         Caption         =   "各院系信息"
      End
   End
End
Attribute VB_Name = "MDIfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
   ' 在主窗体中打开对数据库的连接
   Dim strCnn As String   '定义一个连接串变量
   strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=AdmissionSys"
   conn.Open strCnn
   mnAddNew.Enabled = False   '设置添加新用户菜单不可用
   mnStu.Enabled = False
   mnPlan.Enabled = False
   mnAdmit.Enabled = False
   
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
   conn.Close
End Sub

Private Sub mnaddnew_Click()
   frmAddUser.Show
End Sub

Private Sub mnAllAdmit_Click()
   frmAllAdmit.Show
End Sub

Private Sub mnAllPlan_Click()
   frmShowAllPlan.Show
End Sub

Private Sub mnChPwd_Click()
   frmChPwd.Show
End Sub

Private Sub mnDept_Click()
   frmDeptAdmit.Show
End Sub

Private Sub mnexit_Click()
   Unload Me
End Sub

Private Sub mninputPlan_Click()
   frmInPlan.Show
End Sub

Private Sub mninputStu_Click()
   frmInputStu.Show
End Sub

Private Sub mnProvince_Click()
   frmProvAdmit.Show
End Sub

Private Sub mnQueryPlan_Click()
   frmQueryPlan.Show
End Sub

Private Sub mnqueryStu_Click()
   frmShowStu.Show
End Sub

Private Sub mntgPlan_Click()
   frmtgPlan.Show
End Sub

Private Sub mntgStu_Click()
   frmTgStu.Show
End Sub

Private Sub mnuserlogin_Click()
   frmLogin.Show
End Sub