frmmdi.frm

此源码是针对配套的光学标记阅读机使用

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm mdifrm 
   BackColor       =   &H00C0C0C0&
   Caption         =   "复旦大学阅卷系统"
   ClientHeight    =   10650
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   14355
   Icon            =   "frmmdi.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmmdi.frx":06EA
   StartUpPosition =   3  '窗口缺省
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   14355
      _ExtentX        =   25321
      _ExtentY        =   1508
      ButtonWidth     =   2090
      ButtonHeight    =   1349
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   6
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "设置阅读机"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "设置标准答案"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "设置分数"
            Object.Tag             =   ""
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "阅读试卷"
            Object.Tag             =   ""
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "导出数据库"
            Object.Tag             =   ""
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退出"
            Object.Tag             =   ""
            ImageIndex      =   6
         EndProperty
      EndProperty
      MouseIcon       =   "frmmdi.frx":AEAC
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   1320
      Top             =   960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   7
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1BA91
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1BDAB
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1C0C5
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1C3DF
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1C6F9
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1CA13
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmmdi.frx":1CD2D
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu systems 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu addmin 
         Caption         =   "用户管理"
         Begin VB.Menu add 
            Caption         =   "添加用户"
         End
         Begin VB.Menu change 
            Caption         =   "修改密码"
         End
      End
      Begin VB.Menu system0 
         Caption         =   "-"
      End
      Begin VB.Menu database 
         Caption         =   "数据库设置"
      End
      Begin VB.Menu system1 
         Caption         =   "-"
      End
      Begin VB.Menu quit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu omrset 
      Caption         =   "参数设置(&E)"
      Begin VB.Menu moren 
         Caption         =   "默认设置"
      End
      Begin VB.Menu omrset0 
         Caption         =   "-"
      End
      Begin VB.Menu omr50u 
         Caption         =   "设备参数设置"
      End
   End
   Begin VB.Menu key 
      Caption         =   "评分标准（&T）"
      Begin VB.Menu keyfiles 
         Caption         =   "定义评分标准"
      End
      Begin VB.Menu key0 
         Caption         =   "-"
      End
      Begin VB.Menu keyfs 
         Caption         =   "定义评分分数"
      End
   End
   Begin VB.Menu readfiles 
      Caption         =   "阅读试卷（&R)"
      Begin VB.Menu read 
         Caption         =   "机读阅卷"
      End
      Begin VB.Menu findca 
         Caption         =   "查看添涂情况"
      End
   End
   Begin VB.Menu inforfiles 
      Caption         =   "信息输出(&O)"
      Begin VB.Menu excel 
         Caption         =   "分数数据库转换"
      End
      Begin VB.Menu inforfiles0 
         Caption         =   "-"
      End
      Begin VB.Menu ttxxxx 
         Caption         =   "试卷填涂原始信息"
      End
      Begin VB.Menu daochu 
         Caption         =   "导出填涂信息（标答/所选）"
      End
   End
End
Attribute VB_Name = "mdifrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub add_Click()
frmadd.Show
End Sub

Private Sub change_Click()
  frmconfirm.Show
End Sub

Private Sub daochu_Click()
frmxhdc.Show
End Sub

Private Sub database_Click()
frminput.Show
End Sub

Private Sub excel_Click()
frmexcel.Show
End Sub

Private Sub findca_Click()
frmxh.Show
End Sub

Private Sub keyfiles_Click()
frmkey.Show
End Sub

Private Sub keyfs_Click()
frmfs.Show
End Sub

Private Sub MDIForm_Load()
mdifrm.WindowState = 2

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    OMR_StopRead
    OMR_Close
    Unload Me
End Sub

Private Sub moren_Click()
    Device = OMR_Installed(200)
    Dim shzy As String
    shzy = "e:/fudan/shzy.sht"
    Select Case Device
   ' Case Is = 0:
    '    MsgBox "初始化失败", vbInformation
    Case Is > 0:
          If OMR_LoadForm(shzy, "") <> 0 Then
            MsgBox "不能装载格式文件--" & shzy, vbCritical, "警告"
         Else
            MsgBox "OMR初始化成功", vbInformation
         End If
          
    Case Else:
        MsgBox "初始化失败,请设置您的OMR设备类型", vbOKOnly + vbInformation, "提示"
    End Select
End Sub

Private Sub omr50u_Click()
frmomrtype.Show
End Sub

Private Sub quit_Click()
Unload Me

End Sub

Private Sub read_Click()
frmreadpapers.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
   Case 1
     frmomrtype.Show
   Case 2
     frmkey.Show
   Case 3
   frmfs.Show
   Case 4
     frmreadpapers.Show
   Case 5
     
    frmexcel.Show
    Case 6
   Unload Me
   
End Select
 
End Sub

Private Sub ttxxxx_Click()
frmttxinxi.Show
End Sub