cdinfo.ebf

《Windows CE 权威指南》（作者：(美)CHRIS MUENCH

VERSION 5.00
Object = "{6556ED95-9838-11D1-80AE-00C04FAD5EFB}#1.0#0"; "mscelistview.dll"
Begin VB.Form CDinfo 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Tracks"
   ClientHeight    =   3345
   ClientLeft      =   1095
   ClientTop       =   330
   ClientWidth     =   5745
   KeyPreview      =   -1  'True
   ScaleHeight     =   3345
   ScaleWidth      =   5745
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdClose 
      Caption         =   "Close"
      Height          =   375
      Left            =   4560
      TabIndex        =   1
      Top             =   2880
      Width           =   1095
   End
   Begin MSCELISTVIEWLibCtl.ListViewCtrl listTracks 
      Height          =   2895
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5655
      _cx             =   9975
      _cy             =   5106
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8
      FontStrikethrough=   0   'False
      FontUnderline   =   0   'False
      HideColumnHeaders=   0   'False
      HideSelection   =   -1  'True
      LabelEdit       =   0
      LabelWrap       =   0   'False
      MultiSelect     =   0   'False
      Sorted          =   0   'False
      SortKey         =   0
      SortOrder       =   0
      View            =   3
   End
End
Attribute VB_Name = "CDinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim WithEvents adoPrimaryRS As Recordset
'<BOOK_CHANGE Chapter 5.5.2.2> ***
Dim CDImbChangedByCode As Boolean
Dim CDImvBookMark As Variant
Dim CDImbEditFlag As Boolean
Dim CDImbAddNewFlag As Boolean
Dim CDImbDataChanged As Boolean
'</BOOK_CHANGE Chapter 5.5.2.2> ***

'<BOOK_ADDON Chapter 5.1.1> *****************************************
Private m_ID As String
Public Sub SetID(id As String)
    m_ID = id
End Sub
'</BOOK_ADDON Chapter 5.1.1> *****************************************

'</BOOK_CHANGE Chapter 5.5.2.2> ***
Private Sub Form_Load()
'<DELETED>
End Sub

Public Function RefreshCDInfo()
Dim GotRecord
Dim NewItem
Dim adoPrimaryRS As ADOCERecordSet
Dim CDRecord

    ' Initializes the Columns of the List View
    Set adoPrimaryRS = CreateObject("ADOCE.Recordset")
    listTracks.ColumnHeaders.Clear
    listTracks.ColumnHeaders.Add , , "TrackNo", listTracks.Width / 6, lvwColumnLeft
    listTracks.ColumnHeaders.Add , , "Track Name", listTracks.Width - listTracks.Width / 6, lvwColumnLeft
   
    ' Fills the List View with the current data from our database
    listTracks.ListItems.Clear
    GotRecord = GetFirstCDRecord(adoPrimaryRS, "select * from Tracks where TitleID=" & m_ID, CDRecord)
    Do While GotRecord
        Set NewItem = listTracks.ListItems.Add(, , CDRecord(1, 0))
        NewItem.SubItems(1) = CDRecord(2, 0)
        GotRecord = GetNextCDRecord(adoPrimaryRS, CDRecord)
    Loop
End Function

Private Sub cmdClose_Click()
    Me.Hide
End Sub

'</BOOK_CHANGE Chapter 5.5.2.2> ***

'Private Sub Form_Resize()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub Form_Unload(Cancel As Integer)
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub cmdFirst_Click()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub cmdLast_Click()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub cmdNext_Click()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub cmdPrevious_Click()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'Private Sub SetButtons(bVal As Boolean)
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub