VS.NET 2005建立智慧裝置新專案畫面.

Presentation on theme: "VS.NET 2005建立智慧裝置新專案畫面."— Presentation transcript:

1 VS.NET 2005建立智慧裝置新專案畫面

2 VS.NET 2005中內含之SerialPort物件

3 表單物件屬性說明 編號 物件 物件名稱(Name) 屬性設定 1 Label Label1 Text=CF Reader讀卡範例 2
3 TextBox TextBox1 將Text屬性清空 4 Button Button1 Text=開啟RFID CF Reader

4 PDA讀取RFID讀取器訊號使用者畫面設計

5 設定RFID讀取器通訊埠

6 程式碼 主要利用是SerialPort物件開啟通訊埠COM4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SerialPort1.Open() ' 開啟通訊埠 MessageBox.Show("Reader啟動成功") End Sub

7 程式碼 主要利用是SerialPort物件接收通訊埠資料，並將讀取到的卡號指定到TextBox1中
Private Delegate Sub SetTextBoxTextDelegate(ByVal text As String) Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Try Dim Incoming As String = SerialPort1.ReadLine() Me.Invoke(New SetTextBoxTextDelegate(AddressOf SetTextBoxText), Incoming) Catch ex As Exception MessageBox.Show("Reader讀取失敗") End Try End Sub Private Sub SetTextBoxText(ByVal text As String) Me.TextBox1.Text = text

8 程式碼 主要是在程式結束時將開啟的通訊埠關閉
Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate If SerialPort1.IsOpen = True Then SerialPort1.Close() ' 關閉通訊埠 End If Me.Close() End Sub

9 系統測試與執行 完成讀卡程式碼後，就可以實際將程式發佈到PDA上進行測試，請利用VS.NET 2005執行本專案，選擇部署位置項目中選擇PocketPC 2003裝置。此時VS.NET 2005會透過ActivSync將程式部署到PDA上並開始執行，此步驟需要一段時間。

10 案執行視窗選擇部署位置畫面

11 專案實際在PDA上執行的起始畫面

12 CF讀取器成功啟動畫面

13 CF讀取器成功讀取卡號畫面

14 RDA資料交換 DataGrid SQLServerCE SQL Server SDF資料庫 rfid.sdf
Data Synchronization Data Source= ;Initial Catalog=982RFID;User Id=982rfid;Password =abcdef RDA

15 RDA資料交換 會選用行動裝置PDA通常看中的就是他的可攜性，但因為PDA的記憶容量有限，而且當PDA完全沒有電時，以往紀錄的程式與資料將隨之煙消雲散，所以往往會將資料儲存在資料庫主機上，需要透過PDA使用時才從主機上下載資料，作業完畢後再上傳到主機上。

16 PDA RDA環境建置所需資源列表 編號 項目名稱 用途 1 IIS Server 5.0以上 搭配RDA運作 2 RDA 3.0
SQL Server與SQL Server CE資料上下傳與比對作業 3 SQL Server 2000/2005 主機資料庫 4 SQL Server CE 2.0 PDA上資料庫

17 sqlcesa30.dll與sqlcerp30.dll進行註冊
RDA註冊畫面 RDA註冊成功畫面

18 RDA在IIS中註冊成虛擬目錄的畫面

19 IIS註冊成虛擬目錄的歡迎畫面

20 IIS設定虛擬目錄名稱的畫面

21 選取RDA3真正所在目錄的畫面

22 將RDA3目錄設定成可執行的畫面

23 RDA3正確執行的畫面 其次請安裝SQL Server CE 2.0
安裝完畢後您的VS.NET 2005才具備有開發SQL CE程式的能力，接下來就可以開始透過IIS、RDA3與SQL CE來達成資料在SQL CE與SQL Server間上下傳的目的。

24 RDA表單畫面

25 表單物件屬性說明 編號 物件 物件名稱(Name) 屬性設定 1 DataGrid DataGrid1 2 Button Button1
Text=直接連線 3 Button2 Text=下載 4 Button3 Text=顯示下載的資料庫 5 Button4 Text=修改 6 Button5 Text=回傳

26 程式碼 Imports System Imports System.Data Imports System.Data.SqlClient
Imports System.Data.Common Imports System.Data.SqlServerCe Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As System.Data.SqlClient.SqlConnection '宣告connection物件 Dim cmd As System.Data.SqlClient.SqlCommand '宣告command物件 Dim da As System.Data.SqlClient.SqlDataAdapter '宣告dataadapter物件 ' 產生connection物件 cn = New System.Data.SqlClient.SqlConnection("uid=sa;pwd=xxx;database=xx;server=xx.xx.xx") ' 產生command物件 cmd = New System.Data.SqlClient.SqlCommand("select * from a01_user", cn) ' 產生dataadapter物件 da = New System.Data.SqlClient.SqlDataAdapter(cmd) ' 宣告並產生datatable物件 Dim dt As System.Data.DataTable = New System.Data.DataTable("a01_user") da.Fill(dt) DataGrid1.DataSource = dt End Sub

