96 lines
4.1 KiB
VB.net
96 lines
4.1 KiB
VB.net
Imports DocumentFormat.OpenXml.InkML
|
|
Imports Microsoft.Data.SqlClient
|
|
Imports System.Reflection.Emit
|
|
Imports System.Threading
|
|
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
|
|
|
|
|
|
|
Public Class Form8
|
|
'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.mentenanta where (status = 'Deschis' )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 Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim items As String() = New String() {"", "Cusut", "Pregatit", "Matlasat"}
|
|
ComboBox1.DataSource = items
|
|
updateTable()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Form1.Show()
|
|
Me.Close()
|
|
|
|
End Sub
|
|
|
|
Private Sub TextMasina_TextChangeed(sender As Object, e As EventArgs) Handles TextMasina.TextChanged
|
|
' validare text box 1 cu OQ
|
|
If TextMasina.Text.Length < 4 Then
|
|
|
|
ElseIf TextMasina.Text.Length = 4 Then
|
|
TextDefect.Focus()
|
|
Else
|
|
MsgBox("Introdu cod Operator")
|
|
TextMasina.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextDefect_TextChangeed(sender As Object, e As EventArgs) Handles TextDefect.TextChanged
|
|
' validare text box 1 cu OQ
|
|
If TextDefect.Text.Length < 4 Then
|
|
|
|
ElseIf TextDefect.Text.Length = 4 Then
|
|
Dim val As String
|
|
val = TextDefect.Text
|
|
If InStr(1, val, "D") > 0 Then
|
|
Dim dta As String 'string pentru SQL data
|
|
dta = Date.Now.ToString("yyyy.MM.dd") ' format string
|
|
Label4.Text = dta 'Update in Label
|
|
Dim dTime As String 'string pentru SQL time
|
|
dTime = Date.Now.ToString("hh:mm") 'Format time
|
|
Dim nu As String = "NULL"
|
|
Label5.Text = dTime ' update in label
|
|
Dim cant As Integer 'cantitate 1 intodeauna
|
|
cant = 1
|
|
Dim status As String = "Deschis"
|
|
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.mentenanta (Data, Ora, zona, masina, defect, status) values('" & dta & "','" & dTime & "','" & ComboBox1.Text & "','" & TextMasina.Text & "','" & TextDefect.Text & "','" & status & "')", con)
|
|
command.ExecuteNonQuery()
|
|
con.Close()
|
|
updateTable()
|
|
TextMasina.Clear()
|
|
TextDefect.Clear()
|
|
End If
|
|
Else
|
|
MsgBox("Introdu cod Operator")
|
|
TextDefect.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
End Class |