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

MS_19012016

Browse Source
This commit is contained in:
SchreiberM
2016-01-20 11:33:37 +01:00
parent 0c256313e2
commit 48fe3a4845
10 changed files with 88 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organiser/frmMain.vb
View File

@@ -38,17 +38,22 @@ Public Class frmMain
Dim splash As New frmSplash()
splash.ShowDialog()
If USER_IS_ADMIN = True Then
pageAdmin.Visible = True
If ERROR_INIT = "NONE" Then
If USER_IS_ADMIN = True Then
pageAdmin.Visible = True
End If
LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
'LoadMenuItems()
LoadMenuItems2()
LoadQuickStartItems()
ElseIf ERROR_INIT = "DATABASE" Then
Load_ConfigBasic()
End If
LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()
'LoadMenuItems()
LoadMenuItems2()
LoadQuickStartItems()
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
End Sub
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -450,12 +455,14 @@ Public Class frmMain
End Sub
Private Sub itemSettings_ItemClick(sender As Object, e As ItemClickEventArgs) Handles itemSettings.ItemClick
Load_ConfigBasic()
End Sub
Sub Load_ConfigBasic()
frmConfig_Basic.ShowDialog()
If CONNECTION_CHANGED = True Then
Load_Connection_Dep_Data()
End If
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick
Cursor = Cursors.WaitCursor
OpenFormOverview()
@@ -493,7 +500,7 @@ Public Class frmMain
End Sub
Private Sub BarButtonItem10_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem10.ItemClick
frmConfig_Basic.ShowDialog()
Load_ConfigBasic()
End Sub
Private Sub BarButtonItem12_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem12.ItemClick