Public Class Welcome

    'Calling the records from my records module.
    Dim Volunteer As VolunteerType
    Dim Film As FilmType
    Dim Performance As PerformanceType
    Dim Booking As BookingType
    Dim Supplier As SupplierType

    Dim VolunteerNumofRecords As Integer

    Dim FilmNumofRecords As Integer

    Dim PerformanceNumofRecords As Integer

    Dim BookingNumofRecords As Integer

    Dim SupplierNumofRecords As Integer

    Private Sub btnStaff_Click(sender As Object, e As EventArgs) Handles btnStaff.Click
        Login.Show()
        Me.Close()
    End Sub

    Private Sub btnCustomer_Click(sender As Object, e As EventArgs) Handles btnCustomer.Click
        CurrentUserName = "Customer"
        CurrentAccessLevel = 1
        MainHub.Show()
        Me.Close()
    End Sub

    Private Sub Welcome_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Creating the volunteer file
        FileOpen(1, VolunteerFilename, OpenMode.Random, , , Len(Volunteer))
        VolunteerNumofRecords = LOF(1) / Len(Volunteer)
        FileClose(1)

        'Creating the film file
        FileOpen(2, FilmFilename, OpenMode.Random, , , Len(Film))
        FilmNumofRecords = LOF(2) / Len(Film)
        FileClose(2)

        'Creating the performance file
        FileOpen(3, PerformanceFilename, OpenMode.Random, , , Len(Performance))
        PerformanceNumofRecords = LOF(3) / Len(Performance)
        FileClose(3)

        'Creating the booking file
        FileOpen(4, BookingFilename, OpenMode.Random, , , Len(Booking))
        BookingNumofRecords = LOF(4) / Len(Booking)
        FileClose(4)

        'Creating the supplier file
        FileOpen(5, SupplierFilename, OpenMode.Random, , , Len(Supplier))
        SupplierNumofRecords = LOF(5) / Len(Supplier)
        FileClose(5)

        'Creating an admin account if there isn't one already.
        If VolunteerNumofRecords < 2 Then
            FileOpen(1, VolunteerFilename, OpenMode.Random,,, Len(Volunteer))

            Volunteer.ID = VolunteerNumofRecords
            Volunteer.Name = "Admin"
            Volunteer.Address = "N/A"
            Volunteer.Phone = "N/A"
            Volunteer.Email = "N/A"
            Volunteer.Password = "Admin"
            Volunteer.SecurityQ = "N/A"
            Volunteer.SecurityQAnswer = "N/A"
            Volunteer.LevelOfAccess = 3

            FilePut(1, Volunteer, VolunteerNumofRecords + 1)
            FileClose(1)

            VolunteerNumofRecords = VolunteerNumofRecords + 1

            FileOpen(1, VolunteerFilename, OpenMode.Random,,, Len(Volunteer))

            Volunteer.ID = VolunteerNumofRecords
            Volunteer.Name = "Mod"
            Volunteer.Address = "N/A"
            Volunteer.Phone = "N/A"
            Volunteer.Email = "N/A"
            Volunteer.Password = "Mod"
            Volunteer.SecurityQ = "N/A"
            Volunteer.SecurityQAnswer = "N/A"
            Volunteer.LevelOfAccess = 2

            FilePut(1, Volunteer, VolunteerNumofRecords + 1)
            FileClose(1)

            VolunteerNumofRecords = VolunteerNumofRecords + 1

            MsgBox("First Time Use Detected!" & StrDup(2, vbNewLine) & "For security reasons it is recomended you change the password of both the Admin and Mod account." & StrDup(2, vbNewLine) & "If help is required please refer to the documentation which can be viewed via a button on the main hub.", vbExclamation)
        End If
    End Sub

    Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
        'allowing the user to opens the documentation saved on google drive.
        Dim DocumentationAddr As String = "https://docs.google.com/document/d/1O7Czm9DiR4roP4cPWJ2aPlhrcRwp6pyqfOPjR4GmYFo/edit?usp=sharing"
        Process.Start(DocumentationAddr)
    End Sub
End Class