📄 cdedit.ebf
字号:
VERSION 5.00
Begin VB.Form CDEdit
BorderStyle = 3 'Fixed Dialog
Caption = "Titles"
ClientHeight = 3615
ClientLeft = 1095
ClientTop = 330
ClientWidth = 5520
KeyPreview = -1 'True
ScaleHeight = 3615
ScaleWidth = 5520
Begin VB.TextBox txtFields9
Height = 285
Left = 2040
TabIndex = 20
Top = 3000
Width = 3375
End
Begin VB.CommandButton cmdClose
Caption = "&Close"
Height = 300
Left = 4320
TabIndex = 19
Top = 3240
Width = 1095
End
Begin VB.TextBox txtFields0
Height = 285
Left = 2040
TabIndex = 17
Top = 2620
Width = 3375
End
Begin VB.TextBox txtFields1
Height = 285
Left = 2040
TabIndex = 15
Top = 2300
Width = 3375
End
Begin VB.TextBox txtFields2
Height = 285
Left = 2040
TabIndex = 13
Top = 1980
Width = 3375
End
Begin VB.TextBox txtFields3
Height = 285
Left = 2040
TabIndex = 11
Top = 1660
Width = 3375
End
Begin VB.TextBox txtFields4
Height = 285
Left = 2040
TabIndex = 9
Top = 1340
Width = 3375
End
Begin VB.TextBox txtFields5
Height = 285
Left = 2040
TabIndex = 7
Top = 1020
Width = 3375
End
Begin VB.TextBox txtFields6
Height = 285
Left = 2040
TabIndex = 5
Top = 700
Width = 3375
End
Begin VB.TextBox txtFields7
Height = 285
Left = 2040
TabIndex = 3
Top = 380
Width = 3375
End
Begin VB.TextBox txtFields8
Height = 285
Left = 2040
TabIndex = 1
Top = 60
Width = 3375
End
Begin VB.Label lblLabels1
Caption = "TitleQuery:"
Height = 255
Left = 120
TabIndex = 18
Top = 2940
Width = 1815
End
Begin VB.Label lblLabels2
Caption = "PlayList:"
Height = 255
Left = 120
TabIndex = 16
Top = 2620
Width = 1815
End
Begin VB.Label lblLabels3
Caption = "NumMenus:"
Height = 255
Left = 120
TabIndex = 14
Top = 2300
Width = 1815
End
Begin VB.Label lblLabels4
Caption = "NumTracks:"
Height = 255
Left = 120
TabIndex = 12
Top = 1980
Width = 1815
End
Begin VB.Label lblLabels5
Caption = "ReleaseDate:"
Height = 255
Left = 120
TabIndex = 10
Top = 1660
Width = 1815
End
Begin VB.Label lblLabels6
Caption = "Label:"
Height = 255
Left = 120
TabIndex = 8
Top = 1340
Width = 1815
End
Begin VB.Label lblLabels7
Caption = "Copyright:"
Height = 255
Left = 120
TabIndex = 6
Top = 1020
Width = 1815
End
Begin VB.Label lblLabels8
Caption = "Title:"
Height = 255
Left = 120
TabIndex = 4
Top = 700
Width = 1815
End
Begin VB.Label lblLabels9
Caption = "Artist:"
Height = 255
Left = 120
TabIndex = 2
Top = 380
Width = 1815
End
Begin VB.Label lblLabels10
Caption = "TitleID:"
Height = 255
Left = 120
TabIndex = 0
Top = 60
Width = 1815
End
End
Attribute VB_Name = "CDEdit"
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.1.1/> *****************************************
'<BOOK_CHANGE Chapter 5.5.2.2> ***
Dim CDEmbChangedByCode As Boolean
Dim CDEmvBookMark As Variant
Dim CDEmbEditFlag As Boolean
Dim CDEmbAddNewFlag As Boolean
Dim CDEmbDataChanged As Boolean
'</BOOK_CHANGE Chapter 5.5.2.2> ***
'<BOOK_ADDON Chapter 5.1.1> *****************************************
Private m_IDCDE As String
Public Sub SetID(id As String)
m_IDCDE = id
End Sub
'</BOOK_ADDON Chapter 5.1.1> *****************************************
'<BOOK_CHANGE Chapter 5.5.2.2> ***
Public Sub RefreshCDEdit()
Dim GotRecord
Dim CDRecordCDE
Dim adoPrimaryRSCDE As ADOCERecordSet
' Fills the Text fields with the current data from our database
Set adoPrimaryRSCDE = CreateObject("ADOCE.Recordset")
GotRecord = GetFirstCDRecord(adoPrimaryRSCDE, "select * from Titles where TitleID=" & m_IDCDE, CDRecordCDE)
Do While GotRecord
txtFields8.Text = CDRecordCDE(0, 0)
txtFields7.Text = CDRecordCDE(1, 0)
txtFields6.Text = CDRecordCDE(2, 0)
txtFields5.Text = CDRecordCDE(3, 0)
txtFields4.Text = CDRecordCDE(4, 0)
txtFields3.Text = CDRecordCDE(5, 0)
txtFields2.Text = CDRecordCDE(6, 0)
txtFields1.Text = CDRecordCDE(7, 0)
txtFields0.Text = CDRecordCDE(8, 0)
txtFields9.Text = CDRecordCDE(9, 0)
GotRecord = GetNextCDRecord(adoPrimaryRSCDE, CDRecordCDE)
Loop
Set adoPrimaryRSCDE = Nothing
End Sub
Private Sub Form_Load()
'<DELETED>
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 cmdClose_Click()
Me.Hide
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_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
'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 cmdRefresh_Click()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub
'Private Sub cmdEdit_Click()
'<DELETED> '</BOOK_CHANGE Chapter 5.5.2.2> ******
'End Sub
'Private Sub cmdCancel_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 cmdClose_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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -