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

VS.NET2005建立智慧裝置新專案畫面喷灌机物件表單物件屬性說明編號物件物件名稱(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.sdfRDASQLServer=120.109.35.153;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.DataImportsSystem.Data.SqlClientImportsSystem.Data.CommonImportsSystem.Data.SqlServerCePrivateSubButton1_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'改變游標形狀System.Windows.Forms.Cursor.Current=System.Windows.Forms.Cursors.WaitCursor'--------------------------建立資料庫DimengAsSystem.Data.SqlServerCe.SqlCeEngine=NewSqlCeEngine(DataSource=\MyDocuments\dc.sdf)eng.CreateDatabase()下載的程式碼(II)‘恢復油標形狀System.Windows.Forms.Cursor.Current=System.Windows.Forms.Cursors.DefaultMsgBox(資料庫建立成功)rda=NewSqlCeRemoteDataAccess(=\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)DimcnAsNewSystem.Data.SqlServerCe.SqlCeConnectionDimcmdAsNewSystem.Data.SqlServerCe.SqlCeCommandDimdaAsNewSystem.Data.SqlServerCe.SqlCeDataAdapter'開啟dc.sdf連線Trycn=NewSystem.Data.SqlServerCe.SqlCeConnection(DataSource=\MyDocuments\dc.sdf)'使用command執行sql指令cmd.CommandText=SELECT*FROMa01_usercmd.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