jj: remove stuff
This commit is contained in:
Jonathan Jenne
parent
97866e1c45
commit
40d08d2084
@ -390,7 +390,7 @@ Public Class frmAdministration
|
||||
|
||||
Private Sub Refresh_Final_indexe()
|
||||
Try
|
||||
Me.lblSaveFinalIndex.Visible = False
|
||||
'Me.lblSaveFinalIndex.Visible = False
|
||||
If formloaded = False Then Exit Sub
|
||||
If PROFILGUIDTextBox.Text <> String.Empty Then
|
||||
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:")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
|
||||
If cmbIndexe.SelectedIndex <> -1 Then
|
||||
'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text))
|
||||
btnInsert_FinalIndex.Enabled = True
|
||||
Me.btnStampDate.Visible = False
|
||||
Me.btnStampDate.Visible = False
|
||||
Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text)
|
||||
Select Case type
|
||||
Case 1 'String
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 2 'Integer
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 3 'Float
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = False
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 4 ' Boolean
|
||||
Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = False
|
||||
Me.grbxSystemStamps.Visible = False
|
||||
Me.chkbxfinalIndex.CheckState = CheckState.Checked
|
||||
Me.chkbxfinalIndex.Visible = True
|
||||
Case 5 'Date
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = True
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 4107 'Vektor Zahl
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = False
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 4097 'Vektor String
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 4100 'Vektor Bool
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = False
|
||||
Me.btnStampDate.Visible = False
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 4101 'Vektor Date
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = True
|
||||
Me.btnStampDate.Visible = True
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case 4104
|
||||
Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)"
|
||||
Me.lblIndex.Visible = True
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = False
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Case Else
|
||||
btnInsert_FinalIndex.Enabled = False
|
||||
End Select
|
||||
'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
|
||||
' If cmbIndexe.SelectedIndex <> -1 Then
|
||||
' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text))
|
||||
' btnInsert_FinalIndex.Enabled = True
|
||||
' Me.btnStampDate.Visible = False
|
||||
' Me.btnStampDate.Visible = False
|
||||
' Dim type = _windreamPM.GetTypeOfIndex(cmbIndexe.Text)
|
||||
' Select Case type
|
||||
' Case 1 'String
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Text)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 2 'Integer
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Zahl)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 3 'Float
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Decimal)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4 ' Boolean
|
||||
' Me.lblIndex.Text = "Wählen Sie den Boolean-Wert: (Ja/Nein)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = False
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.chkbxfinalIndex.CheckState = CheckState.Checked
|
||||
' Me.chkbxfinalIndex.Visible = True
|
||||
' Case 5 'Date
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert: (Date)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4107 'Vektor Zahl
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Zahl)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4097 'Vektor String
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Text)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4100 'Vektor Bool
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Boolean)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.btnStampDate.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4101 'Vektor Date
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Date)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.btnStampDate.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case 4104
|
||||
' Me.lblIndex.Text = "Definieren Sie den festen Wert - Vektorfeld: (Currency)"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Case Else
|
||||
' btnInsert_FinalIndex.Enabled = False
|
||||
' End Select
|
||||
|
||||
End If
|
||||
End Sub
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs)
|
||||
Me.lblSaveFinalIndex.Visible = False
|
||||
If CheckBoxPMVEKTOR.Checked = False Then
|
||||
If cmbIndexe.SelectedIndex <> -1 Then
|
||||
Dim indexwert As String = ""
|
||||
If txtindexwert_final.Visible = True Then
|
||||
indexwert = txtindexwert_final.Text
|
||||
Else
|
||||
If chkbxfinalIndex.CheckState = CheckState.Checked Then
|
||||
indexwert = 1
|
||||
Else
|
||||
indexwert = 0
|
||||
End If
|
||||
'Private Sub btnInsert_FinalIndex_Click(sender As System.Object, e As System.EventArgs)
|
||||
' Me.lblSaveFinalIndex.Visible = False
|
||||
' If CheckBoxPMVEKTOR.Checked = False Then
|
||||
' If cmbIndexe.SelectedIndex <> -1 Then
|
||||
' Dim indexwert As String = ""
|
||||
' If txtindexwert_final.Visible = True Then
|
||||
' indexwert = txtindexwert_final.Text
|
||||
' Else
|
||||
' If chkbxfinalIndex.CheckState = CheckState.Checked Then
|
||||
' indexwert = 1
|
||||
' Else
|
||||
' indexwert = 0
|
||||
' End If
|
||||
|
||||
End If
|
||||
Try
|
||||
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "")
|
||||
Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
|
||||
Me.lblSaveFinalIndex.Visible = True
|
||||
' End If
|
||||
' Try
|
||||
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe.Text, indexwert, Environment.UserName, 0, "")
|
||||
' Me.lblSaveFinalIndex.Text = "Der Index wurde erfolgreich angelegt - " & Now
|
||||
' Me.lblSaveFinalIndex.Visible = True
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:")
|
||||
End Try
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index:")
|
||||
' End Try
|
||||
|
||||
End If
|
||||
Else
|
||||
If txtBezeichner.Text <> "" Then
|
||||
Dim indexwert As String = ""
|
||||
If txtindexwert_final.Visible = True Then
|
||||
indexwert = txtindexwert_final.Text
|
||||
Else
|
||||
If chkbxfinalIndex.CheckState = CheckState.Checked Then
|
||||
indexwert = "True"
|
||||
Else
|
||||
indexwert = "False"
|
||||
End If
|
||||
' End If
|
||||
' Else
|
||||
' If txtBezeichner.Text <> "" Then
|
||||
' Dim indexwert As String = ""
|
||||
' If txtindexwert_final.Visible = True Then
|
||||
' indexwert = txtindexwert_final.Text
|
||||
' Else
|
||||
' If chkbxfinalIndex.CheckState = CheckState.Checked Then
|
||||
' indexwert = "True"
|
||||
' Else
|
||||
' indexwert = "False"
|
||||
' End If
|
||||
|
||||
End If
|
||||
Try
|
||||
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.Visible = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:")
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Refresh_Final_indexe()
|
||||
INSERT_ACTIVE = False
|
||||
TabControlFinalIndices.Enabled = False
|
||||
' End If
|
||||
' Try
|
||||
' 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.Visible = True
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anlage Final Index in VEKTORFELD:")
|
||||
' End Try
|
||||
' End If
|
||||
' End If
|
||||
' Refresh_Final_indexe()
|
||||
' INSERT_ACTIVE = False
|
||||
' TabControlFinalIndices.Enabled = False
|
||||
|
||||
End Sub
|
||||
Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs)
|
||||
Refresh_Final_indexe()
|
||||
INSERT_ACTIVE = False
|
||||
TabControlFinalIndices.Enabled = False
|
||||
'End Sub
|
||||
'Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs)
|
||||
' Refresh_Final_indexe()
|
||||
' INSERT_ACTIVE = False
|
||||
' TabControlFinalIndices.Enabled = False
|
||||
|
||||
txtBezeichner.Text = String.Empty
|
||||
txtindexwert_final.Text = String.Empty
|
||||
End Sub
|
||||
' txtBezeichner.Text = String.Empty
|
||||
' txtindexwert_final.Text = String.Empty
|
||||
'End Sub
|
||||
|
||||
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:")
|
||||
@ -684,89 +684,89 @@ Public Class frmAdministration
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs)
|
||||
Me.txtindexwert_final.Text = "vUserName"
|
||||
End Sub
|
||||
'Private Sub Button2_Click(sender As Object, e As EventArgs)
|
||||
' Me.txtindexwert_final.Text = "vUserName"
|
||||
'End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs)
|
||||
Me.txtindexwert_final.Text = "vDate"
|
||||
End Sub
|
||||
'Private Sub Button3_Click(sender As Object, e As EventArgs)
|
||||
' Me.txtindexwert_final.Text = "vDate"
|
||||
'End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
|
||||
If CheckBoxPMVEKTOR.Checked Then
|
||||
Me.txtBezeichner.Visible = True
|
||||
Me.cmbIndexe.Visible = False
|
||||
txtBezeichner.Text = ""
|
||||
Me.lblIndexPMVektor.Text = "Bezeichner für VektorIndex eingeben:"
|
||||
'Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
|
||||
' If CheckBoxPMVEKTOR.Checked Then
|
||||
' Me.txtBezeichner.Visible = True
|
||||
' Me.cmbIndexe.Visible = False
|
||||
' txtBezeichner.Text = ""
|
||||
' Me.lblIndexPMVektor.Text = "Bezeichner für VektorIndex eingeben:"
|
||||
|
||||
Me.lblIndex.Visible = True
|
||||
Me.lblIndex.Text = "Bitte den festen Wert als String eingeben:"
|
||||
Me.txtindexwert_final.Visible = True
|
||||
Me.grbxSystemStamps.Visible = True
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
Else
|
||||
Me.txtBezeichner.Visible = False
|
||||
Me.cmbIndexe.Visible = True
|
||||
Me.lblIndexPMVektor.Text = "Index wählen:"
|
||||
' Me.lblIndex.Visible = True
|
||||
' Me.lblIndex.Text = "Bitte den festen Wert als String eingeben:"
|
||||
' Me.txtindexwert_final.Visible = True
|
||||
' Me.grbxSystemStamps.Visible = True
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' Else
|
||||
' Me.txtBezeichner.Visible = False
|
||||
' Me.cmbIndexe.Visible = True
|
||||
' Me.lblIndexPMVektor.Text = "Index wählen:"
|
||||
|
||||
Me.lblIndex.Visible = False
|
||||
Me.txtindexwert_final.Visible = False
|
||||
Me.grbxSystemStamps.Visible = False
|
||||
Me.txtindexwert_final.Text = ""
|
||||
Me.chkbxfinalIndex.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
' Me.lblIndex.Visible = False
|
||||
' Me.txtindexwert_final.Visible = False
|
||||
' Me.grbxSystemStamps.Visible = False
|
||||
' Me.txtindexwert_final.Text = ""
|
||||
' Me.chkbxfinalIndex.Visible = False
|
||||
' End If
|
||||
'End Sub
|
||||
Private Sub btnopen_SQLAdmin_Click(sender As Object, e As EventArgs) Handles btnopen_SQLAdmin.Click
|
||||
frmSQL_Admin.ShowDialog()
|
||||
End Sub
|
||||
Private Sub btnRefreshProfiles_Click(sender As Object, e As EventArgs) Handles btnRefreshProfiles.Click
|
||||
Refresh_Profildaten()
|
||||
End Sub
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs)
|
||||
TabControlFinalIndices.Enabled = True
|
||||
tsBtnCancel_old.Visible = True
|
||||
tsBtnCancel.Visible = True
|
||||
cmbIndexe.Items.Clear()
|
||||
cmbIndexe2.Items.Clear()
|
||||
Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text)
|
||||
If indexe IsNot Nothing Then
|
||||
For Each index As String In indexe
|
||||
Me.cmbIndexe.Items.Add(index)
|
||||
Me.cmbIndexe2.Items.Add(index)
|
||||
Next
|
||||
Me.cmbIndexe.SelectedIndex = -1
|
||||
End If
|
||||
INSERT_ACTIVE = True
|
||||
End Sub
|
||||
'Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs)
|
||||
' TabControlFinalIndices.Enabled = True
|
||||
' tsBtnCancel_old.Visible = True
|
||||
' tsBtnCancel.Visible = True
|
||||
' cmbIndexe.Items.Clear()
|
||||
' cmbIndexe2.Items.Clear()
|
||||
' Dim indexe = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text)
|
||||
' If indexe IsNot Nothing Then
|
||||
' For Each index As String In indexe
|
||||
' Me.cmbIndexe.Items.Add(index)
|
||||
' Me.cmbIndexe2.Items.Add(index)
|
||||
' Next
|
||||
' Me.cmbIndexe.SelectedIndex = -1
|
||||
' End If
|
||||
' INSERT_ACTIVE = True
|
||||
'End Sub
|
||||
|
||||
Private Sub CancelFinalIndexInsert()
|
||||
TabControlFinalIndices.Enabled = False
|
||||
'TabControlFinalIndices.Enabled = False
|
||||
INSERT_ACTIVE = False
|
||||
tsBtnCancel_old.Visible = False
|
||||
'tsBtnCancel_old.Visible = False
|
||||
tsBtnCancel.Visible = False
|
||||
BindingNavigatorAddNewItem.Visible = True
|
||||
|
||||
txtBezeichner.Text = String.Empty
|
||||
txtindexwert_final.Text = String.Empty
|
||||
cmbIndexe.SelectedIndex = -1
|
||||
cmbIndexe2.SelectedIndex = -1
|
||||
cmbConnection.SelectedIndex = -1
|
||||
SQL_COMMANDTextBox.Text = String.Empty
|
||||
CheckBoxPMVEKTOR.Checked = False
|
||||
'txtBezeichner.Text = String.Empty
|
||||
'txtindexwert_final.Text = String.Empty
|
||||
'cmbIndexe.SelectedIndex = -1
|
||||
'cmbIndexe2.SelectedIndex = -1
|
||||
'cmbConnection.SelectedIndex = -1
|
||||
'SQL_COMMANDTextBox.Text = String.Empty
|
||||
'CheckBoxPMVEKTOR.Checked = False
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs)
|
||||
Dim i, ID As Integer
|
||||
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
If ID > 0 Then
|
||||
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(ID)
|
||||
End If
|
||||
Refresh_Final_indexe()
|
||||
MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:")
|
||||
' DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING.Clear()
|
||||
End Sub
|
||||
'Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs)
|
||||
' Dim i, ID As Integer
|
||||
' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
' If ID > 0 Then
|
||||
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(ID)
|
||||
' End If
|
||||
' Refresh_Final_indexe()
|
||||
' MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:")
|
||||
' ' DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING.Clear()
|
||||
'End Sub
|
||||
Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged
|
||||
If ACTIVECheckBox.Checked Then
|
||||
ACTIVECheckBox.BackColor = Color.Lime
|
||||
@ -840,105 +840,105 @@ Public Class frmAdministration
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
If TabControlFinalIndices.SelectedIndex = 1 Then
|
||||
Me.cmbIndexe2.Enabled = False
|
||||
If INSERT_ACTIVE = True Then
|
||||
Me.cmbIndexe2.Enabled = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
' If TabControlFinalIndices.SelectedIndex = 1 Then
|
||||
' Me.cmbIndexe2.Enabled = False
|
||||
' If INSERT_ACTIVE = True Then
|
||||
' Me.cmbIndexe2.Enabled = True
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs)
|
||||
If INSERT_ACTIVE = True 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)
|
||||
Exit Sub
|
||||
End If
|
||||
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text)
|
||||
INSERT_ACTIVE = False
|
||||
Else
|
||||
Dim i, ID As Integer
|
||||
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
If ID > 0 Then
|
||||
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID)
|
||||
End If
|
||||
'Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs)
|
||||
' If INSERT_ACTIVE = True 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)
|
||||
' Exit Sub
|
||||
' End If
|
||||
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert(PROFILGUIDTextBox.Text, cmbIndexe2.Text, "SQL-Command", Environment.UserName, cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text)
|
||||
' INSERT_ACTIVE = False
|
||||
' Else
|
||||
' Dim i, ID As Integer
|
||||
' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
' If ID > 0 Then
|
||||
' TBPM_PROFILE_FINAL_INDEXINGTableAdapter.cmdUpdateSQL(cmbConnection.SelectedValue, SQL_COMMANDTextBox.Text, Environment.UserName, ID)
|
||||
' End If
|
||||
|
||||
End If
|
||||
Refresh_Final_indexe()
|
||||
End Sub
|
||||
' End If
|
||||
' Refresh_Final_indexe()
|
||||
'End Sub
|
||||
|
||||
Private Sub btnEditor_Click(sender As Object, e As EventArgs)
|
||||
Try
|
||||
Dim CONID = 0
|
||||
If cmbConnection.SelectedValue > 0 Then
|
||||
CONID = cmbConnection.SelectedValue
|
||||
End If
|
||||
If INSERT_ACTIVE = True Then
|
||||
If cmbIndexe2.SelectedIndex = -1 Then
|
||||
MsgBox("Bitte wählen Sie einen Index!", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
'Private Sub btnEditor_Click(sender As Object, e As EventArgs)
|
||||
' Try
|
||||
' Dim CONID = 0
|
||||
' If cmbConnection.SelectedValue > 0 Then
|
||||
' CONID = cmbConnection.SelectedValue
|
||||
' End If
|
||||
' If INSERT_ACTIVE = True Then
|
||||
' If cmbIndexe2.SelectedIndex = -1 Then
|
||||
' MsgBox("Bitte wählen Sie einen Index!", MsgBoxStyle.Exclamation)
|
||||
' Exit Sub
|
||||
' 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
|
||||
Dim i, ID As Integer
|
||||
Try
|
||||
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
If ID > 0 Then
|
||||
CURRENT_INDEX_ID = ID
|
||||
CURRENT_DESIGN_TYPE = "FINAL_INDEX"
|
||||
CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text
|
||||
CURRENT_SQL_CON = CONID
|
||||
CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
|
||||
' End If
|
||||
' Dim i, ID As Integer
|
||||
' Try
|
||||
' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
' If ID > 0 Then
|
||||
' CURRENT_INDEX_ID = ID
|
||||
' CURRENT_DESIGN_TYPE = "FINAL_INDEX"
|
||||
' CURRENT_SQL_COMAMND = SQL_COMMANDTextBox.Text
|
||||
' CURRENT_SQL_CON = CONID
|
||||
' CURRENT_ProfilGUID = PROFILGUIDTextBox.Text
|
||||
|
||||
frmSQL_DESIGNER.ShowDialog()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message)
|
||||
End Try
|
||||
' frmSQL_DESIGNER.ShowDialog()
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' clsLogger.Add("Error while operating on TBPM_PROFILE_FINAL_INDEXINGDataGridView: " & ex.Message)
|
||||
' End Try
|
||||
|
||||
Refresh_Final_indexe()
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while opening SQLEditor: " & ex.Message, MsgBoxStyle.Critical)
|
||||
clsLogger.Add("Error while opening SQLEditor: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TBPM_PROFILE_FINAL_INDEXINGDataGridView_CellClick(sender As Object, e As DataGridViewCellEventArgs)
|
||||
Try
|
||||
TabControlFinalIndices.Enabled = False
|
||||
TabControlFinalIndices.SelectedIndex = 0
|
||||
' Refresh_Final_indexe()
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error while opening SQLEditor: " & ex.Message, MsgBoxStyle.Critical)
|
||||
' clsLogger.Add("Error while opening SQLEditor: " & ex.Message)
|
||||
' End Try
|
||||
'End Sub
|
||||
'Private Sub TBPM_PROFILE_FINAL_INDEXINGDataGridView_CellClick(sender As Object, e As DataGridViewCellEventArgs)
|
||||
' Try
|
||||
' TabControlFinalIndices.Enabled = False
|
||||
' TabControlFinalIndices.SelectedIndex = 0
|
||||
|
||||
Dim i, ID As Integer
|
||||
i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
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)
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(sql, True)
|
||||
' Dim i, ID As Integer
|
||||
' i = TBPM_PROFILE_FINAL_INDEXINGDataGridView.CurrentRow.Index
|
||||
' ID = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(0, i).Value
|
||||
' 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)
|
||||
' CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(sql, True)
|
||||
|
||||
Dim Type = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(2, i).Value
|
||||
If Type = "SQL-Command" Then
|
||||
Dim Indexname = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(1, i).Value
|
||||
TabControlFinalIndices.Enabled = True
|
||||
TabControlFinalIndices.SelectedIndex = 1
|
||||
cmbIndexe2.Text = Indexname
|
||||
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
|
||||
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")
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error while loading final Index: " & ex.Message, MsgBoxStyle.Critical)
|
||||
clsLogger.Add("Error while loading final Index: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
' Dim Type = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(2, i).Value
|
||||
' If Type = "SQL-Command" Then
|
||||
' Dim Indexname = TBPM_PROFILE_FINAL_INDEXINGDataGridView.Item(1, i).Value
|
||||
' TabControlFinalIndices.Enabled = True
|
||||
' TabControlFinalIndices.SelectedIndex = 1
|
||||
' cmbIndexe2.Text = Indexname
|
||||
' cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
|
||||
' 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")
|
||||
' End If
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Error while loading final Index: " & ex.Message, MsgBoxStyle.Critical)
|
||||
' clsLogger.Add("Error while loading final Index: " & ex.Message)
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
Private Sub btnShowConnections_Click(sender As Object, e As EventArgs)
|
||||
frmConnection.ShowDialog()
|
||||
End Sub
|
||||
'Private Sub btnShowConnections_Click(sender As Object, e As EventArgs)
|
||||
' frmConnection.ShowDialog()
|
||||
'End Sub
|
||||
|
||||
Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click
|
||||
Try
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user