لاحظ الكومبوكس ببحث من خلال فترات عمرية ( يعني بيعرض الاشخاص الذين اعمارهم بين الفئات العمرية حسب الكومبوكس 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