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

sql editor and fix read only

Browse Source
This commit is contained in:
JenneJ
2015-10-26 12:15:45 +01:00
parent e47a7eac67
commit 7149b1cb4f
4 changed files with 84 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -587,10 +587,11 @@ Public Class ClassControlBuilder
control.Cursor = Cursors.Hand control.Cursor = Cursors.Hand
End If End If
If Not read_only Then If Not read_only Or _designMode Then
Me.SetEventHandlers(control) Me.SetEventHandlers(control)
End If End If
Me.CurrentControl = DirectCast(control, TextBox) Me.CurrentControl = DirectCast(control, TextBox)
If Not IsNothing(parent) Then If Not IsNothing(parent) Then
control.Parent = parent control.Parent = parent
@@ -932,7 +933,7 @@ Public Class ClassControlBuilder
control.Size = New Size(vwidth, vheight) control.Size = New Size(vwidth, vheight)
End If End If
If Not read_only Then If Not read_only Or _designMode Then
Me.SetEventHandlers(control) Me.SetEventHandlers(control)
End If End If
@@ -973,6 +974,8 @@ Public Class ClassControlBuilder
control.Parent = _master_panel control.Parent = _master_panel
control.ReadOnly = read_only control.ReadOnly = read_only
column.HeaderText = "" column.HeaderText = ""
column.Name = "column1" column.Name = "column1"
control.Columns.Add(column) control.Columns.Add(column)

129
app/DD-Record-Organiser/frmSQLEditor.Designer.vb generated
View File

@@ -22,17 +22,16 @@ Partial Class frmSQLEditor
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.txtValue = New System.Windows.Forms.TextBox() Me.txtValue = New System.Windows.Forms.TextBox()
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.TBDD_CONNECTIONTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.cmbConnection = New System.Windows.Forms.ComboBox() Me.cmbConnection = New System.Windows.Forms.ComboBox()
@@ -62,6 +61,7 @@ Partial Class frmSQLEditor
Me.txtCondition = New System.Windows.Forms.TextBox() Me.txtCondition = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.lbResultsCount = New System.Windows.Forms.Label()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -75,10 +75,10 @@ Partial Class frmSQLEditor
'Button1 'Button1
' '
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.save_16xLG
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(960, 700) Me.Button1.Location = New System.Drawing.Point(954, 680)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(266, 25) Me.Button1.Size = New System.Drawing.Size(266, 25)
Me.Button1.TabIndex = 1 Me.Button1.TabIndex = 1
@@ -113,6 +113,7 @@ Partial Class frmSQLEditor
'TableAdapterManager 'TableAdapterManager
' '
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter
Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EMAIL_ACCOUNTTableAdapter = Nothing
@@ -120,7 +121,6 @@ Partial Class frmSQLEditor
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter
Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
@@ -132,6 +132,9 @@ Partial Class frmSQLEditor
Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPMO_KONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITY_PATTERNTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing
@@ -142,7 +145,7 @@ Partial Class frmSQLEditor
'cmbConnection 'cmbConnection
' '
Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource
Me.cmbConnection.DisplayMember = "DESCRIPTION" Me.cmbConnection.DisplayMember = "BEZEICHNUNG"
Me.cmbConnection.FormattingEnabled = True Me.cmbConnection.FormattingEnabled = True
Me.cmbConnection.Location = New System.Drawing.Point(6, 19) Me.cmbConnection.Location = New System.Drawing.Point(6, 19)
Me.cmbConnection.Name = "cmbConnection" Me.cmbConnection.Name = "cmbConnection"
@@ -163,12 +166,12 @@ Partial Class frmSQLEditor
' '
'btnTestSQL 'btnTestSQL
' '
Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnTestSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnTestSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.Go Me.btnTestSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.Go
Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestSQL.Location = New System.Drawing.Point(954, 413) Me.btnTestSQL.Location = New System.Drawing.Point(368, 680)
Me.btnTestSQL.Name = "btnTestSQL" Me.btnTestSQL.Name = "btnTestSQL"
Me.btnTestSQL.Size = New System.Drawing.Size(266, 29) Me.btnTestSQL.Size = New System.Drawing.Size(266, 25)
Me.btnTestSQL.TabIndex = 7 Me.btnTestSQL.TabIndex = 7
Me.btnTestSQL.Text = "SQL Befehl testen" Me.btnTestSQL.Text = "SQL Befehl testen"
Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -207,28 +210,28 @@ Partial Class frmSQLEditor
' '
Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle13.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle14.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvPlaceholders.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvPlaceholders.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle15.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvPlaceholders.DefaultCellStyle = DataGridViewCellStyle9 Me.dgvPlaceholders.DefaultCellStyle = DataGridViewCellStyle15
Me.dgvPlaceholders.Enabled = False Me.dgvPlaceholders.Enabled = False
Me.dgvPlaceholders.Location = New System.Drawing.Point(9, 458) Me.dgvPlaceholders.Location = New System.Drawing.Point(12, 438)
Me.dgvPlaceholders.Name = "dgvPlaceholders" Me.dgvPlaceholders.Name = "dgvPlaceholders"
Me.dgvPlaceholders.Size = New System.Drawing.Size(350, 236) Me.dgvPlaceholders.Size = New System.Drawing.Size(350, 236)
Me.dgvPlaceholders.TabIndex = 16 Me.dgvPlaceholders.TabIndex = 16
@@ -248,36 +251,36 @@ Partial Class frmSQLEditor
' '
Me.dgvResult.AllowUserToAddRows = False Me.dgvResult.AllowUserToAddRows = False
Me.dgvResult.AllowUserToDeleteRows = False Me.dgvResult.AllowUserToDeleteRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle16.BackColor = System.Drawing.Color.Cyan
Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle17.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvResult.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvResult.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle18.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvResult.DefaultCellStyle = DataGridViewCellStyle12 Me.dgvResult.DefaultCellStyle = DataGridViewCellStyle18
Me.dgvResult.Location = New System.Drawing.Point(365, 458) Me.dgvResult.Location = New System.Drawing.Point(368, 438)
Me.dgvResult.Name = "dgvResult" Me.dgvResult.Name = "dgvResult"
Me.dgvResult.ReadOnly = True Me.dgvResult.ReadOnly = True
Me.dgvResult.Size = New System.Drawing.Size(855, 236) Me.dgvResult.Size = New System.Drawing.Size(852, 236)
Me.dgvResult.TabIndex = 17 Me.dgvResult.TabIndex = 17
' '
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Label5.Location = New System.Drawing.Point(362, 440) Me.Label5.Location = New System.Drawing.Point(365, 420)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(55, 15) Me.Label5.Size = New System.Drawing.Size(55, 15)
Me.Label5.TabIndex = 18 Me.Label5.TabIndex = 18
@@ -441,7 +444,7 @@ Partial Class frmSQLEditor
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Label1.Location = New System.Drawing.Point(6, 440) Me.Label1.Location = New System.Drawing.Point(9, 420)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(132, 15) Me.Label1.Size = New System.Drawing.Size(132, 15)
Me.Label1.TabIndex = 32 Me.Label1.TabIndex = 32
@@ -457,11 +460,22 @@ Partial Class frmSQLEditor
Me.Label2.TabIndex = 33 Me.Label2.TabIndex = 33
Me.Label2.Text = "SQL-Befehl:" Me.Label2.Text = "SQL-Befehl:"
' '
'lbResultsCount
'
Me.lbResultsCount.AutoSize = True
Me.lbResultsCount.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbResultsCount.Location = New System.Drawing.Point(640, 684)
Me.lbResultsCount.Name = "lbResultsCount"
Me.lbResultsCount.Size = New System.Drawing.Size(110, 17)
Me.lbResultsCount.TabIndex = 34
Me.lbResultsCount.Text = "Keine Ergebnisse"
'
'frmSQLEditor 'frmSQLEditor
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1238, 737) Me.ClientSize = New System.Drawing.Size(1238, 717)
Me.Controls.Add(Me.lbResultsCount)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GroupBox4) Me.Controls.Add(Me.GroupBox4)
@@ -523,4 +537,5 @@ Partial Class frmSQLEditor
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtCondition As System.Windows.Forms.TextBox Friend WithEvents txtCondition As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents lbResultsCount As System.Windows.Forms.Label
End Class End Class

12
app/DD-Record-Organiser/frmSQLEditor.resx
View File

@@ -118,16 +118,16 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 17</value>
</metadata>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="TBPMO_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 17</value> <value>261, 17</value>
</metadata>
<metadata name="TBPMO_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>414, 17</value>
</metadata> </metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 17</value> <value>642, 17</value>
</metadata> </metadata>
<metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="colPlaceholder.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>

1
app/DD-Record-Organiser/frmSQLEditor.vb
View File

@@ -97,6 +97,7 @@ Public Class frmSQLEditor
Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, query) Dim ds As DataSet = ExecuteWithConnection(cmbConnection.SelectedValue, query)
If ds IsNot Nothing Then If ds IsNot Nothing Then
lbResultsCount.Text = ds.Tables(0).Rows.Count.ToString & " Ergebnisse"
dgvResult.DataSource = ds.Tables(0) dgvResult.DataSource = ds.Tables(0)
End If End If