[Doctor GME]

شكراً جزيلاً لاهتمامك
هذه الواجهه الرئيسية



وهذه قاعدة البيانات



وكما تلاحظ الكود الذى وضعته فقط لإضافة قائمة أسماء نوعين من الأدوية
إلى combobox المسمى MedType
عندما يتم اختيار Analgesics مثلاً يظهر داخل combobox2 المسمى MedName
القائمة التى داخل قاعدة البيانات
يتبقى فقط ما يحدث عند اختيار دواء فى MedName أى ظهور جرعاته
داخل combobox3 المسمى MedDose كما سبق وشرحت لك
وأخيراً ما يحدث عند اختيار جرعة من MedDose وظهور فقط الطريقة المقابله لها (وليس كل الطرق)
فى آخر combobox والمسمى MedRoute

كود البرنامج

كود :

Imports System.Data.OleDb
Public Class Medication


   Dim cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Medication.accdb")
   Dim cmd As New OleDbCommand
   Private Sub MedType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MedType.SelectedIndexChanged
       cnn.Open()
       cmd.Connection = cnn
       MedName.Items.Clear()

       If MedType.SelectedItem = ("Analgesics") Then

           cmd.CommandText = "select Analgesics from Analgesics"
           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read
               MedName.Items.Add(dr.Item(0))
           End While
           dr.Close()

       End If

       If MedType.SelectedItem = ("Antibiotics") Then

           cmd.CommandText = "select Antibiotics from Antibiotics"
           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read
               MedName.Items.Add(dr.Item(0))
           End While
           dr.Close()

       End If



   End Sub

   Private Sub MedName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MedName.SelectedIndexChanged



   End Sub
  Private Sub MedDose_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MedDose.SelectedIndexChanged

   End Sub

End Class