Visual Basic

Sub OnComplete(ByVal Control As Object, ByVal FeatureSet As DPFP.FeatureSet, ByRef EventHandlerStatus As DPFP.Gui.EventHandlerStatus) Handles VerificationControl.OnComplete

        Dim con As New MySqlConnection("Server = localhost; Username= root; Password =; Database = fesdata")
        Dim cmd As New MySqlCommand("SELECT * FROM empdata", con)
        con.Open()
        Dim fpreader As MySqlDataReader = cmd.ExecuteReader


        Dim byteTemplate As Byte()
        Dim memStreamTemplate As MemoryStream

        Dim ver As New DPFP.Verification.Verification()
        Dim res As New DPFP.Verification.Verification.Result()

        If fpreader.HasRows Then
            While fpreader.Read

                byteTemplate = fpreader.Item("Fingerprint")
                memStreamTemplate = New MemoryStream(byteTemplate)
                Dim templa8 As DPFP.Template = New DPFP.Template()
                templa8.DeSerialize(memStreamTemplate)

                If Not FeatureSet Is Nothing Then

                    ver.Verify(FeatureSet, templa8, res)
                    If res.Verified Then
                        Call SEARCH_EMPLOYEE()
                    End If
                End If
            End While
        Else
            MsgBox("Unknown Employee!")
        End If
        fpreader.Close()


    End Sub

1. income
2. expenditure

--------------------------------------------------------------
|  ID   |   IncomeDate   |  Details         |  IncomeAmt     |
-------------------------------------------------------------
|  a1   |  2/12/2013     | Sale to Mr. ABC  |      34,000.00 |
|  a2   |  3/12/2013     | Sale to Mr. DEF  |      14,000.00 |
|  a3   |  4/12/2013     | Sale to Mr. IJK  |      22,500.00 |
|  a4   |  5/12/2013     | Sale to Mr. LMN  |       1,500.00 |
|  a5   |  6/12/2013     | Sale to Mr. OPQ  |       9,235.00 |
|  a6   |  7/12/2013     | Sale to Mr. RST  |      66,000.00 |
--------------------------------------------------------------

--------------------------------------------------------------
|  ID   |   ExpDate      |  Details            |  ExpAmt     |
--------------------------------------------------------------
|  b1   |  1/12/2013     | Purchase from  ABC  |   34,000.00 |
|  b2   |  10/12/2013    | Purchase from  DEF  |   14,000.00 |
|  b3   |  11/12/2013    | Purchase from  IJK  |   22,500.00 |
|  b4   |  16/12/2013    | Purchase from  LMN  |    1,500.00 |
|  b5   |  26/12/2013    | Purchase from  OPQ  |    9,235.00 |
|  b6   |  27/12/2013    | Purchase from  RST  |   66,000.00 |
--------------------------------------------------------------

---------------------------------------------------||---------------------------------------------------
| ID | IncomeDate |  Details         | IncomeAmt | || ID | ExpDate    |  Details           | ExpAmt    |
---------------------------------------------------||---------------------------------------------------
| a1 | 2/12/2013  | Sale to Mr. ABC  | 34,000.00 | || b1 | 1/12/2013  | Purchase from  ABC | 34,000.00 |
| a2 | 3/12/2013  | Sale to Mr. DEF  | 14,000.00 | || b2 | 10/12/2013 | Purchase from  DEF | 14,000.00 |
| a3 | 4/12/2013  | Sale to Mr. IJK  | 22,500.00 | || b3 | 11/12/2013 | Purchase from  IJK | 22,500.00 |
| a4 | 5/12/2013  | Sale to Mr. LMN  |  1,500.00 | || b4 | 16/12/2013 | Purchase from  LMN |  1,500.00 |
| a5 | 6/12/2013  | Sale to Mr. OPQ  |  9,235.00 | || b5 | 26/12/2013 | Purchase from  OPQ |  9,235.00 |
| a6 | 7/12/2013  | Sale to Mr. RST  | 66,000.00 | || b6 | 27/12/2013 | Purchase from  RST | 66,000.00 |
---------------------------------------------------||---------------------------------------------------

1. Join two tabels using mysql join/union/union all or other possible commands,
2. Create two XML files of two different tables and merge them,
3. Crystal Report DataSource has two different XML tables.

            Try
OpenConnection
                Dim sb As New StringBuilder '<--------------------------------------------------------------------- Table 1
                sb.Append("SELECT * FROM income WHERE income.IncDate BETWEEN '" & DateFrom & "' AND '" & DateTo & "' UNION SELECT * FROM expenditure WHERE expenditure.ExpDate BETWEEN '" & DateFrom & "' AND '" & DateTo & "'")
                Dim dbcommand As New MySqlCommand
                Dim dbadapter As New MySqlDataAdapter
                Dim stdata As New DataSet()
                dbcommand.Connection = conn
                dbcommand.CommandText = sb.ToString
                dbadapter.SelectCommand = dbcommand
                dbadapter.Fill(stdata)
                stdata.WriteXml(Application.StartupPath & "\ReportXml\IncomeExpenditure.xml", XmlWriteMode.WriteSchema)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

'// Retrieve the income details
            Try
                Dim sb As New StringBuilder '<--------------------------------------------------------------------- Table 1
                sb.Append("SELECT * FROM income WHERE IncDate BETWEEN '" & DateFrom & "' AND '" & DateTo & "'")
                Dim dbcommand As New MySqlCommand
                Dim dbadapter As New MySqlDataAdapter
                Dim stdata As New DataSet()
                dbcommand.Connection = conn
                dbcommand.CommandText = sb.ToString
                dbadapter.SelectCommand = dbcommand
                dbadapter.Fill(stdata)
                stdata.WriteXml(Application.StartupPath & "\ReportXml\Income.xml", XmlWriteMode.WriteSchema)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try


            '// Retrieve the Expenditure details
            Try
                Dim sb1 As New StringBuilder '<--------------------------------------------------------------------- Table 2
                sb1.Append("SELECT * FROM expenditure WHERE ExpDate BETWEEN '" & DateFrom & "' AND '" & DateTo & "'")
                Dim dcommand As New MySqlCommand
                Dim dadapter As New MySqlDataAdapter
                Dim sdata As New DataSet()
                dcommand.Connection = conn
                dcommand.CommandText = sb1.ToString
                dadapter.SelectCommand = dcommand
                dadapter.Fill(sdata)
                sdata.WriteXml(Application.StartupPath & "\ReportXml\Expenditure.xml", XmlWriteMode.WriteSchema)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try


            '// Merge Into One (Two XML Files)  <---------------------------------------------------------- Table 1 + Table2 = Merge1
            Dim Table1 As New XmlTextReader(Application.StartupPath & "\ReportXml\Income.xml")
            Dim Table2 As New XmlTextReader(Application.StartupPath & "\ReportXml\Expenditure.xml")
            Dim XmlDataSet1 As New DataSet
            Try
                XmlDataSet1.ReadXml(Table1)
                Dim XmlDataSet2 As New DataSet
                XmlDataSet2.ReadXml(Table2)

                XmlDataSet1.Merge(XmlDataSet2)
                XmlDataSet1.WriteXml(Application.StartupPath & "\ReportXml\IncomeExpenditure.xml", XmlWriteMode.WriteSchema)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!!!")
            End Try