VISUAL BASIC:Video Store Software

Hey guys, just finished a project i've been working on for some time now, finally done anyway. so i just decided to let it out. i'd love to hear your toughts on this...

About the software;
         
             The software is meant for video rental stores to enable buyers access their store from the computer and purchase. this app was made using Visual Basic

See Photos....

Also felt like showing some of the codes...

Dim price, mainprice As Integer

Dim l As Integer

Dim vcrop, dvdop, member As Boolean

Private Sub Checknewrelease_Click()

framevideos.Visible = True

framevideos.Caption = "Newly Released Movies"

videoselectado.RecordSource = "select * from rents where release =  'new'"

videoselectado.Refresh

End Sub

Private Sub cmdaction_Click()

framevideos.Visible = True

framevideos.Caption = "All Action Movies"

videoselectado.RecordSource = "select * from rents where category =  'action'"

videoselectado.Refresh

End Sub

Private Sub cmdclaculate_Click()

ordercomplete.Enabled = True

If user = "Guest" Then

txttotal.Caption = "N" & price & ".00"

prsntprice.Caption = "N" & price

Else

txttotal.Caption = "N" & price & ".00"

prsntprice.Caption = "N" & price - ((10 / 100) * price)

End If

frmsummary.cashathand.Text = Val(frmsummary.profit.Caption) + 778304

frmsummary.profit.Caption = (price + ((10 / 100) * price)) / 20

End Sub

Private Sub cmdclear_Click()

frmverify.Visible = False

membercheck = False

lbldisplay.Caption = "Guest"

End Sub

Private Sub cmddisplay_Click()

framevideos.Visible = True

framevideos.Caption = ""

If comedy = True Then

  If vcr = True Then

    videoselectado.RecordSource = "select * from rents where category =  'comedy' and video = 'vcr'"

  Else

    videoselectado.RecordSource = "select * from rents where category = 'comedy' and video = 'dvd'"

  End If

ElseIf drama = True Then

  If vcr = True Then

    videoselectado.RecordSource = "select * from rents where category = 'drama' and video = 'vcr'"

  Else

    videoselectado.RecordSource = "select * from rents where category = 'drama' and video = 'dvd'"

  End If

ElseIf Horror = True Then

  If vcr = True Then

    videoselectado.RecordSource = "select * from rents where category = 'horror' and video = 'vcr'"

  Else

    videoselectado.RecordSource = "select * from rents where category = 'horror' and video = 'dvd'"

  End If

ElseIf action = True Then

  If vcr = True Then

    videoselectado.RecordSource = "select * from rents where category = 'action' and video = 'vcr'"

  Else

    videoselectado.RecordSource = "select * from rents where category = 'action' and video = 'dvd'"

  End If

Else

  If vcr = True Then

    videoselectado.RecordSource = "select * from rents where category = 'sci-fi' and video = 'vcr'"

  Else

    videoselectado.RecordSource = "select * from rents where category = 'sci-fi' and video = 'dvd'"

  End If

End If

videoselectado.Refresh

End Sub

Private Sub cmddrama_Click()

framevideos.Visible = True

framevideos.Caption = "All Drama Movies"

videoselectado.RecordSource = "select * from rents where category =  'drama'"

videoselectado.Refresh

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub cmdhorror_Click()

framevideos.Visible = True

framevideos.Caption = "All Horror Movies"

videoselectado.RecordSource = "select * from rents where category =  'horror'"

videoselectado.Refresh

End Sub

Private Sub cmdlogout_Click()

listdisplay.Clear

pricelist.Clear

'pricedislpay.Clear

receiptlist.Clear

price = price - price

prsntprice.Caption = "N" & price

txttotal.Caption = "N" & price & ".00"

l = 0

member = False

vcrop = False

dvdop = False

price = 0

lbldisplay.Caption = "Guest"

lbldisplay.Caption = ""

membercheck = False

mainapp.Hide

login.Show

End Sub

Private Sub cmdvok_Click()

lbldisplay.Caption = verifyuser.Text

frmverify.Visible = False

End Sub

Private Sub Command1_Click()

l = l - 1

If pricelist.List(l) = "N200" Then

price = price - 200

ElseIf pricelist.List(l) = "N250" Then

price = price - 250

Else

price = price - 300

End If

If l < 0 Then

MsgBox "Your Cart Is Empty", vbCritical

Else

