国外喷灌机发展概况与趋势讲义课件

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

MessageBox.Show("Reader啟動成功")EndSub程式碼主要利用是SerialPort物件開啟通訊埠COM4程式碼主要利用是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程式碼主要利用是SerialPort物件接收通訊埠資料，並將程式碼主要是在程式結束時將開啟的通訊埠關閉PrivateSubForm1_Deactivate(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.DeactivateIfSerialPort1.IsOpen=TrueThenSerialPort1.Close()'關閉通訊埠

EndIfMe.Close()EndSub程式碼主要是在程式結束時將開啟的通訊埠關閉系統測試與執行

完成讀卡程式碼後，就可以實際將程式發佈到PDA上進行測試，請利用VS.NET2005執行本專案，選擇部署位置項目中選擇PocketPC2003裝置。此時VS.NET2005會透過ActivSync將程式部署到PDA上並開始執行，此步驟需要一段時間。系統測試與執行完成讀卡程式碼後，就可以實際將程式發佈到PD案執行視窗選擇部署位置畫面案執行視窗選擇部署位置畫面專案實際在PDA上執行的起始畫面專案實際在PDA上執行的起始畫面CF讀取器成功啟動畫面CF讀取器成功啟動畫面CF讀取器成功讀取卡號畫面CF讀取器成功讀取卡號畫面RDA資料交換

SQLServerCESDF資料庫rfid.sdfRDASQLServer6:88/rda3/sqlcesa30.dllDataSource=53;InitialCatalog=982RFID;UserId=982rfid;Password=abcdefDataGridDataSynchronizationRDA資料交換SQLServerCESDF資料庫RDASQRDA資料交換

會選用行動裝置PDA通常看中的就是他的可攜性，但因為PDA的記憶容量有限，而且當PDA完全沒有電時，以往紀錄的程式與資料將隨之煙消雲散，所以往往會將資料儲存在資料庫主機上，需要透過PDA使用時才從主機上下載資料，作業完畢後再上傳到主機上。RDA資料交換會選用行動裝置PDA通常看中的就是他的可攜性PDARDA環境建置所需資源列表編號項目名稱用途1IISServer5.0以上搭配RDA運作2RDA3.0SQLServer與SQLServerCE資料上下傳與比對作業3SQLServer2000/2005主機資料庫4SQLServerCE2.0PDA上資料庫PDARDA環境建置所需資源列表編號項目名稱用途1IISsqlcesa30.dll與sqlcerp30.dll進行註冊RDA註冊畫面RDA註冊成功畫面sqlcesa30.dll與sqlcerp30.dll進行註RDA在IIS中註冊成虛擬目錄的畫面RDA在IIS中註冊成虛擬目錄的畫面IIS註冊成虛擬目錄的歡迎畫面IIS註冊成虛擬目錄的歡迎畫面IIS設定虛擬目錄名稱的畫面IIS設定虛擬目錄名稱的畫面選取RDA3真正所在目錄的畫面選取RDA3真正所在目錄的畫面將RDA3目錄設定成可執行的畫面將RDA3目錄設定成可執行的畫面RDA3正確執行的畫面其次請安裝SQLServerCE2.0安裝完畢後您的VS.NET2005才具備有開發SQLCE程式的能力，接下來就可以開始透過IIS、RDA3與SQLCE來達成資料在SQLCE與SQLServer間上下傳的目的。RDA3正確執行的畫面RDA表單畫面RDA表單畫面表單物件屬性說明編號物件物件名稱(Name)屬性設定1DataGridDataGrid12ButtonButton1Text=直接連線3ButtonButton2Text=下載4ButtonButton3Text=顯示下載的資料庫5ButtonButton4Text=修改6ButtonButton5Text=回傳表單物件屬性說明編號物件物件名稱(Name)屬性設定1Da程式碼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程式碼ImportsSystem下載的程式碼(I)

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click

DimrdaOleDbConnectStringAsString="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()下載的程式碼(I)PrivateSubButton2下載的程式碼(II)

‘恢復油標形狀System.Windows.Forms.Cursor.Current=System.Windows.Forms.Cursors.DefaultMsgBox("資料庫建立成功")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下載的程式碼(II)‘恢復油標形狀顯示SDF資料庫之程式碼(I)PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click

DimdtAsSystem.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_user"cmd.Connection=cnda=NewSystem.Data.SqlServerCe.SqlCeDataAdapter(cmd)da.Fill(dt)顯示SDF資料庫之程式碼(I)PrivateSubBu顯示SDF資料庫之程式碼(II)

'在DataGrid顯示資料

DataGrid1.Visible=FalseDataGrid1.DataSource=dtDataGrid1.Visible=Truecn.Close()cn=NothingCatchsqlexAsSqlServerCe.SqlCeExceptionMsgBox(sqlex.Message.ToString)CatchexAsExceptionMsgBox(ex.Message.ToString)EndTryEndSub顯示SDF資料庫之程式碼(II)'在Datasql指令的方式修改(I)

PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click

DimlocalConnectionAsSqlCeConnectionlocalConnection=NewSqlCeConnection("DataSource=\MyDocuments\dc.sdf")DiminsertDataAsStringDimcmdCreateTableAsSqlCeCommand'此處請讀者自行依照您的資料表進行sql指令修改

insertData="updatea01_usersetU_Name='11111'whereU_ID=34”sql指令的方式修改(I)PrivateSubButsql指令的方式修改(II)

localConnection.Open()cmdCreateTable=NewSqlCeCommand(insertData,localConnection)cmdCreateTable.CommandType=CommandType.TextcmdCreateTable.ExecuteNonQuery()localConnection.Close()localConnection=NothingMsgBox("修改成功")CallButton3_Click(0,e)'重新顯示EndSubsql指令的方式修改(II)localConne上傳程式碼(I)

PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click

DimrdaOleDbConnectStringAsString="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“上傳程式碼(I)PrivateSubButton5_上傳程式碼(II)

‘回傳資料

rda.Push("a01_user",rdaOleDbConnectString,RdaBatchOption.BatchingOn)MsgBox("資料上傳成功")CatchexAsSqlCeExceptionMsgBox(ex.Message.ToString)Finallyrda.Dispose()EndTryEndSub上傳程式碼(II)‘回傳資料sql指令的方式新增(I)

PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click

DimlocalConnectionAsSqlCeConnectionlocalConnection=NewSqlCeConnection("DataSource=\MyDocuments\dc.sdf")DiminsertDataAsStringDimcmdCreateTableAsSqlCeCommand'此處請讀者自行依照您的資料表進行sql指令修改

insertData=“insertintomember(m_name,loginid,pwd)values(‘xxx’,’xxx’,’xxx’)”sql指令的方式新增(I)PrivateSubButsql指令的方式新增(II)

localConnection.Open()cmdCreateTable=NewSqlCeCommand(insertData,localConnection)cmdCreateTable.CommandType=CommandType.TextcmdCreateTable.ExecuteNonQuery()localConnection.Close()localConnection=NothingMsgBox(“新增成功")CallButton3_Click(0,e)'重新顯示EndSubsql指令的方式新增(II)localConnesql指令的方式新增sql指令的方式新增利用Picturebox顯示圖片DimbmpAsNewBitmap("\MyDocuments\Explorer.bmp")'圖檔路徑請自設!PictureBox1.Image=bmp利用Picturebox顯示圖片DimbmpAsNe演讲完毕，谢谢观看！演讲完毕，谢谢观看！VS.NET2005建立智慧裝置新專案畫面VS.NET2005建立智慧裝置新專案畫面VS.NET2005中內含之SerialPort物件VS.NET2005中內含之SerialPort物件表單物件屬性說明編號物件物件名稱(Name)屬性設定1LabelLabel1Text=CFReader讀卡範例2LabelLabel2Text=卡號3TextBoxTextBox1將Text屬性清空4ButtonButton1Text=開啟RFIDCFReader表單物件屬性說明編號物件物件名稱(Name)屬性設定1LaPDA讀取RFID讀取器訊號使用者畫面設計PDA讀取RFID讀取器訊號使用者畫面設計設定RFID讀取器通訊埠設定RFID讀取器通訊埠程式碼主要利用是SerialPort物件開啟通訊埠COM4PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickSerialPort1.Open()'開啟通訊埠

MessageBox.Show("Reader啟動成功")EndSub程式碼主要利用是SerialPort物件開啟通訊埠COM4程式碼主要利用是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程式碼主要利用是SerialPort物件接收通訊埠資料，並將程式碼主要是在程式結束時將開啟的通訊埠關閉PrivateSubForm1_Deactivate(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.DeactivateIfSerialPort1.IsOpen=TrueThenSerialPort1.Close()'關閉通訊埠

EndIfMe.Close()EndSub程式碼主要是在程式結束時將開啟的通訊埠關閉系統測試與執行

完成讀卡程式碼後，就可以實際將程式發佈到PDA上進行測試，請利用VS.NET2005執行本專案，選擇部署位置項目中選擇PocketPC2003裝置。此時VS.NET2005會透過ActivSync將程式部署到PDA上並開始執行，此步驟需要一段時間。系統測試與執行完成讀卡程式碼後，就可以實際將程式發佈到PD案執行視窗選擇部署位置畫面案執行視窗選擇部署位置畫面專案實際在PDA上執行的起始畫面專案實際在PDA上執行的起始畫面CF讀取器成功啟動畫面CF讀取器成功啟動畫面CF讀取器成功讀取卡號畫面CF讀取器成功讀取卡號畫面RDA資料交換

SQLServerCESDF資料庫rfid.sdfRDASQLServer6:88/rda3/sqlcesa30.dllDataSource=53;InitialCatalog=982RFID;UserId=982rfid;Password=abcdefDataGridDataSynchronizationRDA資料交換SQLServerCESDF資料庫RDASQRDA資料交換

會選用行動裝置PDA通常看中的就是他的可攜性，但因為PDA的記憶容量有限，而且當PDA完全沒有電時，以往紀錄的程式與資料將隨之煙消雲散，所以往往會將資料儲存在資料庫主機上，需要透過PDA使用時才從主機上下載資料，作業完畢後再上傳到主機上。RDA資料交換會選用行動裝置PDA通常看中的就是他的可攜性PDARDA環境建置所需資源列表編號項目名稱用途1IISServer5.0以上搭配RDA運作2RDA3.0SQLServer與SQLServerCE資料上下傳與比對作業3SQLServer2000/2005主機資料庫4SQLServerCE2.0PDA上資料庫PDARDA環境建置所需資源列表編號項目名稱用途1IISsqlcesa30.dll與sqlcerp30.dll進行註冊RDA註冊畫面RDA註冊成功畫面sqlcesa30.dll與sqlcerp30.dll進行註RDA在IIS中註冊成虛擬目錄的畫面RDA在IIS中註冊成虛擬目錄的畫面IIS註冊成虛擬目錄的歡迎畫面IIS註冊成虛擬目錄的歡迎畫面IIS設定虛擬目錄名稱的畫面IIS設定虛擬目錄名稱的畫面選取RDA3真正所在目錄的畫面選取RDA3真正所在目錄的畫面將RDA3目錄設定成可執行的畫面將RDA3目錄設定成可執行的畫面RDA3正確執行的畫面其次請安裝SQLServerCE2.0安裝完畢後您的VS.NET2005才具備有開發SQLCE程式的能力，接下來就可以開始透過IIS、RDA3與SQLCE來達成資料在SQLCE與SQLServer間上下傳的目的。RDA3正確執行的畫面RDA表單畫面RDA表單畫面表單物件屬性說明編號物件物件名稱(Name)屬性設定1DataGridDataGrid12ButtonButton1Text=直接連線3ButtonButton2Text=下載4ButtonButton3Text=顯示下載的資料庫5ButtonButton4Text=修改6ButtonButton5Text=回傳表單物件屬性說明編號物件物件名稱(Name)屬性設定1Da程式碼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程式碼ImportsSystem下載的程式碼(I)

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click

DimrdaOleDbConnectStringAsString="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()下載的程式碼(I)PrivateSubButton2下載的程式碼(II)

‘恢復油標形狀System.Windows.Forms.Cursor.Current=System.Windows.Forms.Cursors.DefaultMsgBox("資料庫建立成功")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下載的程式碼(II)‘恢復油標形狀顯示SDF資料庫之程式碼(I)PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click

DimdtAsSystem.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_user"cmd.Connection=cnda=NewSystem.Data.SqlServerCe.SqlCeDataAdapter(cmd)da.Fill(dt)顯示SDF資料庫之程式碼(I)PrivateSubBu顯示SDF資料庫之程式碼(II)

'在DataGrid顯示資料

DataGrid1.Visible=FalseDataGrid1.DataSource=dtDataGrid1.Visible=Truecn.Close()cn=NothingCatchsqlexAsSqlServerCe.SqlCeExceptionMsgBox(sqlex.Message.ToString)CatchexAsExceptionMsgBox(ex.Message.ToString)EndTryEndSub顯示SDF資料庫之程式碼(II)'在Datasql指令的方式修改(I)

PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click

DimlocalConnectionAsSqlCeConnectionlocalConnection=NewSqlCeConnection("DataSource=\MyDocuments\dc.sdf")DiminsertDataAsStringDimcmdCreateTableAsSqlCeCommand'此處請讀者自行依照您的資料表進行sql指令修改

insertData="updatea01_usersetU_Name='11111'whereU_ID=34”sql指令的方式修改(I)PrivateSubButsql指令的方式修改(II)

localConnection.Open()cmdCreateTable=NewSqlCeCommand(insertData,localConnection)cmdCreateTable.CommandType=CommandType.TextcmdCreateTable.ExecuteNonQuery()localConnection.Close()localConnection=NothingMsgBox("修改成功")CallButton3_Click(0,e)'重新顯示EndSubsql指令的方式修改(II)localConne上傳程式碼(I)

PrivateSubButton5_Click(ByVals