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

MS: Login-Procedure

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-05-11 10:36:14 +02:00
parent 420d9fedf7
commit afd5186e62
18 changed files with 927 additions and 908 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@@ -1,7 +1,7 @@
Imports DD_LIB_Standards
Public Class frmAdministration
Dim PID As Integer
Private Sub TBCBS_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCBS_PROFILESBindingNavigatorSaveItem.Click
Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
Save_Profile()
Me.TableAdapterManager.UpdateAll(Me.MyDataset)
@@ -9,19 +9,19 @@ Public Class frmAdministration
End Sub
Sub Load_Profiles()
Try
Me.TBCBS_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBCBS_PROFILESTableAdapter.Fill(Me.MyDataset.TBCBS_PROFILES)
Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
Catch ex As Exception
MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Save_Profile()
Try
Me.TBCBS_PROFILESBindingSource.EndEdit()
If Not IsNothing(MyDataset.TBCBS_PROFILES.GetChanges) Then
Me.TBCW_PROFILESBindingSource.EndEdit()
If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then
Me.CHANGED_WHOTextBox.Text = Environment.UserName
Me.TBCBS_PROFILESBindingSource.EndEdit()
Me.TBCBS_PROFILESTableAdapter.Update(MyDataset.TBCBS_PROFILES)
Me.TBCW_PROFILESBindingSource.EndEdit()
Me.TBCW_PROFILESTableAdapter.Update(MyDataset.TBCW_PROFILES)
Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow)
Else
Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent)
@@ -45,8 +45,8 @@ Public Class frmAdministration
statuslabel.BackColor = col
End Sub
Private Sub TBCBS_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCBS_PROFILESBindingSource.AddingNew
MyDataset.TBCBS_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew
MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
End Sub
Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
@@ -88,7 +88,7 @@ Public Class frmAdministration
End Try
For Each row As DataRow In MyDataset.TBWH_User.Rows
If row.Item(0) = CBool(True) Then
Dim insert = String.Format("INSERT INTO TBCBS_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5))
Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5))
If clsDatabase.Execute_non_Query(insert) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
@@ -109,7 +109,8 @@ Public Class frmAdministration
Catch ex As Exception
Exit Sub
End Try
Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_DDCBSEARCHER = 1 AND GUID NOT IN (SELECT USER_ID FROM TBCBS_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", GUIDTextBox.Text)
Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_DDCBSEARCHER = 1 AND GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", GUIDTextBox.Text)
Dim DT_USER = clsDatabase.Return_Datatable(Sql)
Try
MyDataset.TBWH_User.Clear()
@@ -144,7 +145,7 @@ Public Class frmAdministration
Catch ex As Exception
Exit Sub
End Try
Dim del = String.Format("DELETE FROM TBCBS_USER_PROFILE WHERE GUID = {0}", ID)
Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
If clsDatabase.Execute_non_Query(del) = True Then
Refresh_Profile_user()
Refresh_Free_Users()
@@ -179,8 +180,8 @@ Public Class frmAdministration
If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then
Exit Sub
End If
Me.TBCBS_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBCBS_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCBS_PROFILE_PROCESS, GUIDTextBox.Text)
Me.TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBCW_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCW_PROFILE_PROCESS, GUIDTextBox.Text)
Catch ex As System.Exception
MsgBox("Unexpected Error in Load_Profile_Process: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -190,7 +191,7 @@ Public Class frmAdministration
Private Sub btnLinkProcessPRofile_Click(sender As Object, e As EventArgs) Handles btnLinkProcessPRofile.Click
Try
If txtProcessName.Text <> "" Then
Dim insert = String.Format("INSERT INTO TBCBS_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, txtProcessName.Text, Environment.UserName)
Dim insert = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, txtProcessName.Text, Environment.UserName)
If clsDatabase.Execute_non_Query(insert) = False Then
MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation)
End If
@@ -210,9 +211,9 @@ Public Class frmAdministration
Catch ex As Exception
Exit Sub
End Try
Dim del = String.Format("DELETE FROM TBCBS_PROFILE_PROCESS WHERE GUID = {0}", ID)
Dim del = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", ID)
If clsDatabase.Execute_non_Query(del) = True Then
Load_Profile_Process
Load_Profile_Process
End If
Catch ex As Exception
MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)