jackcartersmith/RepairInventoryManager
Archived
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed last bugs

Browse Source
This commit is contained in:
JackCarterSmith 2017-05-31 11:45:43 +02:00
parent e8a7dec124
commit 9d19953f7a
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ISEN-Repair Inventory Manager/AddMachine.vb
View File

@ -27,17 +27,16 @@ Public Class AddMachine
If NewNameBox.Text = "" Then MsgBox("Vous ne pouvez pas laisser un nom vide !", 48, "Erreur de saisie") : Exit Sub If NewNameBox.Text = "" Then MsgBox("Vous ne pouvez pas laisser un nom vide !", 48, "Erreur de saisie") : Exit Sub
If NewDetailsBox.Text = "" Then NewDetailsBox.Text = "N/A" If NewDetailsBox.Text = "" Then NewDetailsBox.Text = "N/A"
If NewGivenByBox.Text = "" Then NewGivenByBox.Text = "N/A" If NewGivenByBox.Text = "" Then NewGivenByBox.Text = "N/A"
Dim addComputer_seq As String = "
INSERT INTO computers_desc VALUES ('" & NewIDBox.Text & "','" & NewNameBox.Text & "'," & NewEtatBox.SelectedIndex & "," & CheckToNumeric(NewSerieCheckBox) & ",'" & NewDetailsBox.Text & "',0,'N/A','" & NewGivenByBox.Text & "');
INSERT INTO computers_progress VALUES ('" & NewIDBox.Text & "',0,0,0,0,0,1,1,1);
"
Try Try
Main.StatusLabel.Text = "Tentative d'ajout de l'ordinateur à la base de données..." Main.StatusLabel.Text = "Tentative d'ajout de l'ordinateur à la base de données..."
Using con As New SQLiteConnection("URI=file:db.sqlite") Using con As New SQLiteConnection("URI=file:db.sqlite")
con.Open() con.Open()
Dim cmd As New SQLiteCommand(addComputer_seq, con) Dim cmd As New SQLiteCommand(con)
If cmd.ExecuteNonQuery() <> 2 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End cmd.CommandText = "INSERT INTO computers_desc VALUES ('" & NewIDBox.Text & "','" & NewNameBox.Text & "'," & NewEtatBox.SelectedIndex & "," & CheckToNumeric(NewSerieCheckBox) & ",'" & NewDetailsBox.Text & "',0,'N/A','" & NewGivenByBox.Text & "');"
If cmd.ExecuteNonQuery() <> 1 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End
cmd.CommandText = "INSERT INTO computers_progress VALUES ('" & NewIDBox.Text & "',0,0,0,0,0,1,1,1);"
If cmd.ExecuteNonQuery() <> 1 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End
con.Close() con.Close()
End Using End Using
Main.StatusLabel.Text = "Ordinateur ajouté avec succés dans la base de données." Main.StatusLabel.Text = "Ordinateur ajouté avec succés dans la base de données."

1
ISEN-Repair Inventory Manager/Main.Designer.vb generated
View File

@ -119,7 +119,6 @@ Partial Class Main
Me.InvList.Name = "InvList" Me.InvList.Name = "InvList"
Me.InvList.ScrollAlwaysVisible = True Me.InvList.ScrollAlwaysVisible = True
Me.InvList.Size = New System.Drawing.Size(324, 316) Me.InvList.Size = New System.Drawing.Size(324, 316)
Me.InvList.Sorted = True
Me.InvList.TabIndex = 2 Me.InvList.TabIndex = 2
' '
'SendOutButton 'SendOutButton

20
ISEN-Repair Inventory Manager/Main.vb
View File

@ -2,6 +2,7 @@
Public Class Main Public Class Main
Dim manualID_selected As Boolean = False Dim manualID_selected As Boolean = False
Dim idList As New ArrayList
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckIfFirstRun() CheckIfFirstRun()
@ -63,6 +64,7 @@ Public Class Main
End Sub End Sub
Public Sub ListAllInv() Public Sub ListAllInv()
idList.Clear()
Dim dtr As SQLiteDataReader Dim dtr As SQLiteDataReader
InvList.Items.Clear() InvList.Items.Clear()
@ -73,10 +75,11 @@ Public Class Main
Using con As New SQLiteConnection("URI=file:db.sqlite") Using con As New SQLiteConnection("URI=file:db.sqlite")
con.Open() con.Open()
Using cmd As New SQLiteCommand(con) Using cmd As New SQLiteCommand(con)
cmd.CommandText = "SELECT name FROM computers_desc;" cmd.CommandText = "SELECT id,name FROM computers_desc;"
dtr = cmd.ExecuteReader() dtr = cmd.ExecuteReader()
While dtr.Read() While dtr.Read()
InvList.Items.Add(dtr.GetString(0)) idList.Add(dtr.GetString(0))
InvList.Items.Add(dtr.GetString(1))
End While End While
End Using End Using
con.Close() con.Close()
@ -98,7 +101,7 @@ Public Class Main
Using con As New SQLiteConnection("URI=file:db.sqlite") Using con As New SQLiteConnection("URI=file:db.sqlite")
con.Open() con.Open()
Using cmd As New SQLiteCommand(con) Using cmd As New SQLiteCommand(con)
cmd.CommandText = "SELECT * FROM computers_desc WHERE _rowid_=" & InvList.SelectedIndex + 1 & ";" cmd.CommandText = "SELECT * FROM computers_desc WHERE id=" & idList(InvList.SelectedIndex) & ";"
dtr = cmd.ExecuteReader() dtr = cmd.ExecuteReader()
While dtr.Read() While dtr.Read()
IDBox.Text = dtr.GetString(0) IDBox.Text = dtr.GetString(0)
@ -258,17 +261,16 @@ Public Class Main
Private Sub TrashButton_Click(sender As Object, e As EventArgs) Handles TrashButton.Click Private Sub TrashButton_Click(sender As Object, e As EventArgs) Handles TrashButton.Click
If MsgBox("ATTENTION ! Voulez vous vraiment supprimer cette ordinateur de la base de données ?", 292, "Trash") = 7 Then Exit Sub If MsgBox("ATTENTION ! Voulez vous vraiment supprimer cette ordinateur de la base de données ?", 292, "Trash") = 7 Then Exit Sub
Dim trash_seq As String = "
DELETE FROM computers_desc WHERE id='" & IDBox.Text & "';
DELETE FROM computers_progress WHERE id='" & IDBox.Text & "';
"
Try Try
StatusLabel.Text = "Supression d'un ordinateur de la base de données..." StatusLabel.Text = "Supression d'un ordinateur de la base de données..."
Using con As New SQLiteConnection("URI=file:db.sqlite") Using con As New SQLiteConnection("URI=file:db.sqlite")
con.Open() con.Open()
Dim cmd As New SQLiteCommand(trash_seq, con) Dim cmd As New SQLiteCommand(con)
If cmd.ExecuteNonQuery() <> 2 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End cmd.CommandText = "DELETE FROM computers_desc WHERE id='" & IDBox.Text & "';"
If cmd.ExecuteNonQuery() <> 1 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End
cmd.CommandText = "DELETE FROM computers_progress WHERE id='" & IDBox.Text & "';"
If cmd.ExecuteNonQuery() <> 1 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End
con.Close() con.Close()
End Using End Using
StatusLabel.Text = "Ordinateur supprimé avec succès !" StatusLabel.Text = "Ordinateur supprimé avec succès !"