mdifrm.frm

VB+access 的桌面型应用系统 学校应用其管理毕业论文

VERSION 5.00
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   7485
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9825
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   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 mnGuanlixueyuan 
      Caption         =   "学院信息管理"
      Begin VB.Menu Tianjiaxy 
         Caption         =   "添加学院信息"
      End
      Begin VB.Menu Genxixy 
         Caption         =   "更新学院信息"
      End
      Begin VB.Menu Chaxun0 
         Caption         =   "查询成绩"
      End
   End
   Begin VB.Menu mnZhuanyexinxi 
      Caption         =   "专业信息管理"
      Begin VB.Menu Tianjiazy 
         Caption         =   "添加专业信息"
      End
      Begin VB.Menu Genxizhuanye 
         Caption         =   "更新专业信息"
      End
      Begin VB.Menu Chaxun1 
         Caption         =   "查询成绩"
      End
   End
   Begin VB.Menu mnXueshengxinxi 
      Caption         =   "学生基本信息管理"
      Begin VB.Menu Tianjiaxs 
         Caption         =   "添加学生信息"
      End
      Begin VB.Menu Gengxiixs 
         Caption         =   "更新学生信息"
      End
   End
   Begin VB.Menu Lunwenchengji 
      Caption         =   "论文成绩管理"
      Begin VB.Menu TianjiaLunwen 
         Caption         =   "添加论文成绩"
      End
      Begin VB.Menu GengxinLenwen 
         Caption         =   "更新论文成绩"
      End
      Begin VB.Menu ChaxunLunwen 
         Caption         =   "查询论文成绩"
         Begin VB.Menu Anxueyuan 
            Caption         =   "按学院"
         End
      End
   End
   Begin VB.Menu Zhidaolaoshi 
      Caption         =   "指导老师菜单"
      Begin VB.Menu ChaxunXueshengxinxi 
         Caption         =   "查询学生信息"
         Begin VB.Menu Anxingming 
            Caption         =   "按姓名"
         End
      End
      Begin VB.Menu chacuechengji 
         Caption         =   "查询学生成绩"
         Begin VB.Menu anxuehao 
            Caption         =   "按学号"
         End
      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 Anxingming_Click()
Anxingm.Show
End Sub

Private Sub anxuehao_Click()
Anxueh.Show
End Sub

Private Sub Anxueyuan_Click()
AnXy.Show
End Sub

Private Sub Chaxun0_Click()
chaxuncehngji.Show
End Sub

Private Sub Chaxun1_Click()
chaxuncehngji0.Show
End Sub

Private Sub Gengxiixs_Click()
Gengxinxsxinxi.Show
End Sub

Private Sub GengxinLenwen_Click()
Gengxinlunwencj.Show
End Sub

Private Sub Genxixy_Click()
Gengxinxueyuanxinxi.Show
End Sub

Private Sub Genxizhuanye_Click()
Gengxinzhuanyexinxi.Show
End Sub

Private Sub MDIForm_Load()
Dim strCnn As String   '定义一个连接串变量
   strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=essay"
   conn.Open strCnn   '设置添加新用户菜单不可用
   mnAddNew.Enabled = False
   mnGuanlixueyuan.Enabled = False
   mnZhuanyexinxi.Enabled = False
   mnXueshengxinxi.Enabled = False
   Lunwenchengji.Enabled = False
   Zhidaolaoshi.Enabled = False
End Sub

Private Sub mnAddNew_Click()
frmAddUser.Show
End Sub

Private Sub mnChPwd_Click()
frmChPwd.Show
End Sub

Private Sub mnExit_Click()
Unload Me
End Sub

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

Private Sub TianjiaLunwen_Click()
Tianjialunwenchengji.Show
End Sub

Private Sub Tianjiaxs_Click()
Tianjiaxueshengxinxi.Show
End Sub

Private Sub Tianjiaxy_Click()
Tianjiaxueyuan.Show
End Sub

Private Sub Tianjiazy_Click()
Tianjiazhuanyexinxi.Show
End Sub