completata init selettori...

2018-12-12 19:21:57 +01:00
parent 73373e6309
commit b55f1059f6
2 changed files with 122 additions and 65 deletions
@@ -23,13 +23,13 @@ Partial Class Main
  <System.Diagnostics.DebuggerStepThrough()> _
  Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container()
-    Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-    Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-    Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-    Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-    Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-    Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-    Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+    Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
    Me.groupBox1 = New System.Windows.Forms.GroupBox()
    Me.label1 = New System.Windows.Forms.Label()
    Me.lblOpr = New System.Windows.Forms.Label()
@@ -311,34 +311,34 @@ Partial Class Main
    Me.dgvOpr.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-    DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
-    DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
-    DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-    Me.dgvOpr.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
+    DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
+    DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
+    DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+    Me.dgvOpr.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle29
    Me.dgvOpr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-    DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window
-    DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText
-    DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-    Me.dgvOpr.DefaultCellStyle = DataGridViewCellStyle23
+    DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Window
+    DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.ControlText
+    DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+    Me.dgvOpr.DefaultCellStyle = DataGridViewCellStyle30
    Me.dgvOpr.Location = New System.Drawing.Point(8, 112)
    Me.dgvOpr.Margin = New System.Windows.Forms.Padding(4)
    Me.dgvOpr.Name = "dgvOpr"
-    DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
-    DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
-    DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-    Me.dgvOpr.RowHeadersDefaultCellStyle = DataGridViewCellStyle24
+    DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Control
+    DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText
+    DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+    Me.dgvOpr.RowHeadersDefaultCellStyle = DataGridViewCellStyle31
    Me.dgvOpr.Size = New System.Drawing.Size(1077, 242)
    Me.dgvOpr.TabIndex = 6
    '
@@ -510,23 +510,23 @@ Partial Class Main
    '
    Me.dgvAlarmLog.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-    DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Control
-    DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText
-    DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-    Me.dgvAlarmLog.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle25
+    DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Control
+    DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.WindowText
+    DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+    Me.dgvAlarmLog.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle32
    Me.dgvAlarmLog.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-    DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Window
-    DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.ControlText
-    DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-    Me.dgvAlarmLog.DefaultCellStyle = DataGridViewCellStyle26
+    DataGridViewCellStyle33.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle33.BackColor = System.Drawing.SystemColors.Window
+    DataGridViewCellStyle33.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle33.ForeColor = System.Drawing.SystemColors.ControlText
+    DataGridViewCellStyle33.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle33.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle33.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+    Me.dgvAlarmLog.DefaultCellStyle = DataGridViewCellStyle33
    Me.dgvAlarmLog.Location = New System.Drawing.Point(9, 102)
    Me.dgvAlarmLog.Margin = New System.Windows.Forms.Padding(4)
    Me.dgvAlarmLog.Name = "dgvAlarmLog"
@@ -567,23 +567,23 @@ Partial Class Main
    '
    'dgvAnagAlarm
    '
-    DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
-    DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
-    DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-    Me.dgvAnagAlarm.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
+    DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control
+    DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
+    DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+    Me.dgvAnagAlarm.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34
    Me.dgvAnagAlarm.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-    DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-    DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
-    DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-    DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
-    DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
-    DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-    DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-    Me.dgvAnagAlarm.DefaultCellStyle = DataGridViewCellStyle28
+    DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+    DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Window
+    DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+    DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.ControlText
+    DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight
+    DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+    DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+    Me.dgvAnagAlarm.DefaultCellStyle = DataGridViewCellStyle35
    Me.dgvAnagAlarm.Dock = System.Windows.Forms.DockStyle.Fill
    Me.dgvAnagAlarm.Location = New System.Drawing.Point(0, 0)
    Me.dgvAnagAlarm.Margin = New System.Windows.Forms.Padding(4)
@@ -10,16 +10,72 @@ Public Class Main
  Protected ArtOk As Boolean


+  Private Sub Main_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+
+    ' aggiorno visualizzazione
+    resetDefault()
+    dataInit()
+    updCtrl()
+
+  End Sub
+
+  Private Sub dataInit()
+
+    ' STAZIONI
+    cbStazione.Items.Add("CMS-F164")
+    cbStazione.SelectedIndex = 0
+
+    ' SOTTOSTAZIONI                 
+    cbSottostazione.Items.Add("TAV01")
+    cbSottostazione.Items.Add("TAV02")
+    cbSottostazione.SelectedIndex = 0
+
+    ' OPERAZIONI                   
+    cbOperazione.Items.Add("OPR01")
+    cbOperazione.Items.Add("OPR02")
+    cbOperazione.Items.Add("OPR03")
+    cbOperazione.Items.Add("OPR04")
+    cbOperazione.SelectedIndex = 0
+
+    ' STATI                   
+    cbStato.Items.Add("ST01")
+    cbStato.Items.Add("ST02")
+    cbStato.Items.Add("ST03")
+    cbStato.Items.Add("ST04")
+    cbStato.SelectedIndex = 0
+
+  End Sub
+
+  Private Sub resetDefault()
+    CurrCodArt = ""
+    CurrDatamatrix = ""
+    CurrOprBCode = ""
+    ArtOk = False
+
+  End Sub
+
+
  Private Sub updCtrl()
    '----------------------------------
    ' popolo TUTTE le tabelle          
    '----------------------------------

+    ' operazioni....             
+    Dim tabOperaz = DataLayer.man.taTO.GetData()
+    dgvOpr.DataSource = tabOperaz
+
+    ' allarmi
+    Dim tabAnagAll = DataLayer.man.taAnagAll.GetData()
+    dgvAnagAlarm.DataSource = tabAnagAll
+
+    ' storico allarmi
+    Dim tabStAll = DataLayer.man.taSAL.GetData()
+    dgvAlarmLog.DataSource = tabStAll


    ' operatori
-    Dim tabOpr = DataLayer.man.taAnagOpr.GetData()
-    dgvOperatori.DataSource = tabOpr
+    Dim tabOperatori = DataLayer.man.taAnagOpr.GetData()
+    dgvOperatori.DataSource = tabOperatori



@@ -141,4 +197,5 @@ Public Class Main
    dgvOperatori.DataSource = tabOpr

  End Sub
+
 End Class