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.
34 lines
1.1 KiB
34 lines
1.1 KiB
Imports C1.Win.C1TrueDBGrid
|
|
|
|
Public Class frmDomainEditorPhase
|
|
Inherits frmDomainEditor
|
|
|
|
Sub New()
|
|
MyBase.New("lc_phase")
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub frmDomainEditorPhase_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
conn.CloseConnection(True)
|
|
End Sub
|
|
|
|
Private Sub frmDomainEditorPhase_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Phasen_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
|
Dim f As New frmPhaseStammDetail
|
|
f.txtphase.Text = C1Daten.Columns("Bezeichnung").Value
|
|
f.txtBeschreibung.Text = C1Daten.Columns("Beschreibung").Value.ToString
|
|
f.ShowDialog()
|
|
If f.DialogResult = Windows.Forms.DialogResult.OK Then
|
|
Me.C1Daten.Columns("Bezeichnung").Value = f.txtphase.Text
|
|
Me.C1Daten.Columns("Beschreibung").Value = f.txtBeschreibung.Text
|
|
End If
|
|
End Sub
|
|
|
|
End Class |