diff --git a/IDAutomation.LinearBarCode.dll b/IDAutomation.LinearBarCode.dll new file mode 100644 index 0000000..0b9d198 Binary files /dev/null and b/IDAutomation.LinearBarCode.dll differ diff --git a/ISEN-Repair Inventory Manager/AddMachine_ID.vb b/ISEN-Repair Inventory Manager/AddMachine_ID.vb index f3838dc..cb0c80c 100644 --- a/ISEN-Repair Inventory Manager/AddMachine_ID.vb +++ b/ISEN-Repair Inventory Manager/AddMachine_ID.vb @@ -1,6 +1,4 @@ -Imports System.Data.SQLite - -Public Class AddMachine_ID +Public Class AddMachine_ID Private Sub AddMachine_ID_Load(sender As Object, e As EventArgs) Handles MyBase.Load NextButton.Enabled = False newIDBox.Focus() @@ -10,33 +8,8 @@ Public Class AddMachine_ID Me.Close() End Sub - Private Function CheckIDAlreadyUsed(idToCheck As String) As Boolean - Dim dtr As SQLiteDataReader - - Try - Using con As New SQLiteConnection("URI=file:db.sqlite") - con.Open() - Using cmd As New SQLiteCommand(con) - cmd.CommandText = "SELECT * FROM computers_desc WHERE id=" & idToCheck & ";" - dtr = cmd.ExecuteReader() - While dtr.Read() - Return True - End While - Return False - End Using - con.Close() - End Using - - Catch ex As Exception - Main.StatusLabel.Text = "Une erreur avec la base SQLite s'est produite !" - MsgBox(ex.Message) - End Try - - Return True - End Function - Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click - If Not CheckIDAlreadyUsed(newIDBox.Text) Then + If Not Main.CheckIDAlreadyUsed(newIDBox.Text) Then AddMachine.newID = newIDBox.Text Me.Close() Else diff --git a/ISEN-Repair Inventory Manager/IDGenerator.Designer.vb b/ISEN-Repair Inventory Manager/IDGenerator.Designer.vb new file mode 100644 index 0000000..62f346e --- /dev/null +++ b/ISEN-Repair Inventory Manager/IDGenerator.Designer.vb @@ -0,0 +1,140 @@ + +Partial Class IDGenerator + Inherits System.Windows.Forms.Form + + 'Form remplace la méthode Dispose pour nettoyer la liste des composants. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Requise par le Concepteur Windows Form + Private components As System.ComponentModel.IContainer + + 'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form + 'Elle peut être modifiée à l'aide du Concepteur Windows Form. + 'Ne la modifiez pas à l'aide de l'éditeur de code. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(IDGenerator)) + Me.Barcode1 = New IDAutomation.Windows.Forms.LinearBarCode.Barcode() + Me.GenerateNewIDButton = New System.Windows.Forms.Button() + Me.CloseButtonNewID = New System.Windows.Forms.Button() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Barcode1 + ' + Me.Barcode1.ApplyTilde = False + Me.Barcode1.BarHeightCM = 1.0! + Me.Barcode1.BearerBarHorizontal = 0 + Me.Barcode1.BearerBarVertical = 0 + Me.Barcode1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Barcode1.CaptionAbove = "" + Me.Barcode1.CaptionBelow = "" + Me.Barcode1.CaptionBottomAlignment = System.Drawing.StringAlignment.Center + Me.Barcode1.CaptionBottomColor = System.Drawing.Color.Black + Me.Barcode1.CaptionBottomSpace = 0.1! + Me.Barcode1.CaptionFontAbove = New System.Drawing.Font("Times New Roman", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel) + Me.Barcode1.CaptionFontBelow = New System.Drawing.Font("Times New Roman", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Barcode1.CaptionTopAlignment = System.Drawing.StringAlignment.Center + Me.Barcode1.CaptionTopColor = System.Drawing.Color.Black + Me.Barcode1.CaptionTopSpace = 0.1! + Me.Barcode1.CharacterGrouping = 0 + Me.Barcode1.CheckCharacter = False + Me.Barcode1.CheckCharacterInText = True + Me.Barcode1.CODABARStartChar = "A" + Me.Barcode1.CODABARStopChar = "B" + Me.Barcode1.Code128Set = IDAutomation.Windows.Forms.LinearBarCode.Code128CharacterSets.[Auto] + Me.Barcode1.DataToEncode = "0123456789" + Me.Barcode1.DoPaint = True + Me.Barcode1.FitControlToBarcode = True + Me.Barcode1.LeftMarginCM = 0.2! + Me.Barcode1.Location = New System.Drawing.Point(25, 53) + Me.Barcode1.Name = "Barcode1" + Me.Barcode1.NarrowToWideRatio = 2.0! + Me.Barcode1.OneBitPerPixelImage = False + Me.Barcode1.PostnetHeightShort = 0.127! + Me.Barcode1.PostnetHeightTall = 0.3226! + Me.Barcode1.PostnetSpacing = 0.064! + Me.Barcode1.Resolution = IDAutomation.Windows.Forms.LinearBarCode.Resolutions.Screen + Me.Barcode1.ResolutionCustomDPI = 96.0! + Me.Barcode1.ResolutionPrinterToUse = "" + Me.Barcode1.RotationAngle = IDAutomation.Windows.Forms.LinearBarCode.RotationAngles.Zero_Degrees + Me.Barcode1.ShowText = True + Me.Barcode1.ShowTextLocation = IDAutomation.Windows.Forms.LinearBarCode.HRTextPositions.Bottom + Me.Barcode1.Size = New System.Drawing.Size(173, 77) + Me.Barcode1.SuppSeparationCM = 0.5! + Me.Barcode1.SymbologyID = IDAutomation.Windows.Forms.LinearBarCode.Symbologies.Code39 + Me.Barcode1.TabIndex = 0 + Me.Barcode1.TextFontColor = System.Drawing.Color.Black + Me.Barcode1.TextMarginCM = 0.1! + Me.Barcode1.TopMarginCM = 0.2! + Me.Barcode1.UPCESystem = "0" + Me.Barcode1.WhiteBarIncrease = 0! + Me.Barcode1.XDimensionCM = 0.0298! + Me.Barcode1.XDimensionMILS = 11.7715! + ' + 'GenerateNewIDButton + ' + Me.GenerateNewIDButton.Location = New System.Drawing.Point(12, 145) + Me.GenerateNewIDButton.Name = "GenerateNewIDButton" + Me.GenerateNewIDButton.Size = New System.Drawing.Size(198, 23) + Me.GenerateNewIDButton.TabIndex = 1 + Me.GenerateNewIDButton.Text = "Générer nouvel ID" + Me.GenerateNewIDButton.UseVisualStyleBackColor = True + ' + 'CloseButtonNewID + ' + Me.CloseButtonNewID.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.CloseButtonNewID.Location = New System.Drawing.Point(51, 170) + Me.CloseButtonNewID.Name = "CloseButtonNewID" + Me.CloseButtonNewID.Size = New System.Drawing.Size(126, 23) + Me.CloseButtonNewID.TabIndex = 2 + Me.CloseButtonNewID.Text = "Fermer" + Me.CloseButtonNewID.UseVisualStyleBackColor = True + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.Location = New System.Drawing.Point(12, 12) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(198, 127) + Me.PictureBox1.TabIndex = 3 + Me.PictureBox1.TabStop = False + ' + 'IDGenerator + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.CloseButtonNewID + Me.ClientSize = New System.Drawing.Size(224, 203) + Me.Controls.Add(Me.CloseButtonNewID) + Me.Controls.Add(Me.GenerateNewIDButton) + Me.Controls.Add(Me.Barcode1) + Me.Controls.Add(Me.PictureBox1) + Me.MaximizeBox = False + Me.MaximumSize = New System.Drawing.Size(240, 242) + Me.MinimizeBox = False + Me.MinimumSize = New System.Drawing.Size(240, 242) + Me.Name = "IDGenerator" + Me.ShowIcon = False + Me.Text = "Générer de nouveaux IDs" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Barcode1 As Barcode + Friend WithEvents GenerateNewIDButton As Button + Friend WithEvents CloseButtonNewID As Button + Friend WithEvents PictureBox1 As PictureBox +End Class diff --git a/ISEN-Repair Inventory Manager/IDGenerator.resx b/ISEN-Repair Inventory Manager/IDGenerator.resx new file mode 100644 index 0000000..0e6d810 --- /dev/null +++ b/ISEN-Repair Inventory Manager/IDGenerator.resx @@ -0,0 +1,173 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAATEAAADMCAIAAACUfANMAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAACqxJREFUeF7tmd1LHOcegOd/8j/IRaBJQIglKjGCQrxoYu6slohQ/CAJkVwIIcWb + BHPTXDQeIiKHgFdFwZscWzFFKj022uyusMesrsaP9Pzm+52Z3XVXZ9ff4TwPDyU78+68s9N5fGfV+tvg + y5cvJycnx8fHR0dHBwcH+/v7hUJhZ2cnn89vb2/ncrlsNpvJZD4CwDmQiCQlCUqykrgkMQlNcpPoJL2w + STdI2fT58+disTg9PT00NNTe3t4EAKnS1tY2ODg4MzOzvr6+sbGxtbUliUqcUqak5zUZBCmlvn379tq1 + a48fP/7w+2r+37/kfp3/a+kfiJiKEpRk9WH9N0lMQpPFb2VlZW1tTeKU9VPKtJsMgpTV89GjRwMDA//J + /Jn91z9jx0LEFJXEJDTJbWxsbHFxcXl5Wcrc3Ny0zBXy4cOHMmLnz5XYmxGxTkpuEt3IyMj8/PzS0tLq + 6qrd5PHxsXyHlEdWO8gNgkRsqBKdpDc1NTU3N7ewsGC5i6R8s5RHW1lJY6MRsQFKehKgZDk7O2vJIilP + ra9fv5ZvnHyHRLwQJT0JcHJyUrK03F/tDA0Nffh9NTYOERvmh/Xf5Al2YmLCOjw8LBQK7e3t+T9+iQ1C + xIYpAba1tQ0PD1vy4Lqzs9PU1MTfIREvUAlQMuzv77fkwTWfz8uL2AhEbLCSYW9vr1UsFre3t2kS8cKV + DHt6eqy9vb1cLkeT/4u+m3sR23Iun3fLbfD1g1SPibUo17+rq8va3d3NZrM0WaPj38oli/Lt87ID6nCj + v3jWnPJhZ+7GPgI2WrlVOjs77SYzmYy8iO3GitrJRe5ge5G58mzO+ffcd19H9jp93h33X6Zi6k2+eOee + PF6ccpt0dHRYhULh48ePNFmjiSbDSErVYhYbKiOvPHtgPzH6e+33ejR/984f+e7BFW9jcpibuvNTIMA/ + sehJ2ufQPWP/u9p5DeVQV549D2Zxj+NYeurkFHi6crFu3rxJk2ezdJP2FvserfIudEoIG7BfBjHbHbq7 + wpZiXQWDIycjj6D+mApNVjFvRPtQwWk4PyNKTGFMHZsCq1IuH02e2USTwUpoJnSKkRgSb7T32lOUPmD0 + vabh+EpNnj5vuEWMfd7Ex3ctNwVWJ02eR/umjOKvjaUTKmnk7jceUEOc29oe5mJkkLzpzVM6vckq5vXf + aCuHMhf/2OzJqSNTYJXK5aPJMxu93U1LP7uW/A1Koo2KD3vOk6HgHtyswkvCexm2V3WTpz9klmuy3NQ0 + eRblStLkmS3fZKQW3/hvYl2jN25VC2xwcGMWeaMZVY1NVjdv7PP6L8tOHZ0Cq5Mmz2OFJr0CjSztwaX+ + FhK7ce2X4S1u39/O0mQ2Ey7C0SYjA4RwjD+v8+/SwZSZ19vr6nwEfxZ7xXbHV5yaJmtVLh9NntmKTdq6 + N7FHfNn0TN64bjkuYRj+U6tNMN77HugkZwyQQsxzC07D/UtGySa9LT7JIEXnmHelQAdjbSwzNU2eRbmI + NIlVanaO9ZImsXppshHSJFYvTTZCmkTUJU0i6pImEXVJk4i6pMn0fHpDLmDT5W9+Njb+3HfJ3uhyazTY + /tdP33zlbY3zVd8PMuDHW+6rGz8Gbwk2mseJ7Upw+2l8ZIp6ny76kfGcyhWlyZRMNBkJ0iXIqdomvZeu + Z2hSqF+WNFkP5YrSZErGmxy9bb/2o3L3Nl36/idnr9ek/zKh0Vg45vQmo7sqjEe1yv8xmkzJMk36y9QP + 3182XtbQZBhVrU0m1zFz6Q7Xz+Bknoard2R1ja7qwa7o8f3Pe8v96RM9AlatXDqaTMl4k16ENkYVnlU2 + efmSG4N7f9fYpH8CsaQNvDU8mlyAF1WJvd5pl2zSp+xHw8rKtaPJlEx8n0zczcZtWiaD4Jc6QWN+nPZh + T2+yBP6k3oz+L43Ml8HJeEeOxOyG53+tjSz+pZtM/gDCWpRLSJMpmWzSMVZL+cXHJd5kcK9LFTU3aYw0 + n1oNnGK9kzF+ZHjffkv91tehQpPeB8SzKteQJlOyTJOeQYTugGQGUc38/Jxu3D61SXdXbC7HMk06CXnj + jQLNLV6fEWiyfso1pMmUjDWZXGrMAbU0GflqKpzapBiE5G+J9hM1eTLhyftTlwqPJuuhXEOaTMlYk/5i + 5X8Ti97ctTVpNCZU02SwJZjCPx+vmbC6cJf/dvP7ZLQ0/zRosn7KNaTJlIw1GVYRwbtlgwySOGGUbyyy + MTA5PogkOKXk+VT8vasbc3SJ9qHJ+inXkCZTMtGk6N21HsaqWHuTidUsYqkmw2XNX6sjWQYb/SObf580 + F3C/bac37xM5E9FkPZRrSJP/9wZNlnmQxkZKk0iTuqRJpEld0iSiLmkSUZc0iahLmkTUJU0i6pImEXVJ + k4i6pElEXdIkoi7jTf4NABcKTQLogiYBdEGTALqgSQBd0CSALmgSQBc0CaALmgTQBU0C6IImAXRBkwC6 + oEkAXdAkgC5oEkAXNAmgC5oE0AVNAuiCJgF0QZMAuqBJAF3QJIAuaBJAFzQJoAuaBNAFTQLogiYBdEGT + ALqgSQBd0CSALmgSQBc0CaALmgTQBU0C6IImAXRBkwC6oEkAXdAkgC5oEkAXNAmgC5oE0AVNAuiCJgF0 + QZMAuqBJAF3QJIAuaBJAFzQJoAuaBNAFTQLogiYBdEGTALqgSQBd0CSALmgSQBc0CaALmgTQBU0C6IIm + AXRBkwC6oEkAXdAkgC5oEkAXNAmgC5oE0AVNAuiCJgF0QZMAuqBJAF3QJIAuaBJAFzQJoAuaBNAFTQLo + giYBdEGTALqgSQBd0CSALmgSQBc0CaALmgTQBU0C6IImAXRBkwC6oEkAXdAkgC5oEkAXNAmgC5oE0AVN + AuiCJgF0QZMAuqBJAF3QJIAuaBJAFzQJoAuaBNAFTQLogiYBdEGTALqgSQBd0CSALmgSQBc0CaALmgTQ + BU0C6IImAXRBkwC6oEkAXdAkgC5oEkAXNAmgC5oE0AVNAuiCJgF0QZMAuqBJAF3QJIAuaBJAFzQJoAua + BNAFTQLogiYBdEGTALqgSQBd0CSALmgSQBc0CaALmgTQBU0C6IImAXRBkwC6oEkAXdAkgC5oEkAXNAmg + C5oE0AVNAuiCJgF04TW5u7ubyWRaW1v39va8PQDQcCRAybCjo8NuMpvNDg4ObmxseDsBoOFIgH19fZ2d + nZbUmcvlXr16NT4+7u0EgIYjAY6NjXV1dVnFYnF7e3t9ff3q1atLS0vefgBoIJKeBNjS0tLT02Pt7+/n + 83lZN6enp9vb2z99+uSNAoCGINFJeqOjo/Lf3t5e6+DgYGdnZ2tra2Vlxd1KlgANww3y/v37169f7+7u + 7u/vtw4PDwuFQjabXVtbW1xcHBkZkRE8xAI0AAnNDbK5ubmjo+PevXvDw8PW0dFR8Pi6vLw8Pz//8uVL + ebSV59o3b968f//eezcApIRkJXFJYhKaPJzKCilB3rlzZ2hoaGJiwjo+PpbHV1kqM5mMLJUS7tzc3NTU + 1OTk5MDAQGtraxMApIpk1dfXNzY21tLSIuukPLLKCilBPnnyRNKzTk5OZKksFouyVG5ubq6uri4sLMzO + zso+SVZWUnnAle+d0nRXV1dnZ6cEfRMAzoFEJClJUJKVxCWJSWiSm0Q3Ozv7X9DU8hDC8tDzAAAAAElF + TkSuQmCC + + + \ No newline at end of file diff --git a/ISEN-Repair Inventory Manager/IDGenerator.vb b/ISEN-Repair Inventory Manager/IDGenerator.vb new file mode 100644 index 0000000..03e19d7 --- /dev/null +++ b/ISEN-Repair Inventory Manager/IDGenerator.vb @@ -0,0 +1,32 @@ +Imports System.Text + +Public Class IDGenerator + Private Sub IDGenerator_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Randomize() + GenerateNewIDBarcode() + End Sub + + Private Sub GenerateNewIDBarcode() + 'Génération d'un nouvel ID + Dim s As String = "0123456789" + Dim r As New Random + Dim sb As New StringBuilder +generate: + sb.Clear() + For i As Integer = 1 To 10 + Dim idx As Integer = r.Next(0, 9) + sb.Append(s.Substring(idx, 1)) + Next + + 'Vérification si pas déjà existant + If Not Main.CheckIDAlreadyUsed(sb.ToString()) Then Barcode1.DataToEncode = sb.ToString() Else GoTo generate + End Sub + + Private Sub GenerateNewIDButton_Click(sender As Object, e As EventArgs) Handles GenerateNewIDButton.Click + GenerateNewIDBarcode() + End Sub + + Private Sub CloseButtonNewID_Click(sender As Object, e As EventArgs) Handles CloseButtonNewID.Click + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj b/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj index 3ad12bf..802629a 100644 --- a/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj +++ b/ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj @@ -61,6 +61,9 @@ false + + ..\..\..\IDAutomation_LinearFormsControlFREE\IDAutomation.LinearBarCode.dll + @@ -76,6 +79,8 @@ + + @@ -107,6 +112,12 @@ Form + + IDGenerator.vb + + + Form + Form @@ -146,6 +157,9 @@ AddMachine.vb + + IDGenerator.vb + Main.vb diff --git a/ISEN-Repair Inventory Manager/Main.Designer.vb b/ISEN-Repair Inventory Manager/Main.Designer.vb index 06bcedc..69e19f7 100644 --- a/ISEN-Repair Inventory Manager/Main.Designer.vb +++ b/ISEN-Repair Inventory Manager/Main.Designer.vb @@ -59,6 +59,7 @@ Partial Class Main Me.OSBox = New System.Windows.Forms.TextBox() Me.ArchBox = New System.Windows.Forms.TextBox() Me.EditButton = New System.Windows.Forms.Button() + Me.GénérerDesIDsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MenuStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout() Me.GroupBox1.SuspendLayout() @@ -68,7 +69,7 @@ Partial Class Main ' 'MenuStrip1 ' - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.AboutToolMenuItem}) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.AboutToolMenuItem}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(874, 24) @@ -434,6 +435,12 @@ Partial Class Main Me.EditButton.Text = "Editer le suivi" Me.EditButton.UseVisualStyleBackColor = False ' + 'GénérerDesIDsToolStripMenuItem + ' + Me.GénérerDesIDsToolStripMenuItem.Name = "GénérerDesIDsToolStripMenuItem" + Me.GénérerDesIDsToolStripMenuItem.Size = New System.Drawing.Size(100, 20) + Me.GénérerDesIDsToolStripMenuItem.Text = "Générer des IDs" + ' 'Main ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -504,4 +511,5 @@ Partial Class Main Friend WithEvents EditButton As Button Friend WithEvents IDBox As MaskedTextBox Private WithEvents AddComputerToolMenuItem As ToolStripMenuItem + Friend WithEvents GénérerDesIDsToolStripMenuItem As ToolStripMenuItem End Class diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb index fc7e4a5..0865858 100644 --- a/ISEN-Repair Inventory Manager/Main.vb +++ b/ISEN-Repair Inventory Manager/Main.vb @@ -19,6 +19,31 @@ Public Class Main End If End Sub + Public Function CheckIDAlreadyUsed(idToCheck As String) As Boolean + Dim dtr As SQLiteDataReader + + Try + Using con As New SQLiteConnection("URI=file:db.sqlite") + con.Open() + Using cmd As New SQLiteCommand(con) + cmd.CommandText = "SELECT * FROM computers_desc WHERE id=" & idToCheck & ";" + dtr = cmd.ExecuteReader() + While dtr.Read() + Return True + End While + Return False + End Using + con.Close() + End Using + + Catch ex As Exception + StatusLabel.Text = "Une erreur avec la base SQLite s'est produite !" + MsgBox(ex.Message) + End Try + + Return True + End Function + Private Sub RegenerateDB() Dim genesis_seq As String = " CREATE TABLE `computers_desc` ( @@ -317,4 +342,11 @@ Public Class Main IDBox.Text = IDBox.Text & "9" End Select End Sub + + Private Sub GénérerDesIDsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GénérerDesIDsToolStripMenuItem.Click + Dim idGeneratorForm As IDGenerator + idGeneratorForm = New IDGenerator() + idGeneratorForm.Show() + idGeneratorForm = Nothing + End Sub End Class diff --git a/ISEN-Repair Inventory Manager/barcode_template.png b/ISEN-Repair Inventory Manager/barcode_template.png new file mode 100644 index 0000000..e3bc3ab Binary files /dev/null and b/ISEN-Repair Inventory Manager/barcode_template.png differ