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

jj: remove stuff

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-28 18:19:50 +02:00
parent 97866e1c45
commit 40d08d2084
1 changed files with 300 additions and 300 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

600
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -390,7 +390,7 @@ Public Class frmAdministration
Private Sub Refresh_Final_indexe() Private Sub Refresh_Final_indexe()
Try Try
Me.lblSaveFinalIndex.Visible = False 'Me.lblSaveFinalIndex.Visible = False
If formloaded = False Then Exit Sub If formloaded = False Then Exit Sub
If PROFILGUIDTextBox.Text <> String.Empty Then If PROFILGUIDTextBox.Text <> String.Empty Then
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, PROFILGUIDTextBox.Text) Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, PROFILGUIDTextBox.Text)
@ -437,159 +437,159 @@ Public Class frmAdministration
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh Error:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh Error:")
End Try End Try
End Sub End Sub
Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) 'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
If cmbIndexe.SelectedIndex <> -1 Then ' If cmbIndexe.SelectedIndex <> -1 Then
'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text)) ' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text))
btnInsert_FinalIndex.Enabled = True ' btnInsert_FinalIndex.Enabled = True
Me.btnStampDate.Visible = False ' Me.btnStampDate.Visible = False
Me.btnStampDate.Visible = False ' Me.btnStampDate.Visible = False
Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text) ' Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text)
Select Case type ' Select Case type
Case 1 'String ' Case 1 'String
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = True ' Me.grbxSystemStamps.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 2 'Integer ' Case 2 'Integer
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = True ' Me.grbxSystemStamps.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 3 'Float ' Case 3 'Float
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = False ' Me.grbxSystemStamps.Visible = False
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 4 ' Boolean ' Case 4 ' Boolean
Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)" ' Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = False ' Me.txtindexwert_final.Visible = False
Me.grbxSystemStamps.Visible = False ' Me.grbxSystemStamps.Visible = False
Me.chkbxfinalIndex.CheckState = CheckState.Checked ' Me.chkbxfinalIndex.CheckState = CheckState.Checked
Me.chkbxfinalIndex.Visible = True ' Me.chkbxfinalIndex.Visible = True
Case 5 'Date ' Case 5 'Date
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = True ' Me.grbxSystemStamps.Visible = True
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 4107 'Vektor Zahl ' Case 4107 'Vektor Zahl
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = False ' Me.grbxSystemStamps.Visible = False
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 4097 'Vektor String ' Case 4097 'Vektor String
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = True ' Me.grbxSystemStamps.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 4100 'Vektor Bool ' Case 4100 'Vektor Bool
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = False ' Me.grbxSystemStamps.Visible = False
Me.btnStampDate.Visible = False ' Me.btnStampDate.Visible = False
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 4101 'Vektor Date ' Case 4101 'Vektor Date
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = True ' Me.grbxSystemStamps.Visible = True
Me.btnStampDate.Visible = True ' Me.btnStampDate.Visible = True
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case 4104 ' Case 4104
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)" ' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = False ' Me.grbxSystemStamps.Visible = False
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Case Else ' Case Else
btnInsert_FinalIndex.Enabled = False ' btnInsert_FinalIndex.Enabled = False
End Select ' End Select
End If ' End If
End Sub 'End Sub
Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs) 'Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs)
Me.lblSaveFinalIndex.Visible = False ' Me.lblSaveFinalIndex.Visible = False
If CheckBoxPMVEKTOR.Checked = False Then ' If CheckBoxPMVEKTOR.Checked = False Then
If cmbIndexe.SelectedIndex <> -1 Then ' If cmbIndexe.SelectedIndex <> -1 Then
Dim indexwert As String = "" ' Dim indexwert As String = ""
If txtindexwert_final.Visible = True Then ' If txtindexwert_final.Visible = True Then
indexwert = txtindexwert_final.Text ' indexwert = txtindexwert_final.Text
Else ' Else
If chkbxfinalIndex.CheckState = CheckState.Checked Then ' If chkbxfinalIndex.CheckState = CheckState.Checked Then
indexwert = 1 ' indexwert = 1
Else ' Else
indexwert = 0 ' indexwert = 0
End If ' End If
End If ' End If
Try ' Try
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "") ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "")
Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now ' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
Me.lblSaveFinalIndex.Visible = True ' Me.lblSaveFinalIndex.Visible = True
Catch ex As Exception ' Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:")
End Try ' End Try
End If ' End If
Else ' Else
If txtBezeichner.Text <> "" Then ' If txtBezeichner.Text <> "" Then
Dim indexwert As String = "" ' Dim indexwert As String = ""
If txtindexwert_final.Visible = True Then ' If txtindexwert_final.Visible = True Then
indexwert = txtindexwert_final.Text ' indexwert = txtindexwert_final.Text
Else ' Else
If chkbxfinalIndex.CheckState = CheckState.Checked Then ' If chkbxfinalIndex.CheckState = CheckState.Checked Then
indexwert = "True" ' indexwert = "True"
Else ' Else
indexwert = "False" ' indexwert = "False"
End If ' End If
End If ' End If
Try ' Try
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, Environment.UserName, 0, "") ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, "[%VKT" & txtBezeichner.Text, indexwert, Environment.UserName, 0, "")
Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now ' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
Me.lblSaveFinalIndex.Visible = True ' Me.lblSaveFinalIndex.Visible = True
Catch ex As Exception ' Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:")
End Try ' End Try
End If ' End If
End If ' End If
Refresh_Final_indexe() ' Refresh_Final_indexe()
INSERT_ACTIVE = False ' INSERT_ACTIVE = False
TabControlFinalIndices.Enabled = False ' TabControlFinalIndices.Enabled = False
End Sub 'End Sub
Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs) 'Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs)
Refresh_Final_indexe() ' Refresh_Final_indexe()
INSERT_ACTIVE = False ' INSERT_ACTIVE = False
TabControlFinalIndices.Enabled = False ' TabControlFinalIndices.Enabled = False
txtBezeichner.Text = String.Empty ' txtBezeichner.Text = String.Empty
txtindexwert_final.Text = String.Empty ' txtindexwert_final.Text = String.Empty
End Sub 'End Sub
Private Sub tsbtnProfilkopieren_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnProfilkopieren.Click Private Sub tsbtnProfilkopieren_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnProfilkopieren.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
@ -684,89 +684,89 @@ Public Class frmAdministration
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) 'Private Sub Button2_Click(sender As Object, e As EventArgs)
Me.txtindexwert_final.Text = "vUserName" ' Me.txtindexwert_final.Text = "vUserName"
End Sub 'End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) 'Private Sub Button3_Click(sender As Object, e As EventArgs)
Me.txtindexwert_final.Text = "vDate" ' Me.txtindexwert_final.Text = "vDate"
End Sub 'End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) 'Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
If CheckBoxPMVEKTOR.Checked Then ' If CheckBoxPMVEKTOR.Checked Then
Me.txtBezeichner.Visible = True ' Me.txtBezeichner.Visible = True
Me.cmbIndexe.Visible = False ' Me.cmbIndexe.Visible = False
txtBezeichner.Text = "" ' txtBezeichner.Text = ""
Me.lblIndexPMVektor.Text = "Bezeichner für VektorIndex eingeben:" ' Me.lblIndexPMVektor.Text = "Bezeichner für VektorIndex eingeben:"
Me.lblIndex.Visible = True ' Me.lblIndex.Visible = True
Me.lblIndex.Text = "Bitte den festen Wert als String eingeben:" ' Me.lblIndex.Text = "Bitte den festen Wert als String eingeben:"
Me.txtindexwert_final.Visible = True ' Me.txtindexwert_final.Visible = True
Me.grbxSystemStamps.Visible = True ' Me.grbxSystemStamps.Visible = True
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
Else ' Else
Me.txtBezeichner.Visible = False ' Me.txtBezeichner.Visible = False
Me.cmbIndexe.Visible = True ' Me.cmbIndexe.Visible = True
Me.lblIndexPMVektor.Text = "Index wählen:" ' Me.lblIndexPMVektor.Text = "Index wählen:"
Me.lblIndex.Visible = False ' Me.lblIndex.Visible = False
Me.txtindexwert_final.Visible = False ' Me.txtindexwert_final.Visible = False
Me.grbxSystemStamps.Visible = False ' Me.grbxSystemStamps.Visible = False
Me.txtindexwert_final.Text = "" ' Me.txtindexwert_final.Text = ""
Me.chkbxfinalIndex.Visible = False ' Me.chkbxfinalIndex.Visible = False
End If ' End If
End Sub 'End Sub
Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click
frmSQL_Admin.ShowDialog() frmSQL_Admin.ShowDialog()
End Sub End Sub
Private Sub btnRefreshProfiles_Click(sender As Object, e As EventArgs) Handles btnRefreshProfiles.Click Private Sub btnRefreshProfiles_Click(sender As Object, e As EventArgs) Handles btnRefreshProfiles.Click
Refresh_Profildaten() Refresh_Profildaten()
End Sub End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) 'Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs)
TabControlFinalIndices.Enabled = True ' TabControlFinalIndices.Enabled = True
tsBtnCancel_old.Visible = True ' tsBtnCancel_old.Visible = True
tsBtnCancel.Visible = True ' tsBtnCancel.Visible = True
cmbIndexe.Items.Clear() ' cmbIndexe.Items.Clear()
cmbIndexe2.Items.Clear() ' cmbIndexe2.Items.Clear()
Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text) ' Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text)
If indexe IsNot Nothing Then ' If indexe IsNot Nothing Then
For Each index As String In indexe ' For Each index As String In indexe
Me.cmbIndexe.Items.Add(index) ' Me.cmbIndexe.Items.Add(index)
Me.cmbIndexe2.Items.Add(index) ' Me.cmbIndexe2.Items.Add(index)
Next ' Next
Me.cmbIndexe.SelectedIndex = -1 ' Me.cmbIndexe.SelectedIndex = -1
End If ' End If
INSERT_ACTIVE = True ' INSERT_ACTIVE = True
End Sub 'End Sub
Private Sub CancelFinalIndexInsert() Private Sub CancelFinalIndexInsert()
TabControlFinalIndices.Enabled = False 'TabControlFinalIndices.Enabled = False
INSERT_ACTIVE = False INSERT_ACTIVE = False
tsBtnCancel_old.Visible = False 'tsBtnCancel_old.Visible = False
tsBtnCancel.Visible = False tsBtnCancel.Visible = False
BindingNavigatorAddNewItem.Visible = True BindingNavigatorAddNewItem.Visible = True
txtBezeichner.Text = String.Empty 'txtBezeichner.Text = String.Empty
txtindexwert_final.Text = String.Empty 'txtindexwert_final.Text = String.Empty
cmbIndexe.SelectedIndex = -1 'cmbIndexe.SelectedIndex = -1
cmbIndexe2.SelectedIndex = -1 'cmbIndexe2.SelectedIndex = -1
cmbConnection.SelectedIndex = -1 'cmbConnection.SelectedIndex = -1
SQL_COMMANDTextBox.Text = String.Empty 'SQL_COMMANDTextBox.Text = String.Empty
CheckBoxPMVEKTOR.Checked = False 'CheckBoxPMVEKTOR.Checked = False
End Sub End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) 'Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs)
Dim i, ID As Integer ' Dim i, ID As Integer
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
If ID > 0 Then ' If ID > 0 Then
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(ID) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(ID)
End If ' End If
Refresh_Final_indexe() ' Refresh_Final_indexe()
MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") ' MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:")
' DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING.Clear() ' ' DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING.Clear()
End Sub 'End Sub
Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged
If ACTIVECheckBox.Checked Then If ACTIVECheckBox.Checked Then
ACTIVECheckBox.BackColor = Color.Lime ACTIVECheckBox.BackColor = Color.Lime
@ -840,105 +840,105 @@ Public Class frmAdministration
End If End If
End Sub End Sub
Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs) 'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
If TabControlFinalIndices.SelectedIndex = 1 Then ' If TabControlFinalIndices.SelectedIndex = 1 Then
Me.cmbIndexe2.Enabled = False ' Me.cmbIndexe2.Enabled = False
If INSERT_ACTIVE = True Then ' If INSERT_ACTIVE = True Then
Me.cmbIndexe2.Enabled = True ' Me.cmbIndexe2.Enabled = True
End If ' End If
End If ' End If
End Sub 'End Sub
Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs) 'Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs)
If INSERT_ACTIVE = True Then ' If INSERT_ACTIVE = True Then
If cmbConnection.SelectedIndex = -1 Or SQL_COMMANDTextBox.Text = String.Empty Or cmbIndexe2.SelectedIndex = -1 Then ' If cmbConnection.SelectedIndex = -1 Or SQL_COMMANDTextBox.Text = String.Empty Or cmbIndexe2.SelectedIndex = -1 Then
MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation) ' MsgBox("Bitte wählen Sie eine Connection und definieren einen SQL-Befehl!", MsgBoxStyle.Exclamation)
Exit Sub ' Exit Sub
End If ' End If
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text)
INSERT_ACTIVE = False ' INSERT_ACTIVE = False
Else ' Else
Dim i, ID As Integer ' Dim i, ID As Integer
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
If ID > 0 Then ' If ID > 0 Then
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID)
End If ' End If
End If ' End If
Refresh_Final_indexe() ' Refresh_Final_indexe()
End Sub 'End Sub
Private Sub btnEditor_Click(sender As Object, e As EventArgs) 'Private Sub btnEditor_Click(sender As Object, e As EventArgs)
Try ' Try
Dim CONID = 0 ' Dim CONID = 0
If cmbConnection.SelectedValue > 0 Then ' If cmbConnection.SelectedValue > 0 Then
CONID = cmbConnection.SelectedValue ' CONID = cmbConnection.SelectedValue
End If ' End If
If INSERT_ACTIVE = True Then ' If INSERT_ACTIVE = True Then
If cmbIndexe2.SelectedIndex = -1 Then ' If cmbIndexe2.SelectedIndex = -1 Then
MsgBox("Bitte wählen Sie einen Index!", MsgBoxStyle.Exclamation) ' MsgBox("Bitte wählen Sie einen Index!", MsgBoxStyle.Exclamation)
Exit Sub ' Exit Sub
End If ' End If
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, CONID, SQL_COMMANDTextBox.Text) ' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, CONID, SQL_COMMANDTextBox.Text)
End If ' End If
Dim i, ID As Integer ' Dim i, ID As Integer
Try ' Try
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
If ID > 0 Then ' If ID > 0 Then
CURRENT_INDEX_ID = ID ' CURRENT_INDEX_ID = ID
CURRENT_DESIGN_TYPE = "FINAL_INDEX" ' CURRENT_DESIGN_TYPE = "FINAL_INDEX"
CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text ' CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text
CURRENT_SQL_CON = CONID ' CURRENT_SQL_CON = CONID
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text ' CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
frmSQL_DESIGNER.ShowDialog() ' frmSQL_DESIGNER.ShowDialog()
End If ' End If
Catch ex As Exception ' Catch ex As Exception
clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message) ' clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message)
End Try ' End Try
Refresh_Final_indexe() ' Refresh_Final_indexe()
Catch ex As Exception ' Catch ex As Exception
MsgBox("Error while opening SQLEditor: " & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Error while opening SQLEditor: " & ex.Message, MsgBoxStyle.Critical)
clsLogger.Add("Error while opening SQLEditor: " & ex.Message) ' clsLogger.Add("Error while opening SQLEditor: " & ex.Message)
End Try ' End Try
End Sub 'End Sub
Private Sub TBPM_PROFILE_FINAL_INDEXINGDataGridView_CellClick(sender As Object, e As DataGridViewCellEventArgs) 'Private Sub TBPM_PROFILE_FINAL_INDEXINGDataGridView_CellClick(sender As Object, e As DataGridViewCellEventArgs)
Try ' Try
TabControlFinalIndices.Enabled = False ' TabControlFinalIndices.Enabled = False
TabControlFinalIndices.SelectedIndex = 0 ' TabControlFinalIndices.SelectedIndex = 0
Dim i, ID As Integer ' Dim i, ID As Integer
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index ' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value ' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
If ID > 0 Then ' If ID > 0 Then
Dim sql = String.Format("SELECT T.*, T1.BEZEICHNUNG AS CON_STRING FROM TBPM_PROFILE_FINAL_INDEXING T,TBDD_CONNECTION T1 WHERE T.GUID = {0} AND T.CONNECTION_ID = T1.GUID ", ID) ' Dim sql = String.Format("SELECT T.*, T1.BEZEICHNUNG AS CON_STRING FROM TBPM_PROFILE_FINAL_INDEXING T,TBDD_CONNECTION T1 WHERE T.GUID = {0} AND T.CONNECTION_ID = T1.GUID ", ID)
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(sql, True) ' CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(sql, True)
Dim Type = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(2, i).Value ' Dim Type = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(2, i).Value
If Type = "SQL-Command" Then ' If Type = "SQL-Command" Then
Dim Indexname = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(1, i).Value ' Dim Indexname = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(1, i).Value
TabControlFinalIndices.Enabled = True ' TabControlFinalIndices.Enabled = True
TabControlFinalIndices.SelectedIndex = 1 ' TabControlFinalIndices.SelectedIndex = 1
cmbIndexe2.Text = Indexname ' cmbIndexe2.Text = Indexname
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") ' cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) ' cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND") ' SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND")
End If ' End If
End If ' End If
Catch ex As Exception ' Catch ex As Exception
MsgBox("Error while loading final Index: " & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Error while loading final Index: " & ex.Message, MsgBoxStyle.Critical)
clsLogger.Add("Error while loading final Index: " & ex.Message) ' clsLogger.Add("Error while loading final Index: " & ex.Message)
End Try ' End Try
End Sub 'End Sub
Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) 'Private Sub btnShowConnections_Click(sender As Object, e As EventArgs)
frmConnection.ShowDialog() ' frmConnection.ShowDialog()
End Sub 'End Sub
Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click
Try Try