frmmain.frm

自己用vb开发的局域网考试系统

InsertXS.Enabled = YN2TF(QX(2))
ImgXSLR.Enabled = YN2TF(QX(2))
InXZ.Enabled = YN2TF(QX(3))
ImgXZLR.Enabled = YN2TF(QX(3))
InTK.Enabled = YN2TF(QX(4))
ImgTKLR.Enabled = YN2TF(QX(4))
InPD.Enabled = YN2TF(QX(5))
ImgPDLR.Enabled = YN2TF(QX(5))
InWD.Enabled = YN2TF(QX(6))
ImgWDLR.Enabled = YN2TF(QX(6))
InZW.Enabled = YN2TF(QX(7))
ImgZWLR.Enabled = YN2TF(QX(7))
QueryTM.Enabled = YN2TF(QX(8))
ImgSJCX.Enabled = YN2TF(QX(8))
QueryXS.Enabled = YN2TF(QX(9))
ImgXSCX.Enabled = YN2TF(QX(9))
QueryCJ.Enabled = YN2TF(QX(10))
ImgCJCX.Enabled = YN2TF(QX(10))
DBStart.Enabled = YN2TF(QX(11))
WeiHuDW.Enabled = YN2TF(QX(12))
WeiHuKM.Enabled = YN2TF(QX(13))
WeiHuNJ.Enabled = YN2TF(QX(14))
WeiHuCZ.Enabled = YN2TF(QX(15))
ImgCZYGL.Enabled = YN2TF(QX(15))
WeiHuBH.Enabled = YN2TF(QX(16))
PanJuan.Enabled = YN2TF(QX(17))
ImgPJCL.Enabled = YN2TF(QX(17))
End Sub
'N转化成false,Y转化成true的函数
Function YN2TF(ByVal YN As String) As Boolean
   If YN = "Y" Then
     YN2TF = True
    Else
     YN2TF = False
   End If
End Function

Private Sub DBStart_Click()
 MsgBox "这是一个很危险的操作！", 48, "警告！"
 MsgBox "你一旦进行这个操作，系统除了<操作员信息表>、<单位信息表>、<特殊字符表>表以外的数据将被清除！也就是说系统回到原始状态，所有录入的数据都没有了！"
 If MsgBox("你真的确认进行这一操作吗？", vbYesNo + 48, "警告！") = vbYes Then
    adoCn.Execute "delete from kemu"
    adoCn.Execute "delete from nianji"
    adoCn.Execute "delete from kaosheng"
    adoCn.Execute "delete from nianji"
    adoCn.Execute "delete from question"
    adoCn.Execute "delete from questiontk"
    adoCn.Execute "delete from questionpd"
    adoCn.Execute "delete from questionwd"
    adoCn.Execute "delete from questionzw"
    adoCn.Execute "delete from score"
    adoCn.Execute "delete from scoretk"
    adoCn.Execute "delete from scorewd"
    adoCn.Execute "delete from scorepd"
    adoCn.Execute "delete from scorezw"
    adoCn.Execute "delete from test"
    MsgBox "系统初始化成功！"
End If

End Sub

Private Sub ImgCJCX_Click()
   QueryCJ_Click
End Sub

Private Sub ImgCJCX_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
         SetMove LabCJCX
 SetSM ImgCJCX, LabCJCX, "   成绩查询可以进行所有职工的考试成绩的查询工作，可以按部门、工龄、考试类别、成绩、试卷信息等多条件组合查询，可以浏览和打印职工的考试试卷，打印所有职工的成绩表等工作。"

End Sub

Private Sub ImgCZYGL_Click()
  WeiHuCZ_Click
End Sub

Private Sub ImgCZYGL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   SetMove LabCZYGL
 SetSM ImgCZYGL, LabCZYGL, "   操作员管理模块负责管理整个系统服务器端的操作员信息和权限，其中有一默认的总管理admin可进行所有操作。总管理员可以给不同的部门领导分配不同的权限，以便让部门主管可以进行题目的录入/修改等。"

End Sub

Private Sub ImgKSSZ_Click()
 SetKS_Click
End Sub

