國外噴灌機(jī)發(fā)展概況與趨勢(shì)講義

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

MessageBox.Show("Reader啟動(dòng)成功")EndSub程式碼主要利用是SerialPort物件接收通訊埠資料，並將讀取到的卡號(hào)指定到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程式碼主要是在程式結(jié)束時(shí)將開啟的通訊埠關(guān)閉PrivateSubForm1_Deactivate(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.DeactivateIfSerialPort1.IsOpen=TrueThenSerialPort1.Close()'關(guān)閉通訊埠

EndIfMe.Close()EndSub系統(tǒng)測(cè)試與執(zhí)行

完成讀卡程式碼後，就可以實(shí)際將程式發(fā)佈到PDA上進(jìn)行測(cè)試，請(qǐng)利用VS.NET2005執(zhí)行本專案，選擇部署位置項(xiàng)目中選擇PocketPC2003裝置。此時(shí)VS.NET2005會(huì)透過ActivSync將程式部署到PDA上並開始執(zhí)行，此步驟需要一段時(shí)間。案執(zhí)行視窗選擇部署位置畫面專案實(shí)際在PDA上執(zhí)行的起始始畫面CF讀取器成功啟啟動(dòng)畫面CF讀取器成功讀讀取卡號(hào)畫面面RDA資料交換SQLServerCESDF資料庫rfid.sdfRDASQLServer6:88/rda3/sqlcesa30.dllDataSource=53;InitialCatalog=982RFID;UserId=982rfid;Password=abcdefDataGridDataSynchronizationRDA資料交換會(huì)選用行動(dòng)裝裝置PDA通?？粗械木途褪撬目蓴y攜性，但因?yàn)闉镻DA的記憶容量有有限，而且當(dāng)當(dāng)PDA完全沒有電時(shí)時(shí)，以往紀(jì)錄錄的程式與資資料將隨之煙煙消雲(yún)散，所所以往往會(huì)將將資料儲(chǔ)存在在資料庫主機(jī)機(jī)上，需要透透過PDA使用時(shí)才從主主機(jī)上下載資資料，作業(yè)完完畢後再上傳傳到主機(jī)上。。PDARDA環(huán)境建置所需需資源列表編號(hào)項(xiàng)目名稱用途1IISServer5.0以上搭配RDA運(yùn)作2RDA3.0SQLServer與SQLServerCE資料上下傳與比對(duì)作業(yè)3SQLServer2000/2005主機(jī)資料庫4SQLServerCE2.0PDA上資料庫sqlcesa30.dll與sqlcerp30.dll進(jìn)行註冊(cè)RDA註冊(cè)畫面RDA註冊(cè)成功畫面面RDA在IIS中註冊(cè)成虛擬擬目錄的畫面面IIS註冊(cè)成虛擬目目錄的歡迎畫畫面IIS設(shè)定虛擬目錄錄名稱的畫面面選取RDA3真正所在目錄錄的畫面將RDA3目錄設(shè)定成可可執(zhí)行的畫面面RDA3正確執(zhí)行的畫畫面其次請(qǐng)安裝SQLServerCE2.0安裝完畢後您您的VS.NET2005才具備有開發(fā)發(fā)SQLCE程式的能力，，接下來就可可以開始透過過IIS、RDA3與SQLCE來達(dá)成資料在在SQLCE與SQLServer間上下傳的目目的。RDA表單畫面表單物件屬性性說明編號(hào)物件物件名稱(Name)屬性設(shè)定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物件'產(chǎn)生connection物件cn=NewSystem.Data.SqlClient.SqlConnection("uid=sa;pwd=xxx;database=xx;server=xx.xx.xx")'產(chǎn)生command物件cmd=NewSystem.Data.SqlClient.SqlCommand("select*froma01_user",cn)'產(chǎn)生dataadapter物件da=NewSystem.Data.SqlClient.SqlDataAdapter(cmd)'宣告並產(chǎn)生生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'確認(rèn)檔案在在PDA上是否存在在？IfSystem.IO.File.Exists("\MyDocuments\dc.sdf")ThenSystem.IO.File.Delete("\MyDocuments\dc.sdf")EndIf'改變游標(biāo)形形狀'--------------------------建立資料庫庫DimengAsSystem.Data.SqlServerCe.SqlCeEngine=NewSqlCeEngine("DataSource=\MyDocuments\dc.sdf")eng.CreateDatabase()下載的程式式碼(II)‘恢復(fù)油標(biāo)形形狀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執(zhí)行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'此處請(qǐng)讀者者自行依照照您的資料料表進(jìn)行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)HandlesButton4.ClickDimlocalConnect