Debranet Accounting release-hez

2020-08-31 14:09:02 +02:00
parent 1599b29e28
commit cfee10542b
9 changed files with 423 additions and 53 deletions
@@ -1 +1,2 @@
 DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v20.1, Version=20.1.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
@@ -9,7 +9,7 @@
    <OutputType>WinExe</OutputType>
    <StartupObject>Sub Main</StartupObject>
    <RootNamespace>Nuvolar.Win</RootNamespace>
-    <AssemblyName>Nuvolar.Win.Lite</AssemblyName>
+    <AssemblyName>Nuvolar.Win.Debranet</AssemblyName>
    <MyType>WindowsFormsWithCustomSubMain</MyType>
    <ApplicationIcon>favicon.ico</ApplicationIcon>
    <OptionExplicit>On</OptionExplicit>
@@ -394,6 +394,12 @@
    <Compile Include="WinApplication.vb">
      <SubType>Component</SubType>
    </Compile>
+    <Compile Include="XafSplashScreen.Designer.vb">
+      <DependentUpon>XafSplashScreen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="XafSplashScreen.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="XMLUserStore\UserStore.vb" />
  </ItemGroup>
  <ItemGroup>
@@ -408,6 +414,9 @@
      <DependentUpon>WinApplication.vb</DependentUpon>
      <SubType>Designer</SubType>
    </EmbeddedResource>
+    <EmbeddedResource Include="XafSplashScreen.resx">
+      <DependentUpon>XafSplashScreen.vb</DependentUpon>
+    </EmbeddedResource>
  </ItemGroup>
  <ItemGroup>
    <None Include="UnusableNodes.xml">
@@ -13,7 +13,7 @@ Imports Nuvolar.Module
 Friend NotInheritable Class Program
    Private Sub New()
    End Sub
-    <STAThread()> _
+    <STAThread()>
    Public Shared Sub Main(ByVal arguments() As String)
 #If EASYTEST Then
        DevExpress.ExpressApp.EasyTest.WinAdapter.RemotingRegistration.Register(4100)
@@ -57,7 +57,6 @@ Friend NotInheritable Class Program
                AddHandler winApplication.LastLogonParametersWriting, AddressOf winApplication_LastLogonParametersWriting
                AddHandler winApplication.CustomHandleException, AddressOf winApplication_CustomHandleException
                winApplication.DelayedViewItemsInitialization = True
-                winApplication.SplashScreen = New DevExpress.ExpressApp.Win.Utils.DXSplashScreen
                winApplication.DatabaseUpdateMode = DatabaseUpdateMode.UpdateOldDatabase

                AuditTrailService.Instance.ObjectAuditingMode = ObjectAuditingMode.CreationOnly
@@ -12,6 +12,7 @@ Imports DevExpress.ExpressApp.Utils
 Imports DevExpress.ExpressApp.Xpo
 Imports Nuvolar.Module.GeneralFunction
 Imports System.Data.SqlClient
+Imports DevExpress.ExpressApp.Win.Utils

 Partial Public Class NuvolarWindowsFormsDebranetGL
    Inherits WinApplication
@@ -22,7 +23,9 @@ Partial Public Class NuvolarWindowsFormsDebranetGL
    Private Sub InitializeDefaults()
        LinkNewObjectToParentImmediately = True
        UseLightStyle = True
+        SplashScreen = New DXSplashScreen(GetType(XafSplashScreen), New DefaultOverlayFormOptions())
        ExecuteStartupLogicBeforeClosingLogonWindow = True
+
    End Sub
    Private Sub NuvolarWindowsFormsApplication_DatabaseVersionMismatch(ByVal sender As Object, ByVal e As DevExpress.ExpressApp.DatabaseVersionMismatchEventArgs) Handles MyBase.DatabaseVersionMismatch

@@ -5,6 +5,8 @@ Imports Nuvolar.Module
 Imports Nuvolar.Module.Win
 Imports Nuvolar.Module.StaticClass
 Imports DevExpress.ExpressApp.Xpo
+Imports System.Configuration
+Imports System.Text

 Partial Public Class NuvolarWindowsFormsDebranetGL
    Inherits WinApplication
@@ -42,64 +44,44 @@ Partial Public Class NuvolarWindowsFormsDebranetGL
        GLOBAL_SQLServer = _ChangeLogon.SQLServer
        GLOBAL_SQLDatabase = _ChangeLogon.DBConnection

+        Dim _NuvolarServer As String = ConfigurationManager.AppSettings("NuvolarServer")
+        If String.IsNullOrEmpty(_NuvolarServer) = False Then
+            Dim _EncryptPassword As String = "uO1625m9ftwStO40CwK3mrO17OxsyLe5YDVXAUWC0JZlfMM9YOJYZN8g21nG9HhX"
+            Dim _EncryptSalt As String = "IrUMyznsIimD8Ct8EhSQ04PQq00Rje9p"
+            Dim _PasswordDecoded As String = EncryptDecrypt.AESDecrypt(Encoding.ASCII.GetString(Convert.FromBase64String(_NuvolarServer)), _EncryptPassword, _EncryptSalt)
+            GeneralFunction.GLOBAL_SQLUser = _PasswordDecoded.Split(";"c)(1)
+            GeneralFunction.GLOBAL_SQLPassword = _PasswordDecoded.Split(";"c)(2)
+        End If
+

        Select Case _ChangeLogon.SQLType
            Case eSQLType.MSSQL
-                Select Case _ChangeLogon.SQLServer
-                    Case "192.168.1.75"
-                        _connectionString = " User ID=sa; "
-                        _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName))
-                        _connectionString &= " Password=M1cr0s0ft!;"
-                        _connectionString &= " Pooling=false;"
-                        _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer)
-                        _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection
+                _connectionString = String.Format(" User ID={0}; " &
+                                                  " Application Name=Nuvolar Framework ({1});" &
+                                                  " Password={2};" &
+                                                  " Pooling=false;" &
+                                                  " Data Source={3};" &
+                                                  " Initial Catalog={4}", GeneralFunction.GLOBAL_SQLUser, _ChangeLogon.UserName.ToUpper(), GeneralFunction.GLOBAL_SQLPassword,
+                                                                          _ChangeLogon.SQLServer, _ChangeLogon.DBConnection)
                _plattform = "MS SQL"
-                        GLOBAL_SQLUser = "sa"
-                        GLOBAL_SQLPassword = "M1cr0s0ft!"
-                    Case Else
-                        _connectionString = " User ID=sa; "
-                        _connectionString &= String.Format(" Application Name=Nuvolar Framework ({0});", UCase(_ChangeLogon.UserName))
-                        _connectionString &= " Password=pcl718;"
-                        _connectionString &= " Pooling=false;"
-                        _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer)
-                        _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection
-                        _plattform = "MS SQL"
-                        GLOBAL_SQLUser = "sa"
-                        GLOBAL_SQLPassword = "pcl718"
-                End Select

            Case eSQLType.MySQL
-                Select Case _ChangeLogon.SQLServer
-                    Case "eu-cdbr-azure-north-e.cloudapp.net"
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "bf614abf4c83ef", "edbc0ac0", "trevor")
-                    Case "84.1.95.74"
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "malomko10", _ChangeLogon.DBConnection)
-                    Case "192.168.100.182"
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection)
-                    Case "81.183.209.96"
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection)
-                    Case "192.168.0.200"
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!", _ChangeLogon.DBConnection)
-                    Case "192.168.1.31", "192.168.0.159", "84.1.150.148", "nuvolar.northeurope.cloudapp.azure.com", "192.168.1.75"
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "M1cr0s0ft!12345", _ChangeLogon.DBConnection)
-                    Case Else
-                        _connectionString = DevExpress.Xpo.DB.MySqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "root", _ChangeLogon.DBConnection)
-
-                End Select
+                _connectionString = String.Format("XpoProvider=MySql;" &
+                                                  "server={0}; " &
+                                                  "Port = 3306;" &
+                                                  "user id = {1}; " &
+                                                  "password = {2}; " &
+                                                  "database = {3}; " &
+                                                  "Persist Security Info = true; " &
+                                                  "CharSet = utf8; " & "Allow User Variables = True", _ChangeLogon.SQLServer, GeneralFunction.GLOBAL_SQLUser,
+                                                                                                      GeneralFunction.GLOBAL_SQLPassword, _ChangeLogon.DBConnection)
                _plattform = "MySQL"
