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

Added GUI and fixed some optimisation

Browse Source
This commit is contained in:
JackCarterSmith 2017-06-19 18:09:25 +02:00
parent 890957a0a0
commit d0420ca0c2
6 changed files with 586 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

377
ISEN-Repair Inventory Manager/EditSpecs.Designer.vb generated Normal file
View File

@ -0,0 +1,377 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class EditSpecs
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.OSCmbBox = New System.Windows.Forms.ComboBox()
Me.RAMCmbBox = New System.Windows.Forms.ComboBox()
Me.ProcArchCmbBox = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.ActivateCheck = New System.Windows.Forms.CheckBox()
Me.SoftCheck = New System.Windows.Forms.CheckBox()
Me.DrvCheck = New System.Windows.Forms.CheckBox()
Me.OSCheck = New System.Windows.Forms.CheckBox()
Me.HWCheck = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.NewIDBox = New System.Windows.Forms.TextBox()
Me.GivedByBox = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.EtatBox = New System.Windows.Forms.TextBox()
Me.SerieCheckBox = New System.Windows.Forms.CheckBox()
Me.EmprunterName = New System.Windows.Forms.TextBox()
Me.EmpruntCheckBox = New System.Windows.Forms.CheckBox()
Me.DetailsBox = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.NameBox = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.SaveEditButton = New System.Windows.Forms.Button()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.OSCmbBox)
Me.GroupBox3.Controls.Add(Me.RAMCmbBox)
Me.GroupBox3.Controls.Add(Me.ProcArchCmbBox)
Me.GroupBox3.Controls.Add(Me.Label7)
Me.GroupBox3.Controls.Add(Me.Label6)
Me.GroupBox3.Controls.Add(Me.ActivateCheck)
Me.GroupBox3.Controls.Add(Me.SoftCheck)
Me.GroupBox3.Controls.Add(Me.DrvCheck)
Me.GroupBox3.Controls.Add(Me.OSCheck)
Me.GroupBox3.Controls.Add(Me.HWCheck)
Me.GroupBox3.Location = New System.Drawing.Point(12, 203)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(508, 93)
Me.GroupBox3.TabIndex = 6
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Avancement"
'
'OSCmbBox
'
Me.OSCmbBox.FormattingEnabled = True
Me.OSCmbBox.Items.AddRange(New Object() {"Win XP PRO SP3", "WIN 7 SP1", "WIN 10", "UNIX", "Inconnue"})
Me.OSCmbBox.Location = New System.Drawing.Point(47, 41)
Me.OSCmbBox.Name = "OSCmbBox"
Me.OSCmbBox.Size = New System.Drawing.Size(315, 21)
Me.OSCmbBox.TabIndex = 16
'
'RAMCmbBox
'
Me.RAMCmbBox.FormattingEnabled = True
Me.RAMCmbBox.Items.AddRange(New Object() {"<1G", "1G", "2G", "3G", "4G", ">4G"})
Me.RAMCmbBox.Location = New System.Drawing.Point(294, 18)
Me.RAMCmbBox.Name = "RAMCmbBox"
Me.RAMCmbBox.Size = New System.Drawing.Size(68, 21)
Me.RAMCmbBox.TabIndex = 15
'
'ProcArchCmbBox
'
Me.ProcArchCmbBox.FormattingEnabled = True
Me.ProcArchCmbBox.Items.AddRange(New Object() {"32bits", "64bits"})
Me.ProcArchCmbBox.Location = New System.Drawing.Point(188, 18)
Me.ProcArchCmbBox.Name = "ProcArchCmbBox"
Me.ProcArchCmbBox.Size = New System.Drawing.Size(57, 21)
Me.ProcArchCmbBox.TabIndex = 14
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(251, 21)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 9
Me.Label7.Text = "RAM :"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(85, 21)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(97, 13)
Me.Label6.TabIndex = 7
Me.Label6.Text = "Proc/Architecture :"
'
'ActivateCheck
'
Me.ActivateCheck.AutoSize = True
Me.ActivateCheck.Location = New System.Drawing.Point(72, 67)
Me.ActivateCheck.Name = "ActivateCheck"
Me.ActivateCheck.Size = New System.Drawing.Size(73, 17)
Me.ActivateCheck.TabIndex = 4
Me.ActivateCheck.TabStop = False
Me.ActivateCheck.Text = "Activation"
Me.ActivateCheck.UseVisualStyleBackColor = True
'
'SoftCheck
'
Me.SoftCheck.AutoSize = True
Me.SoftCheck.Location = New System.Drawing.Point(151, 67)
Me.SoftCheck.Name = "SoftCheck"
Me.SoftCheck.Size = New System.Drawing.Size(68, 17)
Me.SoftCheck.TabIndex = 3
Me.SoftCheck.TabStop = False
Me.SoftCheck.Text = "Software"
Me.SoftCheck.UseVisualStyleBackColor = True
'
'DrvCheck
'
Me.DrvCheck.AutoSize = True
Me.DrvCheck.Location = New System.Drawing.Point(7, 67)
Me.DrvCheck.Name = "DrvCheck"
Me.DrvCheck.Size = New System.Drawing.Size(59, 17)
Me.DrvCheck.TabIndex = 2
Me.DrvCheck.TabStop = False
Me.DrvCheck.Text = "Drivers"
Me.DrvCheck.UseVisualStyleBackColor = True
'
'OSCheck
'
Me.OSCheck.AutoSize = True
Me.OSCheck.Location = New System.Drawing.Point(7, 43)
Me.OSCheck.Name = "OSCheck"
Me.OSCheck.Size = New System.Drawing.Size(44, 17)
Me.OSCheck.TabIndex = 1
Me.OSCheck.TabStop = False
Me.OSCheck.Text = "O.S"
Me.OSCheck.UseVisualStyleBackColor = True
'
'HWCheck
'
Me.HWCheck.AutoSize = True
Me.HWCheck.Location = New System.Drawing.Point(7, 20)
Me.HWCheck.Name = "HWCheck"
Me.HWCheck.Size = New System.Drawing.Size(72, 17)
Me.HWCheck.TabIndex = 0
Me.HWCheck.TabStop = False
Me.HWCheck.Text = "Hardware"
Me.HWCheck.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.NewIDBox)
Me.GroupBox2.Controls.Add(Me.GivedByBox)
Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Controls.Add(Me.EtatBox)
Me.GroupBox2.Controls.Add(Me.SerieCheckBox)
Me.GroupBox2.Controls.Add(Me.EmprunterName)
Me.GroupBox2.Controls.Add(Me.EmpruntCheckBox)
Me.GroupBox2.Controls.Add(Me.DetailsBox)
Me.GroupBox2.Controls.Add(Me.Label5)
Me.GroupBox2.Controls.Add(Me.NameBox)
Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.Label2)
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Location = New System.Drawing.Point(12, 12)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(508, 191)
Me.GroupBox2.TabIndex = 5
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Information et détails"
'
'NewIDBox
'
Me.NewIDBox.Location = New System.Drawing.Point(37, 16)
Me.NewIDBox.Name = "NewIDBox"
Me.NewIDBox.ReadOnly = True
Me.NewIDBox.Size = New System.Drawing.Size(79, 20)
Me.NewIDBox.TabIndex = 17
Me.NewIDBox.TabStop = False
'
'GivedByBox
'
Me.GivedByBox.Location = New System.Drawing.Point(251, 47)
Me.GivedByBox.Name = "GivedByBox"
Me.GivedByBox.ReadOnly = True
Me.GivedByBox.Size = New System.Drawing.Size(176, 20)
Me.GivedByBox.TabIndex = 16
Me.GivedByBox.TabStop = False
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(174, 50)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(71, 13)
Me.Label8.TabIndex = 15
Me.Label8.Text = "Provenance :"
'
'EtatBox
'
Me.EtatBox.Location = New System.Drawing.Point(37, 47)
Me.EtatBox.Name = "EtatBox"
Me.EtatBox.ReadOnly = True
Me.EtatBox.Size = New System.Drawing.Size(131, 20)
Me.EtatBox.TabIndex = 13
Me.EtatBox.TabStop = False
'
'SerieCheckBox
'
Me.SerieCheckBox.AutoSize = True
Me.SerieCheckBox.Enabled = False
Me.SerieCheckBox.Location = New System.Drawing.Point(433, 49)
Me.SerieCheckBox.Name = "SerieCheckBox"
Me.SerieCheckBox.Size = New System.Drawing.Size(59, 17)
Me.SerieCheckBox.TabIndex = 12
Me.SerieCheckBox.TabStop = False
Me.SerieCheckBox.Text = "Serie ?"
Me.SerieCheckBox.UseVisualStyleBackColor = True
'
'EmprunterName
'
Me.EmprunterName.Location = New System.Drawing.Point(109, 166)
Me.EmprunterName.Name = "EmprunterName"
Me.EmprunterName.Size = New System.Drawing.Size(150, 20)
Me.EmprunterName.TabIndex = 11
Me.EmprunterName.TabStop = False
'
'EmpruntCheckBox
'
Me.EmpruntCheckBox.AutoSize = True
Me.EmpruntCheckBox.Location = New System.Drawing.Point(5, 168)
Me.EmpruntCheckBox.Name = "EmpruntCheckBox"
Me.EmpruntCheckBox.Size = New System.Drawing.Size(98, 17)
Me.EmpruntCheckBox.TabIndex = 10
Me.EmpruntCheckBox.TabStop = False
Me.EmpruntCheckBox.Text = "Emprunté par :"
Me.EmpruntCheckBox.UseVisualStyleBackColor = True
'
'DetailsBox
'
Me.DetailsBox.Location = New System.Drawing.Point(109, 77)
Me.DetailsBox.Multiline = True
Me.DetailsBox.Name = "DetailsBox"
Me.DetailsBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.DetailsBox.Size = New System.Drawing.Size(383, 84)
Me.DetailsBox.TabIndex = 9
Me.DetailsBox.TabStop = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(7, 50)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(32, 13)
Me.Label5.TabIndex = 6
Me.Label5.Text = "Etat :"
'
'NameBox
'
Me.NameBox.Location = New System.Drawing.Point(154, 16)
Me.NameBox.Name = "NameBox"
Me.NameBox.ReadOnly = True
Me.NameBox.Size = New System.Drawing.Size(339, 20)
Me.NameBox.TabIndex = 5
Me.NameBox.TabStop = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(58, 80)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(45, 13)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Détails :"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(122, 19)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(35, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Nom :"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(7, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(24, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "ID :"
'
'SaveEditButton
'
Me.SaveEditButton.Location = New System.Drawing.Point(166, 302)
Me.SaveEditButton.Name = "SaveEditButton"
Me.SaveEditButton.Size = New System.Drawing.Size(194, 44)
Me.SaveEditButton.TabIndex = 7
Me.SaveEditButton.Text = "Enregistrer"
Me.SaveEditButton.UseVisualStyleBackColor = True
'
'EditSpecs
'
Me.AcceptButton = Me.SaveEditButton
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(534, 351)
Me.Controls.Add(Me.SaveEditButton)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(550, 390)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(550, 390)
Me.Name = "EditSpecs"
Me.ShowIcon = False
Me.Text = "Editeur d'entrée"
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents Label7 As Label
Friend WithEvents Label6 As Label
Friend WithEvents ActivateCheck As CheckBox
Friend WithEvents SoftCheck As CheckBox
Friend WithEvents DrvCheck As CheckBox
Friend WithEvents OSCheck As CheckBox
Friend WithEvents HWCheck As CheckBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GivedByBox As TextBox
Friend WithEvents Label8 As Label
Friend WithEvents EtatBox As TextBox
Friend WithEvents SerieCheckBox As CheckBox
Friend WithEvents EmprunterName As TextBox
Friend WithEvents EmpruntCheckBox As CheckBox
Friend WithEvents DetailsBox As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents NameBox As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents NewIDBox As TextBox
Friend WithEvents RAMCmbBox As ComboBox
Friend WithEvents ProcArchCmbBox As ComboBox
Friend WithEvents OSCmbBox As ComboBox
Friend WithEvents SaveEditButton As Button
End Class

120
ISEN-Repair Inventory Manager/EditSpecs.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

59
ISEN-Repair Inventory Manager/EditSpecs.vb Normal file
View File

@ -0,0 +1,59 @@
Public Class EditSpecs
Public Sub New(id As String, name As String, stat As String, givedBy As String, serial As Boolean, details As String, emprunt As Boolean, empruntBy As String,
HW As Boolean, OS As Boolean, DRV As Boolean, ACT As Boolean, SFT As Boolean, procArch As String, ram As String, typeOS As String)
' Cet appel est requis par le concepteur.
InitializeComponent()
' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
NewIDBox.Text = id
NameBox.Text = name
EtatBox.Text = stat
GivedByBox.Text = givedBy
SerieCheckBox.Checked = serial
DetailsBox.Text = details
EmpruntCheckBox.Checked = emprunt
EmprunterName.Text = empruntBy
HWCheck.Checked = HW
OSCheck.Checked = OS
DrvCheck.Checked = DRV
ActivateCheck.Checked = ACT
SoftCheck.Checked = SFT
Select Case procArch
Case "32bits"
ProcArchCmbBox.SelectedIndex = 0
Case "64bits"
ProcArchCmbBox.SelectedIndex = 1
End Select
Select Case ram
Case "<1G"
RAMCmbBox.SelectedIndex = 0
Case "1G"
RAMCmbBox.SelectedIndex = 1
Case "2G"
RAMCmbBox.SelectedIndex = 2
Case "3G"
RAMCmbBox.SelectedIndex = 3
Case "4G"
RAMCmbBox.SelectedIndex = 4
Case ">4G"
RAMCmbBox.SelectedIndex = 5
End Select
Select Case typeOS
Case "Win XP PRO SP3"
OSCmbBox.SelectedIndex = 0
Case "WIN 7 SP1"
OSCmbBox.SelectedIndex = 1
Case "WIN 10"
OSCmbBox.SelectedIndex = 2
Case "UNIX"
OSCmbBox.SelectedIndex = 3
Case "Inconnue"
OSCmbBox.SelectedIndex = 4
End Select
End Sub
Private Sub SaveEditButton_Click(sender As Object, e As EventArgs) Handles SaveEditButton.Click
End Sub
End Class

9
ISEN-Repair Inventory Manager/ISEN-Repair Inventory Manager.vbproj
View File

@ -112,6 +112,12 @@
<Compile Include="AddMachine.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="EditSpecs.Designer.vb">
<DependentUpon>EditSpecs.vb</DependentUpon>
</Compile>
<Compile Include="EditSpecs.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="IDGenerator.Designer.vb">
<DependentUpon>IDGenerator.vb</DependentUpon>
</Compile>
@ -157,6 +163,9 @@
<EmbeddedResource Include="AddMachine.resx">
<DependentUpon>AddMachine.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="EditSpecs.resx">
<DependentUpon>EditSpecs.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="IDGenerator.resx">
<DependentUpon>IDGenerator.vb</DependentUpon>
</EmbeddedResource>

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

@ -25,6 +25,7 @@ Partial Class Main
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.AddComputerToolMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GénérerDesIDsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutToolMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.StatusLabel = New System.Windows.Forms.ToolStripStatusLabel()
@ -59,7 +60,6 @@ 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()
@ -82,6 +82,12 @@ Partial Class Main
Me.AddComputerToolMenuItem.Size = New System.Drawing.Size(93, 20)
Me.AddComputerToolMenuItem.Text = "Ajouter un PC"
'
'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"
'
'AboutToolMenuItem
'
Me.AboutToolMenuItem.Name = "AboutToolMenuItem"
@ -125,6 +131,7 @@ Partial Class Main
'SendOutButton
'
Me.SendOutButton.BackColor = System.Drawing.Color.Green
Me.SendOutButton.Enabled = False
Me.SendOutButton.Location = New System.Drawing.Point(701, 343)
Me.SendOutButton.Name = "SendOutButton"
Me.SendOutButton.Size = New System.Drawing.Size(156, 23)
@ -136,6 +143,7 @@ Partial Class Main
'TrashButton
'
Me.TrashButton.BackColor = System.Drawing.Color.Firebrick
Me.TrashButton.Enabled = False
Me.TrashButton.ForeColor = System.Drawing.Color.White
Me.TrashButton.Location = New System.Drawing.Point(361, 343)
Me.TrashButton.Name = "TrashButton"
@ -427,6 +435,7 @@ Partial Class Main
'EditButton
'
Me.EditButton.BackColor = System.Drawing.Color.Gold
Me.EditButton.Enabled = False
Me.EditButton.Location = New System.Drawing.Point(523, 343)
Me.EditButton.Name = "EditButton"
Me.EditButton.Size = New System.Drawing.Size(172, 23)
@ -435,12 +444,6 @@ 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!)

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

@ -182,45 +182,7 @@ Public Class Main
End Sub
Private Sub InvList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles InvList.SelectedIndexChanged
Dim dtr As SQLiteDataReader
Dim entriesRow As DataRow = Nothing
Try
StatusLabel.Text = "Récupération des données depuis la base SQLite..."
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=" & idList(InvList.SelectedIndex) & ";"
dtr = cmd.ExecuteReader()
While dtr.Read()
IDBox.Text = dtr.GetString(0)
manualID_selected = True
NameBox.Text = dtr.GetString(1)
If dtr.GetInt32(2) = 0 Then
EtatBox.Text = "R.I.P"
ElseIf dtr.GetInt32(2) = 1 Then
EtatBox.Text = "Peu faire l'affaire"
ElseIf dtr.GetInt32(2) = 2 Then
EtatBox.Text = "En état"
ElseIf dtr.GetInt32(2) = 3 Then
EtatBox.Text = "Neuf"
End If
SerieCheckBox.Checked = dtr.GetBoolean(3)
DetailsBox.Text = Replace(dtr.GetString(4), "_*_", "'")
EmpruntCheckBox.Checked = dtr.GetBoolean(5)
EmprunterName.Text = dtr.GetString(6)
GivenByBox.Text = dtr.GetString(7)
RequestComputerProgress(IDBox.Text)
End While
End Using
con.Close()
End Using
StatusLabel.Text = "Récupération avec succés de la base SQLite."
Catch ex As Exception
StatusLabel.Text = "Une erreur avec la base SQLite s'est produite !"
MsgBox(ex.Message)
End Try
IDBox.Text = idList(InvList.SelectedIndex)
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AboutToolMenuItem.Click
@ -263,6 +225,8 @@ Public Class Main
While dtr.Read()
id_found = True
manualID_selected = True
TrashButton.Enabled = True
EditButton.Enabled = True
StatusLabel.Text = "ID trouvé !"
NameBox.Text = dtr.GetString(1)
If dtr.GetInt32(2) = 0 Then
@ -293,7 +257,7 @@ Public Class Main
End Sub
Private Sub IDBox_MouseClick(sender As Object, e As MouseEventArgs) Handles IDBox.MouseClick
If manualID_selected Then IDBox.Clear() : manualID_selected = False
If manualID_selected Then IDBox.Clear() : manualID_selected = False : TrashButton.Enabled = False : EditButton.Enabled = False
End Sub
Private Sub RequestComputerProgress(machineID As String)
@ -392,4 +356,11 @@ Public Class Main
idGeneratorForm.Show()
idGeneratorForm = Nothing
End Sub
Private Sub EditButton_Click(sender As Object, e As EventArgs) Handles EditButton.Click
Dim editForm As EditSpecs
editForm = New EditSpecs(IDBox.Text, NameBox.Text, EtatBox.Text, GivenByBox.Text, SerieCheckBox.Checked, DetailsBox.Text, EmpruntCheckBox.Checked, EmprunterName.Text, HWCheck.Checked, OSCheck.Checked, DrvCheck.Checked, ActivateCheck.Checked, SoftCheck.Checked, ArchBox.Text, MemBox.Text, OSBox.Text)
editForm.ShowDialog()
editForm = Nothing
End Sub
End Class