classdongbo.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

                        ParameterList1(1) = New SqlCeParameter("@DID", DID)
                        ParameterList1(2) = New SqlCeParameter("@ItemNo_", ItemNo_)
                        If LQ = "" Then
                            LQ = "0"
                        End If
                        ParameterList1(3) = New SqlCeParameter("@LQ", LQ)
                        ' ParameterList1(4) = New SqlCeParameter("@LR", LR)


                        ParameterList2(0) = New SqlCeParameter("@ID1", ID)
                        ParameterList2(1) = New SqlCeParameter("@DID1", DID)
                        Dim sql As String = "select * from [debt lend item] where [ID] = @ID1 and [Debt ID] = @DID1 "
                        Bang2 = TbPro.FillWithListPara(sql, ParameterList2)

                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            'Write Result to the Console
                            sql = "UPDATE [debt lend item] SET " & _
                                         "[Debt ID] = @DID," & _
                                         "[Item No_] = @ItemNo_ ," & _
                                         "[Lend Quantity] = @LQ " & _
                                         " WHERE [ID] = @ID"
                            TbPro.NonQueryWithListParameter(sql, ParameterList1)
                        Else
                            sql = "select * from [debt lend item]"
                            Bang2 = TbPro.Fill(sql)
                            Dim cc As Integer = Bang2.Rows.Count
                            ParameterList1(0) = New SqlCeParameter("@ID2", cc + 1)

                            Dim SQLString As String = "insert into [debt lend item]([ID],[Item No_],[Lend Quantity],[Debt ID]) values(@ID2,@ItemNo_,@LQ,@DID)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                    Next
                End If
            End If

            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/debtbetitem")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/debtbetitem/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim ID As String
                    Dim DID As String
                    Dim ItemNo_ As String
                    Dim BQ As String
                    Dim BR As String
                    Dim ParameterList1(3) As SqlCeParameter
                    Dim ParameterList2(1) As SqlCeParameter

                    For Each m_node In m_nodelist
                        'Get the Gender Attribute Value
                        'Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value
                        'Get the firstName Element Value
                        ID = m_node.ChildNodes.Item(0).InnerText
                        DID = m_node.ChildNodes.Item(1).InnerText
                        ItemNo_ = m_node.ChildNodes.Item(2).InnerText
                        BQ = m_node.ChildNodes.Item(3).InnerText
                        BR = m_node.ChildNodes.Item(4).InnerText

                        'ParameterList1(0) = New SqlCeParameter("@ID", ID)
                        ParameterList1(0) = New SqlCeParameter("@DID", DID)
                        ParameterList1(1) = New SqlCeParameter("@ItemNo_", ItemNo_)
                        If BQ = "" Then
                            BQ = "0"
                        End If
                        ParameterList1(2) = New SqlCeParameter("@BQ", BQ)
                        'ParameterList1(3) = New SqlCeParameter("@BR", BR)


                        ParameterList2(0) = New SqlCeParameter("@ID1", ID)
                        ParameterList2(1) = New SqlCeParameter("@DID1", DID)
                        Dim sql As String = "select * from [debt bet item] where [ID] = @ID1 and [Debt ID] = @DID1 "
                        Bang2 = TbPro.FillWithListPara(sql, ParameterList2)

                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            'Write Result to the Console
                            sql = "UPDATE [debt bet item] SET " & _
                                         "[Debt ID] = @DID," & _
                                         "[Item No_] = @ItemNo_ ," & _
                                         "[Bet Quantity] = @BQ " & _
                                         " WHERE [ID] = @ID"
                            TbPro.NonQueryWithListParameter(sql, ParameterList1)
                        Else
                            sql = "select * from [debt bet item]"
                            Bang2 = TbPro.Fill(sql)
                            Dim cc As Integer = Bang2.Rows.Count
                            ParameterList1(3) = New SqlCeParameter("@ID", cc + 1)

                            Dim SQLString As String = "insert into [debt bet item]([ID],[Item No_],[Bet Quantity],[Debt ID]) values(@ID,@ItemNo_,@BQ,@DID)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                    Next
                End If
            End If

            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/detach")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/detach/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim ID As String
                    Dim CCode As String
                    Dim MTime As String
                    Dim Message As String
                    Dim MType As String
                    For Each m_node In m_nodelist
                        'Get the Gender Attribute Value
                        'Dim genderAttribute = m_node.Attributes.GetNamedItem("gender").Value
                        'Get the firstName Element Value
                        ID = m_node.ChildNodes.Item(0).InnerText
                        CCode = m_node.ChildNodes.Item(1).InnerText
                        MTime = m_node.ChildNodes.Item(2).InnerText
                        Message = m_node.ChildNodes.Item(3).InnerText
                        MType = m_node.ChildNodes.Item(4).InnerText
                        Dim ParameterList1(4) As SqlCeParameter
                        ParameterList1(0) = New SqlCeParameter("@ID", ID)
                        ParameterList1(1) = New SqlCeParameter("@CCode", CCode)
                        ParameterList1(2) = New SqlCeParameter("@MTime", MTime)
                        ParameterList1(3) = New SqlCeParameter("@Message", Message)
                        ParameterList1(4) = New SqlCeParameter("@MType", MType)

                        Dim ParameterList2(1) As SqlCeParameter
                        ParameterList2(0) = New SqlCeParameter("@ID1", ID)
                        ParameterList2(1) = New SqlCeParameter("@CCode1", CCode)
                        Dim sql As String = "select * from [detach] where [ID] = @ID1 and [Car Code] = @CCode1 "
                        Bang2 = TbPro.FillWithListPara(sql, ParameterList2)

                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            'Write Result to the Console
                            sql = "UPDATE [detach] SET" & _
                                         "[Car Code] = @CCode," & _
                                         "[Message Time] = @MTime," & _
                                         "[Message] = @Message," & _
                                         "[Message Type] = @MType" & _
                                         " WHERE [ID] = @ID"
                            TbPro.NonQueryWithListParameter(sql, ParameterList1)
                        Else
                            Dim SQLString As String = "insert into [detach] values(@ID,@CCode,@MTime,@Message,@MType)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                    Next
                End If
            End If

            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/routecar")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                m_nodelist = m_xmld.SelectNodes("/tta/routecar/Row")
                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim CCode As String
                    Dim CNumber As String
                    Dim CGC As String
                    Dim CDriver As String
                    Dim CCompany As String
                    Dim CDPhone As String
                    Dim CDAddress As String
                    Dim sDate As String
                    For Each m_node In m_nodelist
                        CCode = m_node.ChildNodes.Item(0).InnerText
                        CNumber = m_node.ChildNodes.Item(1).InnerText
                        CGC = m_node.ChildNodes.Item(2).InnerText
                        CDriver = m_node.ChildNodes.Item(3).InnerText
                        CCompany = m_node.ChildNodes.Item(4).InnerText
                        CDPhone = m_node.ChildNodes.Item(5).InnerText
                        CDAddress = m_node.ChildNodes.Item(6).InnerText
                        sDate = m_node.ChildNodes.Item(7).InnerText
                        Dim ParameterList1(7) As SqlCeParameter
                        ParameterList1(0) = New SqlCeParameter("@CCode", CCode)
                        ParameterList1(1) = New SqlCeParameter("@CNumber", CNumber)
                        ParameterList1(2) = New SqlCeParameter("@CGC", CGC)
                        ParameterList1(3) = New SqlCeParameter("@CDriver", CDriver)
                        ParameterList1(4) = New SqlCeParameter("@CCompany", CCompany)
                        ParameterList1(5) = New SqlCeParameter("@CDPhone", CDPhone)
                        ParameterList1(6) = New SqlCeParameter("@CDAddress", CDAddress)
                        ParameterList1(7) = New SqlCeParameter("@sDate", sDate)

                        Dim ParameterList2(1) As SqlCeParameter
                        ParameterList2(0) = New SqlCeParameter("@CCode1", CCode)
                        ParameterList2(1) = New SqlCeParameter("@CNumber1", CNumber)
                        Dim sql As String = "select * from [route car] where [Car Code] = @CCode1 and [Car Number] = @CNumber1 "
                        Bang2 = TbPro.FillWithListPara(sql, ParameterList2)
                        Dim count As Integer = Bang2.Rows.Count
                        If count > 0 Then
                            'Write Result to the Console
                            sql = "UPDATE [route car] SET " & _
                                         "[Car Number] = @CNumber," & _
                                         "[Car Group Code] = @CGC," & _
                                         "[Car Driver] = @CDriver ," & _
                                         "[Car Company] = @CCompany ," & _
                                         "[Car Driver Phone] = @CDPhone ," & _
                                         "[Car Driver Address] = @CDAddress," & _
                                         "[Date Update] = @sDate" & _
                                         " WHERE [Car Code] = @CCode"
                            TbPro.NonQueryWithListParameter(sql, ParameterList1)
                        Else
                            Dim SQLString As String = "insert into [route car] values(@CCode,@CNumber,@CGC,@CDriver,@CCompany,@CDPhone,@CDAddress,@sDate)"
                            TbPro.NonQueryWithListParameter(SQLString, ParameterList1)
                        End If
                    Next
                End If
            End If

            '===================Kiem Tra Table ===================================
            m_nodelist = m_xmld.SelectNodes("/tta/salesorderline")
            i = m_nodelist.Count
            'Loop through the nodes
            If i > 0 Then
                Dim sql As String
                Dim ngaydau As String = Date.Now.ToString("2009-01-01 00:00:00")
                Dim ngaysau As String = Date.Now.ToString("yyyy-MM-dd 00:00:00")
                Dim ParameterList3(1) As SqlCeParameter
                ParameterList3(0) = New SqlCeParameter("@ngaydau", ngaydau)
                ParameterList3(1) = New SqlCeParameter("@ngaysau", ngaysau)

                sql = "Delete [sales order line]" & _
                " WHERE [document no_] in " & _
                " (select [No_] from  [sales order header]" & _
                " where [document date] BETWEEN convert(datetime,@ngaydau,105) AND convert(datetime,@ngaysau,105))"
                TbPro.NonQueryWithListParameter(sql, ParameterList3)

                m_nodelist = m_xmld.SelectNodes("/tta/salesorderline/Row")

                If m_nodelist.Count > 0 Then
                    Dim table As String = m_nodelist.Item(0).InnerXml
                    Dim No_ As String
                    Dim DNo_ As String
                    Dim ItemNo_ As String
                    Dim Quantity As String
                    Dim Amount As String