農(nóng)田監(jiān)測儀溫濕度管理系統(tǒng)畢業(yè)論文-文庫吧資料
2025-08-02 10:52本頁面
【正文】 時，指針自動移動到文件開頭，顯示第一條數(shù)據(jù)。 End If End Sub這段代碼用于實現(xiàn)查看下一條數(shù)據(jù)的功能，點擊下一條按鈕數(shù)據(jù)指針自動移動一位，并將數(shù)值自動錄入到相應的文本框中。MsgBox 表中已無數(shù)據(jù)，請輸入數(shù)據(jù), vbExclamation ‘文本框提醒“表中已無數(shù)據(jù)，請輸入數(shù)據(jù)”Else ‘如果指針符合要求，指針自動向下移動一位。（5）修改界面圖13 修改界面界面介紹：修改界面的功能是：實現(xiàn)對錄入數(shù)據(jù)庫中的數(shù)據(jù)按需求進行修改、刪除，以及修改后的保存功能。DATAGRID控件的屬性設置基本與錄入界面相同，其大小、顏色、字體，可以根據(jù)個人愛好自行設置。 = ‘初始化文本框。 ‘定義sql語句，此語句功能是：從溫濕度表中選擇溫度小于等于Text4中值的數(shù)據(jù)。Elsestrquery = select*from ws where wd = amp。If Trim() = Then ‘判斷Text4是否為空。 = ‘文本框初始化。 ‘定義sql語句，本語句的意思是：從溫濕度表中選擇所有字段，并且溫度大于text3中的值。Elsestrquery = select*from ws where wd= amp。If Trim() = Then ‘判斷text3是否為空。 = strquery ‘執(zhí)行sql語句。 39。 amp。 39。 amp。MsgBox 請輸入查詢條件, vbExclamation ‘提示管理人員輸入查詢條件。If = True Then ‘判斷Option1是否被選中。初始化按鈕Private Sub Command4_Click()If = ThenMsgBox 無需初始化ElseMsgBox 初始化完成End IfEnd Sub功能介紹：進入錄入界面后由于數(shù)據(jù)表中的數(shù)據(jù)顯示的不是最后一行，所以我們不能直接添加數(shù)據(jù)，需要手動在DATAGRID控件中調(diào)整到最后，為了方便管理人員按操作，我增加了一個功能按鈕，點擊后直接數(shù)據(jù)指針自動到達最后一行數(shù)據(jù)的下一行，從而方便實現(xiàn)手動錄入。我們通過引用一個DATAGRID控件來實現(xiàn)，此控件如圖所示：圖11 DATAGRID控件我們通過用DATAGRID與ADO控件的鏈接來實現(xiàn)在VB界面上顯示我們想要的數(shù)據(jù)，這一功能通過設置DATAGRID的一些屬性來實現(xiàn)，第一個屬性為：datasource設置一屬性為ADO控件的紀錄源，然后他就能顯示數(shù)據(jù)庫溫濕度表中的數(shù)據(jù)。Data Source=ACERPC\SQLEXPRESS”圖8 選擇服務連接圖9 連接對話框圖10 記錄源然后右擊ADO控件選擇OLEDB屬性出現(xiàn)如圖所示對話框在數(shù)據(jù)源選項卡中選擇本地數(shù)據(jù)庫“ACERPC\SQLEXPRESS”中的表“ws”。Persist Security Info=False。圖7測試結果這樣我們就成功的把VB與SQL SEVER連接起來了，單擊確定電腦就自動生成了連接字符串“Provider=。通過設置一些屬性ADO控件能夠實現(xiàn)VB與sql sever連接，并能對數(shù)據(jù)庫中的數(shù)據(jù)進行操作，首先設置它的連接屬性connectionstring屬性，在connectionstring屬性中點擊后面按鈕出現(xiàn)如圖6所示對話圖6 生成字符串框，首先選擇選項卡里面的“通用”選項的“使用連接字符串（C）”生成按鈕，出現(xiàn)出現(xiàn)如下對話框如圖8所示“選擇您希望連接的數(shù)據(jù)”，由于我們這里使用的是SQL SEVER 2005 所以我們選擇“microsoft OLE DB provider for sql sever”方式，選中它并單擊下一步，出現(xiàn)如圖所示對話框，此界面用于填寫將VB連接到SQL SEVER的主要信息，首先在“選擇或輸入服務器的名稱”一欄中點擊下拉菜單，選擇本機上的SQL SEVER服務器體驗版本。在工具箱上單擊鼠標右鍵，在彈出的快捷菜單中選擇【部件】命令，在彈出的對話框中選擇ADO控件，然后單擊確定按鈕。Private Sub Command1_Click() = DateMsgBox ok, vbExclamationEnd Sub此按鈕為添加按鈕，其功能是手動將已知的數(shù)據(jù)，通過此界面輸入到sql sever數(shù)據(jù)庫中，這里我們用到了兩個控件。（3）錄入界面圖4 錄入界面界面介紹：此界面主要實現(xiàn)的功能是手動錄入功能，以及對數(shù)據(jù)庫的操作。Private Sub 修改_Click()End Sub此按鈕用于調(diào)用修改功能界面。Private Sub 分析_Click()End Sub此按鈕用于調(diào)用分析功能界面。由于第一個條件顯然不成立所以lable1一直向左移動于是出現(xiàn)了一直向左移動的效果。首先進入界面時，直接賦值enabled為：ture，interval為：100。TIMER有兩個屬性，第一個屬性為：ENABLED 它的值有兩個分別為TURE或FALSE當它的值TURE時控件TIMER開始工作，相反則停止工作。 = 100 ‘設置時鐘為100毫秒。（2）主界面圖3 主界面 選擇界面代碼：Private Sub Form_Load() = True ‘給TIMER控件賦值。 界面及部分代碼功能介紹（1）歡迎界面圖2 歡迎界面界面代碼：Private Sub Command1_Click()End Sub點擊此按鈕以進入下級界面，即選擇操作界面。數(shù)據(jù)庫的創(chuàng)建也可以用編輯器來實現(xiàn)，比較適合新手操作，簡單易學。創(chuàng)建數(shù)據(jù)庫CREAT DATABASE zhpON(NAME= ‘zhp’,FILENAME=N’F:\’,SIZE=3MB,FILEGROWGH=1MB)LOG ON(NAME=’zhp_log’,FILENAME=N‘F:\’，SIZE=3MBFILEGROWTH=1MB)GO此操作用于創(chuàng)建一個數(shù)據(jù)庫，其名稱為zhp，同時創(chuàng)建一個日志文件其名稱為zhp_log。 數(shù)據(jù)庫系統(tǒng)是以數(shù)據(jù)庫應用為基礎的計算機系統(tǒng)，可以有組織和動態(tài)的存儲大量相關數(shù)據(jù)，提供數(shù)據(jù)處理和信息資源共享的便利手段。 數(shù)據(jù)庫及數(shù)據(jù)表的建立數(shù)據(jù)庫是存儲在一起的相關數(shù)據(jù)的集合，這些數(shù)據(jù)是結構化的，無有害的或不必要的冗余，并為多種應用服務；數(shù)據(jù)的存儲獨立于使用它的程序；對數(shù)據(jù)庫插入新數(shù)據(jù)，修改和檢索原有數(shù)據(jù)均能按一種公用的和可控制的方式進行。（3）能夠實現(xiàn)按溫濕度查詢時當場分析功能。其主要功能為：（1）能夠實現(xiàn)溫度濕度等數(shù)據(jù)的在線錄入功能。 4系統(tǒng)開發(fā)登陸開始數(shù)據(jù)輸入數(shù)據(jù)查詢主窗口數(shù)據(jù)修改數(shù)據(jù)分析圖1 系統(tǒng)功能圖此溫濕度管理系統(tǒng)的功能是實現(xiàn)對農(nóng)田監(jiān)測儀測量的數(shù)據(jù)信息化、自動化、簡便化管理。 數(shù)據(jù)控制語言Data Controlling Language（DCL），控制：control/ 例如：GRANT、REVOKE、COMMIT、ROLLBACK等語句。 SQL
物理相關推薦
鄂ICP備17016276號-1