国外喷灌机发展概况与趋势

VS.NET2005建立智慧裝置新專案畫面VS.NET2005中內含之SerialPort物件表單物件屬性說明編號物件物件名稱(Name)屬性設定1LabelLabel1Text=CFReader讀卡範例2LabelLabel2Text=卡號3TextBoxTextBox1將Text屬性清空4ButtonButton1Text=開啟RFIDCFReaderPDA讀取RFID讀取器訊號使用者畫面設計設定RFID讀取器通訊埠程式碼主要利用是SerialPort物件開啟通訊埠COM4PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickSerialPort1.Open()'開啟通訊埠

MessageBox.Show("Reader啟動成功")EndSub程式碼主要利用是SerialPort物件接收通訊埠資料，並將讀取到的卡號指定到TextBox1中PrivateDelegateSubSetTextBoxTextDelegate(ByValtextAsString)PrivateSubSerialPort1_DataReceived(ByValsenderAsObject,ByValeAsSystem.IO.Ports.SerialDataReceivedEventArgs)HandlesSerialPort1.DataReceivedTryDimIncomingAsString=SerialPort1.ReadLine()Me.Invoke(NewSetTextBoxTextDelegate(AddressOfSetTextBoxText),Incoming)CatchexAsExceptionMessageBox.Show("Reader讀取失敗")EndTryEndSubPrivateSubSetTextBoxText(ByValtextAsString)Me.TextBox1.Text=textEndSub程式碼主要是在程式結束時將開啟的通訊埠關閉PrivateSubForm1_Deactivate(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.DeactivateIfSerialPort1.IsOpen=TrueThenSerialPort1.Close()'關閉通訊埠

EndIfMe.Close()EndSub系統測試與執行

完成讀卡程式碼後，就可以實際將程式發佈到PDA上進行測試，請利用VS.NET2005執行本專案，選擇部署位置項目中選擇PocketPC2003裝置。此時VS.NET2005會透過ActivSync將程式部署到PDA上並開始執行，此步驟需要一段時間。案執行視窗選擇部署位置畫面專案實際在PDA上執行的起始始畫面CF讀取器成功啟啟動畫面CF讀取器成功讀讀取卡號畫面面RDA資料交換SQLServerCESDF資料庫rfid.sdfRDASQLServer6:88/rda3/sqlcesa30.dllDataSource=53;InitialCatalog=982RFID;UserId=982rfid;Password=abcdefDataGridDataSynchronizationRDA資料交換會選用行動裝裝置PDA通常看中的就就是他的可攜攜性，但因為為PDA的記憶容量有有限，而且當當PDA完全沒有電時時，以往紀錄錄的程式與資資料將隨之煙煙消雲散，所所以往往會將將資料儲存在在資料庫主機機上，需要透透過PDA使用時才從主主機上下載資資料，作業完完畢後再上傳傳到主機上。。PDARDA環境建置所所需資源列列表編號項目名稱用途1IISServer5.0以上搭配RDA運作2RDA3.0SQLServer與SQLServerCE資料上下傳與比對作業3SQLServer2000/2005主機資料庫4SQLServerCE2.0PDA上資料庫sqlcesa30.dll與sqlcerp30.dll進行註冊RDA註冊畫面RDA註冊成功畫畫面RDA在IIS中註冊成虛虛擬目錄的的畫面IIS註冊成虛擬擬目錄的歡歡迎畫面IIS設定虛擬目目錄名稱的的畫面選取RDA3真正所在目目錄的畫面面將RDA3目錄設定成成可執行的的畫面RDA3正確執行的的畫面其次請安裝裝SQLServerCE2.0安裝完畢後後您的VS.NET2005才具備有開開發SQLCE程式的能力力，接下來來就可以開開始透過IIS、RDA3與SQLCE來達成資料料在SQLCE與SQLServer間上下傳的的目的。RDA表單畫面表單物件屬屬性說明編號物件物件名稱(Name)屬性設定1DataGridDataGrid12ButtonButton1Text=直接連線3ButtonButton2Text=下載4ButtonButton3Text=顯示下載的資料庫5ButtonButton4Text=修改6ButtonButton5Text=回傳程式碼ImportsSystemImportsSystem.DataPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimcnAsSystem.Data.SqlClient.SqlConnection'宣告connection物件DimcmdAsSystem.Data.SqlClient.SqlCommand'宣告command物件DimdaAsSystem.Data.SqlClient.SqlDataAdapter'宣告dataadapter物件'產生connection物件cn=NewSystem.Data.SqlClient.SqlConnection("uid=sa;pwd=xxx;database=xx;server=xx.xx.xx")'產生command物件cmd=NewSystem.Data.SqlClient.SqlCommand("select*froma01_user",cn)'產生dataadapter物件da=NewSystem.Data.SqlClient.SqlDataAdapter(cmd)'宣告並產生生datatable物件DimdtAsSystem.Data.DataTable=NewSystem.Data.DataTable("a01_user")da.Fill(dt)DataGrid1.DataSource=dtEndSub下載載的的程程式式碼碼(I)PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimrdaOleDbConnectStringAsString="Provider=SQLOLEDB;DataSource=xx.xx.xx.xx;InitialCatalog=xx;UserId=sa;Password=xx““'初始始化化RDADimrdaAsSqlCeRemoteDataAccess=NothingTry'確認認檔檔案案在在PDA上是是否否存存在在？？IfSystem.IO.File.Exists("\MyDocuments\dc.sdf")ThenSystem.IO.File.Delete("\MyDocuments\dc.sdf")EndIf'改變游標標形狀'--------------------------建立資料料庫DimengAsSystem.Data.SqlServerCe.SqlCeEngine=NewSqlCeEngine("DataSource=\MyDocuments\dc.sdf")eng.CreateDatabase()下載的程程式碼(II)‘恢復油標標形狀MsgBox("資料庫建建立成功功")rda=NewSqlCeRemoteDataAccess("http://XX.XX.XX.XX/RDA3/sqlcesa30.dll","XX","XX","DataSource=\MyDocuments\dc.sdf")rda.Pull("a01_user","SELECT*FROMa01_user",rdaOleDbConnectString,RdaTrackOption.TrackingOnWithIndexes,"ErrorTable")MsgBox("下載成功")CatchexAsExceptionMsgBox(ex.Message.ToString())Finallyrda.Dispose()EndTryEndSub顯示SDF資料庫之程式式碼(I)PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimdtAsSystem.Data.DataTable=NewSystem.Data.DataTable("a01_user")'開啟dc.sdf連線Trycn=NewSystem.Data.SqlServerCe.SqlCeConnection("DataSource=\MyDocuments\dc.sdf")'使用command執行sql指令cmd.CommandText="SELECT*FROMa01_user"cmd.Connection=cnda=NewSystem.Data.SqlServerCe.SqlCeDataAdapter(cmd)da.Fill(dt)顯示示SDF資料料庫庫之之程程式式碼碼(II)'在DataGrid顯示示資資料料DataGrid1.Visible=FalseDataGrid1.DataSource=dtDataGrid1.Visible=Truecn.Close()cn=NothingCatchsqlexAsSqlServerCe.SqlCeExceptionMsgBox(sqlex.Message.ToString)CatchexAsExceptionMsgBox(ex.Message.ToString)EndTryEndSubsql指令令的的方方式式修修改改(I)PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimlocalConnectionAsSqlCeConnectionlocalConnection=NewSqlCeConnection("DataSource=\MyDocuments\dc.sdf")DiminsertDataAsStringDimcmdCreateTableAsSqlCeCommand'此處請讀者自自行依照您的的資料表進行行sql指令修改insertData="updatea01_usersetU_Name='11111'whereU_ID=34”sql指令的方式修修改(II)localConnection.Open()cmdCreateTable=NewSqlCeCommand(insertData,localConnection)cmdCreateTable.CommandType=CommandType.TextcmdCreateTable.ExecuteNonQuery()localConnection.Close()localConnection=NothingMsgBox("修改成功")CallButton3_Click(0,e)'重新顯示EndSub上傳程式碼(I)PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimrdaOleDbConnectStringAsString="Provider=SQLOLEDB;DataSource=xx.xx.xx.xx;InitialCatalog=xx;UserId=sa;Password=xx"DimrdaAsSqlCeRemoteDataAccess=NothingTryrda=NewSqlCeRemoteDataAccess'rda3所在位置rda.InternetUrl="http://xx.xx.xx.xx/RDA3/sqlcesa30.dll"rda.LocalConnectionString="DataSource=\MyDocuments\dc.sdf“上傳程式碼(II)‘回傳資料rda.Push("a01_user",rdaOleDbConnectString,RdaBatchOption.BatchingOn)MsgBox("資料上傳成功功")CatchexAsSqlCeExceptionMsgBox(ex.Message.ToString)Finallyrda.Dispose()EndTryEndSubsql指令的方式新新增(I)PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Ha