Initial

Backup/EDOKA/Dokumentmanagement/frmNotizen.vb

@@ -0,0 +1,268 @@
+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