frms.frm

疯狂五笔打字

VERSION 5.00
Begin VB.Form FrmS 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "测试成绩"
   ClientHeight    =   1455
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3330
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1455
   ScaleWidth      =   3330
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   1800
      Width           =   2055
   End
   Begin VB.Frame Frame1 
      Height          =   1455
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   1935
      Begin VB.Label LblW 
         AutoSize        =   -1  'True
         Caption         =   "Label4"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   7
         Top             =   1200
         Width           =   720
      End
      Begin VB.Label LblE 
         AutoSize        =   -1  'True
         Caption         =   "Label3"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   6
         Top             =   840
         Width           =   720
      End
      Begin VB.Label LblR 
         AutoSize        =   -1  'True
         Caption         =   "Label2"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   5
         Top             =   480
         Width           =   720
      End
      Begin VB.Label LblS 
         AutoSize        =   -1  'True
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   4
         Top             =   120
         Width           =   120
      End
   End
   Begin VB.CommandButton CmdC 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2040
      TabIndex        =   2
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton CmdS 
      Caption         =   "存储结果(&S)"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "FrmS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim AStr As String

Private Sub CmdC_Click()
    Unload Me
End Sub

Private Sub CmdS_Click()
    On Error GoTo Err5
     g_dbcon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UseM.mdb;Persist Security Info=False")
     AStr = "insert into IUse values('" & UserStr & "','" & Mid(LblS.Caption, 6, 8) & "','" & Mid(LblR.Caption, 4, 5) & "','" & Mid(LblE.Caption, 4, 5) & "','" & Mid(LblW.Caption, 4, 5) & "')"
     g_dbcon.Execute (AStr)
     g_dbcon.Close
     MsgBox "数据以写入！", , "提示"
     Unload Me
     Exit Sub
Err5:
    MsgBox "无法写入数据可能被破坏如果要恢复请联系开发者", , "提示"
    End
End Sub

Private Sub Form_Load()
    FrmS.Caption = UserStr & "的测试成绩"
    LblS.Caption = "测试时间:" & Test & "分钟"
    LblR.Caption = FrmMain.LblRight.Caption
    LblE.Caption = FrmMain.LblErrar.Caption
    LblW.Caption = FrmMain.LblWord.Caption
    If UserStr = "打字高手" Then
        CmdS.Enabled = False
    Else
        CmdS.Enabled = True
    End If
End Sub