[alma_fandi]

اشكرك سيد عبدالله


دائما المنقذ

---

بما انك  متواجد

سيدي

عملت  كل الى  حكيت لى اياه و دائما لديك  الحل

الان  
   

لاحظ الكومبوكس ببحث من خلال  فترات  عمرية  ( يعني بيعرض الاشخاص الذين اعمارهم  بين  الفئات العمرية حسب الكومبوكس 2

كيف بطبق  هالشي  ع  البرنامج

كود :

Imports System.Data.OleDb

Public Class frmReport

   Private Property dt As Object

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       frmstatsitces.Show()

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'الحالات التي حدثت
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE  ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)

           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New done
       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()

   End Sub


   

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       ' الحالات  المستكملة
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE  ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)

           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New CompleteReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()

   End Sub



   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       'الكومبوبوكس

       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([Sex]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@sex", Me.ComboBox1.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()

   End Sub


   Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([state]=@state) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@state", Me.ComboBox5.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
   End Sub

   Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([type]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@type", Me.ComboBox4.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
   End Sub

   Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
       Dim dt As New DataTable

       Dim sql As String = "SELECT * FROM [Table1] WHERE ([place]=@sex) AND ([Birthday] BETWEEN @d1 AND @d2)"
       Using da As New OleDbDataAdapter(sql, Con)
           da.SelectCommand.Parameters.AddWithValue("@place", Me.ComboBox3.Text)
           da.SelectCommand.Parameters.AddWithValue("@d1", CDate(Me.DateTimePicker1.Value.Date))
           da.SelectCommand.Parameters.AddWithValue("@d2", CDate(Me.DateTimePicker2.Value.Date))
           da.Fill(dt)
       End Using

       dgvList.DataSource = dt


       Dim rep As New allReport1

       rep.SetDataSource(dt)
       rep.SetParameterValue("start_date", Me.DateTimePicker1.Value.Date)
       rep.SetParameterValue("end_date", Me.DateTimePicker2.Value.Date)

       CrystalReportViewer1.ReportSource = rep
       CrystalReportViewer1.Refresh()
   End Sub

   Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

   End Sub


End Class