ucsearchresult.ctl

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.UserControl ucSearchResult 
   BackColor       =   &H80000005&
   ClientHeight    =   5790
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7950
   ScaleHeight     =   5790
   ScaleWidth      =   7950
   Begin VB.Frame fraBody 
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   4920
      Left            =   240
      TabIndex        =   0
      Top             =   195
      Width           =   7560
      Begin MSComctlLib.ListView LvResult 
         Height          =   3705
         Left            =   135
         TabIndex        =   1
         Top             =   1035
         Width           =   7260
         _ExtentX        =   12806
         _ExtentY        =   6535
         View            =   3
         Arrange         =   2
         Sorted          =   -1  'True
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   7
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "编号"
            Object.Width           =   2117
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "入场时间"
            Object.Width           =   3528
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "出场时间"
            Object.Width           =   3528
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "消费金额"
            Object.Width           =   1764
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   4
            Text            =   "入场记录"
            Object.Width           =   1764
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   5
            Text            =   "收费记录"
            Object.Width           =   1764
         EndProperty
         BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   6
            Text            =   "备注"
            Object.Width           =   1764
         EndProperty
      End
      Begin VB.Label lblLogin 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "车辆出入查询结果"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   285
         Index           =   0
         Left            =   2550
         TabIndex        =   3
         Top             =   540
         Width           =   2400
      End
      Begin VB.Label lblLogin 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "车辆出入查询结果"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00808080&
         Height          =   285
         Index           =   1
         Left            =   2565
         TabIndex        =   2
         Top             =   555
         Width           =   2400
      End
   End
End
Attribute VB_Name = "ucSearchResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Sub UpdateList(ByRef rsQuery As Recordset)
  Dim i As Integer
  Dim LtItm As ListItem
    
  On Error Resume Next
  LvResult.ListItems.Clear '清空列表
  '数据集指针指向第一个记录
  rsQuery.MoveFirst
  For i = 1 To rsQuery.RecordCount
    Set LtItm = LvResult.ListItems.Add()
    LtItm.Text = rsQuery.Fields("ParkingNO").Value
    LtItm.SubItems(1) = rsQuery.Fields("EnterTime").Value
    LtItm.SubItems(2) = rsQuery.Fields("ExitTime").Value
    LtItm.SubItems(3) = rsQuery.Fields("Charge").Value
    LtItm.SubItems(4) = rsQuery.Fields("ParkingRecID").Value
    LtItm.SubItems(5) = rsQuery.Fields("ChargeRecID").Value
    If rsQuery.Fields("Remark").Value <> "" Then
      LtItm.SubItems(6) = rsQuery.Fields("Remark").Value
    End If
    '数据集指针指向下一条记录
    rsQuery.MoveNext
  Next i

End Sub

'============================================
'功能：响应 用户控件的Resize事件，使fraBody自动居中
'============================================
Private Sub UserControl_Resize()
  Dim nLeft, nTop As Integer
  '计算新的Left和Top
  nLeft = (UserControl.Width - fraBody.Width) / 2
  nTop = (UserControl.Height - fraBody.Height) / 2
  '只有当新的Left和Top > 0 时才移动fraBody
  fraBody.Left = IIf(nLeft > 0, nLeft, 0)
  'fraBody.Top = IIf(nTop > 0, nTop, fraBody.Top)
  
End Sub