Attribute VB_Name = "modMain"
Option Explicit

Global UserChecked As Boolean

Public MEDSYSClasses As Object
Public MEDSYSClassCreated As Boolean
Public prjStation As Object
Public prjStationCreated As Boolean

Public Function CheckUser() As Boolean

    If UserChecked = True Then
        CheckUser = True
        Exit Function
    End If

    Dim VerifyUser As String
    '    VerifyUser = pclsUser.EmployeeCode

    If pclsUser.ValidateUserID(pstrEmployeeID, True) = pstrEmployeeID Then
        CheckUser = True
        UserChecked = True
    Else
        MsgBox "Access Denied", vbInformation + vbOKOnly, "Message"
        CheckUser = False
        UserChecked = False
    End If

End Function



Public Sub Addlog(Logstr As String, Optional Rev As Boolean)

    If Rev = False Then
        frmLog.txtLog.Text = Logstr & vbCrLf & frmLog.txtLog.Text
    Else
        frmLog.txtLog.Text = frmLog.txtLog.Text & vbCrLf & Logstr
    End If
    frmLog.Show
End Sub

Public Sub CreateMEDSYSClasses()
    On Error GoTo ErrTrap
    If MEDSYSClassCreated = False Then
        Set MEDSYSClasses = CreateObject("MEDSYSClasses.clsmedsys")
        MEDSYSClasses.SetMedsysUser pclsUser
        MEDSYSClassCreated = True
    End If
    Exit Sub
ErrTrap:
    MsgBox "Register MEDSYSClasses.dll. " & Err.Description
End Sub