Initial commit
This commit is contained in:
@@ -0,0 +1,267 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class FrmFinding
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmFinding))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.txtBezeichnung = New DevComponents.DotNetBar.Controls.TextBoxX()
|
||||
Me.lblBezeichnung = New System.Windows.Forms.Label()
|
||||
Me.lblAktiv = New System.Windows.Forms.Label()
|
||||
Me.cbaktiv = New System.Windows.Forms.CheckBox()
|
||||
Me.btnAbbruch = New System.Windows.Forms.Button()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
|
||||
Me.lblBeschreibung = New System.Windows.Forms.Label()
|
||||
Me.lblkritikalitaet = New System.Windows.Forms.Label()
|
||||
Me.lblAuswirkung = New System.Windows.Forms.Label()
|
||||
Me.lblWichtigkeit = New System.Windows.Forms.Label()
|
||||
Me.cbboxauswirkung = New System.Windows.Forms.ComboBox()
|
||||
Me.cbboxkritikalitaet = New System.Windows.Forms.ComboBox()
|
||||
Me.cbboxWichtigkeit = New System.Windows.Forms.ComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(701, 25)
|
||||
Me.ToolStrip1.TabIndex = 8
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "Fenster schliessen"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "ToolStripButton1"
|
||||
Me.ToolStripButton1.ToolTipText = "Neue Feststellung erfassen"
|
||||
Me.ToolStripButton1.Visible = False
|
||||
'
|
||||
'txtBezeichnung
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.txtBezeichnung.Border.Class = "TextBoxBorder"
|
||||
Me.txtBezeichnung.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.txtBezeichnung.Location = New System.Drawing.Point(89, 43)
|
||||
Me.txtBezeichnung.Name = "txtBezeichnung"
|
||||
Me.txtBezeichnung.PreventEnterBeep = True
|
||||
Me.txtBezeichnung.Size = New System.Drawing.Size(599, 20)
|
||||
Me.txtBezeichnung.TabIndex = 0
|
||||
'
|
||||
'lblBezeichnung
|
||||
'
|
||||
Me.lblBezeichnung.AutoSize = True
|
||||
Me.lblBezeichnung.Location = New System.Drawing.Point(13, 43)
|
||||
Me.lblBezeichnung.Name = "lblBezeichnung"
|
||||
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblBezeichnung.TabIndex = 36
|
||||
Me.lblBezeichnung.Text = "Bezeichnung"
|
||||
'
|
||||
'lblAktiv
|
||||
'
|
||||
Me.lblAktiv.AutoSize = True
|
||||
Me.lblAktiv.Location = New System.Drawing.Point(603, 208)
|
||||
Me.lblAktiv.Name = "lblAktiv"
|
||||
Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
|
||||
Me.lblAktiv.TabIndex = 35
|
||||
Me.lblAktiv.Text = "Aktiv"
|
||||
'
|
||||
'cbaktiv
|
||||
'
|
||||
Me.cbaktiv.AutoSize = True
|
||||
Me.cbaktiv.Location = New System.Drawing.Point(673, 207)
|
||||
Me.cbaktiv.Name = "cbaktiv"
|
||||
Me.cbaktiv.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbaktiv.TabIndex = 5
|
||||
Me.cbaktiv.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnAbbruch
|
||||
'
|
||||
Me.btnAbbruch.Location = New System.Drawing.Point(613, 304)
|
||||
Me.btnAbbruch.Name = "btnAbbruch"
|
||||
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnAbbruch.TabIndex = 7
|
||||
Me.btnAbbruch.Text = "Abbruch"
|
||||
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSave
|
||||
'
|
||||
Me.btnSave.Location = New System.Drawing.Point(13, 304)
|
||||
Me.btnSave.Name = "btnSave"
|
||||
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnSave.TabIndex = 6
|
||||
Me.btnSave.Text = "Speichern"
|
||||
Me.btnSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtBeschreibung
|
||||
'
|
||||
Me.txtBeschreibung.Location = New System.Drawing.Point(89, 69)
|
||||
Me.txtBeschreibung.Multiline = True
|
||||
Me.txtBeschreibung.Name = "txtBeschreibung"
|
||||
Me.txtBeschreibung.Size = New System.Drawing.Size(599, 123)
|
||||
Me.txtBeschreibung.TabIndex = 1
|
||||
'
|
||||
'lblBeschreibung
|
||||
'
|
||||
Me.lblBeschreibung.AutoSize = True
|
||||
Me.lblBeschreibung.Location = New System.Drawing.Point(13, 72)
|
||||
Me.lblBeschreibung.Name = "lblBeschreibung"
|
||||
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
|
||||
Me.lblBeschreibung.TabIndex = 34
|
||||
Me.lblBeschreibung.Text = "Beschreibung"
|
||||
'
|
||||
'lblkritikalitaet
|
||||
'
|
||||
Me.lblkritikalitaet.AutoSize = True
|
||||
Me.lblkritikalitaet.Location = New System.Drawing.Point(14, 207)
|
||||
Me.lblkritikalitaet.Name = "lblkritikalitaet"
|
||||
Me.lblkritikalitaet.Size = New System.Drawing.Size(52, 13)
|
||||
Me.lblkritikalitaet.TabIndex = 37
|
||||
Me.lblkritikalitaet.Text = "Kritikalität"
|
||||
'
|
||||
'lblAuswirkung
|
||||
'
|
||||
Me.lblAuswirkung.AutoSize = True
|
||||
Me.lblAuswirkung.Location = New System.Drawing.Point(14, 264)
|
||||
Me.lblAuswirkung.Name = "lblAuswirkung"
|
||||
Me.lblAuswirkung.Size = New System.Drawing.Size(62, 13)
|
||||
Me.lblAuswirkung.TabIndex = 38
|
||||
Me.lblAuswirkung.Text = "Auswirkung"
|
||||
'
|
||||
'lblWichtigkeit
|
||||
'
|
||||
Me.lblWichtigkeit.AutoSize = True
|
||||
Me.lblWichtigkeit.Location = New System.Drawing.Point(14, 237)
|
||||
Me.lblWichtigkeit.Name = "lblWichtigkeit"
|
||||
Me.lblWichtigkeit.Size = New System.Drawing.Size(60, 13)
|
||||
Me.lblWichtigkeit.TabIndex = 39
|
||||
Me.lblWichtigkeit.Text = "Wichtigkeit"
|
||||
'
|
||||
'cbboxauswirkung
|
||||
'
|
||||
Me.cbboxauswirkung.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
|
||||
Me.cbboxauswirkung.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cbboxauswirkung.FormattingEnabled = True
|
||||
Me.cbboxauswirkung.Location = New System.Drawing.Point(89, 261)
|
||||
Me.cbboxauswirkung.Name = "cbboxauswirkung"
|
||||
Me.cbboxauswirkung.Size = New System.Drawing.Size(121, 21)
|
||||
Me.cbboxauswirkung.TabIndex = 4
|
||||
'
|
||||
'cbboxkritikalitaet
|
||||
'
|
||||
Me.cbboxkritikalitaet.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
|
||||
Me.cbboxkritikalitaet.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cbboxkritikalitaet.FormattingEnabled = True
|
||||
Me.cbboxkritikalitaet.Location = New System.Drawing.Point(89, 207)
|
||||
Me.cbboxkritikalitaet.Name = "cbboxkritikalitaet"
|
||||
Me.cbboxkritikalitaet.Size = New System.Drawing.Size(121, 21)
|
||||
Me.cbboxkritikalitaet.TabIndex = 2
|
||||
'
|
||||
'cbboxWichtigkeit
|
||||
'
|
||||
Me.cbboxWichtigkeit.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
|
||||
Me.cbboxWichtigkeit.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cbboxWichtigkeit.FormattingEnabled = True
|
||||
Me.cbboxWichtigkeit.Location = New System.Drawing.Point(89, 234)
|
||||
Me.cbboxWichtigkeit.Name = "cbboxWichtigkeit"
|
||||
Me.cbboxWichtigkeit.Size = New System.Drawing.Size(121, 21)
|
||||
Me.cbboxWichtigkeit.TabIndex = 3
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.Location = New System.Drawing.Point(216, 202)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(47, 48)
|
||||
Me.Button1.TabIndex = 40
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'FrmFinding
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(701, 338)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.cbboxWichtigkeit)
|
||||
Me.Controls.Add(Me.cbboxauswirkung)
|
||||
Me.Controls.Add(Me.cbboxkritikalitaet)
|
||||
Me.Controls.Add(Me.lblWichtigkeit)
|
||||
Me.Controls.Add(Me.lblAuswirkung)
|
||||
Me.Controls.Add(Me.lblkritikalitaet)
|
||||
Me.Controls.Add(Me.txtBezeichnung)
|
||||
Me.Controls.Add(Me.lblBezeichnung)
|
||||
Me.Controls.Add(Me.lblAktiv)
|
||||
Me.Controls.Add(Me.cbaktiv)
|
||||
Me.Controls.Add(Me.btnAbbruch)
|
||||
Me.Controls.Add(Me.btnSave)
|
||||
Me.Controls.Add(Me.txtBeschreibung)
|
||||
Me.Controls.Add(Me.lblBeschreibung)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "FrmFinding"
|
||||
Me.Text = "Feststellung"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents TSBtnQuit As ToolStripButton
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents txtBezeichnung As DevComponents.DotNetBar.Controls.TextBoxX
|
||||
Friend WithEvents lblBezeichnung As Label
|
||||
Friend WithEvents lblAktiv As Label
|
||||
Friend WithEvents cbaktiv As CheckBox
|
||||
Friend WithEvents btnAbbruch As Button
|
||||
Friend WithEvents btnSave As Button
|
||||
Friend WithEvents txtBeschreibung As TextBox
|
||||
Friend WithEvents lblBeschreibung As Label
|
||||
Friend WithEvents lblkritikalitaet As Label
|
||||
Friend WithEvents lblAuswirkung As Label
|
||||
Friend WithEvents lblWichtigkeit As Label
|
||||
Friend WithEvents cbboxauswirkung As ComboBox
|
||||
Friend WithEvents cbboxkritikalitaet As ComboBox
|
||||
Friend WithEvents cbboxWichtigkeit As ComboBox
|
||||
Friend WithEvents Button1 As Button
|
||||
End Class
|
||||
@@ -0,0 +1,90 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class _FRReporting
|
||||
Dim m_connectionstring As String
|
||||
|
||||
#Region "Properties"
|
||||
Public Property ConnectionString() As String
|
||||
Get
|
||||
ConnectionString = m_connectionstring
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
If m_connectionstring <> Value Then
|
||||
m_connectionstring = Value
|
||||
Globals.sConnectionString = m_connectionstring
|
||||
Globals.conn.sConnectionString = m_connectionstring
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Dim m_Mitarbeiternr As Integer
|
||||
Public Property Mitarbeiternr As Integer
|
||||
Get
|
||||
Mitarbeiternr = m_Mitarbeiternr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
If m_Mitarbeiternr <> value Then
|
||||
m_Mitarbeiternr = value
|
||||
Globals.Mitarbeiternr = m_Mitarbeiternr
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_TempFilePath As String
|
||||
Public Property TempFilePath As String
|
||||
Get
|
||||
TempFilePath = m_TempFilePath
|
||||
End Get
|
||||
Set(value As String)
|
||||
If m_TempFilePath <> value Then
|
||||
m_TempFilePath = value
|
||||
Globals.TmpFilepath = m_TempFilePath
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Public Function ReportSelect(ByVal Parentform As Form)
|
||||
Dim f As New FrmReportSelect
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
End Function
|
||||
|
||||
Public Function DefaultReport(ByVal auswertungnr As Integer, param As String, ByVal ParamValue As String, Optional Parent As Object = Nothing)
|
||||
Dim f As New FrmReportSelect
|
||||
f.MdiParent = Parent
|
||||
f.Show()
|
||||
f.TreeAuswertungen.SelectedNode = FindNode(f.TreeAuswertungen.Nodes, auswertungnr, "")
|
||||
f.cbparam1.Text = param
|
||||
f.cbop1.Text = "="
|
||||
f.cbvalue1.Text = ParamValue
|
||||
f.showreport()
|
||||
f.Close()
|
||||
End Function
|
||||
|
||||
Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
|
||||
Dim tmpNode As TreeNode
|
||||
For Each _child As TreeNode In _nodeCollection
|
||||
If _child.Tag = SearchVal Then
|
||||
|
||||
Return _child
|
||||
End If
|
||||
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||
' Return _child
|
||||
' End If
|
||||
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
||||
If Not tmpNode Is Nothing Then
|
||||
Return tmpNode
|
||||
End If
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Binary file not shown.
Reference in New Issue
Block a user