System-Initialosierung - Applikationsdaten auslesen - Aktueller Mitarbeiter auslesen bzw. Login-Dialog anzeigen

[Visual Basic]
Private Function Init_System() As Boolean

Quellcode

[Visual Basic]
    Private Function Init_System() As Boolean 
        '       Dim dbconn As New TKB.VV.DB.DB_Connection 
        '      dbconn = Nothing 
 
        Globals.clsapplication.iApplikationsnr = 1 
        Globals.clsapplication.cpMainConnectionProvider = Globals.conn 
        conn.OpenConnection() 
        Globals.clsapplication.SelectOne() 
        conn.CloseConnection(True) 
 
        'Show Login, sofern der Applikationsparameter gesetzt ist 
        If Globals.clsapplication.bShowlogin.Value = True Then 
            If Not login() Then Return False 
            Me.WindowState = FormWindowState.Maximized 
            If Not Directory.Exists(Globals.clsapplication.sTmp_filepath) Then 
                Directory.CreateDirectory(Globals.clsapplication.sTmp_filepath) 
            End If 
            Dim f As New frmSplash 
            f.MdiParent = Me 
            f.Show() 
            Application.DoEvents() 
            Return True 
        Else 
            '14.04.2009 - Menueintrag ausblenden, sofern das Loginfenster nicht angezeigt wird 
            Me.NeuAnmeldenToolStripMenuItem.Visible = False 
            Dim f As New frmSplash 
            f.MdiParent = Me 
            f.Show() 
            Application.DoEvents() 
            'Prüfung mittels TG-Nummer, ob der User berechtigt ist 
            Dim tmp_mitarbeiter As New TKB.VV.DB.MyMitarbeiter 
            Dim tmp_mitarbeiterdata As New DataTable 
            tmp_mitarbeiter.cpMainConnectionProvider = Globals.conn 
            Globals.conn.OpenConnection() 
            tmp_mitarbeiterdata = tmp_mitarbeiter.SelectWithTGNummer() 
            Globals.conn.CloseConnection(True) 
            Application.DoEvents() 
            If tmp_mitarbeiterdata.Rows.Count < 1 Then 
                txt.show_standardmessage(2, MsgBoxStyle.Exclamation) 
                Me.ForceQuit = True 
                Return False 
                Exit Function 
            End If 
            Globals.clsmitarbeiter.iMitarbeiternr = New SqlInt32(CType(tmp_mitarbeiterdata.Rows(0).Item("Mitarbeiternr"), Int32)) 
            Globals.clsmitarbeiter.cpMainConnectionProvider = Globals.conn 
            conn.OpenConnection() 
            Globals.clsmitarbeiter.SelectOne() 
            Globals.conn.CloseConnection(True) 
            tmp_mitarbeiter.Dispose() 
            tmp_mitarbeiterdata.Dispose() 
            Me.WindowState = FormWindowState.Maximized 
            If Not Directory.Exists(Globals.clsapplication.sTmp_filepath) Then 
                Directory.CreateDirectory(Globals.clsapplication.sTmp_filepath) 
            End If 
            Return True 
        End If 
    End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

frmMain