1 Imports System.Data.SqlClient
2
3
4 Public Class frmGeneralDayBook
5 Sub Reset()
6 dtpDateFrom.Text = Today
7 End Sub
8 Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
9 Reset()
10 End Sub
11
12
13 Private Sub btnClose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
14 Me.Close()
15 End Sub
16
17
18
19 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
20 Try
21 Cursor = Cursors.WaitCursor
22 Timer2.Enabled = True
23 con = New SqlConnection(cs)
24 con.Open()
25 cmd = New SqlCommand("Select Date, Name, LedgerNo, Label, Credit, Debit from LedgerBook where Date between @d1 and @d2 order by LedgerNo", con)
26 cmd.Parameters.Add("@d1", SqlDbType.DateTime, 30, "Date").Value = dtpDateFrom.Value.Date
27 cmd.Parameters.Add("@d2", SqlDbType.DateTime, 30, "Date").Value = dtpDateFrom.Value.Date.AddHours(23).AddMinutes(59).AddSeconds(59)
28 adp = New SqlDataAdapter(cmd)
29 dtable = New DataTable()
30 adp.Fill(dtable)
31 con.Close()
32 ds = New DataSet()
33 ds.Tables.Add(dtable)
34 ds.WriteXmlSchema("GeneralDayBook.xml")
35 Dim rpt As New rptGeneralDayBook
36 rpt.SetDataSource(ds)
37 rpt.SetParameterValue("p1", dtpDateFrom.Value.Date)
38 frmReport.CrystalReportViewer1.ReportSource = rpt
39 frmReport.ShowDialog()
40 Catch ex As Exception
41 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
42 End Try
43 End Sub
44
45 Private Sub frmSalesReport_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
46
47 End Sub
48
49 Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
50 Cursor = Cursors.Default
51 Timer2.Enabled = False
52 End Sub
53 End Class
