mdifrmmain.frm

一个招生考试系统,有比较完整的功能 VB+Access桌面型的应用

VERSION 5.00
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H00FFC0C0&
   Caption         =   "招生管理系统"
   ClientHeight    =   7215
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9300
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   StartUpPosition =   2  'CenterScreen
   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         =   "考生信息统计"
         Visible         =   0   'False
      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
   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 mnexit_Click()
   Unload Me
End Sub

Private Sub mninputPlan_Click()
   frmInPlan.Show
End Sub

Private Sub mninputStu_Click()
   frmInputStu.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