|
|
Imports System
|
|
|
Imports System.Data
|
|
|
Imports System.Data.SqlTypes
|
|
|
Imports System.Data.SqlClient
|
|
|
Imports System.ComponentModel
|
|
|
|
|
|
Public Class frmParameterSetName
|
|
|
Inherits EDOKAApp._frmDomainEditor
|
|
|
|
|
|
#Region "Deklarationen"
|
|
|
Private m_iReportNr As Integer
|
|
|
Private m_dsParameterDataset As DataSet
|
|
|
Private m_sParameterSetName As String
|
|
|
Private m_iParameterSetNameID As Integer
|
|
|
Private m_bDatenSpeichern As Boolean = False 'False = Daten Laden True = Daten Speichern
|
|
|
Private m_bNewParameterSetListe As Boolean = False ' Wird auf true gesetzt, wenn ein neuer ParametesetName eingegeben wird
|
|
|
Public Enum Enum_DatenModus
|
|
|
Speichern = 0
|
|
|
Laden = 1
|
|
|
End Enum
|
|
|
Private m_iDatenModus As Enum_DatenModus
|
|
|
#End Region
|
|
|
|
|
|
#Region "Property"
|
|
|
Public Property DatenModus()
|
|
|
Get
|
|
|
Return DatenModus
|
|
|
End Get
|
|
|
Set(ByVal Value)
|
|
|
m_iDatenModus = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Public Property DatenSpeichern()
|
|
|
Get
|
|
|
DatenSpeichern = m_bDatenSpeichern
|
|
|
End Get
|
|
|
Set(ByVal Value)
|
|
|
m_bDatenSpeichern = Value
|
|
|
Me.DomainList.AllowAddNew = m_bDatenSpeichern
|
|
|
Me.DomainList.AllowUpdate = m_bDatenSpeichern
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Public Property ParameterSetNameID()
|
|
|
Get
|
|
|
ParameterSetNameID = m_iParameterSetNameID
|
|
|
End Get
|
|
|
Set(ByVal Value)
|
|
|
m_iParameterSetNameID = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Public Property ParameterDataset()
|
|
|
Get
|
|
|
ParameterDataset = m_dsParameterDataset
|
|
|
End Get
|
|
|
Set(ByVal Value)
|
|
|
m_dsParameterDataset = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
Public Property ParameterSetName()
|
|
|
Get
|
|
|
ParameterSetName = m_sParameterSetName
|
|
|
End Get
|
|
|
Set(ByVal Value)
|
|
|
m_sParameterSetName = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
Public Property ReportNr()
|
|
|
Get
|
|
|
ReportNr = m_iReportNr
|
|
|
End Get
|
|
|
Set(ByVal Value)
|
|
|
m_iReportNr = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Vom Windows Form Designer generierter Code "
|
|
|
|
|
|
Public Sub New()
|
|
|
MyBase.New()
|
|
|
|
|
|
' Dieser Aufruf ist f<>r den Windows Form-Designer erforderlich.
|
|
|
InitializeComponent()
|
|
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzuf<75>gen
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
' Die Form <20>berschreibt den L<>schvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
|
If disposing Then
|
|
|
If Not (components Is Nothing) Then
|
|
|
components.Dispose()
|
|
|
End If
|
|
|
End If
|
|
|
MyBase.Dispose(disposing)
|
|
|
End Sub
|
|
|
|
|
|
' F<>r Windows Form-Designer erforderlich
|
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
|
|
'HINWEIS: Die folgende Prozedur ist f<>r den Windows Form-Designer erforderlich
|
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
|
Friend WithEvents cmUebernehmen As System.Windows.Forms.ContextMenu
|
|
|
Friend WithEvents mnuUebernehmen As System.Windows.Forms.MenuItem
|
|
|
Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
|
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
|
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
|
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
|
|
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
|
Me.cmUebernehmen = New System.Windows.Forms.ContextMenu()
|
|
|
Me.mnuUebernehmen = New System.Windows.Forms.MenuItem()
|
|
|
Me.mnuExit = New System.Windows.Forms.MenuItem()
|
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
|
Me.SuspendLayout()
|
|
|
'
|
|
|
'DataSet1
|
|
|
'
|
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
|
'
|
|
|
'cmUebernehmen
|
|
|
'
|
|
|
Me.cmUebernehmen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUebernehmen, Me.mnuExit, Me.MenuItem4, Me.MenuItem5})
|
|
|
'
|
|
|
'mnuUebernehmen
|
|
|
'
|
|
|
Me.mnuUebernehmen.Index = 0
|
|
|
Me.mnuUebernehmen.Text = "<EFBFBD>&bernehmen"
|
|
|
'
|
|
|
'mnuExit
|
|
|
'
|
|
|
Me.mnuExit.Index = 1
|
|
|
Me.mnuExit.Text = "B&eenden ohne <20>bernehmen"
|
|
|
'
|
|
|
'MenuItem4
|
|
|
'
|
|
|
Me.MenuItem4.Index = 2
|
|
|
Me.MenuItem4.Text = "-"
|
|
|
'
|
|
|
'MenuItem5
|
|
|
'
|
|
|
Me.MenuItem5.Index = 3
|
|
|
Me.MenuItem5.Text = "Parameterset &l<>schen"
|
|
|
'
|
|
|
'SqlDataAdapter1
|
|
|
'
|
|
|
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
|
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
|
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
|
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ParameterSetName", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ParameterSetNameID", "ParameterSetNameID"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
|
'
|
|
|
'SqlDeleteCommand1
|
|
|
'
|
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_ParameterSetName_delete]"
|
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParameterSetNameID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParameterSetNameID", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
|
|
'
|
|
|
'SqlConnection1
|
|
|
'
|
|
|
Me.SqlConnection1.ConnectionString = "data source=TGTSQLEDOKABSSF;initial catalog=edoka;integrated security=SSPI;persis" & _
|
|
|
"t security info=False;user id=tgentwicklung3;workstation id=TG602640;packet size" & _
|
|
|
"=4096"
|
|
|
'
|
|
|
'SqlInsertCommand1
|
|
|
'
|
|
|
Me.SqlInsertCommand1.CommandText = "[pv_ParameterSetName_insert]"
|
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ParameterSetNameID", System.Data.SqlDbType.Int, 4, "ParameterSetNameID"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
|
'
|
|
|
'SqlSelectCommand1
|
|
|
'
|
|
|
Me.SqlSelectCommand1.CommandText = "[pv_ParameterSetName_select]"
|
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
|
|
'
|
|
|
'SqlUpdateCommand1
|
|
|
'
|
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_ParameterSetName_update]"
|
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ParameterSetNameID", System.Data.SqlDbType.Int, 4, "ParameterSetNameID"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "reportNr"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParameterSetNameID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParameterSetNameID", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
|
|
'
|
|
|
'frmParameterSetName
|
|
|
'
|
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
|
Me.ClientSize = New System.Drawing.Size(880, 377)
|
|
|
Me.Name = "frmParameterSetName"
|
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
|
Me.Text = ""
|
|
|
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
|
Me.ResumeLayout(False)
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Formular Funktionen"
|
|
|
|
|
|
Private Sub frmParameterSet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
Dim lCnt As Long
|
|
|
Me.DomainList.ContextMenu = Me.cmUebernehmen
|
|
|
|
|
|
Me.TableName = "ParameterSetName"
|
|
|
Dim dbconn As New EDOKA.DB_Connection()
|
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
|
Me.SqlConnection1.Open()
|
|
|
|
|
|
' Nur f<>r den aktuell gew<65>hlten Mandanten die Daten auslesen
|
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mitarbeiternr", Globals.MitarbeiterNr)
|
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@reportnr", Me.ReportNr)
|
|
|
|
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
|
Me.DomainList.DataSource = Me.DataSet1
|
|
|
Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName
|
|
|
'Me.Eintrag = "Parameterwerte"
|
|
|
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
|
|
DomainList.FetchRowStyles = True
|
|
|
If Me.ParameterSetNameID > 0 Then
|
|
|
For lCnt = 0 To DomainList.Splits(0).Rows.Count - 1
|
|
|
If DomainList.Columns("ParameterSetNameID").CellText(lCnt) = Me.ParameterSetNameID Then
|
|
|
DomainList.Bookmark = lCnt
|
|
|
Exit For
|
|
|
End If
|
|
|
Next
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmParameterSetName_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
|
Select Case m_iDatenModus
|
|
|
Case Enum_DatenModus.Laden 'Form wird f<>r Laden der Parameter ge<67>ffnet
|
|
|
Me.ToolBar1.Buttons(1).Visible = False 'Ausschalten des Speichernknopfes
|
|
|
Me.MenuItem3.Visible = False
|
|
|
Case Enum_DatenModus.Speichern 'Form wir f<>r Speichern der Parameter ge<67>ffnet
|
|
|
|
|
|
End Select
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmParameterSetName_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
|
Dim msg As MsgBoxResult
|
|
|
If Me.DataSet1.HasChanges Then
|
|
|
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
|
|
If msg = MsgBoxResult.No Then
|
|
|
e.Cancel = False
|
|
|
End If
|
|
|
If msg = MsgBoxResult.Yes Then
|
|
|
If Save_Data() Then
|
|
|
e.Cancel = False
|
|
|
Else
|
|
|
e.Cancel = True
|
|
|
End If
|
|
|
If msg = MsgBoxResult.Cancel Then
|
|
|
e.Cancel = True
|
|
|
End If
|
|
|
End If
|
|
|
End If
|
|
|
End Sub
|
|
|
#End Region
|
|
|
|
|
|
#Region "Menu Funktionen"
|
|
|
Private Sub mnuUebernehmen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUebernehmen.Click
|
|
|
Uebenehmen()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
|
|
|
|
|
|
|
|
|
Me.TransferKey = 0
|
|
|
Me.Close()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
|
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
|
|
Case 0 'close button
|
|
|
Select Case m_iDatenModus
|
|
|
Case Enum_DatenModus.Laden
|
|
|
Uebenehmen()
|
|
|
Case Enum_DatenModus.Speichern
|
|
|
Me.Close()
|
|
|
End Select
|
|
|
Case 1 'Speichern
|
|
|
Save_Data()
|
|
|
End Select
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
|
Save_Data()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
|
'===============================================================================
|
|
|
'Desc : L<>schen der ParamterSetNamen Nach OK Best<73>tigung des Users wird erst die ParametersetListe gel<65>scht
|
|
|
' Danach die ParameterSetName
|
|
|
'Input :
|
|
|
'Output :
|
|
|
'Erstellt : koe 20.10.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
Save_Data()
|
|
|
|
|
|
End Sub
|
|
|
Private Sub MenuItem5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
|
|
|
|
'===============================================================================
|
|
|
'Desc : L<>schen der ParamterSetNamen Nach OK Best<73>tigung des Users wird erst die ParametersetListe gel<65>scht
|
|
|
' Danach die ParameterSetName
|
|
|
'Input :
|
|
|
'Output :
|
|
|
'Erstellt : koe 20.10.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
If MyMsg.show_MessageYesNo_ReplaceText(218, DomainList.Columns("bezeichnung").Value, "") = DialogResult.Yes Then 'M<>chten Sie das Parameterset " & DomainList.Columns("bezeichnung").Value & " L<>schen?"
|
|
|
'MyMsg.show_standardmessage_ReplaceText(218, MsgBoxStyle.Question, DomainList.Columns("bezeichnung").Value, "")
|
|
|
DeleteParameterSetList()
|
|
|
DeleteParameterSetName()
|
|
|
RefreshParameterlist()
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Daten Funktionen"
|
|
|
|
|
|
Private Sub Uebenehmen()
|
|
|
Select Case m_iDatenModus
|
|
|
Case Enum_DatenModus.Laden
|
|
|
If Me.DomainList.Splits(0).Rows.Count >= 1 And Not Me.DomainList.Columns("ParameterSetNameID").Value Is System.DBNull.Value Then
|
|
|
Me.ToSelect = True
|
|
|
Me.ParameterSetName = Me.DomainList.Columns("bezeichnung").Value
|
|
|
Me.TransferKey = Me.DomainList.Columns("ParameterSetNameID").Value
|
|
|
Else
|
|
|
Me.TransferKey = 0
|
|
|
End If
|
|
|
Me.Close()
|
|
|
Case Enum_DatenModus.Speichern
|
|
|
End Select
|
|
|
End Sub
|
|
|
|
|
|
Private Function Save_Data() As Boolean
|
|
|
Save_Data = True
|
|
|
Me.ActiveControl = Me.ToolBar1
|
|
|
Try
|
|
|
SqlDataAdapter1.Update(Me.DataSet1)
|
|
|
If m_bNewParameterSetListe = True Then
|
|
|
'===============================================================================
|
|
|
'Ein neuer Parametename wurde vergeben
|
|
|
'===============================================================================
|
|
|
If InsertParameterList() = False Then
|
|
|
Save_Data = False
|
|
|
End If
|
|
|
Else
|
|
|
'===============================================================================
|
|
|
'Ein bestehender Parametername wird <20>berschreiben
|
|
|
'===============================================================================
|
|
|
If UpdateParameterList() = False Then
|
|
|
Save_Data = False
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
m_bNewParameterSetListe = False
|
|
|
'Me.Close()
|
|
|
Catch ex As Exception
|
|
|
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
|
|
Save_Data = False
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Private Function InsertParameterList() As Boolean
|
|
|
'===============================================================================
|
|
|
'Desc : Neue Parameter werden gespeichert
|
|
|
'Input :
|
|
|
'Output : True False
|
|
|
'Erstellt : koe 10.11.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
Dim lCnt As Long
|
|
|
Dim key As Long
|
|
|
Dim vdata As New edokadb.clsParameterSetList()
|
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
|
InsertParameterList = True
|
|
|
Try
|
|
|
conn.OpenConnection()
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
|
For lCnt = 0 To m_dsParameterDataset.Tables(0).Rows.Count - 1
|
|
|
'Alle Benutzerparanmeter durchlaufen
|
|
|
With vdata
|
|
|
key = dbkey.get_dbkey("ParameterSetList")
|
|
|
conn.OpenConnection()
|
|
|
.cpMainConnectionProvider = conn
|
|
|
.iParameterSetListID = New SqlInt32(CType(key, Integer))
|
|
|
.iParameterSetNameID = New SqlInt32(CType(Me.DomainList.Columns("ParameterSetNameID").Value, SqlInt32))
|
|
|
.iReportReportfeldregelNr = New SqlInt32(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("Reportreportfeldregelnr"), Integer))
|
|
|
|
|
|
If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue") Is System.DBNull.Value Then
|
|
|
.sParameterDisplayValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue"), String))
|
|
|
Else
|
|
|
'.sParameterDisplayValue = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue")
|
|
|
End If
|
|
|
'.sParameterDisplayValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue"), String))
|
|
|
|
|
|
If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue") Is System.DBNull.Value Then
|
|
|
.sParameterNavigationValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue"), String))
|
|
|
Else
|
|
|
'.sParameterNavigationValue = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue")
|
|
|
End If
|
|
|
|
|
|
If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft") Is System.DBNull.Value Then
|
|
|
.sDatenherkunft = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft"), String))
|
|
|
Else
|
|
|
'.sDatenherkunft = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft")
|
|
|
End If
|
|
|
.iReihenfolge() = New SqlInt32(lCnt)
|
|
|
.iMandantnr = New SqlInt32(Globals.MitarbeiterNr)
|
|
|
.bAktiv = New SqlBoolean(True)
|
|
|
.daErstellt_am = New SqlDateTime(Now())
|
|
|
.daMutiert_am = New SqlDateTime(Now())
|
|
|
.iMutierer = New SqlInt32(Globals.MitarbeiterNr)
|
|
|
End With
|
|
|
vdata.Insert()
|
|
|
'conn.Dispose()
|
|
|
Next
|
|
|
Catch ex As Exception
|
|
|
InsertParameterList = False
|
|
|
MessageBox.Show(ex.Message, "Einf<EFBFBD>gefehler", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
|
|
End Try
|
|
|
|
|
|
conn.CloseConnection(True)
|
|
|
vdata.Dispose()
|
|
|
dbkey.Dispose()
|
|
|
End Function
|
|
|
|
|
|
Private Function UpdateParameterList() As Boolean
|
|
|
'===============================================================================
|
|
|
'Desc : Besthende Parameter werden erg<72>nzt
|
|
|
'Kriterium : ParameterSetNameID,ReportReportfeldregelNr
|
|
|
'Updatewert : MitarbeiterNr, Parameterwert
|
|
|
'Output : True False
|
|
|
'Erstellt : koe 10.11.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim objParmameterSetList As New edokadb.clsParameterSetList()
|
|
|
Dim daTable As New DataTable()
|
|
|
Dim iErrorCode As Integer
|
|
|
Dim lCnt As Long
|
|
|
UpdateParameterList = True
|
|
|
scmCmdToExecute.CommandText = "dbo.[sp_ParameterSetList_Update]"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
conn.OpenConnection()
|
|
|
objParmameterSetList.cpMainConnectionProvider = conn
|
|
|
daTable = objParmameterSetList.SelectAll()
|
|
|
conn.CloseConnection(True)
|
|
|
Try
|
|
|
If GetRecordcount() = m_dsParameterDataset.Tables(0).Rows.Count Then
|
|
|
conn.OpenConnection()
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
For lCnt = 0 To m_dsParameterDataset.Tables(0).Rows.Count - 1
|
|
|
scmCmdToExecute.Parameters.Clear()
|
|
|
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterDisplayValue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue")))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterNavigationValue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue")))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft")))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParametesetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DomainList.Columns("ParameterSetNameID").Value))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ReportReportfeldregelNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("Reportreportfeldregelnr")))
|
|
|
' // Execute query.
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
Next
|
|
|
Else
|
|
|
DeleteParameterSetList()
|
|
|
InsertParameterList()
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
UpdateParameterList = False
|
|
|
MessageBox.Show(ex.Message, "Update Parameterliste", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
End Try
|
|
|
|
|
|
conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
Private Function DeleteParameterSetList() As Boolean
|
|
|
'===============================================================================
|
|
|
'Desc : Besthende ParameterSetListe werden gel<65>scht
|
|
|
'Kriterium : DomainList.Columns("ParameterSetNameID")
|
|
|
'Output : True False
|
|
|
'Erstellt : koe 10.11.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
Dim scmCmdToExecuteParameterSetlist As SqlCommand = New SqlCommand()
|
|
|
Dim iErrorCode As Integer
|
|
|
Dim lCnt As Long
|
|
|
DeleteParameterSetList = True
|
|
|
scmCmdToExecuteParameterSetlist.CommandText = "dbo.[sp_ParameterSetList_Delete]"
|
|
|
scmCmdToExecuteParameterSetlist.CommandType = CommandType.StoredProcedure
|
|
|
|
|
|
conn.OpenConnection()
|
|
|
scmCmdToExecuteParameterSetlist.Connection = conn.scoDBConnection
|
|
|
|
|
|
Try
|
|
|
scmCmdToExecuteParameterSetlist.Parameters.Clear()
|
|
|
scmCmdToExecuteParameterSetlist.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
|
|
|
' // Execute query ParameterSetList.
|
|
|
scmCmdToExecuteParameterSetlist.ExecuteNonQuery()
|
|
|
' // Execute query ParameterSetName.
|
|
|
Catch ex As Exception
|
|
|
DeleteParameterSetList = False
|
|
|
MessageBox.Show(ex.Message, "Parametersetliste l<>schen", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
|
|
Finally
|
|
|
scmCmdToExecuteParameterSetlist.Dispose()
|
|
|
End Try
|
|
|
conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
Private Function DeleteParameterSetName() As Boolean
|
|
|
'===============================================================================
|
|
|
'Desc : Besthende ParameterSetName werden gel<65>scht
|
|
|
'Kriterium : DomainList.Columns("ParameterSetNameID")
|
|
|
'Output : True False
|
|
|
'Erstellt : koe 10.11.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
Dim scmCmdToExecuteParameterSetName As SqlCommand = New SqlCommand()
|
|
|
DeleteParameterSetName = True
|
|
|
scmCmdToExecuteParameterSetName.CommandText = "dbo.[sp_ParameterSetName_Delete]"
|
|
|
scmCmdToExecuteParameterSetName.CommandType = CommandType.StoredProcedure
|
|
|
conn.OpenConnection()
|
|
|
scmCmdToExecuteParameterSetName.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecuteParameterSetName.Parameters.Clear()
|
|
|
scmCmdToExecuteParameterSetName.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
|
|
|
|
|
|
' // Execute query ParameterSetName.
|
|
|
scmCmdToExecuteParameterSetName.ExecuteNonQuery()
|
|
|
DomainList.Refresh()
|
|
|
Catch ex As Exception
|
|
|
DeleteParameterSetName = False
|
|
|
MessageBox.Show(ex.Message, "ParametersetNamen l<>schen", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
|
|
Finally
|
|
|
scmCmdToExecuteParameterSetName.Dispose()
|
|
|
End Try
|
|
|
|
|
|
conn.CloseConnection(True)
|
|
|
End Function
|
|
|
|
|
|
Private Sub RefreshParameterlist()
|
|
|
DataSet1.Clear()
|
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
|
Me.DomainList.DataSource = Me.DataSet1
|
|
|
Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Diverse Funktionen"
|
|
|
Public Function GetRecordcount() As Integer
|
|
|
'===============================================================================
|
|
|
'Desc : Ermittelt die Anzahl der Records in der Tabelle ParameterSetList
|
|
|
'Input :
|
|
|
'Kriterium : DomainList.Columns("ParameterSetNameID").Value
|
|
|
'Updatewert :
|
|
|
'Output : Anzahl Datens<6E>tze
|
|
|
'Erstellt : koe 10.11.2003
|
|
|
'Geaendert :
|
|
|
'===============================================================================
|
|
|
Dim m_dbkey As Long
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.[sp_ParameterSetList_anzahl]"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
|
|
|
conn.OpenConnection()
|
|
|
' // Use base class' connection object
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Anzahl", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, GetRecordcount))
|
|
|
'scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
|
|
'scmCmdToExecute.Connection.Open()
|
|
|
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
GetRecordcount = scmCmdToExecute.Parameters("@Anzahl").Value()
|
|
|
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
MessageBox.Show(ex.Message, "Anzahl Parametersetliste ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
|
|
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
conn.CloseConnection(True)
|
|
|
End Try
|
|
|
|
|
|
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "Grid Funktionen"
|
|
|
|
|
|
Private Sub DomainList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown
|
|
|
If e.Button = MouseButtons.Right Then
|
|
|
Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y)
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub DomainList_BeforeInsert(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeInsert
|
|
|
If m_bNewParameterSetListe = False Then
|
|
|
m_bNewParameterSetListe = True
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub DomainList_Dblklick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
|
|
|
Uebenehmen()
|
|
|
End Sub
|
|
|
Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert
|
|
|
Me.DomainList.Columns("beschreibung").Text = ""
|
|
|
|
|
|
End Sub
|
|
|
Private Sub domainlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate
|
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
|
Dim i As Integer
|
|
|
Try
|
|
|
Me.DomainList.Columns("reportNr").Value = Me.m_iReportNr
|
|
|
Me.DomainList.Columns("mandantnr").Value = Globals.MandantNr
|
|
|
Me.DomainList.Columns("mitarbeiternr").Value = Globals.MitarbeiterNr
|
|
|
|
|
|
Save_Data()
|
|
|
Catch
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Private Sub DomainList_BeforeRowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeRowColChange
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
End Class
|