listdisplay.RemoveItem l

pricelist.RemoveItem l

'pricedislpay.RemoveItem l

receiptlist.RemoveItem l

End If

End Sub

Private Sub Command2_Click()

listdisplay.List(l) = schname.Caption

receiptlist.List(l) = schname.Caption

pricelist.List(l) = " N" & schprice

'pricedisplay.List(l) = " N" & schprice

l = l + 1

price = price + Val(schprice)

End Sub

Private Sub Command3_Click()

CommonDialog1.ShowPrinter

'MsgBox "NO PRINTER FOUND!!!", vbCritical

End Sub

Private Sub Command5_Click()

frmsummarycheck.Show

End Sub

Private Sub Command6_Click()

frmAbout.Show

End Sub

Private Sub Command7_Click()

receiptlist.Clear

listdisplay.Clear

pricelist.Clear

'pricedislpay.Clear

price = price - price

prsntprice.Caption = "N" & price

txttotal.Caption = "N" & price & ".00"

l = 0

End Sub

Private Sub Command8_Click()

framevideos.Visible = False

End Sub

Private Sub Command9_Click()

complete.Visible = False

End Sub

Private Sub dvd_Click(Index As Integer)

dvdop = True

vcrop = False

End Sub

Private Sub firstbtn_Click()

videoselectado.Recordset.MoveFirst

End Sub

Private Sub Form_Load()

complete.Visible = False

ordercomplete.Enabled = False

framevideos.Visible = False

If user = "Guest" Then

membercheck = False

ElseIf user = "Admin" Then

membercheck = False

Else

membercheck = 1

End If

vcrop = False

dvdop = False

price = 0

lbldisplay.Caption = "Guest"

l = 0

lbldisplay.Caption = user

End Sub

Private Sub play1_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Frozen 2013 DVDScr XViD AC3-FiNGERBLaST.avi")

End Sub

Private Sub play10_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Final Fantasy The Spirits Within.avi")

End Sub

Private Sub play2_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Final Fantasy The Spirits Within.avi")

End Sub

Private Sub play3_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Justice.League.Throne.of.Atlantis.2015.720p.WEB-DL.x264.mkv")

End Sub

Private Sub play4_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Mechanic Resurrection.2016.HC.HDRip.XViD.AC3-ETRG.avi")

End Sub

Private Sub play5_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Kung Fu Panda Good Croc Bad Croc (2013).mkv")

End Sub

Private Sub play6_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Think.Like.a.Man.Too.2014.720p.BluRay.x264.YIFY.mp4")

End Sub

Private Sub play7_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Justice.League.Throne.of.Atlantis.2015.720p.WEB-DL.x264.mkv")

End Sub

Private Sub play8_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\THE WILD ARGE.avi")

End Sub

Private Sub play9_Click()

WindowsMediaPlayer1.URL = ("C:\Users\Vicki_Rozzae\Desktop\VB MAIN PROJECT\Teen Titans Judas Contract (2017) - HDRip - (mycoolmoviez.net).mp4")

End Sub

Private Sub prevbtn_Click()

'If BOF Then

'MsgBox "Cannot move further, First item reached", vbCritical

'Else

videoselectado.Recordset.MovePrevious

'End If

End Sub

Private Sub searchbtn_Click()

MsgBox "Database is Busy, please search using a different approach", vbInformation

'searchado.Recordset.Find "category =" + Txtsearch.Text, d, adSearchForward, 1

End Sub

Private Sub selectado_Click()

listdisplay.List(l) = videoselectado.Recordset.Fields("Name")

pricelist.List(l) = " N" & videoselectado.Recordset.Fields("price")

'pricedislpay.List(l) = " N" & videoselectado.Recordset.Fields("price")

receiptlist.List(l) = videoselectado.Recordset.Fields("Name")

l = l + 1

price = price + Val(videoselectado.Recordset.Fields("price"))

End Sub

Private Sub Timer1_Timer()

If Label18.Visible = True Then

    Label18.Visible = False

    Label19.Visible = True

Else

    Label18.Visible = True

    Label19.Visible = False

    End If

End Sub

Private Sub vcr_Click()

vcrop = True

dvdop = False

End Sub

WARNING: THE PUBLISHED WORK HERE IS COMPLETELY MINE. DO NOT PUBLISH OR REPOST WITHOUT PERMISSION.

Software by Me, Favour Ehrabo & Anthony...