Add My.Common Namespace for DB Commands and Views

EDMI_ClientSuite/frmMain.vb

@@ -24,10 +24,13 @@ Public Class frmMain
 
         ' Initialize Form Related Variables
         My.MainForm = Me
+
+        ' Initialize Common Functions
+        My.Common = New ClassCommon(My.LogConfig)
     End Sub
 
-    Private Sub SetOnlineLabel()
-        If My.Application.Service.Online Then
+    Private Sub SetOnlineLabel(Online As Boolean)
+        If Online Then
             LabelServiceOnline.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             LabelServiceOffline.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         Else
@@ -37,7 +40,7 @@ Public Class frmMain
     End Sub
 
     Private Sub HandleOnlineChanged(sender As Object, Online As Boolean)
-        SetOnlineLabel()
+        SetOnlineLabel(Online)
     End Sub
 
     Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -50,7 +53,7 @@ Public Class frmMain
             _PanelManager = New ClassPanelManager(My.LogConfig, DocumentManager, DockManager)
 
             ' Show Service Status Label 
-            SetOnlineLabel()
+            SetOnlineLabel(True)
 
             ' Apply Selected Skin Style
             UserLookAndFeel.Default.SetSkinStyle(My.UIConfig.SkinName)
@@ -216,4 +219,8 @@ Public Class frmMain
 
         e.Cancel = True
     End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+
+    End Sub
 End Class