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