mainentry.vb

来自「数据库学习的绝好例子简单的数据库经典入门」· VB 代码 · 共 23 行

Public Class MainEntry
    Public Shared 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 Class