?? frmview.frm
字號:
VERSION 5.00
Begin VB.Form frmView
BackColor = &H00FF0000&
Caption = "frmView"
ClientHeight = 6990
ClientLeft = 60
ClientTop = 345
ClientWidth = 6255
ForeColor = &H00FF0000&
LinkTopic = "Form1"
ScaleHeight = 6990
ScaleWidth = 6255
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 7
ToolTipText = "Back to Rent application form"
Top = 6240
Width = 1215
End
Begin VB.ListBox VideosList
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2940
ItemData = "frmView.frx":0000
Left = 360
List = "frmView.frx":0002
TabIndex = 2
Top = 2760
Width = 2895
End
Begin VB.TextBox VideosStatus
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3015
Left = 3480
MultiLine = -1 'True
TabIndex = 1
Top = 2760
Width = 2415
End
Begin VB.CommandButton cmdBack
Caption = "&Back"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4680
TabIndex = 0
ToolTipText = "Back to Rent form"
Top = 6240
Width = 1215
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00FF0000&
Caption = "Point-of-sale system"
BeginProperty Font
Name = "Times New Roman"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 840
TabIndex = 6
Top = 1320
Width = 4695
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00FF0000&
Caption = "Millenium Video Store"
BeginProperty Font
Name = "Times New Roman"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1215
Left = 600
TabIndex = 5
Top = 120
Width = 4815
End
Begin VB.Label Label2
BackColor = &H00FF0000&
Caption = "Video Status:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 3600
TabIndex = 4
Top = 2400
Width = 2415
End
Begin VB.Label Label1
BackColor = &H00FF0000&
Caption = "Videos List:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 360
TabIndex = 3
Top = 2400
Width = 2415
End
End
Attribute VB_Name = "frmView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdBack_Click()
'frmView.Hide
Unload Me
frmRent.Show
End Sub
Private Sub Command1_Click()
End Sub
Private Sub cmdCancel_Click()
Unload Me
frmRentVideos.Show
End Sub
Private Sub Form_Load()
'MsgBox ("Welcome to Reservations") ',please enter your member ID and the video ID you want")
Dim lngRowsRetrieved As Long, strTitle As String
Dim varData() As Variant
Dim count As Integer
lngRowsRetrieved = RunSelectQuery("select Title from Videos", varData)
For count = 0 To lngRowsRetrieved - 1
strTitle = ConvertToString(varData(0, count))
VideosList.AddItem (strTitle)
Next count
End Sub
Private Sub VideosList_Click()
'Show information of the selected video
Dim lngRowsRetrieved As Long, strVideoID As String, strTitle As String, strCopiesAval As String, strNextDue As String, strCopies As String
Dim varData() As Variant
Dim reserve As Integer
Dim ans As Integer
lngRowsRetrieved = RunSelectQuery("select ID,Title,Description," _
& "Director,Year,Price,Copies," _
& "CopiesAvailable from Videos " _
& "where Title = '" & VideosList & "'", varData)
' lngRowsRetrieved = RunSelectQuery("select ID,Title,Copies" _
' & "CopiesAvailable from Videos " _
' & "where Title = '" & strTitle & "'", varData)
strVideoID = ConvertToString(varData(0, 0)) 'ID
strTitle = ConvertToString(varData(1, 0)) 'Title
strCopies = ConvertToString(varData(2, 0)) 'number of copy
strCopiesAval = ConvertToString(varData(6, 0)) 'Copies avalable ava
strNextDue = ConvertToString(varData(7, 0)) 'Next due date
If (strCopiesAval) = 0 Then
VideosStatus.Text = " Video Title: " + strTitle + vbCrLf + _
"Video ID: " + strVideoID + vbCrLf + _
"Availability: currently unavailable (Make Reservation?)" + vbCrLf + _
"Copies: " + strCopies + vbCrLf + "Next Due: " + strNextDue
reserve = MsgBox("Make Reservation?", vbYesNo)
If reserve = vbYes Then
frmReserve.cmdReserve.Visible = True
frmReserve.cmdBrowse.Visible = True
frmReserve.cmdback.Visible = True
'frmView.Hide
Unload Me
frmReserve.Show
End If
Else
VideosStatus.Text = " Video Title: " + strTitle + vbCrLf + _
"Video ID: " + strVideoID + vbCrLf + _
"Availability: currently available" + vbCrLf + _
"Copies: " + strCopies
'ans = MsgBox("This video is currently available click Yes to rent its.", vbYesNo, "Video Available")
'If ans = vbYes Then 'Go to form RENT
'frmTest.Show
End If
'End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -