ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Debranet Accounting release-hez

Browse Source
This commit is contained in:
ivanszabo
2020-08-31 14:09:02 +02:00
parent 1599b29e28
commit cfee10542b
9 changed files with 423 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.WIN.Debranet.GL/WinApplication_DB.vb
+31 -49
View File
@@ -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
_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
_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"
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")