Updated logo and generating db function
This commit is contained in:
parent
1bd73cef1d
commit
e9f22639d0
Binary file not shown.
|
Before Width: | Height: | Size: 31 KiB After Width: | Height: | Size: 97 KiB |
92
ISEN-Repair Inventory Manager/Main.Designer.vb
generated
92
ISEN-Repair Inventory Manager/Main.Designer.vb
generated
@ -24,11 +24,8 @@ Partial Class Main
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.FichierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AjouterUnPCToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.QuitterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AddComputerToolMenuItem = 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()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
@ -47,7 +44,8 @@ Partial Class Main
|
||||
Me.EmprunterName = New System.Windows.Forms.TextBox()
|
||||
Me.SerieCheckBox = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||
Me.IDBox = New System.Windows.Forms.MaskedTextBox()
|
||||
Me.GivenByBox = New System.Windows.Forms.TextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.TypeComBox = New System.Windows.Forms.TextBox()
|
||||
Me.EtatBox = New System.Windows.Forms.TextBox()
|
||||
@ -64,7 +62,6 @@ Partial Class Main
|
||||
Me.OS = New System.Windows.Forms.TextBox()
|
||||
Me.Arch = New System.Windows.Forms.TextBox()
|
||||
Me.EditButton = New System.Windows.Forms.Button()
|
||||
Me.IDBox = New System.Windows.Forms.MaskedTextBox()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
@ -74,42 +71,24 @@ Partial Class Main
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FichierToolStripMenuItem, Me.ToolStripMenuItem1})
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.AboutToolMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(875, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'FichierToolStripMenuItem
|
||||
'AddComputerToolMenuItem
|
||||
'
|
||||
Me.FichierToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AjouterUnPCToolStripMenuItem, Me.ToolStripSeparator1, Me.QuitterToolStripMenuItem})
|
||||
Me.FichierToolStripMenuItem.Name = "FichierToolStripMenuItem"
|
||||
Me.FichierToolStripMenuItem.Size = New System.Drawing.Size(54, 20)
|
||||
Me.FichierToolStripMenuItem.Text = "Fichier"
|
||||
Me.AddComputerToolMenuItem.Name = "AddComputerToolMenuItem"
|
||||
Me.AddComputerToolMenuItem.Size = New System.Drawing.Size(93, 20)
|
||||
Me.AddComputerToolMenuItem.Text = "Ajouter un PC"
|
||||
'
|
||||
'AjouterUnPCToolStripMenuItem
|
||||
'AboutToolMenuItem
|
||||
'
|
||||
Me.AjouterUnPCToolStripMenuItem.Name = "AjouterUnPCToolStripMenuItem"
|
||||
Me.AjouterUnPCToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.AjouterUnPCToolStripMenuItem.Text = "Ajouter un PC"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(149, 6)
|
||||
'
|
||||
'QuitterToolStripMenuItem
|
||||
'
|
||||
Me.QuitterToolStripMenuItem.Name = "QuitterToolStripMenuItem"
|
||||
Me.QuitterToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||
Me.QuitterToolStripMenuItem.Text = "Quitter"
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(24, 20)
|
||||
Me.ToolStripMenuItem1.Text = "?"
|
||||
Me.AboutToolMenuItem.Name = "AboutToolMenuItem"
|
||||
Me.AboutToolMenuItem.Size = New System.Drawing.Size(24, 20)
|
||||
Me.AboutToolMenuItem.Text = "?"
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
@ -275,7 +254,7 @@ Partial Class Main
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.IDBox)
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox4)
|
||||
Me.GroupBox2.Controls.Add(Me.GivenByBox)
|
||||
Me.GroupBox2.Controls.Add(Me.Label8)
|
||||
Me.GroupBox2.Controls.Add(Me.TypeComBox)
|
||||
Me.GroupBox2.Controls.Add(Me.EtatBox)
|
||||
@ -296,14 +275,24 @@ Partial Class Main
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Information et détails"
|
||||
'
|
||||
'TextBox4
|
||||
'IDBox
|
||||
'
|
||||
Me.TextBox4.Location = New System.Drawing.Point(339, 166)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.ReadOnly = True
|
||||
Me.TextBox4.Size = New System.Drawing.Size(153, 20)
|
||||
Me.TextBox4.TabIndex = 16
|
||||
Me.TextBox4.TabStop = False
|
||||
Me.IDBox.InsertKeyMode = System.Windows.Forms.InsertKeyMode.Overwrite
|
||||
Me.IDBox.Location = New System.Drawing.Point(37, 16)
|
||||
Me.IDBox.Mask = "9999999999"
|
||||
Me.IDBox.Name = "IDBox"
|
||||
Me.IDBox.Size = New System.Drawing.Size(79, 20)
|
||||
Me.IDBox.TabIndex = 0
|
||||
Me.IDBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'GivenByBox
|
||||
'
|
||||
Me.GivenByBox.Location = New System.Drawing.Point(339, 166)
|
||||
Me.GivenByBox.Name = "GivenByBox"
|
||||
Me.GivenByBox.ReadOnly = True
|
||||
Me.GivenByBox.Size = New System.Drawing.Size(153, 20)
|
||||
Me.GivenByBox.TabIndex = 16
|
||||
Me.GivenByBox.TabStop = False
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
@ -467,16 +456,6 @@ Partial Class Main
|
||||
Me.EditButton.Text = "Modifier"
|
||||
Me.EditButton.UseVisualStyleBackColor = True
|
||||
'
|
||||
'IDBox
|
||||
'
|
||||
Me.IDBox.InsertKeyMode = System.Windows.Forms.InsertKeyMode.Overwrite
|
||||
Me.IDBox.Location = New System.Drawing.Point(37, 16)
|
||||
Me.IDBox.Mask = "9999999999"
|
||||
Me.IDBox.Name = "IDBox"
|
||||
Me.IDBox.Size = New System.Drawing.Size(79, 20)
|
||||
Me.IDBox.TabIndex = 0
|
||||
Me.IDBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Main
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@ -511,8 +490,6 @@ Partial Class Main
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
Friend WithEvents FichierToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents QuitterToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents StatusLabel As ToolStripStatusLabel
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
@ -520,7 +497,7 @@ Partial Class Main
|
||||
Friend WithEvents InvList As ListBox
|
||||
Friend WithEvents SendOutButton As Button
|
||||
Friend WithEvents TrashButton As Button
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents AboutToolMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
@ -546,10 +523,9 @@ Partial Class Main
|
||||
Friend WithEvents EtatBox As TextBox
|
||||
Friend WithEvents OS As TextBox
|
||||
Friend WithEvents Arch As TextBox
|
||||
Friend WithEvents TextBox4 As TextBox
|
||||
Friend WithEvents GivenByBox As TextBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents EditButton As Button
|
||||
Friend WithEvents AjouterUnPCToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
|
||||
Friend WithEvents IDBox As MaskedTextBox
|
||||
Private WithEvents AddComputerToolMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,5 +1,7 @@
|
||||
Imports System.Data.SQLite
|
||||
Public Class Main
|
||||
Dim manualID_selected As Boolean = False
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
CheckIfFirstRun()
|
||||
ListAllInv()
|
||||
@ -21,7 +23,7 @@ Public Class Main
|
||||
If MsgBox("La base de données SQLite est introuvable ou inaccesible, souhaitez-vous la régénérer ?", 4161, "Base SQLite absente ou inacessible") = 1 Then
|
||||
RegenerateDB()
|
||||
Else
|
||||
Me.Close()
|
||||
End
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
@ -29,13 +31,13 @@ Public Class Main
|
||||
Private Sub RegenerateDB()
|
||||
Dim genesis_seq As String = "
|
||||
CREATE TABLE `computers_desc` (
|
||||
`id` INTEGER NOT NULL DEFAULT 0000000000 UNIQUE,
|
||||
`id` TEXT NOT NULL DEFAULT 0000000000 UNIQUE,
|
||||
`name` TEXT NOT NULL DEFAULT 'ComputerOfDoom',
|
||||
`etat` INTEGER NOT NULL DEFAULT 0,
|
||||
`serial` NUMERIC NOT NULL DEFAULT 0,
|
||||
`comms` TEXT,
|
||||
`comms` TEXT NOT NULL DEFAULT 'N/A',
|
||||
`gived` INTEGER NOT NULL DEFAULT 0,
|
||||
`giveTo` TEXT,
|
||||
`giveTo` TEXT NOT NULL DEFAULT 'N/A',
|
||||
`getBy` NUMERIC NOT NULL DEFAULT 'ISEN'
|
||||
);
|
||||
CREATE TABLE `computers_progress` (
|
||||
@ -60,6 +62,7 @@ Public Class Main
|
||||
Using con As New SQLiteConnection("URI=file:db.sqlite")
|
||||
con.Open()
|
||||
Dim cmd As New SQLiteCommand(genesis_seq, con)
|
||||
cmd.ExecuteNonQuery()
|
||||
con.Close()
|
||||
End Using
|
||||
StatusLabel.Text = "La base SQLite a été reconstruite avec succès !"
|
||||
@ -96,61 +99,61 @@ Public Class Main
|
||||
End Sub
|
||||
|
||||
Private Sub InvList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles InvList.SelectedIndexChanged
|
||||
Try
|
||||
DisplayInvList(InvList.SelectedValue)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub DisplayInvList(entriesId As String)
|
||||
Dim connectStr As String = "Data Source=db.sqlite"
|
||||
Dim SQLiteCommand As String = "SELECT * FROM Inventory WHERE EntriesID=" & entriesId
|
||||
Dim dt As DataTable = Nothing
|
||||
Dim ds As New DataSet
|
||||
Dim dtr As SQLiteDataReader
|
||||
Dim entriesRow As DataRow = Nothing
|
||||
|
||||
Try
|
||||
Using con As New SQLiteConnection(connectStr)
|
||||
Using cmd As New SQLiteCommand(SQLiteCommand, con)
|
||||
con.Open()
|
||||
Using da As New SQLiteDataAdapter(cmd)
|
||||
da.Fill(ds)
|
||||
dt = ds.Tables(0)
|
||||
End Using
|
||||
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 _rowid_=" & InvList.SelectedIndex + 1 & ";"
|
||||
dtr = cmd.ExecuteReader()
|
||||
While dtr.Read()
|
||||
IDBox.Text = dtr.GetString(0)
|
||||
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
|
||||
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
|
||||
If dtr.GetInt32(3) = 1 Then SerieCheckBox.Checked = True
|
||||
DetailsBox.Text = dtr.GetString(4)
|
||||
If dtr.GetInt32(5) = 1 Then EmpruntCheckBox.Checked = True
|
||||
EmprunterName.Text = dtr.GetString(6)
|
||||
GivenByBox.Text = dtr.GetString(7)
|
||||
End While
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
|
||||
entriesRow = dt.Rows(0)
|
||||
|
||||
If entriesRow IsNot Nothing Then
|
||||
IDBox.Text = entriesRow("entriesID")
|
||||
End If
|
||||
|
||||
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
|
||||
End Sub
|
||||
|
||||
Private Sub QuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterToolStripMenuItem.Click
|
||||
End
|
||||
Private Sub IDBox_Click(sender As Object, e As EventArgs)
|
||||
IDBox.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AboutToolMenuItem.Click
|
||||
Dim aboutForm As About
|
||||
aboutForm = New About()
|
||||
aboutForm.Show()
|
||||
aboutForm = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub AjouterUnPCToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjouterUnPCToolStripMenuItem.Click
|
||||
Private Sub AddComputerToolMenuItem_Click(sender As Object, e As EventArgs) Handles AddComputerToolMenuItem.Click
|
||||
Dim addMachineForm As AddMachine
|
||||
addMachineForm = New AddMachine()
|
||||
addMachineForm.Show()
|
||||
addMachineForm = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub IDBox_Click(sender As Object, e As EventArgs)
|
||||
IDBox.SelectAll()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user