mdifrm_sjlr.frm

一个用VB做的试卷分析评估系统

VERSION 5.00
Begin VB.MDIForm Frm_main 
   BackColor       =   &H8000000A&
   Caption         =   "试卷录入"
   ClientHeight    =   5805
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9045
   Icon            =   "MDIFrm_sjlr.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIFrm_sjlr.frx":030A
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   2280
      Top             =   1440
   End
   Begin VB.Menu M_xtwh 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu M_xtcsh 
         Caption         =   "系统初始化(I)"
      End
      Begin VB.Menu m11 
         Caption         =   "-"
      End
      Begin VB.Menu M_sjkbf 
         Caption         =   "数据库备份(&B)"
      End
      Begin VB.Menu M_sjkhf 
         Caption         =   "数据库恢复(&R)"
      End
   End
   Begin VB.Menu M_mcwh 
      Caption         =   "名称维护(&N)"
      Begin VB.Menu M_institute 
         Caption         =   "学院名称(&D)"
      End
      Begin VB.Menu M_classes 
         Caption         =   "班级名称(&C)"
      End
      Begin VB.Menu M_course 
         Caption         =   "课程名称(&L)"
      End
      Begin VB.Menu M_teacher 
         Caption         =   "教师名称(&T)"
      End
   End
   Begin VB.Menu M_sjwh 
      Caption         =   "试卷维护(&P)"
      Begin VB.Menu M_sjlr 
         Caption         =   "试卷录入"
      End
      Begin VB.Menu M_sjxg 
         Caption         =   "试卷修改(&M)"
         Begin VB.Menu M_zlxg 
            Caption         =   "资料修改(&N)"
         End
         Begin VB.Menu M_cjxg 
            Caption         =   "成绩修改(&G)"
         End
      End
      Begin VB.Menu M_sjsc 
         Caption         =   "试卷删除(&D)"
      End
      Begin VB.Menu M_cjhd 
         Caption         =   "成绩核对(&C)"
      End
   End
   Begin VB.Menu M_sjfx 
      Caption         =   "试卷分析(&A)"
      Begin VB.Menu M_fxbgsc 
         Caption         =   "分析报告生成(&D)"
      End
      Begin VB.Menu M_fxbgdy 
         Caption         =   "分析报告打印(&O)"
      End
   End
   Begin VB.Menu M_js 
      Caption         =   "检索(&F)"
      Begin VB.Menu M_sjjs 
         Caption         =   "试卷检索(&P)"
      End
      Begin VB.Menu M_xsjs 
         Caption         =   "学生检索(&S)"
      End
   End
   Begin VB.Menu M_bz 
      Caption         =   "帮助(&H)"
      Begin VB.Menu M_bzzt 
         Caption         =   "帮助主题(&T)"
      End
   End
   Begin VB.Menu M_exit 
      Caption         =   "退出(&C)"
   End
   Begin VB.Menu M_exitMDI 
      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "Frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit

Public tform As String

Private Sub M_bzzt_Click()

Shell "hh.exe " & App.Path & "\help\Help.chm"

End Sub

Private Sub M_cjhd_Click()
tform = "sjss"
mod_type = "cjhd"
Call menu_show(False) '菜单控制
frm_sjss.Show
End Sub

Private Sub M_cjxg_Click()
tform = "sjss"
mod_type = "cjxg"
Call menu_show(False) '菜单控制
frm_sjss4.Show
End Sub

Private Sub M_classes_Click()
frm_mcwh.tname = "classes"
frm_mcwh.Show
End Sub

Private Sub M_course_Click()
frm_mcwh.tname = "course"
frm_mcwh.Show
End Sub

Private Sub M_exit_Click()
End
End Sub

Private Sub M_exitMDI_Click()
Call MDIForm_exit    '关闭子窗体
End Sub

Private Sub M_fxbgsc_Click()
tform = "sjss"
mod_type = "fxbg"
Call menu_show(False) '菜单控制
frm_sjss.Show
End Sub

Private Sub M_institute_Click()
frm_mcwh.tname = "institute"
frm_mcwh.Show
End Sub

Private Sub M_sjjs_Click()
frm_sjss2.Show
End Sub

Private Sub M_sjkbf_Click()
main_.Show
End Sub

Private Sub M_sjkhf_Click()
main_.Show

End Sub

Private Sub M_sjlr_Click()
tform = "sjlr"
Call menu_show(False) '菜单控制
frm_sjlr.Show
End Sub

Private Sub M_sjsc_Click()
tform = "sjss"
mod_type = "sjsc"
Call menu_show(False) '菜单控制
frm_sjss.Show
End Sub

Private Sub M_teacher_Click()
frm_mcwh.tname = "teacher"
frm_mcwh.Show
End Sub

Private Sub M_xsjs_Click()
frm_sjlr.Show
End Sub

Private Sub M_xtcsh_Click()
Call menu_show(False) '菜单控制
frm_cjlr.Show   'w5w345353


End Sub

Private Sub M_zlxg_Click()
tform = "sjss"
mod_type = "zlxg"
Call menu_show(False) '菜单控制
frm_sjss3.Show
End Sub

Private Sub MDIForm_Load()
Set WS = CreateWorkspace("", "admin", "", dbUseJet)
DName = App.Path + "\system\" + "data.mdb"
Set DB = WS.OpenDatabase(DName)

Call menu_show(True) '菜单控制
Call menu(False) '菜单控制

End Sub

Private Sub Timer1_Timer()
frm_login.Show
Timer1.Enabled = False
End Sub

Public Sub menu(a As Boolean)
   M_xtwh.Enabled = a
   M_mcwh.Enabled = a
   M_sjwh.Enabled = a
'   M_zbwh.Enabled = a
   M_sjfx.Enabled = a
   M_js.Enabled = a
End Sub

Public Sub menu_show(a As Boolean)
   M_xtwh.Visible = a
   M_mcwh.Visible = a
   M_sjwh.Visible = a
   'M_zbwh.Visible = a
   M_sjfx.Visible = a
   M_js.Visible = a
   M_bz.Visible = a
   M_exit.Visible = a
   M_exitMDI.Visible = Not a
End Sub

Sub MDIForm_exit() '关闭子窗体
Dim i As Integer
i = 0
   If tform = "sjlr" Then
      Unload frm_sjlr
   ElseIf tform = "cjlr" Then
      Unload frm_cjlr
   ElseIf tform = "sjss" Then
      Unload frm_sjss
   ElseIf tform = "sjss2" Then
      Unload frm_sjss2
   ElseIf tform = "sjss3" Then
      Unload frm_sjss3
      i = 1
   ElseIf tform = "sjss4" Then
      Unload frm_sjss4
      i = 1
   End If
   If i = 0 Then Call menu_show(True) '菜单控制
End Sub