📄 frmcdtapes.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 10
Left = 3360
TabIndex = 30
Tag = "&Password:"
Top = 3960
Width = 2220
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Last Date Borrowed (mmm. dd, yyyy)"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 9
Left = 240
TabIndex = 29
Tag = "&Password:"
Top = 3960
Width = 2715
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Available"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 8
Left = 3360
TabIndex = 28
Tag = "&Password:"
Top = 2760
Width = 660
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rental Amount"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 7
Left = 240
TabIndex = 27
Tag = "&Password:"
Top = 2760
Width = 1050
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Run Time"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 6
Left = 3360
TabIndex = 26
Tag = "&Password:"
Top = 2160
Width = 660
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Genre"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 5
Left = 240
TabIndex = 25
Tag = "&Password:"
Top = 2160
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Year Released"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 4
Left = 3360
TabIndex = 24
Tag = "&Password:"
Top = 1560
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Actor"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 3
Left = 240
TabIndex = 23
Tag = "&Password:"
Top = 1560
Width = 405
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Item Code"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 2
Left = 3360
TabIndex = 22
Tag = "&Password:"
Top = 960
Width = 705
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Date Entered"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 1
Left = 240
TabIndex = 21
Tag = "&Password:"
Top = 960
Width = 930
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Title"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Index = 0
Left = 240
TabIndex = 20
Tag = "&Password:"
Top = 360
Width = 285
End
End
Begin VB.ListBox lstTitles
Height = 5325
Left = 360
Sorted = -1 'True
TabIndex = 1
ToolTipText = "List of Titles"
Top = 480
Width = 3255
End
Begin VB.Frame Frame1
Caption = " Titles "
Height = 5895
Left = 120
TabIndex = 0
Top = 120
Width = 3735
End
End
Attribute VB_Name = "frmCDtapes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Dim lstTEXT, tmpItemCodeB4Edit As String
Private Sub cmdAddMovie_Click()
If cmdAddMovie.Caption = "&Add Entry" Then
cmdAddMovie.Caption = "&Cancel Add..."
Call cmdClear_Click
txtDateEntered = Format(Now, "mmm. dd, yyyy")
txtItemCode.Text = ""
Call UnlockTextboxes
lstTitles.Enabled = False
cmdUpdate.Enabled = True
cmdClear.Enabled = True
cmdEdit.Enabled = False
txtTitle.SetFocus
Exit Sub
End If
If cmdAddMovie.Caption = "&Cancel Add..." Then
cmdAddMovie.Caption = "&Add Entry"
Call cmdClear_Click
txtItemCode.Text = ""
txtDateEntered.Text = ""
txtItemCode.Text = ""
Call LockTextboxes
lstTitles.Enabled = True
cmdUpdate.Enabled = False
cmdClear.Enabled = False
lstTitles.Text = lstTEXT
If Trim(lstTitles.Text) = "" Then cmdEdit.Enabled = False
lstTitles.SetFocus
Exit Sub
End If
End Sub
Private Sub cmdClear_Click()
txtTitle.Text = ""
txtActor.Text = ""
txtYearReleased.Text = ""
txtGenre.Text = ""
txtRunTime.Text = ""
txtRentalAmount.Text = ""
txtAvailable.Text = ""
txtOverdueChargePerDay.Text = ""
txtRentalPeriod.Text = ""
txtLastDateBorrowed.Text = ""
txtLastDateBorrowedAddInfo.Text = ""
txtLastDateReturned.Text = ""
txtLastDateReturnedAddInfo.Text = ""
txtCondition.Text = ""
If cmdAddMovie.Caption = "&Cancel Add..." Then txtItemCode.Text = ""
If cmdEdit.Caption = "Ca&ncel Edit" Then txtItemCode.Text = ""
txtComments.Text = ""
txtTitle.SetFocus
End Sub
Private Sub cmdEdit_Click()
If cmdEdit.Caption = "&Edit" Then
cmdEdit.Caption = "Ca&ncel Edit"
tmpItemCodeB4Edit = Trim(txtItemCode.Text)
lstTitles.Enabled = False
cmdAddMovie.Enabled = False
cmdUpdate.Enabled = True
cmdClear.Enabled = True
Call UnlockTextboxes
txtTitle.SetFocus
Exit Sub
End If
If cmdEdit.Caption = "Ca&ncel Edit" Then
cmdEdit.Caption = "&Edit"
lstTitles.Enabled = True
cmdAddMovie.Enabled = True
cmdUpdate.Enabled = False
cmdClear.Enabled = False
Call LockTextboxes
lstTitles.Text = lstTEXT
lstTitles.SetFocus
End If
End Sub
Private Sub cmdRemove_Click()
Dim vr_engine As VRENTAL_ENGINE
Set vr_engine = New VRENTAL_ENGINE
If lstTitles.Enabled = True And cmdUpdate.Enabled = False And cmdClear.Enabled = False And Trim(lstTitles.Text) <> "" Then
If MsgBox("Are you sure you want to delete this user? ", vbYesNo) = vbNo Then Exit Sub
Call vr_engine.Remove_CD_tape_Items(txtItemCode.Text)
Call cmdClear_Click
txtDateEntered.Text = ""
txtItemCode.Text = ""
cmdEdit.Enabled = False
Call vr_engine.LoadMoviesList(lstTitles) 'Refresh items list
lstTitles.SetFocus
Else
If lstTitles.Enabled = False Then
txtTitle.SetFocus
Else
lstTitles.SetFocus
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -