Initial
This commit is contained in:
280
Backup/EDOKA/Systemadministration/Domains/frmDomainSpalten.vb
Normal file
280
Backup/EDOKA/Systemadministration/Domains/frmDomainSpalten.vb
Normal file
@@ -0,0 +1,280 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainSpalten
|
||||
Inherits _frmDomainEditor
|
||||
|
||||
#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ügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form ü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 SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'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", "spalten", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("eintragnr", "eintragnr"), New System.Data.Common.DataColumnMapping("tabelle", "tabelle"), New System.Data.Common.DataColumnMapping("tabellenspalte", "tabellenspalte"), New System.Data.Common.DataColumnMapping("spalte", "spalte"), New System.Data.Common.DataColumnMapping("Readonly", "Readonly"), New System.Data.Common.DataColumnMapping("alsHacken", "alsHacken"), New System.Data.Common.DataColumnMapping("Breite", "Breite"), New System.Data.Common.DataColumnMapping("Reihenfolge", "Reihenfolge"), New System.Data.Common.DataColumnMapping("tiptext", "tiptext"), 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"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4})
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 0
|
||||
Me.MenuItem4.Text = "Daten aus Tabelle generieren"
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_spalten_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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_spalten_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("@eintragnr", System.Data.SqlDbType.Int, 4, "eintragnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabelle", System.Data.SqlDbType.VarChar, 255, "tabelle"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabellenspalte", System.Data.SqlDbType.VarChar, 255, "tabellenspalte"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@spalte", System.Data.SqlDbType.VarChar, 255, "spalte"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Readonly", System.Data.SqlDbType.Bit, 1, "Readonly"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@alsHacken", System.Data.SqlDbType.Bit, 1, "alsHacken"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Breite", System.Data.SqlDbType.Int, 4, "Breite"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Reihenfolge", System.Data.SqlDbType.Int, 4, "Reihenfolge"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tiptext", System.Data.SqlDbType.VarChar, 255, "tiptext"))
|
||||
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"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_spalten_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("@eintragnr", System.Data.SqlDbType.Int, 4, "eintragnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabelle", System.Data.SqlDbType.VarChar, 255, "tabelle"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabellenspalte", System.Data.SqlDbType.VarChar, 255, "tabellenspalte"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@spalte", System.Data.SqlDbType.VarChar, 255, "spalte"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Readonly", System.Data.SqlDbType.Bit, 1, "Readonly"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@alsHacken", System.Data.SqlDbType.Bit, 1, "alsHacken"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Breite", System.Data.SqlDbType.Int, 4, "Breite"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Reihenfolge", System.Data.SqlDbType.Int, 4, "Reihenfolge"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tiptext", System.Data.SqlDbType.VarChar, 255, "tiptext"))
|
||||
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("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eintragnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Breite", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Breite", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Readonly", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Readonly", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Reihenfolge", 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_alsHacken", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "alsHacken", 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_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_spalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "spalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabelle", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabelle", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabellenspalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabellenspalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tiptext", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tiptext", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_spalten_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_eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eintragnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Breite", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Breite", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Readonly", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Readonly", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Reihenfolge", 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_alsHacken", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "alsHacken", 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_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_spalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "spalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabelle", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabelle", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabellenspalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabellenspalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tiptext", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tiptext", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainSpalten
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(680, 277)
|
||||
Me.Name = "frmDomainSpalten"
|
||||
Me.Text = "Spalten"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainSpalten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.DomainList.AllowDelete = True
|
||||
Me.DomainList.ContextMenu = Me.ContextMenu1
|
||||
Me.TableName = "Spalten"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Dim i As Integer
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
'Präsentation von Readonly
|
||||
If Me.DomainList.Columns(i).DataField = "Readonly" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).DefaultValue = False
|
||||
End If
|
||||
Next
|
||||
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
|
||||
Me.Close()
|
||||
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 frmClose(ByVal sender As System.Object, ByVal e As 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 Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
|
||||
|
||||
Dim spalten As New EDOKA.MySpaltenTitel()
|
||||
spalten.load_data()
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
||||
Dim f As New frmSysadminTableSelector()
|
||||
Dim tablename As String
|
||||
tablename = (f.get_tablename())
|
||||
If tablename = "" Then Exit Sub
|
||||
Generate_Data(tablename)
|
||||
End Sub
|
||||
|
||||
Private Sub Generate_Data(ByVal tablename As String)
|
||||
Me.SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dttable As New DataTable(tablename)
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(903), ex)
|
||||
Finally
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user