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

MS Änderungen an Clickhandle Designer, Adding Controlfields SQLEditor

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-04-05 10:18:59 +02:00
parent f74a46597e
commit 12b8f9d52a
22 changed files with 166 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@@ -36,6 +36,19 @@ Public Class frmSQL_DESIGNER
Next
Me.cmbIndexe.SelectedIndex = -1
End If
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
Dim sql = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
cmbControls.DataSource = DT
cmbControls.DisplayMember = DT.Columns(0).ColumnName
cmbControls.Visible = True
lblControls.Visible = True
btnAddControl.Visible = True
Else
cmbControls.Visible = False
lblControls.Visible = False
btnAddControl.Visible = False
End If
Catch ex As Exception
MsgBox("Unexpected Error while loading form: " & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -173,14 +186,14 @@ Public Class frmSQL_DESIGNER
End Try
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndex.Click
If cmbIndexe.SelectedIndex <> -1 Then
Dim val As String = "[%" & cmbIndexe.Text & "]"
Dim altePosition As Integer = Me.SQL_COMMANDTextBox.SelectionStart()
Me.SQL_COMMANDTextBox.Text = Me.SQL_COMMANDTextBox.Text.Insert(altePosition, val)
Me.SQL_COMMANDTextBox.SelectionStart = altePosition + val.Length
End If
End Sub
Private Sub btnSaveSQLCommand_Click(sender As Object, e As EventArgs) Handles btnSaveSQLCommand.Click
@@ -201,4 +214,13 @@ Public Class frmSQL_DESIGNER
End If
End Sub
Private Sub btnAddControl_Click(sender As Object, e As EventArgs) Handles btnAddControl.Click
If cmbControls.SelectedIndex <> -1 Then
Dim val As String = "[%" & cmbControls.Text & "]"
Dim altePosition As Integer = Me.SQL_COMMANDTextBox.SelectionStart()
Me.SQL_COMMANDTextBox.Text = Me.SQL_COMMANDTextBox.Text.Insert(altePosition, val)
Me.SQL_COMMANDTextBox.SelectionStart = altePosition + val.Length
End If
End Sub
End Class