diff --git a/ISEN-Repair Inventory Manager/Main.Designer.vb b/ISEN-Repair Inventory Manager/Main.Designer.vb
index 0b9e3af..cd66ecf 100644
--- a/ISEN-Repair Inventory Manager/Main.Designer.vb
+++ b/ISEN-Repair Inventory Manager/Main.Designer.vb
@@ -26,7 +26,9 @@ Partial Class 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.DBAccessToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.DBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ImporterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ExporterToolStripMenuItem = 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()
@@ -61,6 +63,10 @@ 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.OpenBackupFile = New System.Windows.Forms.OpenFileDialog()
+ Me.SaveBackupFile = New System.Windows.Forms.SaveFileDialog()
+ Me.QuitterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.EnleverPCsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
@@ -70,7 +76,7 @@ Partial Class Main
'
'MenuStrip1
'
- Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.DBAccessToolStripMenuItem, Me.AboutToolMenuItem})
+ Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.QuitterToolStripMenuItem, Me.AddComputerToolMenuItem, Me.EnleverPCsToolStripMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.DBToolStripMenuItem, Me.AboutToolMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(874, 24)
@@ -80,8 +86,8 @@ Partial Class Main
'AddComputerToolMenuItem
'
Me.AddComputerToolMenuItem.Name = "AddComputerToolMenuItem"
- Me.AddComputerToolMenuItem.Size = New System.Drawing.Size(93, 20)
- Me.AddComputerToolMenuItem.Text = "Ajouter un PC"
+ Me.AddComputerToolMenuItem.Size = New System.Drawing.Size(81, 20)
+ Me.AddComputerToolMenuItem.Text = "Ajouter PCs"
'
'GénérerDesIDsToolStripMenuItem
'
@@ -89,11 +95,25 @@ Partial Class Main
Me.GénérerDesIDsToolStripMenuItem.Size = New System.Drawing.Size(100, 20)
Me.GénérerDesIDsToolStripMenuItem.Text = "Générer des IDs"
'
- 'DBAccessToolStripMenuItem
+ 'DBToolStripMenuItem
'
- Me.DBAccessToolStripMenuItem.Name = "DBAccessToolStripMenuItem"
- Me.DBAccessToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
- Me.DBAccessToolStripMenuItem.Text = "DB Access"
+ Me.DBToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ImporterToolStripMenuItem, Me.ExporterToolStripMenuItem})
+ Me.DBToolStripMenuItem.Name = "DBToolStripMenuItem"
+ Me.DBToolStripMenuItem.Size = New System.Drawing.Size(34, 20)
+ Me.DBToolStripMenuItem.Text = "DB"
+ Me.DBToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+ '
+ 'ImporterToolStripMenuItem
+ '
+ Me.ImporterToolStripMenuItem.Name = "ImporterToolStripMenuItem"
+ Me.ImporterToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+ Me.ImporterToolStripMenuItem.Text = "Importer"
+ '
+ 'ExporterToolStripMenuItem
+ '
+ Me.ExporterToolStripMenuItem.Name = "ExporterToolStripMenuItem"
+ Me.ExporterToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+ Me.ExporterToolStripMenuItem.Text = "Exporter"
'
'AboutToolMenuItem
'
@@ -453,6 +473,28 @@ Partial Class Main
Me.EditButton.Text = "Editer le suivi"
Me.EditButton.UseVisualStyleBackColor = False
'
+ 'OpenBackupFile
+ '
+ Me.OpenBackupFile.FileName = "OpenFileDialog1"
+ '
+ 'SaveBackupFile
+ '
+ Me.SaveBackupFile.DefaultExt = "sqlite"
+ Me.SaveBackupFile.Filter = "Fichier SQLite|*.sqlite"
+ Me.SaveBackupFile.Title = "Exporter la DB"
+ '
+ 'QuitterToolStripMenuItem
+ '
+ Me.QuitterToolStripMenuItem.Name = "QuitterToolStripMenuItem"
+ Me.QuitterToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
+ Me.QuitterToolStripMenuItem.Text = "Quitter"
+ '
+ 'EnleverPCsToolStripMenuItem
+ '
+ Me.EnleverPCsToolStripMenuItem.Name = "EnleverPCsToolStripMenuItem"
+ Me.EnleverPCsToolStripMenuItem.Size = New System.Drawing.Size(80, 20)
+ Me.EnleverPCsToolStripMenuItem.Text = "Enlever PCs"
+ '
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -525,5 +567,11 @@ Partial Class Main
Friend WithEvents IDBox As MaskedTextBox
Private WithEvents AddComputerToolMenuItem As ToolStripMenuItem
Friend WithEvents GénérerDesIDsToolStripMenuItem As ToolStripMenuItem
- Friend WithEvents DBAccessToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents DBToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents OpenBackupFile As OpenFileDialog
+ Friend WithEvents SaveBackupFile As SaveFileDialog
+ Friend WithEvents ImporterToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents ExporterToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents QuitterToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents EnleverPCsToolStripMenuItem As ToolStripMenuItem
End Class
diff --git a/ISEN-Repair Inventory Manager/Main.resx b/ISEN-Repair Inventory Manager/Main.resx
index 0c4bbcd..de66c5d 100644
--- a/ISEN-Repair Inventory Manager/Main.resx
+++ b/ISEN-Repair Inventory Manager/Main.resx
@@ -123,6 +123,12 @@
132, 17
+
+ 249, 17
+
+
+ 389, 17
+
True
diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb
index 5e5a7ff..7017853 100644
--- a/ISEN-Repair Inventory Manager/Main.vb
+++ b/ISEN-Repair Inventory Manager/Main.vb
@@ -2,6 +2,7 @@
Imports System.Text
Imports System.IO
Imports System.Environment
+Imports System.ComponentModel
Public Class Main
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
@@ -392,11 +393,15 @@ Public Class Main
IDBox.Text = tempStor
End Sub
- Private Sub DBAccessToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DBAccessToolStripMenuItem.Click
- Dim p As New ProcessStartInfo
- p.FileName = "explorer.exe"
- p.Arguments = localAppData
- p.UseShellExecute = False
- Process.Start(p)
+ Private Sub ExporterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExporterToolStripMenuItem.Click
+ SaveBackupFile.InitialDirectory() = GetFolderPath(SpecialFolder.Desktop)
+ SaveBackupFile.FileName() = "invMan_" & DateTime.Now.ToString("yyyy-MM-dd") & ".sqlite"
+ SaveBackupFile.ShowDialog()
+ End Sub
+
+ Private Sub SaveBackupFile_FileOk(sender As Object, e As CancelEventArgs) Handles SaveBackupFile.FileOk
+ Using src As FileStream = File.Open(dbLocFile, FileMode.Open)
+ src.CopyTo(SaveBackupFile.OpenFile)
+ End Using
End Sub
End Class