111 lines
3.2 KiB
VB.net
111 lines
3.2 KiB
VB.net
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
|
|
Public Class ctlPhasen
|
|
Dim m_Connectionstring As String
|
|
Public Property ConnectionString() As String
|
|
Get
|
|
ConnectionString = m_Connectionstring
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
If m_Connectionstring <> Value Then
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Produktnr As Integer
|
|
Property Produktnr As Integer
|
|
Get
|
|
Return m_Produktnr
|
|
End Get
|
|
Set(value As Integer)
|
|
m_Produktnr = value
|
|
refresh_details()
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_mitarbeiternr As Integer
|
|
Property Mitarbeiternr As Integer
|
|
Get
|
|
Return m_mitarbeiternr
|
|
End Get
|
|
Set(value As Integer)
|
|
m_mitarbeiternr = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_tempfilepath As String
|
|
Property TempfilePath As String
|
|
Get
|
|
Return m_tempfilepath
|
|
End Get
|
|
Set(value As String)
|
|
m_tempfilepath = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim Phasendaten As New DataTable
|
|
Dim PhaseStammdaten As New DataTable
|
|
Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
|
|
Dim DAP As SqlDataAdapter
|
|
|
|
|
|
Private Sub refresh_details()
|
|
C1Phasen.DataSource = Nothing
|
|
Me.Phasendaten.Rows.Clear()
|
|
Get_Produktphasen(Me.Produktnr)
|
|
Get_Phasen()
|
|
Me.C1Phasen.DataSource = Phasendaten
|
|
Me.SpaltenTitel.Spaltentitel_aktualisieren(C1Phasen, "LC_Produkt_Phase", Me.C1Phasen.DataSource)
|
|
Me.C1PhaseDropDown.DataSource = PhaseStammdaten
|
|
Me.C1PhaseDropDown.DisplayMember = "Bezeichnung"
|
|
Me.C1PhaseDropDown.ValueMember = "lc_phasenr"
|
|
Me.C1Phasen.Columns("LC_PhaseNr").DropDown = Me.C1PhaseDropDown
|
|
Me.C1PhaseDropDown.ValueTranslate = True
|
|
Me.C1PhaseDropDown.DisplayColumns(0).Width = 0
|
|
Me.C1Phasen.Columns("LC_PhaseNr").ValueItems.Translate = True
|
|
End Sub
|
|
|
|
#Region "DB"
|
|
Sub Get_Produktphasen(produktnr As Integer)
|
|
Try
|
|
Dim Connection As New SqlConnection(Globals.sConnectionString)
|
|
DAP = New SqlDataAdapter("select * from lc_produkt_phase where lc_produktnr = " & Str(produktnr), Connection)
|
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DAP)
|
|
DAP.Fill(Phasendaten)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub Get_Phasen()
|
|
Try
|
|
Dim Connection As New SqlConnection(Globals.sConnectionString)
|
|
Dim DA As New SqlDataAdapter("select * from lc_phase where aktiv=1", Connection)
|
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
|
DA.Fill(PhaseStammdaten)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Sub Save_Phasen()
|
|
Try
|
|
DAP.Update(Phasendaten)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub C1Phasen_AfterInsert(sender As Object, e As EventArgs) Handles C1Phasen.AfterInsert
|
|
Me.C1Phasen.Columns("LC_Produktnr").Value = Me.Produktnr
|
|
End Sub
|
|
|
|
Private Sub C1Phasen_Click(sender As Object, e As EventArgs) Handles C1Phasen.Click
|
|
|
|
End Sub
|
|
End Class
|