Update app x nuova tab e stored varie

This commit is contained in:
Samuele E. Locatelli
2018-12-14 16:09:02 +01:00
parent a4ae271be9
commit 9d100a1ae7
8 changed files with 1289 additions and 187 deletions
+238 -176
View File
@@ -57,6 +57,22 @@ Partial Class Main
Me.cbOperazione = New System.Windows.Forms.ComboBox()
Me.label2 = New System.Windows.Forms.Label()
Me.btnAddOpr = New System.Windows.Forms.Button()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtBCodeOpr = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.dgvOperatori = New System.Windows.Forms.DataGridView()
Me.tabPage4 = New System.Windows.Forms.TabPage()
Me.Label13 = New System.Windows.Forms.Label()
Me.search = New System.Windows.Forms.Button()
Me.TxtArtB = New System.Windows.Forms.TextBox()
Me.TxtArtA = New System.Windows.Forms.TextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtAttr = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.lblAttr = New System.Windows.Forms.Label()
Me.dgvAttrezzature = New System.Windows.Forms.DataGridView()
Me.tabPage2 = New System.Windows.Forms.TabPage()
Me.splitContainer3 = New System.Windows.Forms.SplitContainer()
Me.dgvAlarmLog = New System.Windows.Forms.DataGridView()
@@ -72,22 +88,11 @@ Partial Class Main
Me.btnPurgeOld = New System.Windows.Forms.Button()
Me.txtDay2keep = New System.Windows.Forms.TextBox()
Me.btnEmptyTabOpr = New System.Windows.Forms.Button()
Me.tabPage4 = New System.Windows.Forms.TabPage()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.dgvOperatori = New System.Windows.Forms.DataGridView()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtBCodeOpr = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.dgvAttrezzature = New System.Windows.Forms.DataGridView()
Me.lblAttr = New System.Windows.Forms.Label()
Me.txtAttr = New System.Windows.Forms.TextBox()
Me.search = New System.Windows.Forms.Button()
Me.Label13 = New System.Windows.Forms.Label()
Me.TxtArtA = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.TxtArtB = New System.Windows.Forms.TextBox()
Me.dgvTabOpUt = New System.Windows.Forms.DataGridView()
Me.txtEvOpUt = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.lblErrTLO = New System.Windows.Forms.Label()
Me.groupBox1.SuspendLayout()
Me.groupBox2.SuspendLayout()
CType(Me.splitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,6 +107,10 @@ Partial Class Main
Me.tabPage1.SuspendLayout()
CType(Me.dgvOpr, System.ComponentModel.ISupportInitialize).BeginInit()
Me.groupBox3.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.dgvOperatori, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tabPage4.SuspendLayout()
CType(Me.dgvAttrezzature, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tabPage2.SuspendLayout()
CType(Me.splitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.splitContainer3.Panel1.SuspendLayout()
@@ -110,10 +119,7 @@ Partial Class Main
CType(Me.dgvAlarmLog, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAnagAlarm, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tabPage3.SuspendLayout()
Me.tabPage4.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.dgvOperatori, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAttrezzature, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvTabOpUt, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'groupBox1
@@ -471,6 +477,168 @@ Partial Class Main
Me.btnAddOpr.Text = "Aggiungi Record"
Me.btnAddOpr.UseVisualStyleBackColor = True
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.lblErrTLO)
Me.TabPage5.Controls.Add(Me.Button2)
Me.TabPage5.Controls.Add(Me.Label16)
Me.TabPage5.Controls.Add(Me.txtEvOpUt)
Me.TabPage5.Controls.Add(Me.dgvTabOpUt)
Me.TabPage5.Controls.Add(Me.Label12)
Me.TabPage5.Controls.Add(Me.Label11)
Me.TabPage5.Controls.Add(Me.txtBCodeOpr)
Me.TabPage5.Controls.Add(Me.Button1)
Me.TabPage5.Controls.Add(Me.dgvOperatori)
Me.TabPage5.Location = New System.Drawing.Point(4, 25)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(1092, 361)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "Utenti"
Me.TabPage5.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(300, 11)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(321, 17)
Me.Label12.TabIndex = 4
Me.Label12.Text = "nota: ""*"" = tutti, altrimenti BARCODE (es OPR001)"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(10, 11)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(50, 17)
Me.Label11.TabIndex = 3
Me.Label11.Text = "BCode"
'
'txtBCodeOpr
'
Me.txtBCodeOpr.Location = New System.Drawing.Point(80, 11)
Me.txtBCodeOpr.Name = "txtBCodeOpr"
Me.txtBCodeOpr.Size = New System.Drawing.Size(133, 22)
Me.txtBCodeOpr.TabIndex = 2
Me.txtBCodeOpr.Text = "*"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(219, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Carica"
Me.Button1.UseVisualStyleBackColor = True
'
'dgvOperatori
'
Me.dgvOperatori.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOperatori.Location = New System.Drawing.Point(3, 40)
Me.dgvOperatori.Name = "dgvOperatori"
Me.dgvOperatori.RowTemplate.Height = 24
Me.dgvOperatori.Size = New System.Drawing.Size(618, 315)
Me.dgvOperatori.TabIndex = 0
'
'tabPage4
'
Me.tabPage4.Controls.Add(Me.Label13)
Me.tabPage4.Controls.Add(Me.search)
Me.tabPage4.Controls.Add(Me.TxtArtB)
Me.tabPage4.Controls.Add(Me.TxtArtA)
Me.tabPage4.Controls.Add(Me.Label15)
Me.tabPage4.Controls.Add(Me.txtAttr)
Me.tabPage4.Controls.Add(Me.Label14)
Me.tabPage4.Controls.Add(Me.lblAttr)
Me.tabPage4.Controls.Add(Me.dgvAttrezzature)
Me.tabPage4.Location = New System.Drawing.Point(4, 25)
Me.tabPage4.Name = "tabPage4"
Me.tabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.tabPage4.Size = New System.Drawing.Size(1092, 361)
Me.tabPage4.TabIndex = 3
Me.tabPage4.Text = "Attrezzature"
Me.tabPage4.UseVisualStyleBackColor = True
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(689, 7)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(319, 17)
Me.Label13.TabIndex = 4
Me.Label13.Text = "Ricerca per attrezzatura, cod art A e B (""*"" = tutti)"
'
'search
'
Me.search.Location = New System.Drawing.Point(608, 4)
Me.search.Name = "search"
Me.search.Size = New System.Drawing.Size(75, 23)
Me.search.TabIndex = 3
Me.search.Text = "Cerca"
Me.search.UseVisualStyleBackColor = True
'
'TxtArtB
'
Me.TxtArtB.Location = New System.Drawing.Point(483, 4)
Me.TxtArtB.Name = "TxtArtB"
Me.TxtArtB.Size = New System.Drawing.Size(100, 22)
Me.TxtArtB.TabIndex = 2
Me.TxtArtB.Text = "*"
'
'TxtArtA
'
Me.TxtArtA.Location = New System.Drawing.Point(291, 4)
Me.TxtArtA.Name = "TxtArtA"
Me.TxtArtA.Size = New System.Drawing.Size(100, 22)
Me.TxtArtA.TabIndex = 2
Me.TxtArtA.Text = "*"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(408, 7)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(68, 17)
Me.Label15.TabIndex = 1
Me.Label15.Text = "Cod Art B"
'
'txtAttr
'
Me.txtAttr.Location = New System.Drawing.Point(98, 4)
Me.txtAttr.Name = "txtAttr"
Me.txtAttr.Size = New System.Drawing.Size(100, 22)
Me.txtAttr.TabIndex = 2
Me.txtAttr.Text = "ABC123456"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(216, 7)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(68, 17)
Me.Label14.TabIndex = 1
Me.Label14.Text = "Cod Art A"
'
'lblAttr
'
Me.lblAttr.AutoSize = True
Me.lblAttr.Location = New System.Drawing.Point(7, 7)
Me.lblAttr.Name = "lblAttr"
Me.lblAttr.Size = New System.Drawing.Size(85, 17)
Me.lblAttr.TabIndex = 1
Me.lblAttr.Text = "Attrezzatura"
'
'dgvAttrezzature
'
Me.dgvAttrezzature.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAttrezzature.Location = New System.Drawing.Point(3, 39)
Me.dgvAttrezzature.Name = "dgvAttrezzature"
Me.dgvAttrezzature.RowTemplate.Height = 24
Me.dgvAttrezzature.ShowCellErrors = False
Me.dgvAttrezzature.Size = New System.Drawing.Size(1083, 316)
Me.dgvAttrezzature.TabIndex = 0
'
'tabPage2
'
Me.tabPage2.Controls.Add(Me.splitContainer3)
@@ -503,7 +671,7 @@ Partial Class Main
'
Me.splitContainer3.Panel2.Controls.Add(Me.dgvAnagAlarm)
Me.splitContainer3.Size = New System.Drawing.Size(1081, 346)
Me.splitContainer3.SplitterDistance = 452
Me.splitContainer3.SplitterDistance = 451
Me.splitContainer3.SplitterWidth = 5
Me.splitContainer3.TabIndex = 4
'
@@ -531,7 +699,7 @@ Partial Class Main
Me.dgvAlarmLog.Location = New System.Drawing.Point(9, 102)
Me.dgvAlarmLog.Margin = New System.Windows.Forms.Padding(4)
Me.dgvAlarmLog.Name = "dgvAlarmLog"
Me.dgvAlarmLog.Size = New System.Drawing.Size(440, 240)
Me.dgvAlarmLog.Size = New System.Drawing.Size(439, 240)
Me.dgvAlarmLog.TabIndex = 7
'
'btnSendAlarms
@@ -589,7 +757,7 @@ Partial Class Main
Me.dgvAnagAlarm.Location = New System.Drawing.Point(0, 0)
Me.dgvAnagAlarm.Margin = New System.Windows.Forms.Padding(4)
Me.dgvAnagAlarm.Name = "dgvAnagAlarm"
Me.dgvAnagAlarm.Size = New System.Drawing.Size(624, 346)
Me.dgvAnagAlarm.Size = New System.Drawing.Size(625, 346)
Me.dgvAnagAlarm.TabIndex = 5
'
'tabPage3
@@ -677,162 +845,50 @@ Partial Class Main
Me.btnEmptyTabOpr.Text = "ELIMINA Tabelle"
Me.btnEmptyTabOpr.UseVisualStyleBackColor = True
'
'tabPage4
'dgvTabOpUt
'
Me.tabPage4.Controls.Add(Me.Label13)
Me.tabPage4.Controls.Add(Me.search)
Me.tabPage4.Controls.Add(Me.TxtArtB)
Me.tabPage4.Controls.Add(Me.TxtArtA)
Me.tabPage4.Controls.Add(Me.Label15)
Me.tabPage4.Controls.Add(Me.txtAttr)
Me.tabPage4.Controls.Add(Me.Label14)
Me.tabPage4.Controls.Add(Me.lblAttr)
Me.tabPage4.Controls.Add(Me.dgvAttrezzature)
Me.tabPage4.Location = New System.Drawing.Point(4, 25)
Me.tabPage4.Name = "tabPage4"
Me.tabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.tabPage4.Size = New System.Drawing.Size(1092, 361)
Me.tabPage4.TabIndex = 3
Me.tabPage4.Text = "Attrezzature"
Me.tabPage4.UseVisualStyleBackColor = True
Me.dgvTabOpUt.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTabOpUt.Location = New System.Drawing.Point(627, 40)
Me.dgvTabOpUt.Name = "dgvTabOpUt"
Me.dgvTabOpUt.RowTemplate.Height = 24
Me.dgvTabOpUt.Size = New System.Drawing.Size(459, 315)
Me.dgvTabOpUt.TabIndex = 5
'
'TabPage5
'txtEvOpUt
'
Me.TabPage5.Controls.Add(Me.Label12)
Me.TabPage5.Controls.Add(Me.Label11)
Me.TabPage5.Controls.Add(Me.txtBCodeOpr)
Me.TabPage5.Controls.Add(Me.Button1)
Me.TabPage5.Controls.Add(Me.dgvOperatori)
Me.TabPage5.Location = New System.Drawing.Point(4, 25)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(1092, 361)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "Utenti"
Me.TabPage5.UseVisualStyleBackColor = True
Me.txtEvOpUt.Location = New System.Drawing.Point(722, 8)
Me.txtEvOpUt.Name = "txtEvOpUt"
Me.txtEvOpUt.Size = New System.Drawing.Size(139, 22)
Me.txtEvOpUt.TabIndex = 6
Me.txtEvOpUt.Text = "LOGIN"
'
'dgvOperatori
'Label16
'
Me.dgvOperatori.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOperatori.Location = New System.Drawing.Point(3, 40)
Me.dgvOperatori.Name = "dgvOperatori"
Me.dgvOperatori.RowTemplate.Height = 24
Me.dgvOperatori.Size = New System.Drawing.Size(1074, 315)
Me.dgvOperatori.TabIndex = 0
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(631, 11)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(73, 17)
Me.Label16.TabIndex = 7
Me.Label16.Text = "Op.Utente"
'
'Button1
'Button2
'
Me.Button1.Location = New System.Drawing.Point(252, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Carica"
Me.Button1.UseVisualStyleBackColor = True
Me.Button2.Location = New System.Drawing.Point(867, 8)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(128, 23)
Me.Button2.TabIndex = 8
Me.Button2.Text = "salva OP utente"
Me.Button2.UseVisualStyleBackColor = True
'
'txtBCodeOpr
'lblErrTLO
'
Me.txtBCodeOpr.Location = New System.Drawing.Point(80, 11)
Me.txtBCodeOpr.Name = "txtBCodeOpr"
Me.txtBCodeOpr.Size = New System.Drawing.Size(166, 22)
Me.txtBCodeOpr.TabIndex = 2
Me.txtBCodeOpr.Text = "*"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(10, 11)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(50, 17)
Me.Label11.TabIndex = 3
Me.Label11.Text = "BCode"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(346, 11)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(382, 17)
Me.Label12.TabIndex = 4
Me.Label12.Text = "nota: ""*"" = tutti, altrimenti BARCODE completo (es OPR001)"
'
'dgvAttrezzature
'
Me.dgvAttrezzature.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAttrezzature.Location = New System.Drawing.Point(3, 39)
Me.dgvAttrezzature.Name = "dgvAttrezzature"
Me.dgvAttrezzature.RowTemplate.Height = 24
Me.dgvAttrezzature.ShowCellErrors = False
Me.dgvAttrezzature.Size = New System.Drawing.Size(1083, 316)
Me.dgvAttrezzature.TabIndex = 0
'
'lblAttr
'
Me.lblAttr.AutoSize = True
Me.lblAttr.Location = New System.Drawing.Point(7, 7)
Me.lblAttr.Name = "lblAttr"
Me.lblAttr.Size = New System.Drawing.Size(85, 17)
Me.lblAttr.TabIndex = 1
Me.lblAttr.Text = "Attrezzatura"
'
'txtAttr
'
Me.txtAttr.Location = New System.Drawing.Point(98, 4)
Me.txtAttr.Name = "txtAttr"
Me.txtAttr.Size = New System.Drawing.Size(100, 22)
Me.txtAttr.TabIndex = 2
Me.txtAttr.Text = "ABC123456"
'
'search
'
Me.search.Location = New System.Drawing.Point(608, 4)
Me.search.Name = "search"
Me.search.Size = New System.Drawing.Size(75, 23)
Me.search.TabIndex = 3
Me.search.Text = "Cerca"
Me.search.UseVisualStyleBackColor = True
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(689, 7)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(319, 17)
Me.Label13.TabIndex = 4
Me.Label13.Text = "Ricerca per attrezzatura, cod art A e B (""*"" = tutti)"
'
'TxtArtA
'
Me.TxtArtA.Location = New System.Drawing.Point(291, 4)
Me.TxtArtA.Name = "TxtArtA"
Me.TxtArtA.Size = New System.Drawing.Size(100, 22)
Me.TxtArtA.TabIndex = 2
Me.TxtArtA.Text = "*"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(216, 7)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(68, 17)
Me.Label14.TabIndex = 1
Me.Label14.Text = "Cod Art A"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(408, 7)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(68, 17)
Me.Label15.TabIndex = 1
Me.Label15.Text = "Cod Art B"
'
'TxtArtB
'
Me.TxtArtB.Location = New System.Drawing.Point(483, 4)
Me.TxtArtB.Name = "TxtArtB"
Me.TxtArtB.Size = New System.Drawing.Size(100, 22)
Me.TxtArtB.TabIndex = 2
Me.TxtArtB.Text = "*"
Me.lblErrTLO.AutoSize = True
Me.lblErrTLO.ForeColor = System.Drawing.Color.Red
Me.lblErrTLO.Location = New System.Drawing.Point(1001, 11)
Me.lblErrTLO.Name = "lblErrTLO"
Me.lblErrTLO.Size = New System.Drawing.Size(20, 17)
Me.lblErrTLO.TabIndex = 9
Me.lblErrTLO.Text = "..."
'
'Main
'
@@ -863,6 +919,12 @@ Partial Class Main
CType(Me.dgvOpr, System.ComponentModel.ISupportInitialize).EndInit()
Me.groupBox3.ResumeLayout(False)
Me.groupBox3.PerformLayout()
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.dgvOperatori, System.ComponentModel.ISupportInitialize).EndInit()
Me.tabPage4.ResumeLayout(False)
Me.tabPage4.PerformLayout()
CType(Me.dgvAttrezzature, System.ComponentModel.ISupportInitialize).EndInit()
Me.tabPage2.ResumeLayout(False)
Me.splitContainer3.Panel1.ResumeLayout(False)
Me.splitContainer3.Panel1.PerformLayout()
@@ -873,12 +935,7 @@ Partial Class Main
CType(Me.dgvAnagAlarm, System.ComponentModel.ISupportInitialize).EndInit()
Me.tabPage3.ResumeLayout(False)
Me.tabPage3.PerformLayout()
Me.tabPage4.ResumeLayout(False)
Me.tabPage4.PerformLayout()
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.dgvOperatori, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvAttrezzature, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvTabOpUt, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -942,4 +999,9 @@ Partial Class Main
Friend WithEvents Label14 As Label
Friend WithEvents lblAttr As Label
Friend WithEvents dgvAttrezzature As DataGridView
Friend WithEvents Button2 As Button
Friend WithEvents Label16 As Label
Friend WithEvents txtEvOpUt As TextBox
Friend WithEvents dgvTabOpUt As DataGridView
Friend WithEvents lblErrTLO As Label
End Class
+20
View File
@@ -80,6 +80,10 @@ Public Class Main
Dim tabAttr = DataLayer.man.taAttrezz.GetData()
dgvAttrezzature.DataSource = tabAttr
' log OP utenti
Dim tabTLO = DataLayer.man.taTLO.getByBCode(CurrOprBCode, 100)
dgvTabOpUt.DataSource = tabTLO
End Sub
@@ -254,4 +258,20 @@ Public Class Main
dgvAttrezzature.DataSource = tabAttr
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim messaggio As String = ""
' controllo preliminare che ci siano dati base
If (CurrOprBCode <> "") Then
' salvo operazione utente
DataLayer.man.taTLO.insertQuery(CurrOprBCode, DateTime.Now, txtEvOpUt.Text.Trim())
Else
messaggio = "Manca BCode op!"
End If
lblErrTLO.Text = messaggio
updCtrl()
End Sub
End Class
+3
View File
@@ -43,6 +43,9 @@
</ItemGroup>
<ItemGroup>
<Compile Include="DataLayer.cs" />
<Compile Include="DS_App.cs">
<DependentUpon>DS_App.xsd</DependentUpon>
</Compile>
<Compile Include="DS_App.Designer.cs">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
+901
View File
File diff suppressed because it is too large Load Diff
+7
View File
@@ -0,0 +1,7 @@
namespace DB_proxy
{
}
namespace DB_proxy
{
}
+107 -1
View File
@@ -4,7 +4,7 @@
<xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
<DataSource DefaultConnectionIndex="1" FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<Connections>
<Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="b" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="CMS_OMRConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DB_proxy.Properties.Settings.GlobalReference.Default.CMS_OMRConnectionString" Provider="System.Data.SqlClient" />
<Connection AppSettingsObjectName="Settings" AppSettingsPropertyName="CMS_OMRConnectionString" ConnectionStringObject="" IsAppSettingsProperty="true" Modifier="Assembly" Name="CMS_OMRConnectionString (Settings)" ParameterPrefix="@" PropertyReference="ApplicationSettings.DB_proxy.Properties.Settings.GlobalReference.Default.CMS_OMRConnectionString" Provider="System.Data.SqlClient" />
</Connections>
<Tables>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TabOperazioniTableAdapter" GeneratorDataComponentClassName="TabOperazioniTableAdapter" Name="TabOperazioni" UserDataComponentName="TabOperazioniTableAdapter">
@@ -643,6 +643,86 @@ SELECT CodAttr, CodArt_A, CodArt_B, PartProgMain, PartProgAux FROM TabAttrezzatu
</DbSource>
</Sources>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TabLogOperatoriTableAdapter" GeneratorDataComponentClassName="TabLogOperatoriTableAdapter" Name="TabLogOperatori" UserDataComponentName="TabLogOperatoriTableAdapter">
<MainSource>
<DbSource ConnectionRef="CMS_OMRConnectionString (Settings)" DbObjectName="[CMS-OMR].dbo.TabLogOperatori" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TabLogOperatori] WHERE (([Barcode] = @Original_Barcode) AND ([DtEvento] = @Original_DtEvento) AND ([Evento] = @Original_Evento))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_Barcode" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Barcode" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_DtEvento" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="DtEvento" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_Evento" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Evento" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [TabLogOperatori] ([Barcode], [DtEvento], [Evento]) VALUES (@Barcode, @DtEvento, @Evento);
SELECT Barcode, DtEvento, Evento FROM TabLogOperatori WHERE (Barcode = @Barcode) AND (DtEvento = @DtEvento)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Barcode" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Barcode" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@DtEvento" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="DtEvento" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Evento" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Evento" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT *
FROM TabLogOperatori</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TabLogOperatori] SET [Barcode] = @Barcode, [DtEvento] = @DtEvento, [Evento] = @Evento WHERE (([Barcode] = @Original_Barcode) AND ([DtEvento] = @Original_DtEvento) AND ([Evento] = @Original_Evento));
SELECT Barcode, DtEvento, Evento FROM TabLogOperatori WHERE (Barcode = @Barcode) AND (DtEvento = @DtEvento)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Barcode" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Barcode" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@DtEvento" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="DtEvento" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Evento" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Evento" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_Barcode" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Barcode" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_DtEvento" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="DtEvento" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="String" Direction="Input" ParameterName="@Original_Evento" Precision="0" ProviderType="NVarChar" Scale="0" Size="0" SourceColumn="Evento" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="Barcode" DataSetColumn="Barcode" />
<Mapping SourceColumn="DtEvento" DataSetColumn="DtEvento" />
<Mapping SourceColumn="Evento" DataSetColumn="Evento" />
</Mappings>
<Sources>
<DbSource ConnectionRef="CMS_OMRConnectionString (Settings)" DbObjectName="[CMS-OMR].dbo.stp_TLO_getByBarcode" DbObjectType="StoredProcedure" GenerateMethods="Get" GenerateShortCommands="true" GeneratorGetMethodName="getByBCode" GetMethodModifier="Public" GetMethodName="getByBCode" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="getByBCode" UserSourceName="getByBCode">
<SelectCommand>
<DbCommand CommandType="StoredProcedure" ModifiedByUser="false">
<CommandText>dbo.stp_TLO_getByBarcode</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="ReturnValue" ParameterName="@RETURN_VALUE" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="nvarchar" DbType="String" Direction="Input" ParameterName="@Barcode" Precision="0" ProviderType="NVarChar" Scale="0" Size="50" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@maxNum" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="CMS_OMRConnectionString (Settings)" DbObjectName="[CMS-OMR].dbo.stp_TLO_insertQuery" DbObjectType="StoredProcedure" GenerateShortCommands="true" GeneratorSourceName="insertQuery" Modifier="Public" Name="insertQuery" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="insertQuery">
<SelectCommand>
<DbCommand CommandType="StoredProcedure" ModifiedByUser="false">
<CommandText>dbo.stp_TLO_insertQuery</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="ReturnValue" ParameterName="@RETURN_VALUE" Precision="10" ProviderType="Int" Scale="0" Size="4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="nvarchar" DbType="String" Direction="Input" ParameterName="@Barcode" Precision="0" ProviderType="NVarChar" Scale="0" Size="50" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@DtEvento" Precision="23" ProviderType="DateTime" Scale="3" Size="8" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DataTypeServer="nvarchar" DbType="String" Direction="Input" ParameterName="@Evento" Precision="0" ProviderType="NVarChar" Scale="0" Size="50" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
</Tables>
<Sources />
</DataSource>
@@ -890,6 +970,27 @@ SELECT CodAttr, CodArt_A, CodArt_B, PartProgMain, PartProgAux FROM TabAttrezzatu
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TabLogOperatori" msprop:Generator_TableClassName="TabLogOperatoriDataTable" msprop:Generator_TableVarName="tableTabLogOperatori" msprop:Generator_RowChangedName="TabLogOperatoriRowChanged" msprop:Generator_TablePropName="TabLogOperatori" msprop:Generator_RowDeletingName="TabLogOperatoriRowDeleting" msprop:Generator_RowChangingName="TabLogOperatoriRowChanging" msprop:Generator_RowEvHandlerName="TabLogOperatoriRowChangeEventHandler" msprop:Generator_RowDeletedName="TabLogOperatoriRowDeleted" msprop:Generator_RowClassName="TabLogOperatoriRow" msprop:Generator_UserTableName="TabLogOperatori" msprop:Generator_RowEvArgName="TabLogOperatoriRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="Barcode" msprop:Generator_ColumnVarNameInTable="columnBarcode" msprop:Generator_ColumnPropNameInRow="Barcode" msprop:Generator_ColumnPropNameInTable="BarcodeColumn" msprop:Generator_UserColumnName="Barcode">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DtEvento" msprop:Generator_ColumnVarNameInTable="columnDtEvento" msprop:Generator_ColumnPropNameInRow="DtEvento" msprop:Generator_ColumnPropNameInTable="DtEventoColumn" msprop:Generator_UserColumnName="DtEvento" type="xs:dateTime" />
<xs:element name="Evento" msprop:Generator_ColumnVarNameInTable="columnEvento" msprop:Generator_ColumnPropNameInRow="Evento" msprop:Generator_ColumnPropNameInTable="EventoColumn" msprop:Generator_UserColumnName="Evento">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -923,6 +1024,11 @@ SELECT CodAttr, CodArt_A, CodArt_B, PartProgMain, PartProgAux FROM TabAttrezzatu
<xs:field xpath="mstns:CodArt_A" />
<xs:field xpath="mstns:CodArt_B" />
</xs:unique>
<xs:unique name="TabLogOperatori_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TabLogOperatori" />
<xs:field xpath="mstns:Barcode" />
<xs:field xpath="mstns:DtEvento" />
</xs:unique>
</xs:element>
<xs:annotation>
<xs:appinfo>
+11 -10
View File
@@ -6,16 +6,17 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TabOperazioni" ZOrder="10" X="91" Y="113" Height="342" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="191" />
<Shape ID="DesignTable:TabPezzi" ZOrder="9" X="479" Y="110" Height="227" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="168" />
<Shape ID="DesignTable:AnagArticoli" ZOrder="3" X="830" Y="102" Height="227" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="76" />
<Shape ID="DesignTable:AnagAllarmi" ZOrder="5" X="119" Y="641" Height="227" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="168" />
<Shape ID="DesignTable:StoricoAllarmiExp" ZOrder="4" X="469" Y="657" Height="227" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="122" />
<Shape ID="DesignTable:AnagOperatori" ZOrder="1" X="905" Y="683" Height="296" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="145" />
<Shape ID="DesignTable:TabAttrezzature" ZOrder="2" X="1477" Y="344" Height="296" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="145" />
<Shape ID="DesignTable:TabOperazioni" ZOrder="11" X="91" Y="113" Height="342" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="191" />
<Shape ID="DesignTable:TabPezzi" ZOrder="10" X="479" Y="110" Height="227" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="168" />
<Shape ID="DesignTable:AnagArticoli" ZOrder="4" X="830" Y="102" Height="227" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="76" />
<Shape ID="DesignTable:AnagAllarmi" ZOrder="6" X="119" Y="641" Height="227" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="168" />
<Shape ID="DesignTable:StoricoAllarmiExp" ZOrder="5" X="469" Y="657" Height="227" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="122" />
<Shape ID="DesignTable:AnagOperatori" ZOrder="2" X="905" Y="683" Height="296" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="145" />
<Shape ID="DesignTable:TabAttrezzature" ZOrder="3" X="1477" Y="344" Height="296" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="145" />
<Shape ID="DesignTable:TabLogOperatori" ZOrder="1" X="153" Y="958" Height="204" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="99" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TabOperazioni_TabPezzi1" ZOrder="8" LineWidth="11">
<Connector ID="DesignRelation:FK_TabOperazioni_TabPezzi1" ZOrder="9" LineWidth="11">
<RoutePoints>
<Point>
<X>479</X>
@@ -27,7 +28,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TabPezzi_AnagArticoli" ZOrder="7" LineWidth="11">
<Connector ID="DesignRelation:FK_TabPezzi_AnagArticoli" ZOrder="8" LineWidth="11">
<RoutePoints>
<Point>
<X>830</X>
@@ -39,7 +40,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_StoricoAllarmi_AnagAllarmi" ZOrder="6" LineWidth="11">
<Connector ID="DesignRelation:FK_StoricoAllarmi_AnagAllarmi" ZOrder="7" LineWidth="11">
<RoutePoints>
<Point>
<X>375</X>
+2
View File
@@ -80,6 +80,7 @@ namespace DB_proxy
public DS_AppTableAdapters.AnagOperatoriTableAdapter taAnagOpr;
public DS_AppTableAdapters.StoricoAllarmiExpTableAdapter taSAL;
public DS_AppTableAdapters.TabAttrezzatureTableAdapter taAttrezz;
public DS_AppTableAdapters.TabLogOperatoriTableAdapter taTLO;
public DS_AppTableAdapters.TabOperazioniTableAdapter taTO;
public DS_AppTableAdapters.TabPezziTableAdapter taPezzi;
@@ -95,6 +96,7 @@ namespace DB_proxy
taSAL = new DS_AppTableAdapters.StoricoAllarmiExpTableAdapter();
taAttrezz = new DS_AppTableAdapters.TabAttrezzatureTableAdapter();
taTO = new DS_AppTableAdapters.TabOperazioniTableAdapter();
taTLO = new DS_AppTableAdapters.TabLogOperatoriTableAdapter();
taPezzi = new DS_AppTableAdapters.TabPezziTableAdapter();
}
/// <summary>