created new structure
This commit is contained in:
284
VS code/Form6.vb
Normal file
284
VS code/Form6.vb
Normal file
@@ -0,0 +1,284 @@
|
||||
|
||||
Imports System.Security.Cryptography
|
||||
Imports Microsoft.Data.SqlClient
|
||||
Imports System.Data.DataTable
|
||||
|
||||
|
||||
Public Class Form6
|
||||
'setari pentru server
|
||||
Dim DataString As String = My.Settings.subnet
|
||||
Dim surce As String = My.Settings.serverName
|
||||
Dim catalog As String = My.Settings.serverdatabase
|
||||
Dim user As String = My.Settings.serverUser
|
||||
Dim pass As String = My.Settings.serverUserpass
|
||||
Dim timeout As String = My.Settings.timeout
|
||||
Dim encrypt As String = My.Settings.encrypt
|
||||
Dim trust As String = My.Settings.cert
|
||||
Dim reason As String = My.Settings.reason
|
||||
Dim subnet As String = My.Settings.subnet
|
||||
Dim rowIdval As String ' gasirea randului din datagrid
|
||||
|
||||
Private Sub updateTable()
|
||||
' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
|
||||
Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
|
||||
"; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
|
||||
"; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
|
||||
con.Open()
|
||||
Dim command As New SqlCommand("select top 14 * from dbo.pregatit order by id desc", con)
|
||||
Dim sda As New SqlDataAdapter(command)
|
||||
Dim dt As New DataTable
|
||||
sda.Fill(dt)
|
||||
DataGridView1.DataSource = dt
|
||||
con.Close()
|
||||
End Sub
|
||||
Private Sub UserForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
' text box1 incarcare valoare, set text box 2 pentru scan
|
||||
TextBox1.Text = variable.userp
|
||||
updateTable()
|
||||
TextBox2.Focus()
|
||||
End Sub
|
||||
Private Sub TextBox1_TextChangeed(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
|
||||
' validare text box 1 cu OQ
|
||||
If TextBox1.Text.Length < 4 Then
|
||||
|
||||
ElseIf TextBox1.Text.Length = 4 Then
|
||||
Dim val As String
|
||||
val = TextBox1.Text
|
||||
If InStr(1, val, "OP") > 0 Then
|
||||
TextBox2.Focus()
|
||||
|
||||
Else
|
||||
MsgBox("Introdu cod Operator")
|
||||
TextBox1.Focus()
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub TextBox2_TextChangeed(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
|
||||
' validare CP text box 2
|
||||
If TextBox2.Text.Length < 10 Then
|
||||
|
||||
ElseIf TextBox2.Text.Length = 10 Then
|
||||
Dim val As String
|
||||
val = TextBox2.Text
|
||||
If InStr(1, val, "CP") > 0 Then
|
||||
TextBox3.Focus()
|
||||
Else
|
||||
MsgBox("Introdu CP Corect")
|
||||
TextBox2.Clear()
|
||||
TextBox2.Focus()
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
End Sub
|
||||
Private Sub TextBox3_TextChangeed(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
|
||||
' validare oc text box 3
|
||||
If TextBox3.Text.Length < 4 Then
|
||||
ElseIf TextBox3.Text.Length = 4 Then
|
||||
Dim val As String
|
||||
val = TextBox3.Text
|
||||
If InStr(1, val, "00") > 0 Then
|
||||
TextBox4.Focus()
|
||||
ElseIf InStr(1, val, "ct") > 0 Then
|
||||
TextBox4.Focus()
|
||||
ElseIf InStr(1, val, "CT") > 0 Then
|
||||
TextBox4.Focus()
|
||||
Else
|
||||
MsgBox("Introdu cod Operator Taiere corect")
|
||||
TextBox3.Clear()
|
||||
TextBox3.Focus()
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
End Sub
|
||||
Private Sub TextBox4_TextChangeed(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
|
||||
' validare oc text box 4
|
||||
If TextBox4.Text.Length < 4 Then
|
||||
|
||||
ElseIf TextBox4.Text.Length = 4 Then
|
||||
Dim val As String
|
||||
val = TextBox4.Text
|
||||
If InStr(1, val, "00") > 0 Then
|
||||
TextBox5.Focus()
|
||||
ElseIf InStr(1, val, "mn") > 0 Then
|
||||
TextBox5.Focus()
|
||||
ElseIf InStr(1, val, "MN") > 0 Then
|
||||
TextBox5.Focus()
|
||||
ElseIf InStr(1, val, "sn") > 0 Then
|
||||
TextBox5.Focus()
|
||||
ElseIf InStr(1, val, "SN") > 0 Then
|
||||
TextBox5.Focus()
|
||||
Else
|
||||
MsgBox("Introdu cod Matlasor Corect")
|
||||
TextBox4.Clear()
|
||||
TextBox4.Focus()
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub TextBox5_TextChangeed(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
|
||||
' validare sp text box 4
|
||||
If TextBox5.Text.Length < 4 Then
|
||||
ElseIf TextBox5.Text.Length = 4 Then
|
||||
Dim val As String
|
||||
val = TextBox5.Text
|
||||
If InStr(1, val, "00") > 0 Then
|
||||
TextBox6.Focus()
|
||||
ElseIf InStr(1, val, "sp") > 0 Then
|
||||
TextBox6.Focus()
|
||||
ElseIf InStr(1, val, "SP") > 0 Then
|
||||
TextBox6.Focus()
|
||||
Else
|
||||
MsgBox("Introdu cod Matlasor Corect")
|
||||
TextBox5.Clear()
|
||||
TextBox5.Focus()
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub TextBox6_TextChangeed(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
|
||||
' validare Calitate text box5
|
||||
If TextBox6.Text.Length < 4 Then
|
||||
ElseIf TextBox6.Text.Length = 4 Then
|
||||
Dim val As String
|
||||
val = TextBox6.Text
|
||||
If InStr(1, val, "0000") > 0 Then
|
||||
Dim oq As String = TextBox1.Text 'string pentru SQL oq
|
||||
Dim cp As String = TextBox2.Text 'string pentru SQL cp
|
||||
Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
|
||||
Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
|
||||
Dim quality As String = TextBox4.Text 'string pentru SQL calitate
|
||||
Dim dta As String 'string pentru SQL data
|
||||
dta = Date.Now.ToString("yyyy.MM.dd") ' format string
|
||||
Label6.Text = dta 'Update in Label
|
||||
Dim dTime As String 'string pentru SQL time
|
||||
dTime = Date.Now.ToString("hh: mm") 'Format time
|
||||
Label7.Text = dTime ' update in label
|
||||
Dim cant As Integer 'cantitate 1 intodeauna
|
||||
cant = 1
|
||||
Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
|
||||
"; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
|
||||
"; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
|
||||
con.Open()
|
||||
Dim command As New SqlCommand("Insert into calitate.dbo.pregatit values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & dta & "','" & dTime & "')", con)
|
||||
command.ExecuteNonQuery()
|
||||
con.Close()
|
||||
updateTable()
|
||||
TextBox2.Clear()
|
||||
TextBox3.Clear()
|
||||
TextBox4.Clear()
|
||||
TextBox5.Clear()
|
||||
TextBox6.Clear()
|
||||
TextBox2.Focus()
|
||||
ElseIf InStr(1, val, "sp") > 0 Then
|
||||
Dim oq As String = TextBox1.Text 'string pentru SQL oq
|
||||
Dim cp As String = TextBox2.Text 'string pentru SQL cp
|
||||
Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
|
||||
Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
|
||||
Dim quality As String = TextBox4.Text 'string pentru SQL calitate
|
||||
Dim dta As String 'string pentru SQL data
|
||||
dta = Date.Now.ToString("yyyy.MM.dd") ' format string
|
||||
Label6.Text = dta 'Update in Label
|
||||
Dim dTime As String 'string pentru SQL time
|
||||
dTime = Date.Now.ToString("hh: mm") 'Format time
|
||||
Label7.Text = dTime ' update in label
|
||||
Dim cant As Integer 'cantitate 1 intodeauna
|
||||
cant = 1
|
||||
Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
|
||||
"; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
|
||||
"; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
|
||||
con.Open()
|
||||
Dim command As New SqlCommand("Insert into calitate.dbo.pregatit values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & dta & "','" & dTime & "')", con)
|
||||
command.ExecuteNonQuery()
|
||||
con.Close()
|
||||
updateTable()
|
||||
TextBox2.Clear()
|
||||
TextBox3.Clear()
|
||||
TextBox4.Clear()
|
||||
TextBox5.Clear()
|
||||
TextBox6.Clear()
|
||||
TextBox2.Focus()
|
||||
ElseIf InStr(1, val, "SP") > 0 Then
|
||||
Dim oq As String = TextBox1.Text 'string pentru SQL oq
|
||||
Dim cp As String = TextBox2.Text 'string pentru SQL cp
|
||||
Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
|
||||
Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
|
||||
Dim quality As String = TextBox4.Text 'string pentru SQL calitate
|
||||
Dim dta As String 'string pentru SQL data
|
||||
dta = Date.Now.ToString("yyyy.MM.dd") ' format string
|
||||
Label6.Text = dta 'Update in Label
|
||||
Dim dTime As String 'string pentru SQL time
|
||||
dTime = Date.Now.ToString("hh: mm") 'Format time
|
||||
Label7.Text = dTime ' update in label
|
||||
Dim cant As Integer 'cantitate 1 intodeauna
|
||||
cant = 1
|
||||
Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
|
||||
"; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
|
||||
"; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
|
||||
con.Open()
|
||||
Dim command As New SqlCommand("Insert into calitate.dbo.pregatit values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & dta & "','" & dTime & "')", con)
|
||||
command.ExecuteNonQuery()
|
||||
con.Close()
|
||||
updateTable()
|
||||
TextBox2.Clear()
|
||||
TextBox3.Clear()
|
||||
TextBox4.Clear()
|
||||
TextBox5.Clear()
|
||||
TextBox6.Clear()
|
||||
TextBox2.Focus()
|
||||
|
||||
Else
|
||||
MsgBox("Introdu cod Defect Corect")
|
||||
TextBox6.Clear()
|
||||
TextBox6.Focus()
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' inchidere forma scanare articole
|
||||
Form1.Show()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
' stergere rand din datagrid
|
||||
|
||||
Dim result1 As DialogResult = MsgBox("Sigur Vrei sa strigi linia selectata ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo,
|
||||
"Confirmare stergere Linie")
|
||||
If DialogResult.OK Then 'confirmare MsgBox
|
||||
' cod stergere din SQL
|
||||
If rowIdval >= 0 Then ' id row datagrid din sub datagrid
|
||||
Dim id As Integer = rowIdval
|
||||
Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
|
||||
"; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
|
||||
"; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
|
||||
con.Open()
|
||||
Dim command As New SqlCommand("Delete calitate.dbo.pregatit where id = '" & id & "'", con)
|
||||
command.ExecuteNonQuery()
|
||||
con.Close()
|
||||
updateTable()
|
||||
MsgBox(" Linia a fost stearsa")
|
||||
TextBox2.Focus()
|
||||
End If
|
||||
Else
|
||||
MsgBox(" Ai anulat stergerea liniei")
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
|
||||
Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid
|
||||
If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
|
||||
Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("id").Value.ToString()
|
||||
rowIdval = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user