form1.frm

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

VERSION 5.00
Begin VB.Form frm_main111111 
   Caption         =   "45"
   ClientHeight    =   5835
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9075
   FontTransparent =   0   'False
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5835
   ScaleWidth      =   9075
   Begin VB.Timer Timer1 
      Interval        =   300
      Left            =   1680
      Top             =   360
   End
   Begin VB.Image Image1 
      Height          =   5835
      Left            =   0
      Picture         =   "Form1.frx":030A
      Stretch         =   -1  'True
      Top             =   0
      Width           =   9075
   End
   Begin VB.Menu mingchen 
      Caption         =   "名称维护(&N)"
      Begin VB.Menu chushihua 
         Caption         =   "系统初始化(&I)"
      End
      Begin VB.Menu a 
         Caption         =   "-"
      End
      Begin VB.Menu beifen 
         Caption         =   "数据库备份(&B)"
      End
      Begin VB.Menu recover 
         Caption         =   "数据库恢复(&R)"
      End
      Begin VB.Menu abc 
         Caption         =   "-"
      End
      Begin VB.Menu mimaweihu 
         Caption         =   "密码维护(&P)"
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu college 
         Caption         =   "学院名称(&C)"
      End
      Begin VB.Menu class 
         Caption         =   "班级名称(&C)"
      End
      Begin VB.Menu lesson 
         Caption         =   "课程名称(&L)"
      End
      Begin VB.Menu teacher 
         Caption         =   "教师名称(&T)"
      End
   End
   Begin VB.Menu shijuan 
      Caption         =   "试卷维护(&P)"
      Begin VB.Menu shijuaninput 
         Caption         =   "试卷录入(&I)"
      End
      Begin VB.Menu shijuanxiugai 
         Caption         =   "试卷修改(&M)"
         Begin VB.Menu ziliaoxiugai 
            Caption         =   "资料修改(&N)"
         End
         Begin VB.Menu chengjixiugai 
            Caption         =   "成绩修改(&G)"
         End
      End
      Begin VB.Menu shijuandelete 
         Caption         =   "试卷删除(&D)"
      End
      Begin VB.Menu chengjihedui 
         Caption         =   "成绩核对(&C)"
      End
   End
   Begin VB.Menu zhibiao 
      Caption         =   "指标维护(&E)"
      Begin VB.Menu naduzhibiao 
         Caption         =   "难度指标(&Q)"
      End
      Begin VB.Menu qufenduzhibiao 
         Caption         =   "区分度指标(&D)"
      End
      Begin VB.Menu b 
         Caption         =   "-"
      End
      Begin VB.Menu shijuanfenxipingjia 
         Caption         =   "试卷分析评价(&E)"
      End
   End
   Begin VB.Menu sjfenxi 
      Caption         =   "试卷分析(&A)"
      Begin VB.Menu baogaoshengch 
         Caption         =   "分析报告生成(&D)"
      End
      Begin VB.Menu baogaodayin 
         Caption         =   "分析报告打印(&O)"
      End
   End
   Begin VB.Menu js 
      Caption         =   "检索(&F)"
      Begin VB.Menu shijuanjiansuo 
         Caption         =   "试卷检索(&P)"
      End
      Begin VB.Menu student 
         Caption         =   "学生检索(&S)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu helptopic 
         Caption         =   "帮助主题(&T)"
      End
      Begin VB.Menu c 
         Caption         =   "-"
      End
      Begin VB.Menu kaifarenyuan 
         Caption         =   "开发人员(&A)"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出(&C)"
   End
End
Attribute VB_Name = "frm_main111111"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public DB As Database, RS As Recordset, WS As Workspace

Private Sub chushihua_Click()

End Sub

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

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

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2

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


End Sub

Private Sub Form_Resize()
Image1.Width = Me.Width
Image1.Height = Me.Height
End Sub

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

Private Sub shijuaninput_Click()
MDIFrm_sjlr.Show
End Sub

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

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