submain.bas

这是一个银行IC卡门禁系统软件

Attribute VB_Name = "subMain"
Option Explicit

'##ModelId=3D338979033F
Private Sub Main()

    '<EhHeader>
    On Error GoTo Main_Err
    
    Dim cnnstring As String
    
    Dim AccessPath As String
    LockShow = True
    
    cnnstring = GetSetting("LockDB", "CnnServer", "cnnstring", "")
    AccessPath = GetSetting("LockDB", "CnnServer", "AccessPath", "")
    

        If cnnstring = "" Or AccessPath = "" Then

            frmGetDataBase.Show vbModal
            cnnstring = frmGetDataBase.cnnstring
        
            SaveSetting "LockDB", "CnnServer", "cnnstring", cnnstring
        
        ElseIf InStr(cnnstring, "Jet") = 0 Then
        
            frmGetDataBase.Show vbModal
            cnnstring = frmGetDataBase.cnnstring
        
            SaveSetting "LockDB", "CnnServer", "cnnstring", cnnstring
        
        End If

    
    Set dbcnn = New LockDBConnection
    
    dbcnn.GetServerTime
    
    Set cnnLock = New ADODB.Connection
    
    Set cnnLock = dbcnn.cnn
    
    mainForm.Show

    '<EhFooter>
    Exit Sub

Main_Err:
    LockErrorShow ("subMain.Main")

    '</EhFooter>

End Sub


'##ModelId=3D338979038F
Public Function GetRoomId(ByVal Building As Byte, ByVal Floor As Byte, ByVal Room As Byte) As String

    '<EhHeader>
    On Error GoTo GetRoomId_Err
    '</EhHeader>
    Dim strBuilding As String
    Dim strFloor As String
    Dim strRoom As String

    If Building <= 9 Then

        strBuilding = "00" & LTrim(Str(Building))

    ElseIf Building > 9 And Building <= 99 Then

        strBuilding = "0" & LTrim(Str(Building))

    ElseIf Building > 99 Then

        strBuilding = LTrim(Str(Building))

    End If

    If Floor <= 9 Then

        strFloor = "00" & LTrim(Str(Floor))

    ElseIf Floor > 9 And Floor <= 99 Then

        strFloor = "0" & LTrim(Str(Floor))

    ElseIf Floor > 99 Then

        strFloor = LTrim(Str(Floor))

    End If

    If Room <= 9 Then

        strRoom = "00" & LTrim(Str(Room))

    ElseIf Room > 9 And Room <= 99 Then

        strRoom = "0" & LTrim(Str(Room))

    ElseIf Room > 99 Then

        strRoom = LTrim(Str(Room))

    End If

    GetRoomId = strBuilding & strFloor & strRoom

    '<EhFooter>
    Exit Function

GetRoomId_Err:
    LockErrorShow ("subMain.GetRoomId")

    '</EhFooter>

End Function


'##ModelId=3D338979038F
Public Function GetFloorId(ByVal Building As Byte, ByVal Floor As Byte) As String

    '<EhHeader>
    On Error GoTo GetRoomId_Err
    '</EhHeader>
    Dim strBuilding As String
    Dim strFloor As String

    If Building <= 9 Then

        strBuilding = "00" & LTrim(Str(Building))

    ElseIf Building > 9 And Building <= 99 Then

        strBuilding = "0" & LTrim(Str(Building))

    ElseIf Building > 99 Then

        strBuilding = LTrim(Str(Building))

    End If

    If Floor <= 9 Then

        strFloor = "00" & LTrim(Str(Floor))

    ElseIf Floor > 9 And Floor <= 99 Then

        strFloor = "0" & LTrim(Str(Floor))

    ElseIf Floor > 99 Then

        strFloor = LTrim(Str(Floor))

    End If


    GetFloorId = strBuilding & strFloor

    '<EhFooter>
    Exit Function

GetRoomId_Err:
    LockErrorShow ("subMain.GetFloorId")

    '</EhFooter>

End Function

'##ModelId=3D33897A0282
Public Function FileExists(FileName As String) As Boolean

    FileExists = Len(Trim$(Dir(FileName))) > 0

End Function

'##ModelId=3D33897A02BE
Public Function GetCommandArgs()

    Dim CmdLine As String
    
    CmdLine = Command()
    
    If InStr(LCase(CmdLine), "netversion") > 0 Then

        IsNetVersion = True

    Else

        IsNetVersion = False

    End If
    
    If InStr(LCase(CmdLine), "protect") > 0 Then

        isProtect = True

    Else

        isProtect = False

    End If
    
End Function