Dim person_table As person_type
Dim staff_table As staff_type
Dim customer_table As customer_type
Dim address_table As address_type
Dim resavation_table As resavation_type
Dim station_table As station_type
Dim ticket_table(2) As ticket_type
Dim ticket() As Variant
Private Type person_type
personID As Integer
firstName As String
lastName As String
dob As Date
email As String
phone As String
End Type
Private Type staff_type
PTID As person_type
staffID As Long
password As String
End Type
Private Type customer_type
PTID As person_type
gender As String
title As String
End Type
Private Type address_type
addressID As Integer
street As String
suburb As String
postcode As String
cState As String
addressType As String
personREF As person_type
End Type
Private Type resavation_type
resavationID As Integer
customerID As String
resavataionDate As Date
resavationStatus As String
carriageID As Integer
serviceID As Integer
addressType As String
dateofService As Date
customerREF As customer_type
End Type
Private Type station_type
stationID As Integer
stationName As String
ResavationRef As resavation_type
End Type
Private Type ticket_type
ticketID As Integer
travellerName As String
resavationID As Integer
stationStart As Integer
stationEnd As Integer
discountID As Integer
carriageID As Integer
seatID As Integer
carriageID1 As Integer
serviceID As Integer
dateofService As Date
stationRef As station_type
End Type
Private Sub Form_Load()
Dim tickets As String
person_table.personID = 1
person_table.firstName = "Bob"
person_table.lastName = "Smith"
person_table.dob = 12 - April - 1971
person_table.email = "bobsmith@optus.com"
person_table.phone = "86754345"
MsgBox (person_table.firstName & ", " & person_table.lastName & ", " & person_table.dob & ", " & person_table.email & ", " & person_table.phone)
staff_table.PTID.firstName = "Thomas"
staff_table.PTID.lastName = "Travis"
staff_table.PTID.dob = 22 - Feb - 1982
staff_table.PTID.phone = "22278889"
staff_table.staffID = 78656
staff_table.password = "tfrsewrd"
address_table.addressID = 1
address_table.street = "Wilson St"
address_table.suburb = "Prospect"
address_table.postcode = "5082"
address_table.cState = "SA"
address_table.addressType = "Unit"
address_table.personREF.personID = 1
resavation_table.resavationID = 1
resavation_table.customerID = 1
resavation_table.resavataionDate = 1 - Jan - 2000
resavation_table.resavationStatus = "T"
resavation_table.carriageID = 965
resavation_table.serviceID = 276
resavation_table.dateofService = 27 - July - 2011
resavation_table.customerREF.PTID.personID = 1
station_table.stationID = 1
station_table.stationName = "Adelaide"
station_table.ResavationRef.resavationID = 1
ticket = Array("0", "1", "2")
For i = LBound(ticket) To UBound(ticket)
ticket_table(ticket(0)).travellerName = "Bob Smith"
ticket_table(ticket(0)).resavationID = 297
ticket_table(ticket(0)).stationStart = 1
ticket_table(ticket(0)).stationEnd = 3
ticket_table(ticket(0)).discountID = 5
ticket_table(ticket(0)).carriageID = 27
ticket_table(ticket(0)).seatID = 1
ticket_table(ticket(0)).carriageID1 = 7
ticket_table(ticket(0)).dateofService = 5 - Dec - 2000
ticket_table(ticket(0)).stationRef.stationID = 1
ticket_table(0).ticketID = 1
ticket_table(ticket(1)).ticketID = 2
ticket_table(ticket(2)).ticketID = 3
tickets = (ticket_table(i).ticketID)
Next i
MsgBox ("Total number of tickets = " + tickets)
End Sub