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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
app/DD-Record-Organizer/frmMain.vb
View File

@@ -93,7 +93,7 @@ Public Class frmMain
Dim IPs As IPAddress
For Each IPs In Addresslist
'Aktuelle Machine
LOGGER.Info("" & My.Computer.Name & " - IP: " & IPs.ToString, False)
LOGGER.Info("" & My.Computer.Name & " - IP: " & IPs.ToString)
LabelMachine.Caption = My.Computer.Name & " - IP: " & IPs.ToString
Next IPs
@@ -117,7 +117,7 @@ Public Class frmMain
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
LOGGER.Debug("FormLoad finished!", False)
LOGGER.Debug("FormLoad finished!")
Proxy_Server_Controls()
CONN_Manager
@@ -153,7 +153,7 @@ Public Class frmMain
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always
LOGGER.Info("PROXY-SERVER is being used", False)
LOGGER.Info("PROXY-SERVER is being used")
Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never
@@ -167,7 +167,7 @@ Public Class frmMain
Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
LOGGER.Warn("SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
LOGGER.Warn("SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!")
Exit Sub
End If
TIMER_SCAN.Interval = 30000
@@ -212,7 +212,7 @@ Public Class frmMain
Sub LoggedIn()
Try
Dim oSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
Dim anzahl = ClassDatabase.Execute_Scalar(oSQL, False)
Dim anzahl = MYDB_ECM.GetScalarValue(oSQL)
USERS_LOGGED_IN = CInt(anzahl)
Catch ex As Exception
@@ -306,7 +306,7 @@ Public Class frmMain
Dim SQL2 As String = String.Format("SELECT A.GUID as CONSTRUCT_ID,A.NODE_NAVIGATION,B.FORM_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID), {1}) AS FORM_TITLE, A.SEQUENCE_MENU, A.ADDED_WHO, A.ADDED_WHEN, A.CHANGED_WHO," &
"A.CHANGED_WHEN, A.MENU_IMG, A.SHORT_TITLE, A.LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B ON A.GUID = B.CONSTRUCT_ID where A.GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 0 AND USER_ID = {2}) ORDER BY A.SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL2)
If dt.Rows.Count <> 0 Then
pageForms.Visible = True
@@ -327,7 +327,7 @@ Public Class frmMain
Dim objectname_temp = String.Format("Object {0} not translated", objectname)
Dim ins = String.Format("INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES " &
"('{0}',{1},'{2}', '{3}')", USER_LANGUAGE, CURRENT_SCREEN_ID, objectname, objectname_temp)
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
title = objectname_temp
End If
End If
@@ -359,7 +359,7 @@ Public Class frmMain
Dim SQL2 As String = String.Format("SELECT A.GUID as CONSTRUCT_ID, B.FORM_ID, A.NODE_NAVIGATION,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID), {1}) AS FORM_TITLE, A.SEQUENCE_MENU, A.ADDED_WHO, A.ADDED_WHEN, A.CHANGED_WHO," &
"A.CHANGED_WHEN, A.MENU_IMG, A.SHORT_TITLE, A.LANGUAGE, " &
"'CONSTR_MENUE' + CONVERT(VARCHAR(5), A.GUID) as OBECTNAME FROM TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B On A.GUID = B.CONSTRUCT_ID where A.GUID in (SELECT CONSTRUCT_ID FROM TBPMO_CONSTRUCTOR_USER WHERE HOME_MENUE = 1 AND USER_ID = {2}) ORDER BY A.SEQUENCE_MENU", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
Dim oDTConstructors As DataTable = MYDB_ECM.GetDatatable(SQL2)
Dim image2 As Bitmap = LoadNoImage()
Try
@@ -372,8 +372,8 @@ Public Class frmMain
End Try
If dt.Rows.Count <> 0 Then
For Each row As DataRow In dt.Rows
If oDTConstructors.Rows.Count <> 0 Then
For Each row As DataRow In oDTConstructors.Rows
If Not IsDBNull(row.Item("MENU_IMG")) Then
Dim bimg() As Byte = row.Item("MENU_IMG")
Dim bitmap As Bitmap = ByteArrayToBitmap(bimg)
@@ -387,18 +387,18 @@ Public Class frmMain
Dim objectname_temp = String.Format("Object {0} not translated", objectname)
Dim ins = String.Format("INSERT INTO TBPMO_LANGUAGE_OBJECT (LANGUAGE_TYPE,SCREEN_ID,PMO_OBJECT_NAME,CAPTION) VALUES " &
"('{0}',{1},'{2}', '{3}')", USER_LANGUAGE, CURRENT_SCREEN_ID, objectname, objectname_temp)
If ClassDatabase.Execute_non_Query(ins) = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
title = objectname_temp
End If
End If
Dim index As Integer = row.Item("SEQUENCE_MENU")
Dim tag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim oTag As String = row.Item("CONSTRUCT_ID") & "#" & row.Item("NODE_NAVIGATION") & "#" & row.Item("FORM_ID")
Dim item As New BarButtonItem(ribbonMain.Manager, title)
item.RibbonStyle = RibbonItemStyles.Large
item.Caption = title
item.Tag = tag
item.Tag = oTag
item.Glyph = image2
AddHandler item.ItemClick, AddressOf tbiOpenEntityFormClick
@@ -412,7 +412,7 @@ Public Class frmMain
End If
Dim sql = "SELECT COUNT(GUID) FROM TBPMO_USER_GLOBAL_SEARCH WHERE USER_ID = " & USER_GUID
Dim Count = ClassDatabase.Execute_Scalar(sql)
Dim Count = MYDB_ECM.GetScalarValue(SQL)
If Count = 0 Then
btnGlobalSearch.Enabled = False
groupSearchAllOver.Visible = False
@@ -487,7 +487,7 @@ Public Class frmMain
Private Sub SetBackgroundImage()
Try
Dim SQL As String = "SELECT BACKGROUND_IMAGE FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
Dim bimage() As Byte = ClassDatabase.Execute_Scalar(SQL)
Dim bimage() As Byte = MYDB_ECM.GetScalarValue(SQL)
If Not IsDBNull(bimage) Then
@@ -577,7 +577,7 @@ Public Class frmMain
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT <= (USERS_LOGGED_IN + 1) Then
If USER_IS_ADMIN = True Then
LOGGER.Info("User is Admin - Timer will be started", False)
LOGGER.Info("User is Admin - Timer will be started")
'If USER_LANGUAGE = "de-DE" Then
MsgBox("You now got 3 minutes for creating a new license", MsgBoxStyle.Information)
'Else
@@ -671,7 +671,7 @@ Public Class frmMain
'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
' If CURRENT_USER_IS_ADMIN = True Then
' Logger.Info("User is Admin - Timer will be started", False)
' Logger.Info("User is Admin - Timer will be started")
' If USER_LANGUAGE = "de-DE" Then
' MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
' Else
@@ -744,7 +744,7 @@ Public Class frmMain
Private Sub itemRefreshProxy_ItemClick(sender As Object, e As ItemClickEventArgs)
Me.Cursor = Cursors.WaitCursor
Dim upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 1 WHERE GUID = 1"
clsDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd, True)
If ClassProxy.Refresh_Object_Data() = True Then
If ClassProxy.PRPROXY_SYNC_DOC_OBJECTS() = True Then
Dim msg = "Die Proxydaten wurden erfolgreich synchronisiert!"
@@ -759,7 +759,7 @@ Public Class frmMain
MessageBox.Show("Error while refreshing proxy-data (objects)!", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
upd = "UPDATE TBPROXY_CONFIG SET SYNC_RUNNING = 0, LAST_SYNC = GETDATE() WHERE GUID = 1"
clsDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd, True)
Me.Cursor = Cursors.Default
End Sub
Sub Load_ConfigBasic()
@@ -1100,14 +1100,14 @@ Public Class frmMain
ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
End If
Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID)
ClassDatabase.Execute_Scalar(sql)
MYDB_ECM.GetScalarValue(SQL)
If ClassInit.InitDatabase = True Then
ClassInit.InitUserLogin()
Load_Connection_Dep_Data()
sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE UPPER(CONN_NAME) = UPPER('{0}') AND USER_ID = {1}", oSQLDescription, USER_GUID)
Dim oSuccess As Boolean = False
If ClassDatabase.Execute_non_Query(sql) = True Then
If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
oSuccess = True
End If
If oSuccess = True Then