frmi.frm

疯狂五笔打字

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmI 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "个人测试信息"
   ClientHeight    =   3675
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6900
   Icon            =   "FrmI.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3675
   ScaleWidth      =   6900
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdC 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   5880
      TabIndex        =   2
      Top             =   3240
      Width           =   975
   End
   Begin VB.CommandButton CmddD 
      Caption         =   "删除所有记录(&D"
      Height          =   375
      Left            =   4080
      TabIndex        =   1
      Top             =   3240
      Width           =   1695
   End
   Begin MSComctlLib.ListView LVI 
      Height          =   3135
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   5530
      View            =   3
      Arrange         =   1
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      Appearance      =   1
      NumItems        =   0
   End
End
Attribute VB_Name = "FrmI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdC_Click()
    Unload Me
End Sub

Private Sub CmddD_Click()
    On Error GoTo Err7
    StrSql = "delete from IUse where use_name='" & UserStr & "'"
    If MsgBox("你确定要删除吗？", vbYesNo, "提示") = vbYes Then
        g_dbcon.Execute (StrSql)
        g_dbcon.Close
        Call Form_Load
    End If
    Exit Sub
Err7:
    MsgBox "无法删除数据可能被破坏如果要恢复请联系开发者", , "提示"
    End
End Sub

Private Sub Form_Load()
    On Error GoTo Err6
    g_dbcon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UseM.mdb;Persist Security Info=False")
    LVI.ListItems.Clear
    LVI.ColumnHeaders.Clear
    Dim lvwRow As ListItem
    Dim lvwCol  As ColumnHeader
    StrSql = "select * from IUse"
    Set g_dbred = g_dbcon.Execute(StrSql)
    Dim I As Integer
    Set lvwCol = LVI.ColumnHeaders.Add(, , "用户名")
    Set lvwCol = LVI.ColumnHeaders.Add(, , "用时")
    Set lvwCol = LVI.ColumnHeaders.Add(, , "正确")
    Set lvwCol = LVI.ColumnHeaders.Add(, , "错误")
    Set lvwCol = LVI.ColumnHeaders.Add(, , "每分N个字")
    StrSql = "select * from IUse where Use_Name='" & UserStr & "'"
    Set g_dbred = g_dbcon.Execute(StrSql)
    While Not g_dbred.EOF
        Set lvwRow = LVI.ListItems.Add(, , g_dbred.Fields(0).Value)
        For I = 1 To g_dbred.Fields.Count - 1
            lvwRow.SubItems(I) = g_dbred.Fields(I).Value
        Next I
        g_dbred.MoveNext
    Wend
    Exit Sub
Err6:
    MsgBox "无法打开文件可能被破坏如果要恢复请联系开发者", , "提示"
    End
End Sub

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