form2.frm

主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作题.学生做完后,可立即得到考试分数.

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash.ocx"
Begin VB.Form Form2 
   BackColor       =   &H00FFC0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "濮阳县三中"
   ClientHeight    =   6240
   ClientLeft      =   3390
   ClientTop       =   2370
   ClientWidth     =   7755
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Form2.frx":0442
   Moveable        =   0   'False
   ScaleHeight     =   6240
   ScaleWidth      =   7755
   ShowInTaskbar   =   0   'False
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   6255
      Left            =   -150
      TabIndex        =   0
      Top             =   -15
      Width           =   8430
      _cx             =   14870
      _cy             =   11033
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   0   'False
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   0   'False
      Base            =   "4"
      AllowScriptAccess=   "always"
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   -1  'True
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
   End
   Begin VB.Menu xtgl 
      Caption         =   "系统管理"
      Begin VB.Menu tjyh 
         Caption         =   "添加用户"
      End
      Begin VB.Menu scyh 
         Caption         =   "删除用户"
      End
      Begin VB.Menu tcxt 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu teacher 
      Caption         =   "教师管理"
      Begin VB.Menu base 
         Caption         =   "教师基本情况登记表"
      End
      Begin VB.Menu study 
         Caption         =   "学历及进修情况"
      End
      Begin VB.Menu work 
         Caption         =   "工作简历"
      End
   End
   Begin VB.Menu student 
      Caption         =   "学生管理"
      Begin VB.Menu xjgl 
         Caption         =   "学籍管理"
         Begin VB.Menu xxlr 
            Caption         =   "信息录入"
         End
         Begin VB.Menu tjxx 
            Caption         =   "添加学校"
         End
         Begin VB.Menu zspc 
            Caption         =   "招生排场"
         End
         Begin VB.Menu zkz 
            Caption         =   "打印准考证"
         End
         Begin VB.Menu dangan 
            Caption         =   "学籍管理"
         End
         Begin VB.Menu bb 
            Caption         =   "报表输出"
         End
      End
      Begin VB.Menu chengji 
         Caption         =   "成绩管理"
         Begin VB.Menu chengjiluru 
            Caption         =   "成绩录入"
         End
         Begin VB.Menu chengjichaxun 
            Caption         =   "成绩查询"
         End
      End
   End
   Begin VB.Menu zhaopian 
      Caption         =   "照片处理"
      Begin VB.Menu zplr 
         Caption         =   "照片录入"
      End
      Begin VB.Menu tihuan 
         Caption         =   "照片名替换"
      End
   End
   Begin VB.Menu youxi 
      Caption         =   "游戏"
      Begin VB.Menu zjdq 
         Caption         =   "拯救地球"
      End
      Begin VB.Menu dls 
         Caption         =   "打老鼠"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于..."
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub about_Click()
frmAbout.Show
End Sub

Private Sub base_Click()
'MsgBox "请先打开teacher库", vbOKOnly, "单击[确定]后，打开teacher库"
Form1.Show
Unload Form2
End Sub

Private Sub bb_Click()
DataReport1.Show
End Sub

Private Sub chengjichaxun_Click()
Unload Me
Form7.Show
End Sub

Private Sub chengjiluru_Click()
Unload Me
Form18.Show
End Sub

Private Sub dangan_Click()
Unload Me
Form5.Show
End Sub

Private Sub dls_Click()
Unload Me
Form12.Show
End Sub

Private Sub Form_Load()
ShockwaveFlash1.Movie = (App.Path & "\015.swf")
'ShockwaveFlash1.Width = Form2.Width
ShockwaveFlash1.Height = Form2.Height
End Sub

Private Sub ROButton1_Click()
Unload Me
DataReport1.Show
End Sub

Private Sub ROButton2_Click()
Unload Me
Form5.Show
End Sub

Private Sub ROButton3_Click()
Unload Me
Form17.Show
End Sub

Private Sub ROButton4_Click()
Unload Me
Form14.Show
End Sub

'Private Sub Form_Paint()
'Dim ly As Long
'Dim lsh As Long
'Dim lsw As Long
'ScaleMode = vbPixels
'lsh = ScaleHeight
'lsw = ScaleWidth
'DrawStyle = vbInvisible
'FillStyle = vbFSSolid
'For ly = 0 To lsh
'FillColor = RGB(0, 0, 255 - (ly * 255) \ lsh)
'Line (-1, ly - 1)-(lsw, ly + 1), , B
'Next ly
'
'End Sub

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)

End Sub

Private Sub study_Click()
Unload Me
Form3.Show
End Sub

Private Sub tcxt_Click()
End
End Sub

Private Sub tihuan_Click()
Unload Me
Form10.Show
End Sub

Private Sub tjxx_Click()
Unload Me
Form8.Show
End Sub

Private Sub work_Click()
Unload Me
Form4.Show
End Sub

Private Sub xxlr_Click()
Unload Me

Form17.Show
End Sub

Private Sub zjdq_Click()
Unload Me

Form11.Show
End Sub

Private Sub zkz_Click()
Unload Me

DataReport1.Show
End Sub

Private Sub zplr_Click()
Unload Me

Form13.Show
End Sub

Private Sub zspc_Click()
Unload Me
Form14.Show
End Sub