You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
117 lines
3.8 KiB
117 lines
3.8 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
|
|
Public Class frmPhaseDetail
|
|
|
|
Dim NeuerDatensatz As Boolean = False
|
|
Dim CurrentPhase As Integer
|
|
Dim PhaseStammdaten As New DataTable
|
|
Dim produktnr As Integer
|
|
Dim produktphase As New TKB.VV.Lifecycle.clslcProduktPhase
|
|
Dim ROnly As Boolean = False
|
|
|
|
|
|
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Sub New(ByVal keyvalue As Integer, ByVal produktnr As Integer, ByVal NeuerDs As Boolean, Optional ROnly As Boolean = False)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.CurrentPhase = keyvalue
|
|
Me.NeuerDatensatz = NeuerDs
|
|
Me.produktnr = produktnr
|
|
Me.ROnly = ROnly
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
If NeuerDatensatz = True Then
|
|
produktphase.Add_New(Me.cbboxphase.SelectedValue, Me.produktnr)
|
|
|
|
End If
|
|
Try
|
|
produktphase.daDatum = New SqlDateTime(CType(Me.txtDatum.Text, DateTime))
|
|
Catch
|
|
produktphase.daDatum = New SqlDateTime(CType("01.01.1900", DateTime))
|
|
End Try
|
|
|
|
produktphase.iLC_PhaseNr = New SqlInt32(CType(Me.cbboxphase.SelectedValue, Int32))
|
|
produktphase.sBemerkung = New SqlString(CType(Me.txtBeschreibung.Text, String))
|
|
produktphase.Save_Data()
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
|
End Sub
|
|
|
|
#Region "db"
|
|
Sub Get_Phasen()
|
|
Try
|
|
Me.PhaseStammdaten.Rows.Clear()
|
|
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
|
|
#End Region
|
|
|
|
Private Sub frmPhaseDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Get_Phasen()
|
|
Me.cbboxphase.DataSource = PhaseStammdaten
|
|
Me.cbboxphase.DisplayMember = "Bezeichnung"
|
|
Me.cbboxphase.ValueMember = "LC_PhaseNr"
|
|
If NeuerDatensatz Then
|
|
Me.cbboxphase.SelectedValue = 1
|
|
Me.txtBeschreibung.Text = ""
|
|
Me.txtDatum.Text = ""
|
|
Else
|
|
produktphase.Get_ProduktPhase(Me.CurrentPhase)
|
|
Me.cbboxphase.SelectedValue = produktphase.iLC_PhaseNr.Value
|
|
If produktphase.daDatum.IsNull Then
|
|
Me.txtDatum.Text = "01.01.1900"
|
|
Else
|
|
Me.txtDatum.Text = produktphase.daDatum.ToString
|
|
End If
|
|
'Me.txtDatum.Text = produktphase.daDatum.Value
|
|
Me.txtBeschreibung.Text = produktphase.sBemerkung.Value
|
|
End If
|
|
If ROnly Then
|
|
Me.btnAbbruch.Visible = False
|
|
Me.btnOK.Visible = False
|
|
Me.btnronlyok.Visible = True
|
|
Else
|
|
Me.btnAbbruch.Visible = True
|
|
Me.btnOK.Visible = True
|
|
Me.btnronlyok.Visible = False
|
|
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub DateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtDatum.ValueChanged
|
|
txtDatum.Text = dtDatum.Value
|
|
End Sub
|
|
|
|
Private Sub btnronlyok_Click(sender As Object, e As EventArgs) Handles btnronlyok.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
|
Me.Close()
|
|
End Sub
|
|
End Class |