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

Change splash logo and fix some bugs

Browse Source
This commit is contained in:
JackCarterSmith 2017-05-31 09:49:54 +02:00
parent 33425bd427
commit 6b4f2e8db4
3 changed files with 294 additions and 860 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,13 +24,14 @@ Public Class AddMachine
End Sub End Sub
Private Sub AddComputerButton_Click(sender As Object, e As EventArgs) Handles AddComputerButton.Click Private Sub AddComputerButton_Click(sender As Object, e As EventArgs) Handles AddComputerButton.Click
Dim addComputer_seq As String = "
INSERT INTO computers_desc VALUES ('" & NewIDBox.Text & "','" & NewNameBox.Text & "'," & NewEtatBox.SelectedIndex + 1 & "," & CheckToNumeric(NewSerieCheckBox) & ",'" & NewDetailsBox.Text & "',0,'N/A','" & NewGivenByBox.Text & "');
INSERT INTO computers_progress VALUES ('" & NewIDBox.Text & "',0,0,0,0,0,1,1,1);
"
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")

1145
ISEN-Repair Inventory Manager/SplashScreen.resx
View File

File diff suppressed because it is too large Load Diff

BIN
ISEN-Repair Inventory Manager/comp_repair.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB