frm_setup.vb

客户关系系统（CRM）VB源代码`,基于Windows Mobile平台.

        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