Added export DB function

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.Size = New System.Drawing.Size(81, 20)
-        Me.AddComputerToolMenuItem.Text = "Ajouter un PC"
+        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.DBToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ImporterToolStripMenuItem, Me.ExporterToolStripMenuItem})
-        Me.DBAccessToolStripMenuItem.Size = New System.Drawing.Size(73, 20)
+        Me.DBToolStripMenuItem.Name = "DBToolStripMenuItem"
-        Me.DBAccessToolStripMenuItem.Text = "DB Access"
+        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

ISEN-Repair Inventory Manager/Main.resx

@@ -123,6 +123,12 @@
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>132, 17</value>
   </metadata>
+  <metadata name="OpenBackupFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>249, 17</value>
+  </metadata>
+  <metadata name="SaveBackupFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>389, 17</value>
+  </metadata>
   <metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>

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
+    Private Sub ExporterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExporterToolStripMenuItem.Click
-        Dim p As New ProcessStartInfo
+        SaveBackupFile.InitialDirectory() = GetFolderPath(SpecialFolder.Desktop)
-        p.FileName = "explorer.exe"
+        SaveBackupFile.FileName() = "invMan_" & DateTime.Now.ToString("yyyy-MM-dd") & ".sqlite"
-        p.Arguments = localAppData
+        SaveBackupFile.ShowDialog()
-        p.UseShellExecute = False
+    End Sub
-        Process.Start(p)
+
+    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