expression - نسخة قابلة للطباعة

كود :
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