114 lines
3.9 KiB
VB.net
114 lines
3.9 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Data.SQLite
|
|
Public Class Main
|
|
Private idSelected As Boolean = False
|
|
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
ListAllInv()
|
|
|
|
If HWCheck.Checked And OSCheck.Checked And DrvCheck.Checked And ActivateCheck.Checked Then SoftCheck.Enabled = True Else SoftCheck.Enabled = False
|
|
If HWCheck.Checked And OSCheck.Checked And DrvCheck.Checked Then
|
|
ActivateCheck.Enabled = True
|
|
OS.Enabled = True
|
|
Else
|
|
ActivateCheck.Enabled = False
|
|
OS.Enabled = False
|
|
End If
|
|
If HWCheck.Checked And OSCheck.Checked Then DrvCheck.Enabled = True Else DrvCheck.Enabled = False
|
|
If HWCheck.Checked Then OSCheck.Enabled = True Else OSCheck.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub ListAllInv()
|
|
StatusLabel.Text = "Récupération des données depuis la base SQLite..."
|
|
Dim connectStr As String = "Data Source=db.sqlite"
|
|
Dim SQLiteCommand As String = "SELECT name FROM computers_desc;"
|
|
Dim dt As DataTable = Nothing
|
|
Dim ds As New DataSet
|
|
|
|
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
|
|
End Using
|
|
End Using
|
|
|
|
InvList.ValueMember = "Equippement"
|
|
InvList.DisplayMember = "ID"
|
|
InvList.DataSource = dt
|
|
|
|
StatusLabel.Text = "Récupération avec succés de la base SQLite."
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
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 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
|
|
End Using
|
|
End Using
|
|
|
|
entriesRow = dt.Rows(0)
|
|
|
|
If entriesRow IsNot Nothing Then
|
|
IDBox.Text = entriesRow("entriesID")
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub QuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterToolStripMenuItem.Click
|
|
End
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
|
Me.Hide()
|
|
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
|
|
Dim addMachineForm As AddMachine
|
|
addMachineForm = New AddMachine()
|
|
addMachineForm.Show()
|
|
addMachineForm = Nothing
|
|
Dim addMachine_IdForm As AddMachine_ID
|
|
addMachine_IdForm = New AddMachine_ID()
|
|
addMachine_IdForm.Show()
|
|
addMachine_IdForm = Nothing
|
|
End Sub
|
|
|
|
Private Sub IDBox_Click(sender As Object, e As EventArgs)
|
|
If idSelected Then IDBox.Text = ""
|
|
End Sub
|
|
End Class
|