Private Sub ImgKSSZ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetMove LabKSSZ
 SetSM ImgKSSZ, LabKSSZ, "   考试设置包括考试试卷的选择、考试时间的设置和考试的总控制。"

End Sub

Private Sub ImgPDLR_Click()
  InPD_Click
End Sub

Private Sub ImgPDLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
          SetMove LabPDLR
 SetSM ImgPDLR, LabPDLR, "   判断题录入负责所有部门判断题的录入和修改工作，不同的部门主管有不同的权限，可以编辑一定的类别的题目。"

End Sub

Private Sub ImgPJCL_Click()
  LSPanJuan_Click
End Sub

Private Sub ImgPJCL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SetMove LabPJCL
 SetSM ImgPJCL, LabPJCL, "   判卷处理负责所有非标准题（填空、问答、论述题）的判卷工作，因为这些题型没办法进行计算机自动判卷。每一份试卷只有判完卷以后，职工才可以在客户端登录浏览。"

End Sub

Private Sub ImgSJCX_Click()
  QueryTM_Click
End Sub

Private Sub ImgSJCX_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        SetMove LabSJCX
 SetSM ImgSJCX, LabSJCX, "   试卷查询可以进行所有已经组好的卷的查询工作，以便进行考试试卷的选择。通过它可以删除、浏览和打印所有部门的试卷。"
   
End Sub

Private Sub ImgSJSC_Click()
  CreateSJ_Click
End Sub

Private Sub ImgSJSC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetMove LabSJSC
  SetSM ImgSJSC, LabSJSC, "   试卷生成是整个系统的试题试卷生成模块。通过它可以选择题目库里保存的题目任意生成你想要的试卷。也可以随机生成，让系统了帮你出卷！"
End Sub

Private Sub ImgTKLR_Click()
  InTK_Click
End Sub

Private Sub ImgTKLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      SetMove LabTKLR
 SetSM ImgTKLR, LabTKLR, "   填空题录入负责所有部门的填空题的录入和修改工作，不同的部门主管有不同的权限，可以编辑一定的部门的题目。"

End Sub

Private Sub ImgWDLR_Click()
  InWD_Click
End Sub

Private Sub ImgWDLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
         SetMove LabWDLR
 SetSM ImgWDLR, LabWDLR, "   问答题录入负责所有部门的问答题的录入和修改工作，不同的部门主管有不同的权限，可以编辑一定的部门的题目。"

End Sub

Private Sub ImgXSCX_Click()
   QueryXS_Click
End Sub

Private Sub ImgXSCX_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        SetMove LabXSCX
 SetSM ImgXSCX, LabXSCX, "   职工查询可以进行所有职工查询工作。可以按部门、车间、姓名等多条件组合查询，可以打印职工的准考证，可以删除所有查询得到的职工的信息，方便系统的管理。"

End Sub

Private Sub ImgXSLR_Click()
  InsertXS_Click
End Sub

Private Sub ImgXSLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   SetMove LabXSLR
 SetSM ImgXSLR, LabXSLR, "   职工录入负责华录影音公司职工的录入、修改和删除等。录入的信息只包括基本的编号、姓名等。这些信息用于考试的登录和管理。"

End Sub

Private Sub ImgXTBZ_Click()
  SystemHelp_Click
End Sub

Private Sub ImgXTBZ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        SetMove LabXTBZ
 SetSM ImgXTBZ, LabXTBZ, "   系统帮助是整个系统的使用方法的介绍，它能帮你解决你遇到的问题。"

End Sub

Private Sub ImgXTTC_Click()
  Unload Me
End Sub

Private Sub ImgXTTC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
         SetMove LabXTTC
 SetSM ImgXTTC, LabXTTC, "   你真的要退出系统吗？欢迎下次使用！"

End Sub

Private Sub ImgXZLR_Click()
  InXZ_Click
End Sub

Private Sub ImgXZLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     SetMove LabXZLR
 SetSM ImgXZLR, LabXZLR, "   选择题录入负责所有部门的选择题的录入和修改工作，不同的部门主管有不同的权限，可以编辑一定的部门的题目。"

End Sub

Private Sub ImgZWLR_Click()
  InZW_Click