27 下載的程式碼 (I) Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim rdaOleDbConnectString As String = "Provider=SQLOLEDB;Data Source=xx.xx.xx.xx;Initial Catalog=xx;User Id=sa;Password =xx“ '初始化 RDA Dim rda As SqlCeRemoteDataAccess = Nothing Try ' 確認檔案在PDA上是否存在？ If System.IO.File.Exists("\My Documents\dc.sdf") Then System.IO.File.Delete("\My Documents\dc.sdf") End If ' 改變游標形狀 System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor ' 建立資料庫 Dim eng As System.Data.SqlServerCe.SqlCeEngine = New SqlCeEngine("Data Source=\My Documents\dc.sdf") eng.CreateDatabase()

28 下載的程式碼 (II) ‘ 恢復油標形狀 System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default MsgBox("資料庫建立成功") rda = New SqlCeRemoteDataAccess(" "XX", "XX", "Data Source=\My Documents\dc.sdf") rda.Pull("a01_user", "SELECT * FROM a01_user", rdaOleDbConnectString, RdaTrackOption.TrackingOnWithIndexes, "ErrorTable") MsgBox("下載成功") Catch ex As Exception MsgBox(ex.Message.ToString()) Finally rda.Dispose() End Try End Sub

29 顯示SDF資料庫之程式碼 (I) Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim dt As System.Data.DataTable = New System.Data.DataTable("a01_user") Dim cn As New System.Data.SqlServerCe.SqlCeConnection Dim cmd As New System.Data.SqlServerCe.SqlCeCommand Dim da As New System.Data.SqlServerCe.SqlCeDataAdapter ' 開啟dc.sdf連線 Try cn = New System.Data.SqlServerCe.SqlCeConnection("Data Source=\My Documents\dc.sdf") ' 使用command執行sql指令 cmd.CommandText = "SELECT * FROM a01_user" cmd.Connection = cn da = New System.Data.SqlServerCe.SqlCeDataAdapter(cmd) da.Fill(dt)

30 顯示SDF資料庫之程式碼 (II) ' 在DataGrid 顯示資料 DataGrid1.Visible = False
DataGrid1.DataSource = dt DataGrid1.Visible = True cn.Close() cn = Nothing Catch sqlex As SqlServerCe.SqlCeException MsgBox(sqlex.Message.ToString) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub

31 sql指令的方式修改 (I) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim localConnection As SqlCeConnection localConnection = New SqlCeConnection("Data Source=\My Documents\dc.sdf") Dim insertData As String Dim cmdCreateTable As SqlCeCommand ' 此處請讀者自行依照您的資料表進行sql指令修改 insertData = "update a01_user set U_Name='11111' where U_ID=34”

32 sql指令的方式修改(II) localConnection.Open()
cmdCreateTable = New SqlCeCommand(insertData, localConnection) cmdCreateTable.CommandType = CommandType.Text cmdCreateTable.ExecuteNonQuery() localConnection.Close() localConnection = Nothing MsgBox("修改成功") Call Button3_Click(0, e) '重新顯示 End Sub

33 上傳程式碼 (I) Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim rdaOleDbConnectString As String = "Provider=SQLOLEDB;Data Source=xx.xx.xx.xx;Initial Catalog=xx;User Id=sa;Password =xx" Dim rda As SqlCeRemoteDataAccess = Nothing Try rda = New SqlCeRemoteDataAccess ' rda3所在位置 rda.InternetUrl = " rda.LocalConnectionString = "Data Source=\My Documents\dc.sdf“

34 上傳程式碼 (II) ‘ 回傳資料 rda.Push("a01_user", rdaOleDbConnectString, RdaBatchOption.BatchingOn) MsgBox("資料上傳成功") Catch ex As SqlCeException MsgBox(ex.Message.ToString) Finally rda.Dispose() End Try End Sub

35 sql指令的方式新增 (I) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim localConnection As SqlCeConnection localConnection = New SqlCeConnection("Data Source=\My Documents\dc.sdf") Dim insertData As String Dim cmdCreateTable As SqlCeCommand ' 此處請讀者自行依照您的資料表進行sql指令修改 insertData = “insert into member (m_name, loginid,pwd) values (‘xxx’,’xxx’,’xxx’)”

36 sql指令的方式新增(II) localConnection.Open()
cmdCreateTable = New SqlCeCommand(insertData, localConnection) cmdCreateTable.CommandType = CommandType.Text cmdCreateTable.ExecuteNonQuery() localConnection.Close() localConnection = Nothing MsgBox(“新增成功") Call Button3_Click(0, e) '重新顯示 End Sub

37 sql指令的方式新增

38 利用Picturebox顯示圖片 Dim bmp As New Bitmap("\My Documents\Explorer.bmp") '圖檔路徑請自設! PictureBox1.Image = bmp