【文章內(nèi)容簡介】 ver 2022 數(shù)據(jù)庫的訪問通過 RDA 技術(shù)需要 的引用完成 PULL 操作和PUSH 操作。 在對 Pocket PC 上存儲數(shù)據(jù)實際上是對 本地數(shù)據(jù)庫的操作 ，通過代碼在編輯環(huán)境中創(chuàng)建出本地數(shù)據(jù)庫 ，該數(shù)據(jù)庫是個精簡版的 SQL Server 數(shù)據(jù)庫，同樣是個關(guān)系型數(shù)據(jù)庫，同時通過 代碼在 SQLCE 中創(chuàng)建表 MsgInfo，表中列屬性為用戶 ID（ SendID,AcceptID） 和 Message,分別用來存儲用戶信息和發(fā)送接收的信息。 整個系統(tǒng)的開發(fā)除了建立數(shù)據(jù)庫外，在實現(xiàn)功能代碼上 要創(chuàng)建一個 SQLCECF第 6 頁 共 20 頁 的實例。 使數(shù)據(jù)庫能夠支撐整個系統(tǒng)功能實現(xiàn)。 在 Pocket PC 上其界面設(shè)計思路是盡量簡單，但能滿足系統(tǒng)需求?？丶系脑O(shè)計簡潔，明了。使模擬器和真實的手機操作界面相似，到達界面設(shè)計的需求。在發(fā)送端的模擬器上顯示接收端的 ID和 Message,在接收端的模擬器上顯示發(fā)送端的 ID 和同樣的 Message，使模擬器功能上和真實手機一致。 在實現(xiàn)對遠程數(shù)據(jù) 庫 SQL Server 2022 訪問時主要采用 RDA 的同步技術(shù)。 運用 PULL 和 PUSH 操作分別從遠程的服務(wù)器接收數(shù)據(jù)和向遠程服務(wù)器發(fā)送數(shù)據(jù)。在運用 RDA 時由于是一種樂觀的訪問方式，而沒有考慮系統(tǒng)環(huán)境存在的沖突，當(dāng)訪問不成功時，數(shù)據(jù)會暫時保存在本地數(shù)據(jù)庫中，其實質(zhì)也是對本地數(shù)據(jù)庫的操作。當(dāng)系統(tǒng)環(huán)境通暢后再一次對數(shù)據(jù)進行 PULL 和 PUSH 操作就能訪問遠程數(shù)據(jù)庫。 系統(tǒng)整體運行模式：通過一臺 Pocket PC 向另一臺 Pocket PC 傳送信息，首先發(fā)送方將 信息寫入 Pocket PC 中即完成對發(fā)送方本地數(shù)據(jù)庫的操作，在通過PUSH 操作向遠程數(shù)據(jù)庫中發(fā)送數(shù)據(jù)，接收方再通過 PULL 操作從遠程數(shù)據(jù)庫接受數(shù)據(jù)，此時信息將保存在接收方本地數(shù)據(jù)庫中，通過相應(yīng)的查詢 操作 完成對接收方本地數(shù)據(jù)庫的訪問 。 同時需要考慮此傳輸過程是一種樂觀的 傳輸 過程。 設(shè)計結(jié)構(gòu) 系統(tǒng)設(shè)計結(jié)構(gòu)圖和 RDA 功能結(jié)構(gòu)圖 如圖 1，圖 2 所示 智 能 通 訊 設(shè) 備智 能 通 訊 設(shè) 備S Q L S e r v e r C ES Q L S e r v e r C ES Q L S e r v e r 2 0 0 0 圖 1 系統(tǒng)結(jié)構(gòu)圖 第 7 頁 共 20 頁 圖 2 RDA 功能 系統(tǒng)結(jié)構(gòu)圖 系統(tǒng) 功能 模塊結(jié)構(gòu) 系統(tǒng)總體功能模塊如圖 3 所示： 圖 3 系統(tǒng)功能模塊 （ 1）發(fā)送方包含了接收方的 ID 號和待發(fā)信息，接收方的 ID 號以列表的方式展現(xiàn)在發(fā)送方。 （ 2）接收方包含了發(fā)送方的 ID 號和接收信息（即發(fā)送方發(fā)出的信息）。 （ 3）發(fā)送方通過模擬器軟件盤寫入信息，通過添加刪除功能完成信息寫入與發(fā)送。 （ 4）通過 RDA 技術(shù)可以訪問 在遠程 SQL Server 2022 數(shù)據(jù)庫中表內(nèi)信息。 短信通信系統(tǒng) 發(fā)送方 接收方 信 息 接收方ID 發(fā)送方ID 信 息 第 8 頁 共 20 頁 系統(tǒng)數(shù)據(jù)庫設(shè)計 在 SQL Server 2022 企業(yè)管理器 中創(chuàng)建數(shù)據(jù)庫 mysqlce 和表 MsgInfo1（ 如表 1） 所示 表 1 數(shù)據(jù)庫表 MsgInfo1 使用 SQLCE 通過代碼在智能設(shè)備 Pocket PC 2022 上創(chuàng)建數(shù)據(jù)庫 和表 Ppc1(如表 2，圖 4 所示 ) 表 2 本 地數(shù)據(jù)庫表 Ppc1 圖 4 Pocket PC 上創(chuàng)建的本地數(shù)據(jù)庫 列 名 類 型 長 度 特 性 SendID nvarchar 50 NOT NULL AcceptID nvarchar 50 NOT NULL Message nvarchar 100 NULL DateTime time 8 NOT NULL 列 名 類 型 長 度 特 性 SendID nvarchar 50 NOT NULL AccepterID nvarchar 50 NOT NULL Message nvarchar 100 NULL 第 9 頁 共 20 頁 4 系統(tǒng)實現(xiàn) 程序設(shè)計語言 Visual 是新一代的 Visual Basic 語言，它是一種簡便快捷地創(chuàng)建 .NET 應(yīng)用程序（包括 XML Web services 和 應(yīng)用程序）的語言Visual 具有許多新的功能和改進功能（如繼承，接口和重載），這使 Visual 成為功能強大的面向?qū)ο蟮木幊陶Z言，其他新的語言功能包括自由線程處理和結(jié)構(gòu)化異常處理。 Visual 還完全集成了 .NET Framework 和公共語言運行苦， .NET Framework 和公共語言運行庫，共同提供語言互操作性，垃圾回收，增強的安全符合性和改進的版本支持。 Visual Basic 開發(fā)者現(xiàn)在可以使用顯示多線程處理創(chuàng)建多線程可伸縮的應(yīng)用程序。 Visual 中其他的新語言功能包括結(jié)構(gòu)化異常處理，自定義屬性和符合公共語言規(guī)范（ CLS）。 CLS是對諸如數(shù)據(jù)類型之類的事物以及對象的公開和交互操作方式進行標(biāo)準(zhǔn)化的一組規(guī)則。 Visual 添加了幾項利用 CLS 優(yōu)勢的功能，任何符合CLS 的語言都可以使用在 Visual 中創(chuàng)建的類，對象和組件。 Visual Basic 用戶可以從其他符合 CLS 的編程語言訪問類，組件和對象，而不用擔(dān)心諸如數(shù)據(jù)類型之類的語言特定的差異， Visual 程序使用的 CLS 功能包括程序集，命 名空間和屬性。 Visual 支持許多新的或改進的面向?qū)ο笳Z言功能，如重載，繼承 ,Overrides 關(guān)鍵字，接口，共享 成員和構(gòu)造函數(shù)，還包括結(jié)構(gòu)化異常處理，委托以及幾個新的數(shù)據(jù)類型。 開發(fā)環(huán)境搭建 配置 SQL Server 2022 數(shù)據(jù)庫 安裝使用設(shè)備上的移動數(shù)據(jù)庫，首先要安裝 SQL Server，因為使用 SQL Server 可以進行遠程數(shù)據(jù)訪問（ RDA）和合并復(fù)制兩種方式的同步數(shù)據(jù)。 RDA 訪問功能支持與 SQL （和更高版本）數(shù)據(jù)庫的連接，合并復(fù)制則要求后端必須是 SQL Server 2022。這里選擇 SQL Server 2022 安裝，同時為下步安裝SQL Server CE 做準(zhǔn)備，要先安裝 SQL Server 2022 升級補丁包 SQL Server PackSP4。在選擇驗證模式時選擇混合模式。 安裝及配置 SQL Server CE 下載最新自解壓包 sqlce20sql2ksp4 和 安裝文件，即可將 SQL Server CE(SSCE)數(shù)據(jù)庫安裝在開發(fā)用的 PC機上 (即服務(wù)器名 9PYAC859FD7PXWY)。如果僅僅 創(chuàng)建本地數(shù)據(jù)庫， 則 選擇（ Development Tools）安裝即可；要使用 SQL Server CE 的遠程數(shù)據(jù)訪問（ RDA）和復(fù)制技術(shù)，除了安裝以上外，還需要選擇第 10 頁 共 20 頁 （ Server Tools）安裝。 安裝 SQL Server CE 服務(wù)器工具程序，通過在運行 IIS 的計算機上運行SQL Server CE 服務(wù)器工具安裝程序之一，自動安裝 SQL Server CE 連接管理實用工具和 SQL Server CE 虛擬目錄創(chuàng)建向?qū)?。安裝結(jié)束時，可以轉(zhuǎn)到“開始”菜單，指向“程序”，單擊“ Microsoft SQL Server ”然后單擊“配 置 IIS中的連接支持”。在 SQL Server CE 管理實用工具的右窗格中雙擊“創(chuàng)建虛擬目錄”向?qū)?。將虛擬目錄名為“ sqlce” ,將文件 拷貝到該目錄下（在這一步中要先在你設(shè)定的目錄下建立一個物理文件夾并將該文件夾設(shè)置為共享文件夾，并修改該文件夾的使用權(quán)限，當(dāng)在創(chuàng)建虛擬目錄時文件夾路徑會自動映射到該物理文件夾下），運行 ，轉(zhuǎn)到 C:\Ipub\root\sqlce 目錄下，然后鍵入“ regsvr32 ”將 COM 組件注冊到 DLL 中，在 Pocket PC 2022模擬器的地址欄輸入 測試連接到服務(wù)器 9PYAC859FD7PXWY 是否成功。 如果數(shù)據(jù) 庫 安裝正確，將得到一個包含SQL Server CE Agent 的 Web 頁面。需要 注意一點：在配置環(huán)境時盡量 先 不要對整個操作系統(tǒng)安裝殺毒軟件和其他的防護性軟件，以免安 裝快照文件夾時失敗，并提示開發(fā)者找不到網(wǎng)絡(luò)路徑。 在本設(shè)計中由于要訪問遠程數(shù)據(jù)庫，因此 不僅 需要運用 RDA 方法來實現(xiàn) SQL Server 數(shù)據(jù)庫與本地 SQL Server CE 數(shù)據(jù)庫之間同步數(shù)據(jù)操作，還需要安裝（ Server Tools） 才能訪問遠程數(shù)據(jù)庫。 創(chuàng)建本地設(shè)備上的數(shù)據(jù)庫 創(chuàng)建本地數(shù)據(jù)庫 和表 Ppc1 代碼如下： 39。創(chuàng)建 SQL Server CE 數(shù)據(jù)庫 Private Sub CreatemyDB() Dim boolCreateNewDatabase As Boolean = True Dim slocalDatabaseName As String Dim AppPath As String 39。返回 Pocket PC應(yīng)用程序路徑 AppPath = (. _ GetExecutingAssembly().()) slocalDatabaseName = AppPath amp。 \ 39。檢查數(shù)據(jù)庫文件是否存在 If (slocalDatabaseName) Then boolCreateNewDatabase = False End If If ((slocalDatabaseName)) Then (slocalDatabaseName) 第 11 頁 共 20 頁 End If Dim eng As = New (Data source = amp。 slocalDatabaseName) () 39。連接 SQL Server CE 數(shù)據(jù)庫 Dim localconnection As localconnection = New (Data source = amp。 slocalDatabaseName) () 39。創(chuàng)建數(shù)據(jù)庫表 Dim buildtables As = New (CREATE TABLE ppc1() (SenderID nvarchar(50) null) (,AceepterID nvarchar(50) null) ( ,Message nvarchar(100) null) ()) Dim cmdCreateTable As cmdCreateTable = New ((), localconnection) = () () End Sub 系統(tǒng)設(shè)計代碼 本地數(shù)據(jù)庫訪問 本地數(shù)據(jù)訪問 如圖 41 所示 通過對本地數(shù)據(jù)庫的訪問可以知道本地數(shù)據(jù)庫上保存的相關(guān)信息 。 可以通過SQL Server CE 的查詢分析器 ISQLW 查詢信息， 如圖 5 所示 圖 5 ISQLW 查詢分析器 第 12 頁 共 20 頁 本地數(shù)據(jù)庫訪問界面 ， 如圖 6 所示 圖 6 發(fā)送和接收 過程界面 通過向數(shù)據(jù)表中插入 數(shù)據(jù)的公共過程 可更改數(shù)據(jù)庫中的數(shù)據(jù) ： 39。向數(shù)據(jù)表插入數(shù)據(jù)的公共過程 Public Sub runNonQuery(ByVal sqlmandtext As String, ByVal localDatasource As String) Dim localConnection As localConnection = New (localDatasource) Dim cmdCreateTable As () cmdCreateTable = New (sqlmandtext, localConnection) = () () () () End Sub 該段代碼實現(xiàn)當(dāng)數(shù)據(jù)差入后使用 DataReader和 DataSet 進行讀取數(shù)據(jù)庫數(shù)據(jù) ： 39。使用 DataReader訪問數(shù)據(jù) Public Function Getdata(ByVal localDataSource As String) As