AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_18042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-19 11:08:32 +02:00
parent 8ed70abb9a
commit 79942542e4
30 changed files with 5644 additions and 4517 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
app/DD-Record-Organiser/frmSplash.vb
View File

@@ -61,39 +61,39 @@ Public NotInheritable Class frmSplash
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
Dim Init = New ClassInit()
bw.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger()
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(2), "Initializing Database")
If Init.InitDatabase() = True Then
Try
Dim Init = New ClassInit()
bw.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger()
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(3), "Initializing Basic-Configuration")
Init.InitBasics2()
bw.ReportProgress(CalcProgress(2), "Initializing Database")
If Init.InitDatabase() = True Then
System.Threading.Thread.Sleep(500)
System.Threading.Thread.Sleep(300)
bw.ReportProgress(CalcProgress(3), "Initializing Basic-Configuration")
Init.InitBasics2()
bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If Init.InitUserLogin = False Then
ERROR_INIT = "INVALID USER"
System.Threading.Thread.Sleep(300)
bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If ClassInit.InitUserLogin = False Then
ERROR_INIT = "INVALID USER"
End If
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(5), "Initializing Frontend")
' InitInterface wurde in frmMain integriert
'Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(500)
Else
ERROR_INIT = "DATABASE"
End If
System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(5), "Initializing Frontend")
' InitInterface wurde in frmMain integriert
'Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(500)
Else
ERROR_INIT = "DATABASE"
End If
Catch ex As Exception
MsgBox("Unexpecte Error in Init Classes: " & vbNewLine, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub bw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs)