From e8a7dec124dbcf35b3ba0ace6b80f893cd3b501d Mon Sep 17 00:00:00 2001 From: JackCarterSmith Date: Wed, 31 May 2017 10:29:23 +0200 Subject: [PATCH] Coding trash button... but it cause bugs with list refresh --- .../Main.Designer.vb | 33 ++++++++----------- ISEN-Repair Inventory Manager/Main.vb | 27 +++++++++++++-- 2 files changed, 38 insertions(+), 22 deletions(-) diff --git a/ISEN-Repair Inventory Manager/Main.Designer.vb b/ISEN-Repair Inventory Manager/Main.Designer.vb index 54b7bb9..232bf96 100644 --- a/ISEN-Repair Inventory Manager/Main.Designer.vb +++ b/ISEN-Repair Inventory Manager/Main.Designer.vb @@ -29,7 +29,6 @@ Partial Class Main Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusLabel = New System.Windows.Forms.ToolStripStatusLabel() Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.InvSearchBar = New System.Windows.Forms.TextBox() Me.InvList = New System.Windows.Forms.ListBox() Me.SendOutButton = New System.Windows.Forms.Button() Me.TrashButton = New System.Windows.Forms.Button() @@ -105,7 +104,6 @@ Partial Class Main ' 'GroupBox1 ' - Me.GroupBox1.Controls.Add(Me.InvSearchBar) Me.GroupBox1.Controls.Add(Me.InvList) Me.GroupBox1.Location = New System.Drawing.Point(12, 27) Me.GroupBox1.Name = "GroupBox1" @@ -114,42 +112,38 @@ Partial Class Main Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Inventaire" ' - 'InvSearchBar - ' - Me.InvSearchBar.Location = New System.Drawing.Point(7, 20) - Me.InvSearchBar.Name = "InvSearchBar" - Me.InvSearchBar.Size = New System.Drawing.Size(323, 20) - Me.InvSearchBar.TabIndex = 1 - ' 'InvList ' Me.InvList.FormattingEnabled = True - Me.InvList.Location = New System.Drawing.Point(6, 48) + Me.InvList.Location = New System.Drawing.Point(6, 17) Me.InvList.Name = "InvList" Me.InvList.ScrollAlwaysVisible = True - Me.InvList.Size = New System.Drawing.Size(324, 277) + Me.InvList.Size = New System.Drawing.Size(324, 316) Me.InvList.Sorted = True Me.InvList.TabIndex = 2 ' 'SendOutButton ' + Me.SendOutButton.BackColor = System.Drawing.Color.Green Me.SendOutButton.Location = New System.Drawing.Point(701, 343) Me.SendOutButton.Name = "SendOutButton" Me.SendOutButton.Size = New System.Drawing.Size(156, 23) Me.SendOutButton.TabIndex = 6 Me.SendOutButton.TabStop = False - Me.SendOutButton.Text = "Livré" - Me.SendOutButton.UseVisualStyleBackColor = True + Me.SendOutButton.Text = "A été livré" + Me.SendOutButton.UseVisualStyleBackColor = False ' 'TrashButton ' + Me.TrashButton.BackColor = System.Drawing.Color.Firebrick + Me.TrashButton.ForeColor = System.Drawing.Color.White Me.TrashButton.Location = New System.Drawing.Point(361, 343) Me.TrashButton.Name = "TrashButton" Me.TrashButton.Size = New System.Drawing.Size(156, 23) Me.TrashButton.TabIndex = 7 Me.TrashButton.TabStop = False - Me.TrashButton.Text = "Jeté" - Me.TrashButton.UseVisualStyleBackColor = True + Me.TrashButton.Text = "A été jeté" + Me.TrashButton.UseVisualStyleBackColor = False ' 'Label1 ' @@ -361,7 +355,7 @@ Partial Class Main ' 'ComputerRepairGlobalProgress ' - Me.ComputerRepairGlobalProgress.ForeColor = System.Drawing.Color.Crimson + Me.ComputerRepairGlobalProgress.ForeColor = System.Drawing.Color.SteelBlue Me.ComputerRepairGlobalProgress.Location = New System.Drawing.Point(6, 90) Me.ComputerRepairGlobalProgress.Name = "ComputerRepairGlobalProgress" Me.ComputerRepairGlobalProgress.Size = New System.Drawing.Size(496, 23) @@ -432,13 +426,14 @@ Partial Class Main ' 'EditButton ' + Me.EditButton.BackColor = System.Drawing.Color.Gold Me.EditButton.Location = New System.Drawing.Point(523, 343) Me.EditButton.Name = "EditButton" Me.EditButton.Size = New System.Drawing.Size(172, 23) Me.EditButton.TabIndex = 8 Me.EditButton.TabStop = False - Me.EditButton.Text = "Modifier" - Me.EditButton.UseVisualStyleBackColor = True + Me.EditButton.Text = "Editer le suivi" + Me.EditButton.UseVisualStyleBackColor = False ' 'Main ' @@ -465,7 +460,6 @@ Partial Class Main Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox3.ResumeLayout(False) @@ -479,7 +473,6 @@ Partial Class Main Friend WithEvents StatusStrip1 As StatusStrip Friend WithEvents StatusLabel As ToolStripStatusLabel Friend WithEvents GroupBox1 As GroupBox - Friend WithEvents InvSearchBar As TextBox Friend WithEvents InvList As ListBox Friend WithEvents SendOutButton As Button Friend WithEvents TrashButton As Button diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb index a862f63..498e9ae 100644 --- a/ISEN-Repair Inventory Manager/Main.vb +++ b/ISEN-Repair Inventory Manager/Main.vb @@ -104,7 +104,6 @@ Public Class Main IDBox.Text = dtr.GetString(0) manualID_selected = True NameBox.Text = dtr.GetString(1) - InvSearchBar.Text = dtr.GetString(1) If dtr.GetInt32(2) = 0 Then EtatBox.Text = "R.I.P" ElseIf dtr.GetInt32(2) = 1 Then @@ -162,7 +161,6 @@ Public Class Main manualID_selected = True StatusLabel.Text = "ID trouvé !" NameBox.Text = dtr.GetString(1) - InvSearchBar.Text = dtr.GetString(1) If dtr.GetInt32(2) = 0 Then EtatBox.Text = "R.I.P" ElseIf dtr.GetInt32(2) = 1 Then @@ -250,6 +248,31 @@ Public Class Main End Using con.Close() End Using + + If HWCheck.Checked And OSCheck.Checked And DrvCheck.Checked And SoftCheck.Checked And ActivateCheck.Checked Then SendOutButton.Enabled = True Else SendOutButton.Enabled = False + Catch ex As Exception + StatusLabel.Text = "Une erreur avec la base SQLite s'est produite !" + MsgBox(ex.Message) + End Try + End Sub + + 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 + Dim trash_seq As String = " + DELETE FROM computers_desc WHERE id='" & IDBox.Text & "'; + DELETE FROM computers_progress WHERE id='" & IDBox.Text & "'; + " + + Try + StatusLabel.Text = "Supression d'un ordinateur de la base de données..." + Using con As New SQLiteConnection("URI=file:db.sqlite") + con.Open() + Dim cmd As New SQLiteCommand(trash_seq, con) + If cmd.ExecuteNonQuery() <> 2 Then MsgBox("Erreur inconnue au niveau de la base de données !", 16, "Defaillance générale !") : End + con.Close() + End Using + StatusLabel.Text = "Ordinateur supprimé avec succès !" + ListAllInv() Catch ex As Exception StatusLabel.Text = "Une erreur avec la base SQLite s'est produite !" MsgBox(ex.Message)