108 lines
4.7 KiB
VB.net
108 lines
4.7 KiB
VB.net
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
|
|
|
Public Module variable
|
|
Public user As String = "0"
|
|
Public userp As String = "0"
|
|
|
|
End Module
|
|
|
|
Public Class Form1
|
|
' forma principala de lansare a tuturor programelor in cadrul acestui soft
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
' butonul aceseasa scanare calitate
|
|
' this button luchhes the forrm2 window that is used for quality scan.
|
|
' that form will update all the infos in the sql "calitate" database table with name "scanare"
|
|
' lanseaza forma initiala de scanare finala a calitatii comenzilor de productie, aceasta forma va introduce date in DB. Calitatea Tabelul scanare
|
|
' tabelul scanare di DB va fi folosit pentru a se face query in excel si a se obtine raportarea in format prietenos pentru utilizator
|
|
Form2.Show()
|
|
Me.Hide()
|
|
|
|
End Sub
|
|
|
|
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
|
|
' butonul acces setari
|
|
' this button will take to form nr 3 wich is an interogation form for Updating settings. tha password in this table is Aquinos@123
|
|
' forma intermediara de verificare a parolei de administrarea a conexiunilor programului, parola standard este Aquinos@123
|
|
' aceasta forma ne duce in forma intermediara de verificare a setarilor de conexiune
|
|
Form3.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
' butonul export masterdata calitate
|
|
' acest buton te duce in forma de exportare CSV din baza de date pentru calitate.
|
|
' acest export trebuie facut manual sau se seteaza excel care sa comunice cu baza de date si nu e nevoie utilizarea lui.
|
|
Form5.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
' Buton Intra in forma de scanare pregatit
|
|
' buton acesare forma scanare pregatit scanare disponibila pentru zona de pregatit
|
|
' informatiile se salveaa in db.calitate tabeleul pregatit
|
|
Form6.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
' buton export date master pregatit
|
|
' buton prin care se acceseaza forma de export din baza de date sql pentru informatiile din pregatit. aceste informatii pot fi accesate si direct in excel pri qurery din SQL
|
|
Form7.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
' buton Inregistreaza tichet mentenanta
|
|
' nuton care deschide interfata de creare tichet mentenanta
|
|
' interfata creare tichet mentenanta salveaza informatii in BD.calitate tabelul mentenanta
|
|
Form8.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
' buton ce te triminte in forma de export data base from sql server tabel mentenanta
|
|
' pentru informatiile de acolo se poate folosi si excel cu power query from sql Database
|
|
Form10.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
' buton administreaza tichet mentenanta
|
|
' acest buton acceseaza forma de alterare a tabelului mentenanta cu informatiile operatorului de mentenanta
|
|
' defectul constatat , inregistreaza timpii de realizare a mentenantei
|
|
Form9.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
' buton management etichete
|
|
' buton de accesare a forma de import fisiere excel pentru etichete
|
|
' fisierele sunt importate in baza de date Calitate tabelul info etichete
|
|
Form15.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
' buton aceseaza forma scanare cusut
|
|
' buton ce deschide forma de scanare a informatiilor cu privire la timpul si data in care a intrat in cusut o comanda
|
|
' acesta forma incarca informatii in tabelul cusut din baza de date Calitate
|
|
Form12.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
|
' buton export master data cusut
|
|
' acceseaza forma de export informatii din baza de calitate tabelul cusut
|
|
' informatia din baza de date poate fi accesata si prin power query din baza de date
|
|
Form13.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub Button12_Click(sender As Object, e As EventArgs)
|
|
Form14.Show()
|
|
Me.Hide()
|
|
|
|
End Sub
|
|
End Class
|