From ef91f4c447faf047c5bd94823951950d3b0a4623 Mon Sep 17 00:00:00 2001 From: JackCarterSmith Date: Sun, 15 Oct 2017 11:20:15 +0200 Subject: [PATCH] Added export DB function --- .../Main.Designer.vb | 66 ++++++++++++++++--- ISEN-Repair Inventory Manager/Main.resx | 6 ++ ISEN-Repair Inventory Manager/Main.vb | 17 +++-- 3 files changed, 74 insertions(+), 15 deletions(-) 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