frmmain.vb

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

Imports System.Data
Imports System.Data.SqlServerCe
Public Class frmMain

    Private Sub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label1_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub lbDonHang_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label2_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub lbNgay_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Dim status As Integer
        'status = Me.ComboBox1.SelectedIndex
        'MessageBox.Show(status.ToString())
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


        'Dim SQLString As String = "select * from  Customer"
        'Dim tb As DataTable
        'Dim TbPro As New TABLEPROCESS()
        'tb = TbPro.Fill(SQLString)
        'Dim RowUpdate As DataRow = tb.Rows(0)
        'RowUpdate.BeginEdit()
        'RowUpdate("Customer Name") = "Nguyen Thi Be Bay"
        'RowUpdate("Address") = "dang doi"

        'TbPro.Update(SQLString, tb)
        'RowUpdate.EndEdit()
        'Dim tb1 As DataTable
        'tb1 = TbPro.Fill(SQLString)
        'Me.DataGrid1.DataSource = tb1
        'Me.Refresh()


        '    Dim Command As New SqlCeCommand(SQLString, pro.VConnection)
        '    Dim dr As SqlCeDataReader = Command.ExecuteReader()
        '    Dim tb As New DataTable()
        '    Dim i As Integer = 0

        '    Dim Col1 As New DataColumn("Customer Code")
        '    Dim Col2 As New DataColumn("Customer Name")
        '    Dim Col3 As New DataColumn("Address")
        '    Dim Col4 As New DataColumn("Phone No_")
        '    Dim Col5 As New DataColumn("VAT Bus_Posting Group")

        '    Dim Col6 As New DataColumn("Date Update")
        '    tb.Columns.Add(Col1)
        '    tb.Columns.Add(Col2)
        '    tb.Columns.Add(Col3)
        '    tb.Columns.Add(Col4)
        '    tb.Columns.Add(Col5)
        '    tb.Columns.Add(Col6)
        '    While dr.Read()
        '        Dim row As DataRow = tb.NewRow()
        '        row.Item("Customer Code") = dr(0).ToString()
        '        row.Item("Customer Name") = dr(1).ToString()
        '        row.Item("Address") = dr(2).ToString()
        '        row.Item("Phone No_") = dr(3).ToString()
        '        row.Item("VAT Bus_Posting Group") = dr(4).ToString()
        '        row.Item("Date Update") = dr(5).ToString()
        '        tb.Rows.Add(row)

        '    End While
        '    Me.DataGrid1.DataSource = tb

        'Dim SQLString As String = "insert into hCustomer values('KH55','Nguyen Thi Bum','Nguyen Thi MinhKhai','slj','sdfs','2/16/2009')"

        'tbpro.NonQuery(SQLString)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        'Dim SQLString As String = "Select * from Customer"
        'Dim tbpro As New TABLEPROCESS()
        'Dim tb As DataTable = tbpro.Query(SQLString)
        'Me.DataGrid1.DataSource = tb
        'Dim a() As Integer = {1, 2, 4}
        'MessageBox.Show(a.Length.ToString)

        'Me.Refresh()

    End Sub

    Private Sub DataGridTraNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub txtSLHangTra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub txtGhiChu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub DataGridThuVo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub txtThucThuVo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class