frmmain.ebf

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

VERSION 5.00
Object = "{BE67ABF5-0137-11D2-9B8A-00C04FAD5AEC}#1.0#0"; "mscecommandbar.dll"
Object = "{E491F001-98EC-11D1-9B3D-00C04FAD5AEC}#1.0#0"; "msceimagelist.dll"
Object = "{6556ED95-9838-11D1-80AE-00C04FAD5EFB}#1.0#0"; "mscelistview.dll"
Begin VB.Form frmMain 
   BorderStyle     =   0  'None
   ClientHeight    =   4290
   ClientLeft      =   120
   ClientTop       =   405
   ClientWidth     =   9315
   ControlBox      =   0   'False
   ScaleHeight     =   4290
   ScaleWidth      =   9315
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin MSCELISTVIEWLibCtl.ListViewCtrl listCDS 
      Height          =   3855
      Left            =   0
      TabIndex        =   1
      Top             =   360
      Width           =   9255
      _cx             =   16325
      _cy             =   6800
      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
   Begin CEImageListCtl.ImageList ImageList1 
      Left            =   8040
      Top             =   3240
      _cx             =   990
      _cy             =   990
      ImageWidth      =   0
      ImageHeight     =   0
   End
   Begin CommandbarLib.CommandBar CommandBar1 
      Height          =   345
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9255
      _cx             =   16325
      _cy             =   600
      Enabled         =   -1  'True
      OKButton        =   -1  'True
      HelpButton      =   -1  'True
      CloseButton     =   -1  'True
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any) '</BOOK_CHANGE Chapter 5.5.2.2> *****************************************
'<BOOK_ADDON Chapter 5.1.1> *****************************************
'Dim WithEvents adoPrimaryRS As Recordset ' <BOOK_CHANGE Chapter 5.5.2.3> **************
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean

Dim currentID As String
'</BOOK_ADDON Chapter 5.1.1> *****************************************
'<BOOK_ADDON Chapter 5.5.2.2> *****************************************
Private Sub Form_Load()
  Left = (Screen.Width - Width) / 2
  Top = (Screen.Height - Height) / 2
  InitCommandbar Me
  InitlistCDS
End Sub

Private Sub listCDS_ItemClick(ByVal Index As Long)
    currentID = listCDS.ListItems.Item(Index).SubItems(2)
End Sub

Private Function InitlistCDS()
Dim GotRecord
Dim NewItem
Dim adoPrimaryRS As ADOCERecordSet
Dim CDRecord

    ' Initializes the Columns of the List View
    Set adoPrimaryRS = CreateObject("ADOCE.Recordset")
    listCDS.ColumnHeaders.Clear
    listCDS.ColumnHeaders.Add , , "Title", listCDS.Width / 2, lvwColumnLeft
    listCDS.ColumnHeaders.Add , , "Author", listCDS.Width / 3, lvwColumnLeft
    listCDS.ColumnHeaders.Add , , "ID", listCDS.Width / 6, lvwColumnLeft
   
    ' Fills the List View with the current data from our database
    listCDS.ListItems.Clear
    GotRecord = GetFirstCDRecord(adoPrimaryRS, "select Title,Artist,TitleID from Titles", CDRecord)
    Do While GotRecord
        Set NewItem = listCDS.ListItems.Add(, , CDRecord(0, 0))
        NewItem.SubItems(1) = CDRecord(1, 0)
        NewItem.SubItems(2) = CDRecord(2, 0)
        GotRecord = GetNextCDRecord(adoPrimaryRS, CDRecord)
    Loop
    currentID = listCDS.ListItems.Item(1).SubItems(2)
End Function

'</BOOK_ADDON Chapter 5.5.2.2> *****************************************

'<BOOK_ADDON Chapter 5.5.2.2> *****************************************
Private Sub CommandBar1_ButtonClick(ByVal Button As CommandbarLib.CommandBarButton)
  Select Case CInt(Button.Tag)
  Case ID_NEW
    frmAbout.Show
  Case ID_EDIT
    CDEdit.SetID currentID
    CDEdit.RefreshCDEdit
    CDEdit.Show
  Case ID_TRACKS
    CDinfo.SetID currentID
    CDinfo.RefreshCDInfo
    CDinfo.Show
  End Select
End Sub
'</BOOK_ADDON Chapter 5.5.2.2> *****************************************


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

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

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

'Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub

'<BOOK_ADDON Chapter 5.1.1> *****************************************
'Private Sub grdDataGrid_DblClick()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub
'</BOOK_ADDON Chapter 5.1.1> *****************************************

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

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

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

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

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

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

'<BOOK_ADDON Chapter 5.1.1> *****************************************
'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

' <BOOK_CHANGE Chapter 5.5.2.3> **************
'Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'<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
' <BOOK_CHANGE Chapter 5.5.2.3> **************

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

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

'Private Sub cmdUpdate_Click()
'<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
'</BOOK_ADDON Chapter 5.1.1> *****************************************