Initial commit
This commit is contained in:
1327
.svn/pristine/c2/c20140543f060d6df6dc30a2c3c6f335333894e0.svn-base
Normal file
1327
.svn/pristine/c2/c20140543f060d6df6dc30a2c3c6f335333894e0.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,781 @@
|
||||
Imports System.ComponentModel
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
Imports DevComponents.AdvTree
|
||||
|
||||
<Runtime.InteropServices.Guid("B7BE2DB2-11FB-4D05-A213-6416AD82BE79")>
|
||||
Public Class frmPruefschrittUebersicht
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
|
||||
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
||||
Dim sec As New Utils.MySecurity
|
||||
Dim msg As New Utils.MyMessage
|
||||
Dim FormReadonly As Boolean = False
|
||||
Dim FormDataChanged As Boolean = False
|
||||
Dim Pruefschritt As New clsPruefschritt
|
||||
Dim Pruefschrittresultat As New clsPruefschrittResultat
|
||||
Dim Pruefschrttmassnahme As New clsPruefschrittMassnahme
|
||||
Dim Pruefschrittfinding As New clsFinding
|
||||
Dim OnRefreshAll As Boolean = False
|
||||
Dim TreeMassnahmenUsed As Boolean = False
|
||||
|
||||
|
||||
#End Region
|
||||
Sub New()
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.ImageList1 = Globals.StatusImages
|
||||
Me.TreeUebersicht.ImageList = Me.ImageList1
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmPruefschrittUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Application.DoEvents()
|
||||
Me.TreeMassnahmen.Nodes.Clear()
|
||||
'Dim tn As New DevComponents.AdvTree.Node
|
||||
'tn.Text = "Erledigte Massnahmen"
|
||||
'tn.Tag = 0
|
||||
'tn.ImageIndex = 0
|
||||
|
||||
'Me.TreeMassnahmen.Nodes.Add(tn)
|
||||
'Dim tn1 As New DevComponents.AdvTree.Node
|
||||
'tn1.Tag = 1
|
||||
'tn1.ImageIndex = 1
|
||||
|
||||
'tn1.Text = "Pendente Massnahmen"
|
||||
'Me.TreeMassnahmen.Nodes.Add(tn1)
|
||||
|
||||
'Dim tn2 As New DevComponents.AdvTree.Node
|
||||
'tn2.Text = "Überfällige Massnahmen"
|
||||
'tn2.Tag = 2
|
||||
'tn2.ImageIndex = 2
|
||||
|
||||
'Me.TreeMassnahmen.Nodes.Add(tn2)
|
||||
|
||||
Refresh_All()
|
||||
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
Application.DoEvents()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Load_Status()
|
||||
|
||||
Me.DokumenteAllgemein.Show_Toolbar = False
|
||||
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
'Me.DokumenteAllgemein.Doktype = 4
|
||||
'Me.DokumenteAllgemein.ThemaNr = 0
|
||||
'Me.DokumenteAllgemein.Refresh()
|
||||
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
|
||||
Me.DokumenteFindings.Show_Toolbar = False
|
||||
|
||||
Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
|
||||
Me.DokumenteMassnahmen.Show_Toolbar = False
|
||||
Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
|
||||
Me.DokumenteResultat.Show_Toolbar = False
|
||||
Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteResultat.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
|
||||
|
||||
Me.TreeUebersicht.Nodes.Clear()
|
||||
Dim i As Integer = 0
|
||||
For Each r As DataRow In Pruefschritt.Pruefschrittstatus.Rows
|
||||
Dim tn As New DevComponents.AdvTree.Node
|
||||
tn.Text = r("Bezeichnung")
|
||||
tn.Tag = r(0)
|
||||
tn.ImageIndex = i
|
||||
i = i + 1
|
||||
Me.TreeUebersicht.Nodes.Add(tn)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeUebersicht_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeUebersicht.AfterNodeSelect
|
||||
|
||||
Try
|
||||
Me.C1Daten.Columns("Pruefschrittstatusnr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
|
||||
Catch
|
||||
End Try
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
||||
Try
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||
refresh_all_Details()
|
||||
|
||||
Catch
|
||||
End Try
|
||||
Me.C1Findings.Enabled = True
|
||||
|
||||
End Sub
|
||||
|
||||
Dim Treeclciked As Boolean = False
|
||||
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
|
||||
If Treeclciked Then Exit Sub
|
||||
refresh_all_Details()
|
||||
|
||||
|
||||
End Sub
|
||||
Sub refresh_all_Details()
|
||||
|
||||
If OnRefreshAll Then Exit Sub
|
||||
|
||||
Refresh_Toolbar()
|
||||
Me.DokumenteAllgemein.Init()
|
||||
Me.C1Findings.DataSource = Nothing
|
||||
Me.C1Massnahmen.DataSource = Nothing
|
||||
Me.C1Notiz.DataSource = Nothing
|
||||
Try
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||
Refresh_Dokumente_Resultat()
|
||||
Refresh_notizen()
|
||||
Refresh_History()
|
||||
Refresh_Resultat()
|
||||
Refresh_Vorgaben()
|
||||
|
||||
Catch
|
||||
End Try
|
||||
Refresh_Details()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Vorgaben()
|
||||
Me.Pruefschritt.Get_Vorgaben(Me.C1Vorgaben, Me.C1Daten.Columns("Pruefplannr").Value)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Refresh_notizen()
|
||||
Dim notizen As New clsPruefschrittNotiz
|
||||
Try
|
||||
notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Refresh_History()
|
||||
Dim history As New clsHistory
|
||||
Try
|
||||
history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Resultat()
|
||||
Try
|
||||
Pruefschrittresultat.Get_Data(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||
Me.txtKurzbeschreibungResultat.Text = Pruefschrittresultat.sKurzbeschreibung.Value
|
||||
Me.txtBeschreibungResultat.Text = Pruefschrittresultat.sBeschreibung.Value
|
||||
Catch
|
||||
End Try
|
||||
Refresh_Findings()
|
||||
Refresh_All_Findings()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Findings()
|
||||
If Me.Treeclciked Then Exit Sub
|
||||
Try
|
||||
Refresh_Finding_Dokumente()
|
||||
Me.Pruefschrittfinding.Get_Eintraege(Me.C1Findings, Me.Pruefschrittresultat.iPruefSchrittResultatNr.Value, ImageListFindings)
|
||||
Try
|
||||
Dim findingnr As Integer = Me.C1Daten.Columns("Pruefschrittfindingnr").Value
|
||||
For i = 0 To Me.C1Findings.Splits(0).Rows.Count - 1
|
||||
If C1Findings.Columns("Pruefschrittfindingnr").CellText(i) = findingnr Then Me.C1Findings.Bookmark = i
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Refresh_Massnahmen()
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Massnahmen()
|
||||
Try
|
||||
DokumenteMassnahmen.Init()
|
||||
Me.Pruefschrttmassnahme.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittresultatnr").Value, Me.ImageListFindings)
|
||||
Try
|
||||
Dim Massnahmenr As Integer = Me.C1Daten.Columns("PruefschrittmassnahmeNr").Value
|
||||
For i = 0 To Me.C1Massnahmen.Splits(0).Rows.Count - 1
|
||||
If C1Massnahmen.Columns("PruefschrittmassnahmeNr").CellText(i) = Massnahmenr Then Me.C1Massnahmen.Bookmark = i
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub Refresh_All(Optional key As Integer = 0)
|
||||
'Me.OnRefreshAll = True
|
||||
If TreeMassnahmenUsed = True Then
|
||||
Dim mtn As New DevComponents.AdvTree.Node
|
||||
mtn = Me.TreeMassnahmen.SelectedNode
|
||||
Pruefschritt.Get_Massnahmen(Me.TreeMassnahmen)
|
||||
Me.TreeMassnahmen.SelectedNode = mtn
|
||||
Me.OnRefreshAll = False
|
||||
Me.TreeMassnahmen.Focus()
|
||||
Exit Sub
|
||||
Else
|
||||
Pruefschritt.Get_Massnahmen(Me.TreeMassnahmen)
|
||||
|
||||
End If
|
||||
|
||||
Load_Status()
|
||||
Pruefschritt.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
|
||||
Dim dt As New DataTable
|
||||
dt = C1Daten.DataSource
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Add(dt.Copy)
|
||||
ds.WriteXml("K:\gaga.xml")
|
||||
|
||||
Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
|
||||
If key = 0 Then
|
||||
For Each tn As DevComponents.AdvTree.Node In Me.TreeUebersicht.Nodes
|
||||
If Microsoft.VisualBasic.Right(tn.Text, 3) <> "(0)" Then Me.TreeUebersicht.SelectedNode = tn
|
||||
Next
|
||||
Else
|
||||
For Each tn As DevComponents.AdvTree.Node In Me.TreeUebersicht.Nodes
|
||||
If Microsoft.VisualBasic.Right(tn.Text, 3) <> "(0)" Then
|
||||
Me.TreeUebersicht.SelectedNode = tn
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Try
|
||||
Dim i As Integer = 0
|
||||
For i = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
|
||||
If C1Daten.Columns("Pruefschrittnr").CellText(i) = key Then Me.C1Daten.Bookmark = i
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
'MsgBox("Hallo")
|
||||
Me.OnRefreshAll = False
|
||||
|
||||
|
||||
|
||||
|
||||
Me.OnRefreshAll = False
|
||||
refresh_all_Details()
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Refresh_Details()
|
||||
Try
|
||||
Me.txtBezeichnung.Text = ""
|
||||
Me.txtBeschreibung.Text = ""
|
||||
Me.txtPruefgegenstand.Text = ""
|
||||
Me.txtMassnahmen.Text = ""
|
||||
Me.txtEreignisse.Text = ""
|
||||
Me.txtHilfsmittel.Text = ""
|
||||
Me.txtVerantwortlich.Text = ""
|
||||
Me.txtVerantwortungISI.Text = ""
|
||||
Me.txtAktuellVerantwortlich.Text = ""
|
||||
Me.txtTermin.Text = ""
|
||||
Me.txtZugewiesen.Text = ""
|
||||
Me.txtErstelltam.Text = ""
|
||||
Me.txtMutiertam.Text = ""
|
||||
Me.txtMutierer.Text = ""
|
||||
|
||||
Me.txtBezeichnung.Text = Me.C1Daten.Columns("Bezeichnung").Value
|
||||
Me.txtBeschreibung.Text = Me.C1Daten.Columns("Beschreibung").Value
|
||||
Me.txtPruefgegenstand.Text = Me.C1Daten.Columns("Pruefgegenstand").Value
|
||||
Me.txtMassnahmen.Text = Me.C1Daten.Columns("Massnahmen").Value
|
||||
Me.txtEreignisse.Text = Me.C1Daten.Columns("Ergebnisse").Value
|
||||
Me.txtHilfsmittel.Text = Me.C1Daten.Columns("Hilfsmittel").Value
|
||||
|
||||
Me.txtVerantwortlich.Text = Me.C1Daten.Columns("Hauptverantwortung").Value
|
||||
Me.txtVerantwortungPlan.Text = Me.C1Daten.Columns("VerantwortungPlan").Value
|
||||
Me.txtAktuellVerantwortlich.Text = Me.C1Daten.Columns("aktuell_verantwortlich").Value
|
||||
Me.txtVerantwortungISI.Text = Me.C1Daten.Columns("Verantwortung_isi").Value
|
||||
Me.txtZugewiesen.Text = Me.C1Daten.Columns("Zugewiesen").Value
|
||||
Me.txtErstelltam.Text = Me.C1Daten.Columns("erstellt_am").Value
|
||||
Me.txtMutiertam.Text = Me.C1Daten.Columns("mutiert_am").Value
|
||||
Me.txtMutierer.Text = Me.C1Daten.Columns("mutierer").Value
|
||||
|
||||
Me.txtTermin.Text = Me.C1Daten.Columns("Termin").Value
|
||||
Catch ex As Exception
|
||||
'MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub WeiterleitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WeiterleitenToolStripMenuItem.Click
|
||||
Try
|
||||
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim clsnotiz As New clsPruefschrittNotiz
|
||||
clsnotiz.Add_New()
|
||||
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
||||
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
||||
clsnotiz.Save_Data()
|
||||
clsnotiz = Nothing
|
||||
|
||||
Dim History As New clsHistory
|
||||
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
||||
History.Dispose()
|
||||
|
||||
Dim save_verantworlich As Integer
|
||||
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||
save_verantworlich = Me.Pruefschritt.iAktueller_Verantwortlicher.Value
|
||||
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
||||
Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
|
||||
Me.Pruefschritt.Save_Data()
|
||||
If save_verantworlich <> Me.Pruefschritt.iAktueller_Verantwortlicher.Value Then
|
||||
Pruefschritt.Insert_Message(1, Me.Pruefschritt.iPruefschrittNr.Value, Me.Pruefschritt.iAktueller_Verantwortlicher.Value, save_verantworlich, f.txtNotiz.Text)
|
||||
End If
|
||||
|
||||
|
||||
Refresh_All()
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles tsbtnAktualisieren.Click
|
||||
Refresh_All()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Notiz_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Notiz.RowColChange
|
||||
Me.txtnotiz.Text = ""
|
||||
Try
|
||||
Me.txtnotiz.Text = Me.C1Notiz.Columns("Notiz").Value
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
|
||||
Dim f As New PruefschrittDetailsBearbeitung
|
||||
f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Handler = Me.Handle
|
||||
Dim cps As New clsPruefschritt
|
||||
|
||||
cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||
If cps.bDurchfuehrung_ISI.Value = True Then
|
||||
If cps.is_isimitarbeiter(Globals.clsmitarbeiter.iMitarbeiternr) = True Then
|
||||
If cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||
Else
|
||||
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||
End If
|
||||
Else
|
||||
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||
End If
|
||||
f.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
||||
Try
|
||||
BearbeitenToolStripMenuItem_Click(sender, e)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnPruefschrittbearbeiten.Click
|
||||
Try
|
||||
Me.C1Daten_DoubleClick(sender, e)
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub evh_pruefschrittresultat_closed(handler As Integer, key As Integer) Handles evh.pruefschrittresultat_closed
|
||||
Try
|
||||
If Me.Handle = handler Then Refresh_All(key)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub evh_Pruefschrittresultat_saved(handler As Integer, key As Integer) Handles evh.Pruefschrittresultat_saved
|
||||
Try
|
||||
If Me.Handle = handler Then Refresh_All(key)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ctxMenuPruefschritt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuPruefschritt.Opening
|
||||
|
||||
If Me.C1Daten.Splits(0).Rows.Count < 1 Then
|
||||
Me.ctxMenuPruefschritt.Visible = False
|
||||
Else
|
||||
Me.ctxMenuPruefschritt.Visible = True
|
||||
End If
|
||||
|
||||
Me.BearbeitenToolStripMenuItem.Visible = False
|
||||
Me.WeiterleitenToolStripMenuItem.Visible = False
|
||||
Me.AbschliessenToolStripMenuItem.Visible = False
|
||||
Me.ZurückweisenToolStripMenuItem.Visible = False
|
||||
|
||||
Select Case Me.TreeUebersicht.SelectedNode.Tag
|
||||
Case 1, 2, 3
|
||||
Me.BearbeitenToolStripMenuItem.Visible = True
|
||||
Me.WeiterleitenToolStripMenuItem.Visible = True
|
||||
Case 4
|
||||
|
||||
Case 5
|
||||
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||
Me.BearbeitenToolStripMenuItem.Visible = True
|
||||
Me.ZurückweisenToolStripMenuItem.Visible = True
|
||||
End If
|
||||
|
||||
Case 6
|
||||
|
||||
End Select
|
||||
|
||||
'Me.BearbeitenToolStripMenuItem.Enabled = False
|
||||
'Me.WeiterleitenToolStripMenuItem.Enabled = False
|
||||
'Me.AbschliessenToolStripMenuItem.Enabled = False
|
||||
'Me.WeiterleitenToolStripMenuItem.Visible = True
|
||||
|
||||
|
||||
''Prüfung abgeschlossen
|
||||
'If Me.TreeUebersicht.SelectedNode.Tag < 4 Or Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||
' Me.BearbeitenToolStripMenuItem.Enabled = True
|
||||
' Me.WeiterleitenToolStripMenuItem.Enabled = True
|
||||
' Me.AbschliessenToolStripMenuItem.Enabled = True
|
||||
'End If
|
||||
|
||||
'If Me.TreeUebersicht.SelectedNode.Tag = 5 Then
|
||||
' Me.ZurückweisenToolStripMenuItem.Visible = True
|
||||
' Me.WeiterleitenToolStripMenuItem.Visible = False
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
|
||||
Dim f As New PruefschrittDetailsBearbeitung
|
||||
f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Handler = Me.Handle
|
||||
f.IsReadonly = True
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub AbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschliessenToolStripMenuItem.Click
|
||||
If MsgBox("Ist das Assessment definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
||||
Pruefschritt.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
|
||||
|
||||
Me.Pruefschritt.iStatusnr = 6
|
||||
Me.Pruefschritt.Save_Data()
|
||||
Dim History As New clsHistory
|
||||
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 2, Globals.clsmitarbeiter.iMitarbeiternr.Value, "")
|
||||
History.Dispose()
|
||||
|
||||
Me.Refresh_All()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Findings_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Findings.RowColChange
|
||||
Refresh_All_Findings()
|
||||
End Sub
|
||||
|
||||
Sub Refresh_All_Findings()
|
||||
Refresh_Finding_Dokumente()
|
||||
Me.txtfindingbezeichnung.Text = ""
|
||||
Me.txtfindingbeschreibung.Text = ""
|
||||
Try
|
||||
Me.txtfindingbeschreibung.Text = Me.C1Findings.Columns("Beschreibung").Value
|
||||
Me.txtfindingbezeichnung.Text = Me.C1Findings.Columns("Bezeichnung").Value
|
||||
Catch
|
||||
End Try
|
||||
Refresh_MassnahmenFinding()
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Dokumente_Resultat()
|
||||
|
||||
Try
|
||||
Me.DokumenteResultat.Show_Toolbar = False
|
||||
Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteResultat.Init()
|
||||
|
||||
Me.DokumenteResultat.Doktype = 4
|
||||
Me.DokumenteResultat.ThemaNr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||
Me.DokumenteResultat.Refresh_Dokumente()
|
||||
Me.DokumenteResultat.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Catch ex As Exception
|
||||
Me.DokumenteResultat.Init()
|
||||
Me.DokumenteResultat.Show_Toolbar = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Refresh_Finding_Dokumente()
|
||||
If Me.C1Findings.Splits(0).Rows.Count < 1 Then
|
||||
Me.DokumenteFindings.Init()
|
||||
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
Me.DokumenteFindings.Show_Toolbar = False
|
||||
Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteFindings.Init()
|
||||
|
||||
Me.DokumenteFindings.Doktype = 5
|
||||
Me.DokumenteFindings.ThemaNr = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
|
||||
Me.DokumenteFindings.Refresh_Dokumente()
|
||||
Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Catch ex As Exception
|
||||
Me.DokumenteFindings.Init()
|
||||
Me.DokumenteFindings.Show_Toolbar = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub Refresh_MassnahmenFinding()
|
||||
Me.C1Massnahmen.DataSource = Nothing
|
||||
If Me.C1Findings.Splits(0).Rows.Count > 0 Then
|
||||
Try
|
||||
Dim Massnahmen As New clsPruefschrittMassnahme
|
||||
Massnahmen.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittfindingnr").Value, Me.ImageListeMassnahmen)
|
||||
Refresh_Massnahmen_Dokument()
|
||||
Try
|
||||
Dim Massnahmenr As Integer = Me.C1Daten.Columns("PruefschrittmassnahmeNr").Value
|
||||
For i = 0 To Me.C1Massnahmen.Splits(0).Rows.Count - 1
|
||||
If C1Massnahmen.Columns("PruefschrittmassnahmeNr").CellText(i) = Massnahmenr Then Me.C1Massnahmen.Bookmark = i
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Massnahmen_Dokument()
|
||||
|
||||
|
||||
If Me.C1Massnahmen.Splits(0).Rows.Count < 1 Then
|
||||
Me.DokumenteMassnahmen.Init()
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
|
||||
Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteMassnahmen.Init()
|
||||
|
||||
Me.DokumenteMassnahmen.Doktype = 6
|
||||
Me.DokumenteMassnahmen.ThemaNr = Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value
|
||||
Me.DokumenteMassnahmen.Refresh_Dokumente()
|
||||
Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Catch ex As Exception
|
||||
Me.DokumenteMassnahmen.Init()
|
||||
Me.DokumenteMassnahmen.Show_Toolbar = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub C1Massnahmen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Massnahmen.RowColChange
|
||||
Me.txtmassnahmebezeichnung.Text = ""
|
||||
Me.txtMassnahmebeschreibung.Text = ""
|
||||
Me.txtMassnahmeResultat.Text = ""
|
||||
|
||||
Try
|
||||
Me.txtmassnahmebezeichnung.Text = Me.C1Massnahmen.Columns("Kurzbeschreibung").Value
|
||||
Me.txtMassnahmebeschreibung.Text = Me.C1Massnahmen.Columns("Beschreibung").Value
|
||||
Me.txtMassnahmeResultat.Text = Me.C1Massnahmen.Columns("MassnahmeResultat").Value
|
||||
Catch
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1Vorgaben_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Vorgaben.RowColChange
|
||||
Try
|
||||
Me.txtStruktur.Text = Me.C1Vorgaben.Columns("Struktur").Value
|
||||
Me.txtDefinitionBezeichnung.Text = Me.C1Vorgaben.Columns("Bezeichnung").Value
|
||||
Me.txtDefinitionBeschreibung.Text = Me.C1Vorgaben.Columns("Definition").Value
|
||||
Me.txtDefinitionBemerkung.Text = Me.C1Vorgaben.Columns("Bemerkungen").Value
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Try
|
||||
Me.DokumenteDefinition.Show_Toolbar = True
|
||||
Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
|
||||
Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||
Me.DokumenteDefinition.Doktype = 2
|
||||
Try
|
||||
Me.DokumenteDefinition.ThemaNr = C1Vorgaben.Columns("VorgabeDefinitionNr").Value
|
||||
Catch
|
||||
Me.DokumenteDefinition.ThemaNr = -1
|
||||
End Try
|
||||
|
||||
Me.DokumenteDefinition.Refresh()
|
||||
Me.DokumenteDefinition.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ZurückweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZurückweisenToolStripMenuItem.Click
|
||||
Try
|
||||
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value, Me.C1Daten.Columns("Verantwortungnr").Value, True)
|
||||
f.Text = "Assessment zurückweisen"
|
||||
f.btnok.Text = "Zurückweisen"
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim clsnotiz As New clsPruefschrittNotiz
|
||||
clsnotiz.Add_New()
|
||||
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
||||
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
||||
clsnotiz.Save_Data()
|
||||
clsnotiz = Nothing
|
||||
|
||||
Dim History As New clsHistory
|
||||
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
||||
History.Dispose()
|
||||
|
||||
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
||||
Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
|
||||
Me.Pruefschritt.Save_Data()
|
||||
Refresh_All()
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub AdvTree1_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeMassnahmen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeMassnahmen.AfterNodeSelect
|
||||
TreeMassnahmenUsed = True
|
||||
Me.Treeclciked = True
|
||||
Try
|
||||
|
||||
Me.C1Daten.Columns("Pruefschrittstatusnr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
|
||||
Catch
|
||||
End Try
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
||||
Try
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Me.Pruefschritt.Get_Massnahmen_Data(Me.C1Daten, Me.TreeMassnahmen.SelectedNode.Tag)
|
||||
Me.Treeclciked = False
|
||||
refresh_all_Details()
|
||||
|
||||
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
||||
Try
|
||||
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||
refresh_all_Details()
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeMassnahmen_Click(sender As Object, e As EventArgs) Handles TreeMassnahmen.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeUebersicht_NodeClick(sender As Object, e As TreeNodeMouseEventArgs) Handles TreeUebersicht.NodeClick
|
||||
If TreeMassnahmenUsed = True Then
|
||||
Dim tn As New DevComponents.AdvTree.Node
|
||||
tn = Me.TreeUebersicht.SelectedNode
|
||||
|
||||
Load_Status()
|
||||
Pruefschritt.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
|
||||
Me.TreeUebersicht.SelectedNode = tn
|
||||
TreeMassnahmenUsed = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Refresh_Toolbar()
|
||||
Try
|
||||
Select Case Me.TreeUebersicht.SelectedNode.Tag
|
||||
Case 1, 2, 3
|
||||
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||
Me.tsbtnPruefschrittbearbeiten.Visible = True
|
||||
Me.tsbtnAssessmentAnzeigen.Visible = False
|
||||
Else
|
||||
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
||||
Me.tsbtnAssessmentAnzeigen.Visible = True
|
||||
End If
|
||||
|
||||
Case 4
|
||||
|
||||
Case 5
|
||||
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||
Me.tsbtnPruefschrittbearbeiten.Visible = True
|
||||
Me.tsbtnAssessmentAnzeigen.Visible = False
|
||||
Else
|
||||
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
||||
Me.tsbtnAssessmentAnzeigen.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
Case 6
|
||||
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
||||
Me.tsbtnAssessmentAnzeigen.Visible = True
|
||||
End Select
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnAssessmentAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnAssessmentAnzeigen.Click
|
||||
tsbtnFindingBearbeiten_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
|
||||
Try
|
||||
If Treeclciked Then Exit Sub
|
||||
refresh_all_Details()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,373 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace DB
|
||||
Public Class clsAuswertungGruppe
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bAktiv As SqlBoolean
|
||||
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||
Private m_iParentid, m_iMutierer, m_iAuswertungGruppeNr As SqlInt32
|
||||
Private m_sBezeichnung As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppe::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppe::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Overrides Public Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppe::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppe")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iAuswertungGruppeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAuswertungGruppeNr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iAuswertungGruppeNr = New SqlInt32(CType(dtToReturn.Rows(0)("AuswertungGruppeNr"), Integer))
|
||||
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||
m_sBezeichnung = SqlString.Null
|
||||
Else
|
||||
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||
m_bAktiv = SqlBoolean.Null
|
||||
Else
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Parentid") Is System.DBNull.Value Then
|
||||
m_iParentid = SqlInt32.Null
|
||||
Else
|
||||
m_iParentid = New SqlInt32(CType(dtToReturn.Rows(0)("Parentid"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppe::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Overrides Public Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_AuswertungGruppe_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("AuswertungGruppe")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_AuswertungGruppe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsAuswertungGruppe::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iAuswertungGruppeNr]() As SqlInt32
|
||||
Get
|
||||
Return m_iAuswertungGruppeNr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iAuswertungGruppeNrTmp As SqlInt32 = Value
|
||||
If iAuswertungGruppeNrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iAuswertungGruppeNr", "iAuswertungGruppeNr can't be NULL")
|
||||
End If
|
||||
m_iAuswertungGruppeNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sBezeichnung]() As SqlString
|
||||
Get
|
||||
Return m_sBezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sBezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iParentid]() As SqlInt32
|
||||
Get
|
||||
Return m_iParentid
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iParentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
Binary file not shown.
@@ -0,0 +1,174 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDomainEditorExtTables
|
||||
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()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDomainEditorExtTables))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton
|
||||
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ContextMenuStripAuswertung = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ReportdateiDBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ReportdateiFilesystemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStripAuswertung.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(556, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(556, 25)
|
||||
Me.ToolStrip1.TabIndex = 1
|
||||
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 = "ToolStripButton1"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'TSBtnSave
|
||||
'
|
||||
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnSave.Name = "TSBtnSave"
|
||||
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnSave.Text = "ToolStripButton1"
|
||||
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AllowAddNew = True
|
||||
Me.C1Daten.AllowDelete = True
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(0, 49)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.Size = New System.Drawing.Size(556, 270)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 4
|
||||
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'ContextMenuStripAuswertung
|
||||
'
|
||||
Me.ContextMenuStripAuswertung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReportdateiDBToolStripMenuItem, Me.ReportdateiFilesystemToolStripMenuItem})
|
||||
Me.ContextMenuStripAuswertung.Name = "ContextMenuStripAuswertung"
|
||||
Me.ContextMenuStripAuswertung.Size = New System.Drawing.Size(200, 48)
|
||||
'
|
||||
'ReportdateiDBToolStripMenuItem
|
||||
'
|
||||
Me.ReportdateiDBToolStripMenuItem.Name = "ReportdateiDBToolStripMenuItem"
|
||||
Me.ReportdateiDBToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
|
||||
Me.ReportdateiDBToolStripMenuItem.Text = "Reportdatei -> DB"
|
||||
'
|
||||
'ReportdateiFilesystemToolStripMenuItem
|
||||
'
|
||||
Me.ReportdateiFilesystemToolStripMenuItem.Name = "ReportdateiFilesystemToolStripMenuItem"
|
||||
Me.ReportdateiFilesystemToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
|
||||
Me.ReportdateiFilesystemToolStripMenuItem.Text = "Reportdatei -> Filesystem"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'frmDomainEditorExtTables
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(556, 319)
|
||||
Me.Controls.Add(Me.C1Daten)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "frmDomainEditorExtTables"
|
||||
Me.Text = "frmDomainEditor"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStripAuswertung.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ContextMenuStripAuswertung As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents ReportdateiDBToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ReportdateiFilesystemToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
|
||||
End Class
|
||||
Reference in New Issue
Block a user