Imports System Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.IO Public Class frmDokumentpaketInfo 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 lblBezeichnung As System.Windows.Forms.Label Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox Friend WithEvents GrpDokumentvorlagen As System.Windows.Forms.GroupBox Friend WithEvents lblOwner As System.Windows.Forms.Label Friend WithEvents txtOwner As System.Windows.Forms.TextBox Friend WithEvents GrpBeschreibung As System.Windows.Forms.GroupBox Friend WithEvents RichTextBoxHS1 As EDOKAApp.RichTextBoxHS Friend WithEvents GrpAllgemein As System.Windows.Forms.GroupBox Friend WithEvents GrpHinweis As System.Windows.Forms.GroupBox Friend WithEvents btnOK As System.Windows.Forms.Button Friend WithEvents ImageList3 As System.Windows.Forms.ImageList Friend WithEvents TreeVorlagen As System.Windows.Forms.TreeView Friend WithEvents PicHinweis As System.Windows.Forms.PictureBox Friend WithEvents txtHinweis As System.Windows.Forms.Label Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentpaketInfo)) Me.lblBezeichnung = New System.Windows.Forms.Label() Me.txtBezeichnung = New System.Windows.Forms.TextBox() Me.GrpDokumentvorlagen = New System.Windows.Forms.GroupBox() Me.TreeVorlagen = New System.Windows.Forms.TreeView() Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components) Me.lblOwner = New System.Windows.Forms.Label() Me.txtOwner = New System.Windows.Forms.TextBox() Me.GrpBeschreibung = New System.Windows.Forms.GroupBox() Me.RichTextBoxHS1 = New EDOKAApp.RichTextBoxHS() Me.GrpAllgemein = New System.Windows.Forms.GroupBox() Me.GrpHinweis = New System.Windows.Forms.GroupBox() Me.txtHinweis = New System.Windows.Forms.Label() Me.PicHinweis = New System.Windows.Forms.PictureBox() Me.btnOK = New System.Windows.Forms.Button() Me.GrpDokumentvorlagen.SuspendLayout() Me.GrpBeschreibung.SuspendLayout() Me.GrpAllgemein.SuspendLayout() Me.GrpHinweis.SuspendLayout() Me.SuspendLayout() ' 'lblBezeichnung ' Me.lblBezeichnung.Location = New System.Drawing.Point(16, 16) Me.lblBezeichnung.Name = "lblBezeichnung" Me.lblBezeichnung.Size = New System.Drawing.Size(88, 24) Me.lblBezeichnung.TabIndex = 1 Me.lblBezeichnung.Text = "Dokumentpaket" ' 'txtBezeichnung ' Me.txtBezeichnung.BackColor = System.Drawing.Color.White Me.txtBezeichnung.Location = New System.Drawing.Point(104, 16) Me.txtBezeichnung.Name = "txtBezeichnung" Me.txtBezeichnung.ReadOnly = True Me.txtBezeichnung.Size = New System.Drawing.Size(368, 20) Me.txtBezeichnung.TabIndex = 2 Me.txtBezeichnung.Text = "TextBox1" ' 'GrpDokumentvorlagen ' Me.GrpDokumentvorlagen.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeVorlagen}) Me.GrpDokumentvorlagen.Location = New System.Drawing.Point(8, 160) Me.GrpDokumentvorlagen.Name = "GrpDokumentvorlagen" Me.GrpDokumentvorlagen.Size = New System.Drawing.Size(240, 360) Me.GrpDokumentvorlagen.TabIndex = 3 Me.GrpDokumentvorlagen.TabStop = False Me.GrpDokumentvorlagen.Text = "Dokumentvorlagen" ' 'TreeVorlagen ' Me.TreeVorlagen.CheckBoxes = True Me.TreeVorlagen.Dock = System.Windows.Forms.DockStyle.Fill Me.TreeVorlagen.ImageList = Me.ImageList3 Me.TreeVorlagen.Location = New System.Drawing.Point(3, 16) Me.TreeVorlagen.Name = "TreeVorlagen" Me.TreeVorlagen.Size = New System.Drawing.Size(234, 341) Me.TreeVorlagen.TabIndex = 0 ' 'ImageList3 ' Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16) Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent ' 'lblOwner ' Me.lblOwner.Location = New System.Drawing.Point(488, 16) Me.lblOwner.Name = "lblOwner" Me.lblOwner.Size = New System.Drawing.Size(80, 24) Me.lblOwner.TabIndex = 4 Me.lblOwner.Text = "Verantwortlich:" ' 'txtOwner ' Me.txtOwner.BackColor = System.Drawing.Color.White Me.txtOwner.Location = New System.Drawing.Point(576, 16) Me.txtOwner.Name = "txtOwner" Me.txtOwner.ReadOnly = True Me.txtOwner.Size = New System.Drawing.Size(208, 20) Me.txtOwner.TabIndex = 5 Me.txtOwner.Text = "TextBox1" ' 'GrpBeschreibung ' Me.GrpBeschreibung.Controls.AddRange(New System.Windows.Forms.Control() {Me.RichTextBoxHS1}) Me.GrpBeschreibung.Location = New System.Drawing.Point(256, 160) Me.GrpBeschreibung.Name = "GrpBeschreibung" Me.GrpBeschreibung.Size = New System.Drawing.Size(544, 360) Me.GrpBeschreibung.TabIndex = 6 Me.GrpBeschreibung.TabStop = False Me.GrpBeschreibung.Text = "Beschreibung" ' 'RichTextBoxHS1 ' Me.RichTextBoxHS1.AcceptsTab = True Me.RichTextBoxHS1.Dock = System.Windows.Forms.DockStyle.Fill Me.RichTextBoxHS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.RichTextBoxHS1.Location = New System.Drawing.Point(3, 16) Me.RichTextBoxHS1.Name = "RichTextBoxHS1" Me.RichTextBoxHS1.ReadOnly = True Me.RichTextBoxHS1.Size = New System.Drawing.Size(538, 341) Me.RichTextBoxHS1.TabIndex = 4 Me.RichTextBoxHS1.Text = "" ' 'GrpAllgemein ' Me.GrpAllgemein.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtBezeichnung, Me.lblBezeichnung, Me.txtOwner, Me.lblOwner}) Me.GrpAllgemein.Location = New System.Drawing.Point(8, 8) Me.GrpAllgemein.Name = "GrpAllgemein" Me.GrpAllgemein.Size = New System.Drawing.Size(800, 48) Me.GrpAllgemein.TabIndex = 7 Me.GrpAllgemein.TabStop = False Me.GrpAllgemein.Text = "Allgemeines" ' 'GrpHinweis ' Me.GrpHinweis.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtHinweis, Me.PicHinweis}) Me.GrpHinweis.Location = New System.Drawing.Point(8, 64) Me.GrpHinweis.Name = "GrpHinweis" Me.GrpHinweis.Size = New System.Drawing.Size(800, 88) Me.GrpHinweis.TabIndex = 8 Me.GrpHinweis.TabStop = False Me.GrpHinweis.Text = "Wichtiger Hinweis" ' 'txtHinweis ' Me.txtHinweis.Location = New System.Drawing.Point(72, 24) Me.txtHinweis.Name = "txtHinweis" Me.txtHinweis.Size = New System.Drawing.Size(720, 56) Me.txtHinweis.TabIndex = 60 Me.txtHinweis.Text = "Label1" ' 'PicHinweis ' Me.PicHinweis.Image = CType(resources.GetObject("PicHinweis.Image"), System.Drawing.Bitmap) Me.PicHinweis.Location = New System.Drawing.Point(16, 24) Me.PicHinweis.Name = "PicHinweis" Me.PicHinweis.Size = New System.Drawing.Size(40, 46) Me.PicHinweis.TabIndex = 59 Me.PicHinweis.TabStop = False Me.PicHinweis.Visible = False ' 'btnOK ' Me.btnOK.Location = New System.Drawing.Point(720, 528) Me.btnOK.Name = "btnOK" Me.btnOK.TabIndex = 9 Me.btnOK.Text = "OK" ' 'frmDokumentpaketInfo ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(802, 557) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnOK, Me.GrpHinweis, Me.GrpAllgemein, Me.GrpBeschreibung, Me.GrpDokumentvorlagen}) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmDokumentpaketInfo" Me.Text = "Informationen zum Dokumentpaket:" Me.GrpDokumentvorlagen.ResumeLayout(False) Me.GrpBeschreibung.ResumeLayout(False) Me.GrpAllgemein.ResumeLayout(False) Me.GrpHinweis.ResumeLayout(False) Me.ResumeLayout(False) End Sub #End Region #Region "Deklarationen" Dim m_key As Integer Property Key() As Integer Get Return m_key End Get Set(ByVal Value As Integer) m_key = Value End Set End Property Dim m_title As String Property Titel() As String Get Return m_title End Get Set(ByVal Value As String) m_title = Value End Set End Property Dim on_Load As Boolean = True #End Region #Region "Init_Load" Private Sub frmDokumentpaketInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Integer Dim tn As TreeNode Me.Text = Me.Text + " " + Me.Titel Dim tb As DataTable = Generic_Select(1) If tb.Rows.Count > 0 Then Me.txtBezeichnung.Text = tb.Rows(0).Item("bezeichnung") Me.txtOwner.Text = tb.Rows(0).Item("owner") Me.txtHinweis.Text = tb.Rows(0).Item("wichtigehinweise") For i = 0 To tb.Rows.Count - 1 tn = Me.TreeVorlagen.Nodes.Add(tb.Rows(i).Item("DTBezeichnung")) tn.Tag = i tn.ImageIndex = tb.Rows(i).Item("imageindex") tn.SelectedImageIndex = tb.Rows(i).Item("imageindex") tn.Checked = tb.Rows(i).Item("zwingend") = 1 Next Load_Beschreibung() End If If Me.txtHinweis.Text.Length > 0 Then Me.PicHinweis.Visible = True Else Me.PicHinweis.Visible = False Me.on_Load = False End Sub Private Sub Load_Beschreibung() Dim connection As New SqlConnection() Dim da As New SqlDataAdapter("Select * From EDEX_dokumentpaket where dokumentpaketnr=" + Str(Me.Key), connection) Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) Dim ds As New DataSet() Dim dokname As String dokname = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "tmp.rtf" Try connection.ConnectionString = Globals.sConnectionString connection.Open() da.Fill(ds, "docbeschreibung") Dim myRow As DataRow myRow = ds.Tables(0).Rows(0) Dim MyData() As Byte MyData = myRow.Item(5) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(dokname, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing Me.RichTextBoxHS1.LoadFile(dokname) Catch ex As Exception Finally CB = Nothing ds = Nothing da = Nothing connection.Close() connection = Nothing End Try End Sub #End Region #Region "Datenbank" Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "edex_sp_dokumentpaketinfo" Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Select Case typ Case 1 scmCmdToExecute.Parameters.Add(New SqlParameter("@dpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Key)) End Select scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Me.Close() End Sub Dim CheckValue As Boolean Private Sub TreeVorlagen_BeforeCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeVorlagen.BeforeCheck If Me.on_Load Then Exit Sub Try e.Cancel = True Catch End Try End Sub Private Sub TreeVorlagen_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeVorlagen.AfterCheck End Sub End Class