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

MS_29.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-30 09:32:30 +01:00
parent 7ee607f4e5
commit 2cd1dc3a94
11 changed files with 312 additions and 6077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
app/DD-Record-Organiser/ClassInit.vb
View File

@@ -9,28 +9,39 @@ Public Class ClassInit
End Sub
Public Sub InitDatabase()
Dim dbResult As Boolean
Try
Dim dbResult As Boolean
MySettings_Load()
If MyConnectionString <> String.Empty Then
dbResult = ClassDatabase.Init()
Else
frmConfig_Basic.ShowDialog()
dbResult = ClassDatabase.Init()
End If
MySettings_Load()
If MyConnectionString <> String.Empty Then
dbResult = ClassDatabase.Init()
Else
frmConfig_Basic.ShowDialog()
dbResult = ClassDatabase.Init()
End If
If dbResult = False Then
Throw New Exception("Fehler beim Initialisieren der Datenbank. Weitere Informationen finden Sie in der Logdatei.")
End If
If dbResult = False Then
Throw New Exception("Find more information in the logfile.")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Init Database:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub InitWindream()
Dim configResult As Boolean
configResult = Settings_LoadBasicConfig()
Try
Dim configResult As Boolean
configResult = Settings_LoadBasicConfig()
If configResult = False Then
Throw New Exception("Fehler beim Initialisieren der Windream-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
End If
If configResult = False Then
Throw New Exception("Find more information in the logfile.")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Init windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub