Initial
This commit is contained in:
171
EDOKA/Backup1/DiverseFormulare/frmSelectStatus.vb
Normal file
171
EDOKA/Backup1/DiverseFormulare/frmSelectStatus.vb
Normal file
@@ -0,0 +1,171 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmSelectStatus
|
||||
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 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 SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
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()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
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.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmSelectStatus
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(384, 272)
|
||||
Me.Name = "frmSelectStatus"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Dim m_dokumenttypnr As Long
|
||||
Dim m_statustypnr As Long
|
||||
Property Dokumenttypnr() As Long
|
||||
Get
|
||||
Return m_dokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_dokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Statustypnr() As Long
|
||||
Get
|
||||
Return m_statustypnr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_statustypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "dokumentstatus"
|
||||
Dim t As DataTable
|
||||
Dim dstatus As New edokadb.clsMyDokumentstatus()
|
||||
dstatus.Dokumenttypnr = Dokumenttypnr
|
||||
dstatus.Statustypnr = Statustypnr
|
||||
dstatus.cpMainConnectionProvider = conn
|
||||
t = dstatus.SelectDokumentstatus
|
||||
Me.DomainList.DataSource = t
|
||||
MySpaltenTitel_Aktualisieren()
|
||||
Me.DomainList.AllowAddNew = False
|
||||
Me.DomainList.AllowUpdate = False
|
||||
Me.ToolBar1.Buttons(1).Visible = False
|
||||
Me.MenuItem3.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub MySpaltenTitel_Aktualisieren()
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
|
||||
ts.Tabelle = "dokumentstatus"
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
s = Me.DomainList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.DomainList.Columns(i).Caption = ts.spaltenname
|
||||
If Me.DomainList.Columns(i).Caption = "" Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
If ts.locked Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "folgestatus_durch_anderen_verantwortlichen" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
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 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)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user