End Sub

Private Sub ImgZWLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
         SetMove LabZWLR
 SetSM ImgZWLR, LabZWLR, "   论述题录入负责所有部门的论述题的录入和修改工作，不同的部门主管有不同的权限，可以编辑一定的部门的题目。"

End Sub

Private Sub InPD_Click()
 UseForm = "FrmPanDuan"
 FrmSet.Show 1

End Sub

Private Sub InsertXS_Click()
  FrmStudent.WindowState = 2
  
  FrmStudent.Show 1
End Sub

Private Sub Form_Load()
  '设置菜单
  SetMeun
  Stb.Panels(4).Text = Date
  Stb.Panels(5).Text = Time
  Stb.Panels(1).Text = "当前操作员编号：" + UserCode
  Dim adoRs As Recordset
  Set adoRs = New Recordset
  adoRs.Open "select name from admin where code='" + UserCode + "'", adoCn, adOpenStatic, adLockOptimistic
  Stb.Panels(2).Text = "操作员姓名：" + adoRs.Fields(0).Value
  Set adoRs = Nothing
End Sub

Private Sub Form_Resize()
On Error Resume Next
  Image1.Top = 0
  Image1.Width = Me.ScaleWidth
  PicSM.Height = Me.ScaleHeight - PicSM.Top - Stb.Height
  PicCZ.Height = PicSM.Height
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  adoCn.Close
  End
End Sub




Private Sub InTK_Click()
UseForm = "FrmTianKong"
FrmSet.Show 1
End Sub

Private Sub InWD_Click()
  UseForm = "FrmWenDa"
 FrmSet.Show 1
End Sub

Private Sub InXZ_Click()
 UseForm = "FrmQuestion"
FrmSet.Show 1

End Sub

Private Sub InZW_Click()
 UseForm = "FrmZuoWen"
 FrmSet.Show 1
End Sub




Private Sub LSPanJuan_Click()
   UseForm = "FrmPanJuan"
  FrmSet.Show 1

End Sub

'设置移上的颜色
Sub SetMove(ByVal Lab As Label)
  Lab.ForeColor = &HFF&
End Sub
'设置移出的颜色
Sub SetOut(ByVal Lab As Label)
  Lab.ForeColor = &HC00000
End Sub
'设置说明显示内容
Sub SetSM(ByVal Img As Image, ByVal Lab As Label, ByVal SM As String)
   ImgSM.Picture = Img.Picture
   LabSM.Caption = Lab.Caption
   LabBZ.Caption = SM
End Sub

Private Sub PicCZ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetOut LabSJSC
SetOut LabKSSZ
SetOut LabXSLR
SetOut LabXTTC
SetOut LabXZLR
SetOut LabTKLR
SetOut LabPDLR
SetOut LabWDLR
SetOut LabZWLR
SetOut LabPJCL
SetOut LabSJCX
SetOut LabCJCX
SetOut LabXSCX
SetOut LabCZYGL
SetOut LabXTBZ
End Sub



Private Sub QueryCJ_Click()
 FrmSeachCJ.Show 1

End Sub

Private Sub QueryTM_Click()
 FrmSeachTM.Show 1
End Sub

Private Sub QueryXS_Click()
FrmSeach.Show 1
End Sub

Private Sub SetKS_Click()
 UseForm = "FrmSheZhi"
 FrmSet.Show 1
End Sub



Private Sub SystemHelp_Click()
 ShellExecute Me.hwnd, "Open", App.Path + "\help\Systemhelp.hlp", 0, 0, 0
End Sub

Private Sub Timer1_Timer()
    Stb.Panels(5).Text = Time

End Sub

Private Sub WeiHuCZ_Click()
 FrmAdmin.Show 1
End Sub

Private Sub WeiHuDW_Click()
  FrmDanWei.Show 1
End Sub


'Private Sub WeiHuKM_Click()
'  FrmKeMu.Show 1
'End Sub

'Private Sub WeiHuMM_Click()
' FrmMiMa.Show 1
'End Sub

'Private Sub WeiHuNJ_Click()
' FrmNianJi.Show 1
'End Sub