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.
269 lines
9.5 KiB
269 lines
9.5 KiB
Imports System.Data.SqlTypes
|
|
Public Class frmNotizen
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#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 TextBox1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents BtnAbbruch As System.Windows.Forms.Button
|
|
Friend WithEvents BtnOK As System.Windows.Forms.Button
|
|
Friend WithEvents btnClose As System.Windows.Forms.Button
|
|
Friend WithEvents lblMutierer As System.Windows.Forms.Label
|
|
Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
|
|
Friend WithEvents lblMutiertAm As System.Windows.Forms.Label
|
|
Friend WithEvents txtMutiertAm As System.Windows.Forms.TextBox
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmNotizen))
|
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.BtnAbbruch = New System.Windows.Forms.Button()
|
|
Me.BtnOK = New System.Windows.Forms.Button()
|
|
Me.btnClose = New System.Windows.Forms.Button()
|
|
Me.lblMutierer = New System.Windows.Forms.Label()
|
|
Me.txtMutierer = New System.Windows.Forms.TextBox()
|
|
Me.lblMutiertAm = New System.Windows.Forms.Label()
|
|
Me.txtMutiertAm = New System.Windows.Forms.TextBox()
|
|
Me.SuspendLayout()
|
|
'
|
|
'TextBox1
|
|
'
|
|
Me.TextBox1.Location = New System.Drawing.Point(56, 16)
|
|
Me.TextBox1.MaxLength = 255
|
|
Me.TextBox1.Name = "TextBox1"
|
|
Me.TextBox1.Size = New System.Drawing.Size(384, 20)
|
|
Me.TextBox1.TabIndex = 0
|
|
Me.TextBox1.Text = "TextBox1"
|
|
'
|
|
'TextBox2
|
|
'
|
|
Me.TextBox2.Location = New System.Drawing.Point(56, 40)
|
|
Me.TextBox2.MaxLength = 1024
|
|
Me.TextBox2.Multiline = True
|
|
Me.TextBox2.Name = "TextBox2"
|
|
Me.TextBox2.Size = New System.Drawing.Size(384, 216)
|
|
Me.TextBox2.TabIndex = 1
|
|
Me.TextBox2.Text = "TextBox2"
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(40, 23)
|
|
Me.Label1.TabIndex = 2
|
|
Me.Label1.Text = "Betreff"
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 40)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(40, 23)
|
|
Me.Label2.TabIndex = 3
|
|
Me.Label2.Text = "Notiz"
|
|
'
|
|
'BtnAbbruch
|
|
'
|
|
Me.BtnAbbruch.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|
Me.BtnAbbruch.Location = New System.Drawing.Point(56, 307)
|
|
Me.BtnAbbruch.Name = "BtnAbbruch"
|
|
Me.BtnAbbruch.TabIndex = 4
|
|
Me.BtnAbbruch.Text = "&Abbruch"
|
|
'
|
|
'BtnOK
|
|
'
|
|
Me.BtnOK.DialogResult = System.Windows.Forms.DialogResult.OK
|
|
Me.BtnOK.Location = New System.Drawing.Point(368, 307)
|
|
Me.BtnOK.Name = "BtnOK"
|
|
Me.BtnOK.TabIndex = 5
|
|
Me.BtnOK.Text = "&OK"
|
|
'
|
|
'btnClose
|
|
'
|
|
Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|
Me.btnClose.Location = New System.Drawing.Point(216, 307)
|
|
Me.btnClose.Name = "btnClose"
|
|
Me.btnClose.TabIndex = 6
|
|
Me.btnClose.Text = "&Schliessen"
|
|
'
|
|
'lblMutierer
|
|
'
|
|
Me.lblMutierer.Location = New System.Drawing.Point(8, 267)
|
|
Me.lblMutierer.Name = "lblMutierer"
|
|
Me.lblMutierer.Size = New System.Drawing.Size(48, 16)
|
|
Me.lblMutierer.TabIndex = 8
|
|
Me.lblMutierer.Text = "Mutierer"
|
|
'
|
|
'txtMutierer
|
|
'
|
|
Me.txtMutierer.BackColor = System.Drawing.SystemColors.Control
|
|
Me.txtMutierer.Location = New System.Drawing.Point(56, 264)
|
|
Me.txtMutierer.MaxLength = 255
|
|
Me.txtMutierer.Name = "txtMutierer"
|
|
Me.txtMutierer.ReadOnly = True
|
|
Me.txtMutierer.Size = New System.Drawing.Size(208, 20)
|
|
Me.txtMutierer.TabIndex = 7
|
|
Me.txtMutierer.TabStop = False
|
|
Me.txtMutierer.Text = ""
|
|
'
|
|
'lblMutiertAm
|
|
'
|
|
Me.lblMutiertAm.Location = New System.Drawing.Point(275, 268)
|
|
Me.lblMutiertAm.Name = "lblMutiertAm"
|
|
Me.lblMutiertAm.Size = New System.Drawing.Size(64, 16)
|
|
Me.lblMutiertAm.TabIndex = 10
|
|
Me.lblMutiertAm.Text = "Mutiert am"
|
|
'
|
|
'txtMutiertAm
|
|
'
|
|
Me.txtMutiertAm.BackColor = System.Drawing.SystemColors.Control
|
|
Me.txtMutiertAm.Location = New System.Drawing.Point(332, 264)
|
|
Me.txtMutiertAm.MaxLength = 255
|
|
Me.txtMutiertAm.Name = "txtMutiertAm"
|
|
Me.txtMutiertAm.ReadOnly = True
|
|
Me.txtMutiertAm.Size = New System.Drawing.Size(108, 20)
|
|
Me.txtMutiertAm.TabIndex = 9
|
|
Me.txtMutiertAm.TabStop = False
|
|
Me.txtMutiertAm.Text = ""
|
|
'
|
|
'frmNotizen
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(448, 333)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtMutiertAm, Me.lblMutierer, Me.txtMutierer, Me.btnClose, Me.BtnOK, Me.BtnAbbruch, Me.Label2, Me.Label1, Me.TextBox2, Me.TextBox1, Me.lblMutiertAm})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmNotizen"
|
|
Me.Text = "Notizen"
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim m_betreff As String
|
|
Dim m_notiz As String
|
|
Dim m_Mutierer As String
|
|
Dim m_MutiertAm As String
|
|
|
|
Property Betreff() As String
|
|
Get
|
|
Return m_betreff
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_betreff = Value
|
|
End Set
|
|
End Property
|
|
Property Notiz() As String
|
|
Get
|
|
Return m_notiz
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_notiz = Value
|
|
End Set
|
|
End Property
|
|
Property Mutierer() As String
|
|
Get
|
|
Return m_Mutierer
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Mutierer = Value
|
|
End Set
|
|
End Property
|
|
Property MutiertAm() As String
|
|
Get
|
|
Return m_MutiertAm
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_MutiertAm = Value
|
|
End Set
|
|
End Property
|
|
Dim m_readonly As Boolean = False
|
|
Property FrmReadOnly() As Boolean
|
|
Get
|
|
Return m_readonly
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_readonly = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub frmNotizen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
'SHU 2004-10-04 - Generelles Anzeige vom Mutierername
|
|
|
|
Try
|
|
Dim objMitarbeiter As New edokadb.clsMitarbeiter()
|
|
objMitarbeiter.cpMainConnectionProvider = conn
|
|
objMitarbeiter.iMitarbeiternr = New SqlInt32(CType(Me.Mutierer, Int32))
|
|
objMitarbeiter.SelectOne()
|
|
Me.Mutierer = objMitarbeiter.sName.ToString & " " & objMitarbeiter.sVorname.ToString & " , " & objMitarbeiter.sTgnummer.ToString
|
|
objMitarbeiter.Dispose()
|
|
Catch
|
|
|
|
End Try
|
|
|
|
Me.TextBox1.Text = Me.Betreff
|
|
Me.TextBox2.Text = Me.Notiz
|
|
Me.txtMutierer.Text = Me.Mutierer
|
|
Me.txtMutiertAm.Text = Me.MutiertAm
|
|
If Me.FrmReadOnly Then
|
|
Me.BtnAbbruch.Visible = False
|
|
Me.BtnOK.Visible = False
|
|
Me.TextBox1.ReadOnly = True
|
|
Me.TextBox2.ReadOnly = True
|
|
Me.btnClose.Visible = True
|
|
Else
|
|
Me.BtnAbbruch.Visible = True
|
|
Me.BtnOK.Visible = True
|
|
Me.btnClose.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BtnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAbbruch.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
|
|
Me.Betreff = Me.TextBox1.Text
|
|
Me.Notiz = Me.TextBox2.Text
|
|
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMutierer.Click
|
|
|
|
End Sub
|
|
End Class
|