End If
    End Sub

    Private Sub btn_relation_up_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_relation_up.Click
        Dim ds As New DataSet
        Dim header(1, 2) As String

        dg_relation.TableStyles.Clear()

        header(0, 0) = "relation_id"
        header(0, 1) = "關系標識"
        header(0, 2) = "100"
        header(1, 0) = "relation_name"
        header(1, 1) = "關系名稱"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT relation_id,relation_name FROM relation ORDER BY relation_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        relation_currentPageIndex -= 1
        dg_relation.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_relation.DataSource = QueryWithPage(ds, 12, relation_currentPageIndex)
    End Sub

    Private Sub btn_relation_down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_relation_down.Click
        Dim ds As New DataSet
        Dim header(1, 2) As String

        dg_relation.TableStyles.Clear()

        header(0, 0) = "relation_id"
        header(0, 1) = "關系標識"
        header(0, 2) = "100"
        header(1, 0) = "relation_name"
        header(1, 1) = "關系名稱"
        header(1, 2) = "328"
        ds = GetDataSet("SELECT relation_id,relation_name FROM relation ORDER BY relation_id DESC")
        If ds.Tables().Count <= 0 Then
            Exit Sub
        End If
        relation_currentPageIndex += 1
        dg_relation.TableStyles.Add(CustomDataGridTableStyle(ds, header))
        dg_relation.DataSource = QueryWithPage(ds, 12, relation_currentPageIndex)
    End Sub

    Private Sub btn_relation_reload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_relation_reload.Click
        Me.tc_setup_SelectedIndexChanged(sender, e)
    End Sub

    Private Sub btn_reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reset.Click
        tb_state.Text = ""
    End Sub

    Private Sub btn_pull_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_pull.Click
        btn_pull.Enabled = False
        Cursor.Current = Cursors.WaitCursor

        Dim filepath As String
        Dim scRda As New SqlServerCe.SqlCeRemoteDataAccess
        Dim cHost As System.Net.IPHostEntry = Nothing

        filepath = GetAppPath() + "\cardb.sdf"
        If Not File.Exists(filepath) Then
            tb_state.Text = tb_state.Text + "數據庫文件不存在，中止下載數據" + vbCrLf
            Exit Sub
        End If

        If MsgBox("確認從" + tb_url.Text.Trim() + "服務器下載數據嗎？點擊'是'確認，點擊'否'取消，請選擇。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.No Then
            Exit Sub
        End If

        '檢測PDA是否已與PC主機連接
        tb_state.Text = tb_state.Text + "開始開始嘗試與主機" + "szgs-7237" + "建立聯結……" + vbCrLf
        Try
            cHost = System.Net.Dns.GetHostEntry("szgs-7237")
        Catch ex As System.Net.Sockets.SocketException
            If ex.ErrorCode = 11001 Then
                tb_state.Text = tb_state.Text + "沒有和主機建立連接！請連接后再試。" + vbCrLf
            Else
                tb_state.Text = tb_state.Text + ex.Message.ToString + vbCrLf + "可能是PDA沒有和主機建立連接，同步將不能繼續！" + vbCrLf
            End If
            Exit Sub
        End Try
        'MsgBox("PC主機名=" + cHost.HostName + ", IP地址=" + CStr(cHost.AddressList(0).ToString()), MsgBoxStyle.Information, "Tips")
        tb_state.Text = tb_state.Text + "開始下載數據……" + vbCrLf

        Try
            scRda.InternetLogin = "sa"
            scRda.InternetPassword = "ibmt42"
            scRda.InternetUrl = tb_url.Text.Trim()
            scRda.LocalConnectionString = "Provider=Microsoft.SQLSERVER.OLEDB.CE.2.0;Data Source=" + filepath + "; Password=cardb;"
            ExecuteSQL("DROP TABLE dept")
            ExecuteSQL("DROP TABLE member")
            ExecuteSQL("DROP TABLE customer")
            ExecuteSQL("DROP TABLE card")
            ExecuteSQL("DROP TABLE relation")
            ExecuteSQL("DROP TABLE insurance")
            ExecuteSQL("DROP TABLE indemnity")
            ExecuteSQL("DROP TABLE remembrancer")
            ExecuteSQL("DROP TABLE info")
            scRda.Pull("dept", "SELECT * FROM dept", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("member", "SELECT * FROM member", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("customer", "SELECT * FROM customer", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("card", "SELECT * FROM card", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("relation", "SELECT * FROM relation", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("insurance", "SELECT * FROM insurance", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("indemnity", "SELECT * FROM indemnity", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("remembrancer", "SELECT * FROM remembrancer", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Pull("info", "SELECT * FROM info", "Provider=SQLOLEDB;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaTrackOption.TrackingOnWithIndexes)
            scRda.Dispose()
            tb_state.Text = tb_state.Text + "數據庫下載成功" + vbCrLf
        Catch ex As SqlServerCe.SqlCeException
            scRda.Dispose()
            tb_state.Text = tb_state.Text + "數據庫下載失敗，可能原因如下：" + GetSQLCEErrorMessage(ex)
        End Try

        Cursor.Current = Cursors.Default
        btn_pull.Enabled = True
    End Sub

    Private Sub btn_push_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_push.Click
        btn_push.Enabled = False
        Cursor.Current = Cursors.WaitCursor

        Dim filepath As String
        Dim scRda As New SqlServerCe.SqlCeRemoteDataAccess


        filepath = GetAppPath() + "\cardb.sdf"
        If Not File.Exists(filepath) Then
            tb_state.Text = tb_state.Text + "數據庫文件不存在，中止上傳數據" + vbCrLf
            Exit Sub
        End If

        If MsgBox("確認從" + tb_url.Text.Trim() + "服務器上傳數據嗎？點擊'是'確認，點擊'否'取消，請選擇。", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.No Then
            Exit Sub
        End If

        tb_state.Text = tb_state.Text + "開始上傳數據……" + vbCrLf

        Try
            scRda.InternetLogin = "sa"
            scRda.InternetPassword = "ibmt42"
            scRda.InternetUrl = tb_url.Text.Trim()
            scRda.LocalConnectionString = "Provider=Microsoft.SQLSERVER.OLEDB.CE.2.0;Data Source=" + filepath + "; Password=cardb;"
            scRda.Push("dept", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("member", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("customer", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("card", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("relation", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("insurance", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("indemnity", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("remembrancer", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Push("info", "Provider=SQLOLEDB.1;User ID=sa;password=ibmt42;Initial Catalog=pubs;Data Source=szgs-7237", SqlServerCe.RdaBatchOption.BatchingOn)
            scRda.Dispose()
            tb_state.Text = tb_state.Text + "數據庫上傳成功" + vbCrLf
        Catch ex As SqlServerCe.SqlCeException
            scRda.Dispose()
            tb_state.Text = tb_state.Text + "數據庫上傳失敗，可能原因如下：" + GetSQLCEErrorMessage(ex)
        End Try

        Cursor.Current = Cursors.Default
        btn_push.Enabled = True
    End Sub
End Class