I need some guidance
I am trying to Access a random data file that is being generated by VB.net application but I am getting a few error messages at the moment i can not even try to read the file.
this is my code so far
Code: Select all
Type CashierDB Field = 1
Dim CashierNumber(3) As UByte
Dim CashierPassword(3) As UByte
Dim CashierName(254) As UByte
Dim CashierNameReceipit(39) As UByte
Dim ChangePassword(0) As UByte
Dim RestrictRefund(0) As UByte
Dim RestrictRefundValue(9) As UByte
Dim UserCanOverrideLockout(0) As UByte
Dim useraccesslevel(254) As UByte
'these below this line are future update to the NPoS & KeyPoS (AND MAYBE KPoS)
'DIM DiscountLockout(0) As UByte
'DIM Discountvalue(9) As UByte
'DIM OverrideDiscountLock(0) As UByte
End Type
Code: Select all
Public Sub FindCashier (ByVal CashierNumber As String, ByVal CashierPassword As String)
Dim recordLength As Integer = 0
Dim recordNumber As Integer = 0
Dim lastRecord As Integer = 0
Dim CashierFound As Integer = 0
recordLength = len(CashierRecord)
Cls
Print "Path to Database : "; PathToCashierDatabase
Print "Cashier Number To Find :"; CashierNumber
Print "Cashier Password : "; CashierPassword
Print "Database Record Length :"; recordLength
Open PathToCashierDatabase For Random Access Read Write As #CashierDatabaseFileNumber len = recordLength
lastRecord = lof(CashierDatabaseFileNumber) \ recordLength
Print "lof(CashierDatabaseFileNumber)="; lof(CashierDatabaseFileNumber)
Print "lastRecord"; lastRecord
For recordNumber = 1 to lastRecord
get #CashierDatabaseFileNumber, recordNumber, CashierRecord
Select Case CashierRecord.CashierNumber
Case = cashierNumber Then
If CashierRecord.CashierPassword = CashierPassword Then
Select Case Trim(CashierRecord.ChangePassword) ' Check to see if Password Needs to be changed
Case "0" ' Password Does not need to be changed
KeyPadInput = ""
CashierNamePrint = Trim(CashierRecord.CashierNameReceipit)
CashierAccess = Trim(CashierRecord.useraccesslevel) 'Set the system to use the signed on cashier
CashierOverrideAccess = 0
PriceOverridePrice = 0 'Clears the Entered Price
TotalDue = 0 'Resets sale value
ItemsSold = 0 'Resets item count
TotalTendered = 0 'Resert the total tendered value
RecipitClear = 1 'Set the recipit so a new one can be produced for sale
SaleMode = "Sale" 'Sets the salemode back to sale
'RecallInProgress = "No" 'Resets the Recall trigger so the system will run in normal mode
ShowTaskBarItems = 1
SubTotalPressed = 0
DisplayLine1 = ""
DisplayLine2 = ""
Salescreen
Case "1"
KeyPadInput = ""
'PasswordChange1
End Select
Else
updateCashierScreen(CashierDisplayComSettings, "USER PASSWORD DOES", 0, "NOT MATCH. PRESS CLEAR" & KeyPadInPutPassword, 1, 0)
Do : Dim KeyPress As Long = GetKeyNB
Select Case KeyPress
Case Key_Clear
KeyPadInput = ""
CloseAllFiles
RequestCashierPassword(CashierNumber)
Exit Sub
End Select
End If
Case <> cashierNumber
updateCashierScreen(CashierDisplayComSettings, "USER NOT FOUND", 0, "PRESS CLEAR" & KeyPadInPutPassword, 1, 0)
Do : Dim KeyPress As Long = GetKeyNB
Select Case KeyPress
Case Key_Clear
KeyPadInput = ""
RequestCashierID
Exit Sub
End Select
End If
End Select
Next
Close #CashierDatabaseFileNumber
End Sub
- C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(104) error 72: Array access, index expected in 'Select Case CashierRecord.CashierNumber'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(105) error 9: Expected expression, found '=' in 'Case = cashierNumber Then'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(105) error 3: Expected End-of-Line, found '=' in 'Case = cashierNumber Then'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(106) error 72: Array access, index expected, found '=' in 'If CashierRecord.CashierPassword = CashierPassword Then'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(107) error 72: Array access, index expected, found ')' in 'Select Case Trim(CashierRecord.ChangePassword) ' Check to see if Password Needs to be changed'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(108) error 24: Invalid data types, before ''' in 'Case "0" ' Password Does not need to be changed'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(110) error 72: Array access, index expected, found ')' in 'CashierNamePrint = Trim(CashierRecord.CashierNameReceipit)'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(111) error 72: Array access, index expected, found ')' in 'CashierAccess = Trim(CashierRecord.useraccesslevel) 'Set the system to use the signed on cashier'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(126) error 24: Invalid data types in 'Case "1"'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(140) error 29: Expected 'LOOP', found 'End' in 'End If'
C:\FreeBASIC\FreeBASIC - Projects\KPoS\database.bi(140) error 132: Too many errors, exiting