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.
41 lines
1.4 KiB
41 lines
1.4 KiB
Public Class frmBeziehungEdit
|
|
|
|
Dim dc As New _DataClass.DataClass
|
|
Dim sec As New Utils.MySecurity
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmBeziehungEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
sec.Set_Form_Security(Me)
|
|
End Sub
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Dim dt As New DataTable
|
|
dc.ConnectionString = Globals.sConnectionString
|
|
dc.Mitarbeiternr = Globals.Mitarbeiternr
|
|
dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
|
|
Me.cbbeziehungstyp.DataSource = dt
|
|
Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
|
|
Me.cbbeziehungstyp.ValueMember = "KeyValue"
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub tsmnuSecurityObjekte_Click(sender As Object, e As EventArgs) Handles tsmnuSecurityObjekte.Click
|
|
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
|
sec.List_Form_Controls(Me)
|
|
sec.Print_Screen(Me)
|
|
End Sub
|
|
End Class |