frmchoices.frm

project on Video rental system

VERSION 5.00
Begin VB.Form frmChoices 
   BackColor       =   &H00FF0000&
   Caption         =   "Options"
   ClientHeight    =   6600
   ClientLeft      =   2340
   ClientTop       =   960
   ClientWidth     =   6465
   ForeColor       =   &H00FF0000&
   LinkTopic       =   "Form2"
   ScaleHeight     =   6600
   ScaleWidth      =   6465
   Begin VB.Frame Frame1 
      BackColor       =   &H00FF0000&
      Caption         =   "Choices"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   2775
      Left            =   720
      TabIndex        =   8
      Top             =   2400
      Width           =   5055
      Begin VB.CommandButton cmdReserve 
         Caption         =   "Reserve"
         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            =   3000
         TabIndex        =   2
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton cmdReturn 
         Caption         =   "Return"
         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            =   840
         TabIndex        =   1
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton cmdRent 
         Caption         =   "Rent"
         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            =   1800
         TabIndex        =   0
         Top             =   840
         Width           =   1215
      End
   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            =   840
      TabIndex        =   3
      ToolTipText     =   "Cancel the registration"
      Top             =   5760
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "&Exit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4320
      TabIndex        =   5
      ToolTipText     =   "Quit the program?"
      Top             =   5760
      Width           =   1335
   End
   Begin VB.CommandButton cmdVerify 
      Caption         =   "&Verify"
      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            =   2520
      TabIndex        =   4
      ToolTipText     =   "Back to verification form?"
      Top             =   5760
      Width           =   1335
   End
   Begin VB.Label Label1 
      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          =   735
      Left            =   840
      TabIndex        =   7
      Top             =   1080
      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          =   735
      Left            =   720
      TabIndex        =   6
      Top             =   480
      Width           =   5055
   End
End
Attribute VB_Name = "frmChoices"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdBack_Click()
Dim ans As Integer
Dim i As Integer
ans = MsgBox("Go back to the main form?", vbYesNo)
    If ans = vbYes Then
    Unload Me
    frmMain.Show
    frmMain.txtlogin().Text = ""
    
    For i = 1 To 4
      frmSignup.txtField(i).Text = ""
    Next i
    End If
End Sub

Private Sub cmdexit_Click()
Dim ans As Integer

ans = MsgBox("Do you really want to quit?", vbYesNo)
    If ans = vbYes Then End
     
End Sub

Private Sub cmdrent_Click()
frmChoices.Hide
frmRent.Show
End Sub

Private Sub cmdReserve_Click()
Unload Me
frmReserve.cmdReserve.Visible = True
frmReserve.cmdBrowse.Visible = True
frmReserve.Show

End Sub

Private Sub cmdVerify_Click()
Dim ans As Integer

ans = MsgBox("Go back to the Verification form?", vbYesNo)
    If ans = vbYes Then
      Unload Me
      frmVerify.Show
    End If
End Sub