diff --git a/ISEN-Repair Inventory Manager/Main.Designer.vb b/ISEN-Repair Inventory Manager/Main.Designer.vb index 8d830fe..bbf2e21 100644 --- a/ISEN-Repair Inventory Manager/Main.Designer.vb +++ b/ISEN-Repair Inventory Manager/Main.Designer.vb @@ -60,6 +60,7 @@ 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.DBAccessToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MenuStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout() Me.GroupBox1.SuspendLayout() @@ -69,7 +70,7 @@ Partial Class Main ' 'MenuStrip1 ' - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.AboutToolMenuItem}) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddComputerToolMenuItem, Me.GénérerDesIDsToolStripMenuItem, Me.DBAccessToolStripMenuItem, Me.AboutToolMenuItem}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(874, 24) @@ -446,6 +447,12 @@ Partial Class Main Me.EditButton.Text = "Editer le suivi" Me.EditButton.UseVisualStyleBackColor = False ' + 'DBAccessToolStripMenuItem + ' + Me.DBAccessToolStripMenuItem.Name = "DBAccessToolStripMenuItem" + Me.DBAccessToolStripMenuItem.Size = New System.Drawing.Size(73, 20) + Me.DBAccessToolStripMenuItem.Text = "DB Access" + ' 'Main ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -517,4 +524,5 @@ 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 End Class diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb index 61f7d31..b587e91 100644 --- a/ISEN-Repair Inventory Manager/Main.vb +++ b/ISEN-Repair Inventory Manager/Main.vb @@ -1,7 +1,10 @@ Imports System.Data.SQLite Imports System.Text +Imports System.IO Public Class Main + Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) + Dim manualID_selected As Boolean = False Dim idList As New ArrayList Public log As New Logger @@ -371,4 +374,12 @@ Public Class Main IDBox.Text = Nothing 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 = Directory.GetCurrentDirectory + p.UseShellExecute = False + Process.Start(p) + End Sub End Class