main.vb

来自「Beginning VB.NET DatabasesAll_Code.rar」· VB 代码 · 共 27 行

Module Main
    Public g_strUserRole As String = String.Empty
    Public g_strUserID As String
    Public g_strUserName As String

    Sub Main()
        Dim objLogin As New Login
        objLogin.ShowDialog()
        objLogin.Dispose()
        objLogin = Nothing

        If g_strUserRole.Trim.Length > 0 Then
            If g_strUserRole.ToLower Like "admin" Then
                Dim objAdmin As New Admin
                objAdmin.ShowDialog()
                objAdmin.Dispose()
                objAdmin = Nothing
            Else
                Dim objTimeSheet As New TimeSheet
                objTimeSheet.ShowDialog()
                objTimeSheet.Dispose()
                objTimeSheet = Nothing
            End If
        End If
    End Sub
End Module