frmkey.frm

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

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmkey 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "阅读标准答案"
   ClientHeight    =   5280
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6180
   Icon            =   "frmkey.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5280
   ScaleWidth      =   6180
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame3 
      Caption         =   "标准答案浏览区"
      Height          =   3375
      Left            =   360
      TabIndex        =   9
      Top             =   1800
      Width           =   5655
      Begin VB.CommandButton Command1 
         Caption         =   "退出"
         Height          =   495
         Left            =   3600
         TabIndex        =   14
         Top             =   2640
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "清空标答库"
         Height          =   495
         Left            =   3600
         TabIndex        =   13
         Top             =   1920
         Width           =   1335
      End
      Begin VB.ComboBox Cmbtype 
         Height          =   300
         Left            =   3600
         TabIndex        =   10
         Top             =   960
         Width           =   1335
      End
      Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
         Height          =   3015
         Left            =   120
         TabIndex        =   11
         Top             =   240
         Width           =   2775
         _ExtentX        =   4895
         _ExtentY        =   5318
         _Version        =   393216
         Rows            =   220
         _NumberOfBands  =   1
         _Band(0).Cols   =   2
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "试卷类型"
         Height          =   495
         Left            =   3720
         TabIndex        =   12
         Top             =   360
         Width           =   855
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   3960
      Top             =   5280
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "标准答案导出区"
      Height          =   615
      Left            =   480
      TabIndex        =   4
      Top             =   5280
      Width           =   5415
      Begin VB.CommandButton cmdPath 
         Caption         =   "..."
         Height          =   495
         Left            =   2280
         TabIndex        =   7
         Top             =   600
         Width           =   1215
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "导  出"
         Height          =   495
         Left            =   3840
         TabIndex        =   6
         Top             =   600
         Width           =   1455
      End
      Begin VB.TextBox textFilePath 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   120
         TabIndex        =   5
         Top             =   720
         Width           =   1935
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "请选择保存文件名"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Timer MyTimer 
      Enabled         =   0   'False
      Left            =   4080
      Top             =   600
   End
   Begin VB.Frame Frame2 
      Caption         =   "标准答案阅读区"
      ForeColor       =   &H00000000&
      Height          =   1335
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   5655
      Begin VB.CommandButton Command3 
         Caption         =   "激活浏览区"
         Height          =   495
         Left            =   3840
         TabIndex        =   16
         Top             =   240
         Width           =   1095
      End
      Begin VB.CommandButton cmdRead 
         Caption         =   "阅读标准答案"
         Height          =   495
         Left            =   1920
         TabIndex        =   2
         Top             =   240
         Width           =   1335
      End
      Begin VB.TextBox txtResult 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         ScrollBars      =   3  'Both
         TabIndex        =   1
         Top             =   840
         Width           =   5295
      End
      Begin VB.Label Label3 
         Height          =   375
         Left            =   4200
         TabIndex        =   15
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "阅读结果"
         Height          =   255
         Left            =   480
         TabIndex        =   3
         Top             =   480
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmkey"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Device As Long
Dim IsReading As Boolean
Public strFilepath As String
Public Sub savekey(ByVal jieguo As String)
Dim sjbh As String
Dim result As String
Dim lx As String
result = Mid(jieguo, 16, 200)
lx = Mid(jieguo, 1, 1)

If result = " " Then
    Dim y As Integer
   y = MsgBox("请填涂标准答案", vbInformation, "提示")
   Exit Sub
End If
If lx = " " Then
    Dim z As Integer
   z = MsgBox("请填涂试卷类型", vbInformation, "提示")
   Exit Sub
End If
'把答案保存到数据库中
Dim sql1 As String
Dim rs1 As New ADODB.Recordset
sql1 = "select lx,jieguo from bdkey where lx= '" & lx & "' "
Set rs1 = TransactSQL(sql1)
 If rs1.EOF = False Then
           Dim e As Integer
           e = MsgBox("此标准答信息已经阅读过!", vbInformation, "提示")
      Else
          rs1.AddNew
         
          rs1.Fields(0) = lx
          rs1.Fields(1) = result
          rs1.Update
          rs1.Close
      End If
End Sub




Private Sub Cmbtype_Click()
Dim lb As String
     lb = Cmbtype.Text
     sql = "select jieguo from bdkey where lx= '" & lb & "'"
      Set rs = getRS(sql)
      If rs.RecordCount = 0 Then
      MsgBox "没有要查找的信息", vbOKCancel, "提示"
      Else
           Dim jieguo As String
          jieguo = rs(0)
      Call showtopic(jieguo)
      
End If
rs.Close
End Sub