117 lines
4.0 KiB
VB.net
117 lines
4.0 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
|
|
OSChoice.Enabled = True
|
|
Else
|
|
ActivateCheck.Enabled = False
|
|
OSChoice.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=Northwind.sqlite"
|
|
Dim SQLiteCommand As String = "SELECT..."
|
|
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
|
|
|
|
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=Northwind.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 IDBox_Click(sender As Object, e As EventArgs) Handles IDBox.Click
|
|
If idSelected Then IDBox.Text = ""
|
|
End Sub
|
|
|
|
Private Sub ImporterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImporterToolStripMenuItem.Click
|
|
OpenFileDialog1.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ExporterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExporterToolStripMenuItem.Click
|
|
SaveFileDialog1.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub OpenFileDialog1_FileOk(sender As Object, e As CancelEventArgs) Handles OpenFileDialog1.FileOk
|
|
|
|
End Sub
|
|
|
|
Private Sub SaveFileDialog1_FileOk(sender As Object, e As CancelEventArgs) Handles SaveFileDialog1.FileOk
|
|
|
|
End Sub
|
|
End Class
|