1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
| Public Class Form1
Dim Cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Kane\Desktop\Cabinet Medical\Cabinet Medical.mdb")
Dim daPat As New OleDbDataAdapter("Select * From Patients", Cnx)
Dim daCons As New OleDbDataAdapter("Select * From Consultations , Medicaments , Contient Where Medicaments.NumMedicament = Contient.NumMedicament AND Consultations.NumConsult = Contient.NumConsult", Cnx)
Dim dst As New DataSet
Dim dtPat As DataTable
Dim dtCons As DataTable
Dim numligne As Integer
Dim NumPtnt As Long
Dim DtGridBS As New BindingSource
Sub affichePat()
TextNumPat.Text = dtPat.Rows(numligne).Item(0)
TextNom.Text = dtPat.Rows(numligne).Item(1)
TextPre.Text = dtPat.Rows(numligne).Item(2)
TextSex.Text = dtPat.Rows(numligne).Item(3)
TextDne.Text = dtPat.Rows(numligne).Item(4)
TextProf.Text = dtPat.Rows(numligne).Item(5)
TextAds.Text = dtPat.Rows(numligne).Item(6)
End Sub
Sub afficheCons()
daCons.Fill(dst, "Consultations")
dtCons = dst.Tables("Consultations")
affichePat()
DataGridView1.DataSource = dtCons
DtGridBS.DataSource = dtCons
Me.DataGridView1.Columns(8).Visible = False
Me.DataGridView1.Columns(9).Visible = False
DtGridBS.Filter = "NumPtnt = '" & TextNumPat.Text & "'"
End Sub
Sub afficheBD()
DtGridBS.Filter = "NumPtnt = '" & TextNumPat.Text & "'"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Cnx.Open()
numligne = 0
daPat.Fill(dst, "Patients")
dtPat = dst.Tables("Patients")
affichePat()
afficheCons()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub BtnSuiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuiv.Click
numligne += 1
If numligne = dtPat.Rows.Count Then
numligne = 0
End If
affichePat()
afficheBD()
End Sub
Private Sub BtnPrec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrec.Click
numligne -= 1
If numligne < 0 Then
numligne = dtPat.Rows.Count - 1
End If
affichePat()
afficheBD()
End Sub
Private Sub BtnPrem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrem.Click
numligne = 0
affichePat()
afficheBD()
End Sub
Private Sub BtnDern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDern.Click
numligne = dtPat.Rows.Count - 1
affichePat()
afficheBD()
End Sub
Private Sub BtnRech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRech.Click
Dim R As Integer
R = InputBox("Entrer l'IDentifiant du Patient")
numligne = 0
While R <> dtPat.Rows(numligne).Item(0) And numligne < dtPat.Rows.Count - 1
numligne += 1
End While
If numligne = dtPat.Rows.Count - 1 And R <> dtPat.Rows(numligne).Item(0) Then
MsgBox("Patient Non Trouve ou Inconnue")
Else
affichePat()
afficheBD()
End If
End Sub
End Class |
Partager