-                GLOBAL_SQLUser = "root"
-                GLOBAL_SQLPassword = "pcl718"
            Case eSQLType.PostgreSQL
-                _connectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer, "root", "pcl718", _ChangeLogon.DBConnection)
+                _connectionString = DevExpress.Xpo.DB.PostgreSqlConnectionProvider.GetConnectionString(_ChangeLogon.SQLServer & ";Port=5432", GeneralFunction.GLOBAL_SQLUser,
+                                                                                                       GeneralFunction.GLOBAL_SQLPassword, _ChangeLogon.DBConnection)
                _plattform = "postgreSQL"
            Case Else
-                _connectionString = " User ID=sa; "
-                _connectionString &= " Password=pcl718;"
-                _connectionString &= " Pooling=false;"
-                _connectionString &= String.Format(" Data Source={0};", _ChangeLogon.SQLServer)
-                _connectionString &= " Initial Catalog=" & _ChangeLogon.DBConnection
-                GLOBAL_SQLUser = "sa"
-                GLOBAL_SQLPassword = "pcl718"
+                _connectionString = ""
        End Select

        Dim anm As System.Reflection.AssemblyName = System.Reflection.AssemblyName.GetAssemblyName(Application.StartupPath & "\Nuvolar.Module.dll")
@@ -0,0 +1,153 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class XafSplashScreen
+    Inherits DevExpress.XtraSplashScreen.SplashScreen
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XafSplashScreen))
+        Me.labelCopyright = New DevExpress.XtraEditors.LabelControl()
+        Me.pictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
+        Me.pcApplicationName = New DevExpress.XtraEditors.PanelControl()
+        Me.labelSubtitle = New DevExpress.XtraEditors.LabelControl()
+        Me.labelApplicationName = New DevExpress.XtraEditors.LabelControl()
+        Me.labelStatus = New DevExpress.XtraEditors.LabelControl()
+        Me.progressBarControl = New DevExpress.XtraEditors.MarqueeProgressBarControl()
+        CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pcApplicationName, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pcApplicationName.SuspendLayout()
+        CType(Me.progressBarControl.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'labelCopyright
+        '
+        Me.labelCopyright.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.labelCopyright.Location = New System.Drawing.Point(24, 292)
+        Me.labelCopyright.Name = "labelCopyright"
+        Me.labelCopyright.Size = New System.Drawing.Size(47, 13)
+        Me.labelCopyright.TabIndex = 11
+        Me.labelCopyright.Text = "Copyright"
+        '
+        'pictureEdit1
+        '
+        Me.pictureEdit1.EditValue = CType(resources.GetObject("pictureEdit1.EditValue"), Object)
+        Me.pictureEdit1.Location = New System.Drawing.Point(347, 304)
+        Me.pictureEdit1.Name = "pictureEdit1"
+        Me.pictureEdit1.Properties.AllowFocused = False
+        Me.pictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
+        Me.pictureEdit1.Properties.Appearance.Options.UseBackColor = True
+        Me.pictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.pictureEdit1.Properties.ShowMenu = False
+        Me.pictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
+        Me.pictureEdit1.Size = New System.Drawing.Size(126, 35)
+        Me.pictureEdit1.TabIndex = 15
+        '
+        'pcApplicationName
+        '
+        Me.pcApplicationName.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(187, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(11, Byte), Integer))
+        Me.pcApplicationName.Appearance.Options.UseBackColor = True
+        Me.pcApplicationName.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+        Me.pcApplicationName.Controls.Add(Me.labelSubtitle)
+        Me.pcApplicationName.Controls.Add(Me.labelApplicationName)
+        Me.pcApplicationName.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pcApplicationName.Location = New System.Drawing.Point(1, 1)
+        Me.pcApplicationName.LookAndFeel.UseDefaultLookAndFeel = False
+        Me.pcApplicationName.Name = "pcApplicationName"
+        Me.pcApplicationName.Size = New System.Drawing.Size(490, 220)
+        Me.pcApplicationName.TabIndex = 16
+        '
+        'labelSubtitle
+        '
+        Me.labelSubtitle.Appearance.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.labelSubtitle.Appearance.ForeColor = System.Drawing.Color.White
+        Me.labelSubtitle.Appearance.Options.UseFont = True
+        Me.labelSubtitle.Appearance.Options.UseForeColor = True
+        Me.labelSubtitle.Location = New System.Drawing.Point(154, 148)
+        Me.labelSubtitle.Name = "labelSubtitle"
+        Me.labelSubtitle.Size = New System.Drawing.Size(176, 25)
+        Me.labelSubtitle.TabIndex = 1
+        Me.labelSubtitle.Text = "by Dorlin-System Kft."
+        '
+        'labelApplicationName
+        '
+        Me.labelApplicationName.Appearance.Font = New System.Drawing.Font("Segoe UI", 26.25!)
+        Me.labelApplicationName.Appearance.ForeColor = System.Drawing.SystemColors.Window
+        Me.labelApplicationName.Appearance.Options.UseFont = True
+        Me.labelApplicationName.Appearance.Options.UseForeColor = True
+        Me.labelApplicationName.Location = New System.Drawing.Point(23, 84)
+        Me.labelApplicationName.Name = "labelApplicationName"
+        Me.labelApplicationName.Size = New System.Drawing.Size(430, 47)
+        Me.labelApplicationName.TabIndex = 0
+        Me.labelApplicationName.Text = "Nuvolar Accounting System"
+        '
+        'labelStatus
+        '
+        Me.labelStatus.Location = New System.Drawing.Point(67, 241)
+        Me.labelStatus.Name = "labelStatus"
+        Me.labelStatus.Size = New System.Drawing.Size(50, 13)
+        Me.labelStatus.TabIndex = 18
+        Me.labelStatus.Text = "Starting..."
+        '
+        'progressBarControl
+        '
+        Me.progressBarControl.EditValue = 0
+        Me.progressBarControl.Location = New System.Drawing.Point(66, 259)
+        Me.progressBarControl.Name = "progressBarControl"
+        Me.progressBarControl.Properties.Appearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(195, Byte), Integer), CType(CType(194, Byte), Integer), CType(CType(194, Byte), Integer))
+        Me.progressBarControl.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple
+        Me.progressBarControl.Properties.EndColor = System.Drawing.Color.FromArgb(CType(CType(197, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(11, Byte), Integer))
+        Me.progressBarControl.Properties.LookAndFeel.SkinName = "Visual Studio 2013 Blue"
+        Me.progressBarControl.Properties.LookAndFeel.Style = DevExpress.LookAndFeel.LookAndFeelStyle.UltraFlat
+        Me.progressBarControl.Properties.LookAndFeel.UseDefaultLookAndFeel = False
+        Me.progressBarControl.Properties.ProgressViewStyle = DevExpress.XtraEditors.Controls.ProgressViewStyle.Solid
+        Me.progressBarControl.Properties.StartColor = System.Drawing.Color.FromArgb(CType(CType(197, Byte), Integer), CType(CType(143, Byte), Integer), CType(CType(11, Byte), Integer))
+        Me.progressBarControl.Size = New System.Drawing.Size(350, 16)
+        Me.progressBarControl.TabIndex = 17
+        '
+        'XafSplashScreen
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(492, 343)
+        Me.Controls.Add(Me.labelStatus)
+        Me.Controls.Add(Me.progressBarControl)
+        Me.Controls.Add(Me.pcApplicationName)
+        Me.Controls.Add(Me.pictureEdit1)
+        Me.Controls.Add(Me.labelCopyright)
+        Me.Name = "XafSplashScreen"
+        Me.Padding = New System.Windows.Forms.Padding(1)
+        Me.Text = "XafSplashScreen"
+        CType(Me.pictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pcApplicationName, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pcApplicationName.ResumeLayout(False)
+        Me.pcApplicationName.PerformLayout()
+        CType(Me.progressBarControl.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Private WithEvents labelCopyright As DevExpress.XtraEditors.LabelControl
+    Private WithEvents pictureEdit1 As DevExpress.XtraEditors.PictureEdit
+    Private WithEvents pcApplicationName As DevExpress.XtraEditors.PanelControl
+    Private WithEvents labelSubtitle As DevExpress.XtraEditors.LabelControl
+    Private WithEvents labelApplicationName As DevExpress.XtraEditors.LabelControl
+    Private WithEvents labelStatus As DevExpress.XtraEditors.LabelControl
+    Private WithEvents progressBarControl As DevExpress.XtraEditors.MarqueeProgressBarControl
+End Class
@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="pictureEdit1.EditValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAMwAAAAiCAYAAAATbDYAAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAr1SURBVHhe7Zu9ix3JFcXnH1hQqkzROhUYnK7MOliE
+        gwGjYDMp2UiBwIEyr4wigxByOJkMwtiZcGKDAiuxwNkgDA4tzIKU7RoEu+v9eD6/oqqpun2qu9+b98Zv
+        tO/Cme6699ZHd9/Tdav6zdGXv778gfB3YXVOoK8PVqvV0QE/LPz0ww9/LPw145Os+ySX/yQU+8e5/Evh
+        9/lY6p0IdTvYmnZjudM/9X6ez6/l4+Xi2wOEeV0F83nhtRvMAe82qgCFEBxLAKN/IEAOjp8K6CFHsXOE
+        DJercjy+L7xXlYd+Qv/pmHUQEzyox9oDhHEBvXPEgRzw7qMEagZv+BTQ2VaCu55NCiBJOYdMdTuxzHkp
+        0y7Hj03/n2ZdmeESqeZwIQhz/fr1S8K1Ho4umOj6LwnX1sSVXP3CioKyBOx7uexmmOJDmSNv/xL46KhT
+        fAj2ug5HNwO9TxxV5USSWlfH2xTOhTBf/fYnq69/94vVN3/51eqb5w9W3/3rb+rbD6iGyHBVWC3EqfBI
+        2PvA0j2BAPZeTeBern5hRYGZCJKLSVQuM0pZw5TZpKxjIEkhTO3HeTmWNQhgxil6kGYX4PRFV3zmsHXC
+        fPWbH63++8dbAzG+//I/6seKHVANBT8ziCPHHCDOpfxM9k50n36QhPl/iYutTbEVwnx98rM0e3z3+h9q
+        c7HYAdVQ0G9KGMCMs5ek0T07EOYcxcXWEuie3+S+Z1xBtzFhSLMgyfef/1vtbCR2kDUU8I4wz4V7FZ4K
+        0afgeb5neyW6f44wr4TnE7iZqx9kTXGxNQfd78fCKfddeCR8IVxbmzCsRb7955/V5nJ5+fLl6smTJ6v7
+        9++vbt26lYJZYgdaQ36OMKM3rXRXhB5x9i7QdB8dYQ4zyI7ExdYU9CyuChCkEOWpcEc4XUwYiJIX67Py
+        9u3b1bNnzxJBTAAnSOxga8hvEWGKyOZI8yqbJ0V+ZSdu52mc7ufeE0bjYYxn2kBRfXYDr+ZiV7If/W10
+        73Pdbj8utvCnXsdGCsaszhHCgCtCMsYH12AdosyRpIZkNNAI+a1LGIL+i8q34Di7NCI9/qR1r7JfAW08
+        FpqAUflYICWsYccj/c3gB9IWuO7rxoSRH6lCTNdG1ycdb8Tol2ZbjkH/KOuPBdKQelykit2xyVa3k1Jg
+        HSEA5e61ZZ/yBq/7o8w1TpJHdoKZsdV1AeNv+ivxJD3Xx2wR69AOfaZ1io48n3TdAv7l/BXGWDmB3a5v
+        T/+g+tPy5s2blG7duHGjDrhZSBpyOMhvLcIgshPos3WkY8vakasG9uHNpXNSv5FPNjciPQSJvikIdH/P
+        QhhXt5lFVSYYXSCW/nn4tY3gJmBqXQSBOAri4ANKOlPrmmtTmcCNPhHYR7OGdFxbJHVE80yIJenmrg8M
+        M47OuScQpaxhsB+7C07bwhPbwUkgysOHD2NALIakIYeD/DYhDLNArNMs/lVeQpYC/IZA0Tm7b9Fn9GCN
+        z9Ns4p5vTBhEvu4tOdTnPNjAsJbTebTPBW/B49zEIMbHvfXrsUGoaO+BthqSquyuPWK414jKBL3za1DH
+        nsoQs8zSkC2RqbngJbMK65OTk5MYDGtD0pDDQX6bEMbNApEwMeghBSkU/ZGi1TYw9KnzO8EG7mRzEpUd
+        aeuAtbOEkNIah1w1icrk0zHIKfOQ3ewS6/OGr+01yjh6JGp+WWHsDjVhIqHoh4Dmnjii13XTOiKA2Ybr
+        AcwEtN88j6yr69R9psW88NTFYMRwwXxLmfuOwhpl3dSrB4kdUA35rU0YxNQZAkbnECPamxlC5UiaYYrX
+        +RJC8uE0+gxvSt1vR5hJ5KqDSGeDS3Bv02YtpnKv/yHQdN5LfZpZxtgLqEswEshl7RbHRuA2917lkv4U
+        DOmmzt21uTQxzkqxzs0Ya9JdijqH1BhkmUrBSL/u3r0bA+BMkNgB1ZDfLggTd9JGaYZ0jhT1Wma0G5dN
+        SVSOM1hMEc5MGER69+aMutH9ks7135Aekc690Zv1gbGD5nqLoA9+LsVzKVsivI6TqWZPTJ1Fs4nDEbtg
+        U2R58eLF1maVGhI7oBry2yQlY+cr1qkJE9cuzAb0E1H7gGEnSudulkp2HV3/zUPVA9sWYebagTzuDezq
+        NWlMEendLFPPltEG7Ha08YMAjCUi+k3tLgLWGKN1ZBHZXHrJdY1mmjnwpyvbWKv0IBkNJkJ+LnDnCOPq
+        JMLo6IJ5KYZ+de7aSVuzOrr1S0wR3IOfnTmdqN7UIrhZbxRBH/ymfGOK1Pgam/3uJf06i/2I4WWlc0fg
+        AtZeI+JI52amAl4qxy7+HPgzEhb2207BIiSjwUTIbxPCuEV5CWbX3lI0/aoc07LTrI/rF5d2bJMwvUDs
+        frCVbR3CuGCbIswotUOk780OS1BvmJAmxrSzRlrQZ/ckxJJ0c9vKj2P8OfCnEchy+/bt+oHvBJLRYCLk
+        twlh3PePki6dhTDNx0GVXVrGzBPXL009RA9nm4RxM0CBze+lv2iEacamMhsSUwSANENaWOJJOjYhXHpW
+        MJui8WeQ8yILkIwGEyG/tQgjW48QQ0pkbL01TESTVlEWYlv41WX7UVMPZiuEUZ25NGedNcyI2Ij0pDnR
+        dwhGY+sRxm0g9NYwEaNrQKSnTdpwJBjuZx1T0kM2dtvcLHVa+zrwJ8l5kgVIRoOJkF8MQGADS3oCOP7E
+        BTQpkcpx0T9KmZaK6sa0LM5utm09GIIgPqxNCBOD2QXBqF3pXP8pba1FOvdNZ26XzBIGkS22tfG9r0Xt
+        8OKIbQ/jcLElu902j34R/Dl3soAygCnIbxFhpMPPfYGHHM2OjcrupzP27TonqufSshq9t/aZCSN/+71F
+        cKRp7oHKrn8CLm5OuHQsbpFH+xRh3AZFd3drHVE78eUxSRggn9H1RZ8I/ux8ge9QBjAF+TnC8BYv/wsD
+        HFEKRjm8dK5NAJGw8Q2Gn85wzgaC/aaAyDa162bTMUQPxgUsgc5D72GYAXTu3vwpQHR0RFr6HYgxUB97
+        b40Q1xPRPkWYXr+sw7BBeGYLztPPUnLVJNnOdSf/rEaP76jNbMbOTML18BE1faDUkT7iy+VVjMGII344
+        aR72zhEH4iC/XnAvgV3wIrK5L/FTsAtiRDb3LwWgm27owfQCZwpD8Oh8bqvXzTK1fZP+wYgMS3xqkX3J
+        b8FqDDOQzt3LoId0vTrycnF2h3suDmsc7eKj5BLEgTjIbxPCsI7pBngR+fQC3cF+1ENk66Vl3TRPD2Zj
+        wujoFvrxTewCq/6Jies/zlgRvKXdBkL0myMMAcyMGev1UG8pz20NF9Szy1KSpetzcViDB+4e9s4RB+Ig
+        v6WEYa1CSrXWWkT+BLvbKKiBvduubC4t66ZjiB7MWQjjgm30gpDOzTKJ+Dq6/gms3kdBArW3UxV9JwlT
+        RH6kUW6MNbAP917nc9vC+DeZhcpc61Q/JcVb9lsy87DPBXEgPci3rCcKWFcQ6KVsf4axjqgN+qDNem20
+        uG35xTFOLmR5OAIPch2kNo3ezqbSk+9H37qNGDglhcHGYhhAosl7kP1rrLWIx1+gn9InoJ1uv7LFOhCp
+        2y9xJDv3gzVM00+MtznwsD8TbFDvEJ+5wfRwkO0KgSJYwryL4mJqU0CYj4TXVTDvGvT1kRtMDwfZrkCO
+        QJYDYRbCKvcNB9muQI5AlgNhFsIq9w0H2a5AjkCWA2EWwir3DQfZrkCOQJYDYRbCKvcNB9muiBzsMtW/
+        IgBr7W5dJHExtRlWR/8DNPlERCm3k9wAAAAASUVORK5CYII=
+</value>
+  </data>
+</root>
@@ -0,0 +1,48 @@
+Imports System.IO
+Imports System.Reflection
+Imports DevExpress.ExpressApp.Win.Utils
+Imports DevExpress.Skins
+Imports DevExpress.Utils.Drawing
+
+Public Class XafSplashScreen
+    Sub New()
+        InitializeComponent()
+        LoadBlankLogo()
+        Me.labelCopyright.Text = "Copyright © 2008-" & DateTime.Now.Year.ToString()
+        UpdateLabelsPosition()
+    End Sub
+    Private Sub LoadBlankLogo()
+        Dim _assembly As Assembly = Assembly.GetExecutingAssembly()
+        Dim blankLogoResourceName As String = _assembly.GetName().Name & ".Logo.svg"
+        Dim svgStream As Stream = _assembly.GetManifestResourceStream(blankLogoResourceName)
+        If svgStream IsNot Nothing Then
+            svgStream.Position = 0
+            'peLogo.SvgImage = SvgImage.FromStream(svgStream)
+        End If
+    End Sub
+    Protected Overrides Sub DrawContent(graphicsCache As GraphicsCache, skin As Skin)
+        Dim bounds As Rectangle = ClientRectangle
+        bounds.Width = (bounds.Width - 1)
+        bounds.Height = (bounds.Height - 1)
+        graphicsCache.Graphics.DrawRectangle(graphicsCache.GetPen(Color.FromArgb(255, 87, 87, 87), 1), bounds)
+    End Sub
+    Protected Sub UpdateLabelsPosition()
+        labelApplicationName.CalcBestSize()
+        Dim newLeft As Integer = CType((Width - labelApplicationName.Width) / 2, Integer)
+        labelApplicationName.Location = New Point(newLeft, labelApplicationName.Top)
+        labelSubtitle.CalcBestSize()
+        newLeft = CType((Width - labelSubtitle.Width) / 2, Integer)
+        Me.labelSubtitle.Location = New Point(newLeft, labelSubtitle.Top)
+
+    End Sub
+    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
+        MyBase.ProcessCommand(cmd, arg)
+        If (CType(cmd, UpdateSplashCommand) = UpdateSplashCommand.Description) Then
+            labelStatus.Text = CType(arg, String)
+        End If
+    End Sub
+
+    Public Enum SplashScreenCommand
+        SomeCommandId
+    End Enum
+End Class
@@ -12,6 +12,7 @@
    <add key="Uri" value="http://momonline.com:88/api/" />
    <add key="GeocodeAPIKey" value="AIzaSyD4RgVEapyYNlAgjemLgtbpOEVC2p2yXY4" />
    <add key="BingMapsKey" value="AkuhLMqiOJ6mqhY8zVPQCLMNFPEP0b4neaExb_eolTgT4Q0hF3098zXBJHMQa1WI" />
+    <add key="NuvolarServer" value="a1IyWjQrbFNMTE5PbkdyM0FSNWc4b0VUSXM4THZqTjdqdEpUMnA3UFJBdz0="/>
  </appSettings>
  <connectionStrings>
    <!--XPO Profiler MySQL-->