【正文】 Exclamation ‘文本框提醒“表中已無數(shù)據(jù)，請(qǐng)輸入數(shù)據(jù)” Else ‘如果指針符合要求，指針自動(dòng)向下移動(dòng)一位。如果此時(shí)指針已到達(dá)文件尾，再單擊下一條時(shí)，指針自動(dòng)移動(dòng)到文件開頭，顯示第一條數(shù)據(jù)。 Else !wd = ‘將 Text1中的值付給表中溫度字段。 !z = ‘將 Text5中的值付給表中 Z字段。 MsgBox 已到文件末尾，無法刪除 , vbExclamation ‘對(duì)話框提示 已到文件末尾，無法刪除 。 End If End Sub 此段代碼用于實(shí)現(xiàn)對(duì)當(dāng)前一條數(shù)據(jù)的刪除功能，首先利用上一條下一條按鈕，找到已不需要的數(shù)據(jù)，然后單擊刪除按鈕，就能成功刪除。 End If End Sub 這段代碼主要功能是，無論此時(shí)文本框中是哪行數(shù)據(jù)，點(diǎn)擊此按鈕后數(shù)據(jù)指針將自動(dòng)移動(dòng)到第一行數(shù)據(jù)，主要是通過帶指針的操作來實(shí)現(xiàn)的。 10 30 10 End Sub Private Sub Command3_Click() Dim strquery As String ‘定義字符串。 Else strquery = Select * From ws Where rq = 39。 and wd amp。 If = 30 Then ‘判斷 b1的值。 Select * From ws Where rq = 39。 and wd amp。 從而更加智能、方便、減少勞動(dòng)力，增加工作效率。 Else ‘將指針移動(dòng)到最后。 Else = Date = Right(, 5) = Left(Right(, 10), 5) = Left(Right(, 15), 5) = Left(Right(, 20), 5) = Left(Right(, 25), 5) ‘利用 left 和 right 函數(shù)來接收傳過來的數(shù)據(jù)。 End If End Sub 這段程序主要用來實(shí)現(xiàn)將以傳輸過來的數(shù)據(jù)實(shí)時(shí)錄入到數(shù)據(jù)庫中，通過引用 ADO 控件、 DATAGRID 控件、 TIMER 控件、來配合實(shí)現(xiàn)這一功能。 此界面還有一個(gè)很重要的功能，就是如何實(shí)現(xiàn)兩個(gè) DTU 之間互相傳輸數(shù)據(jù)的功能，我們這里采用的是一個(gè) WINSOCK 控件，下面我們對(duì)這一控件做簡(jiǎn)要介紹 : 控件對(duì)用戶不可視，可以很容易的訪問 TCP 和 UDP 網(wǎng)絡(luò)服務(wù)，被老版本 Microsoft Access, Visual Basic ,Visual C++或 Visual FoxPro 開發(fā)人員使用。跟 TCP 的操作不同，計(jì)算機(jī)并不建立連接。于是，客戶計(jì)算機(jī)使用 DataArrival 事件內(nèi)的 GetData 方法來獲取已發(fā)送的信息 [13]。使用本軟件之前必須先安裝好 AutoCAD20xx。 （ 3） 系統(tǒng)軟件的使用說明詳見圖 1。 （ 3） 大部分的 sql 結(jié)構(gòu)化查詢語言在系統(tǒng)中得到應(yīng)用。 （ 2）在查詢界面，分析界面中 ADO控件 沒有為其指定記錄源，而是編寫到了程序里面，從而在運(yùn)行時(shí)當(dāng)選擇查詢或分析界面時(shí)會(huì)出現(xiàn)一個(gè)對(duì)話框“沒有為 ADO指定記錄源”從而影響界面美觀。 今后解決的思路與方法 在 農(nóng)田監(jiān)測(cè)儀數(shù)據(jù)管理軟件開發(fā) 過程中，遇到了 許 多問題，也學(xué)到了不少 東西 。 要完善 系統(tǒng)管理軟件 ，解決遺留的 部分 問題，那么我們 要 繼續(xù) 努力 學(xué)習(xí) SQL SEVER 和VB軟件，或者掌握其他更好的開發(fā)方法，向各方面的專家請(qǐng)教，用先進(jìn)、便捷、穩(wěn)定的方法完成后續(xù)的開發(fā)工作。 成果 的確 不少，但缺點(diǎn)也 比較 多 比較 明顯，需要在后續(xù) 開發(fā) 中得到 充分 解決。我的畢業(yè)設(shè)計(jì)從選題、 開題報(bào)告 、 前期指導(dǎo) 、系統(tǒng)設(shè)計(jì)及說明書撰寫的整個(gè)過程都是在他的悉心指導(dǎo)下完成的。 尤其是我們作為一名國防生，畢業(yè)設(shè)計(jì)期間 有一個(gè)月去部隊(duì)實(shí)習(xí)去了，回到校園后又舉行了一個(gè)軍事訓(xùn)練月，大概有一個(gè)多月的時(shí)間沒能 參加到畢業(yè)設(shè)計(jì)中來，為此張老師親自找我輔導(dǎo)，給我介紹設(shè)計(jì)資料的選擇， 并殷切教導(dǎo)我無論在哪里都要心里想著畢業(yè)設(shè)計(jì)。同時(shí) 我 也要感謝在做畢業(yè)設(shè)計(jì)過 程時(shí) 幫助過我的老師 們 、同學(xué) 們 和朋友 們 ，在 他們的支持 下 與幫助 下 才使 得 我順利完成 了這次畢業(yè)設(shè)計(jì) ， 在這里我 向他們 莊嚴(yán) 的說聲謝謝！ 感謝 學(xué)院能 給 我這樣一次 良好的 機(jī)會(huì)，能夠獨(dú)立地完成一個(gè)課題，并在 畢業(yè)設(shè)計(jì) 過程中，給 了 我們各種方便 的設(shè)施 ，使我們?cè)诩磳㈦x 開學(xué) 校的最后一段時(shí)間里，能夠更多更快的 學(xué)習(xí)一些實(shí)踐應(yīng)用 性的 知識(shí)，增 加 了我們實(shí)踐操作和動(dòng)手 動(dòng)腦的 應(yīng)用能力，提高 本 科 畢 業(yè) 設(shè) 計(jì) 第 30 頁 共 32 頁 了 我們 獨(dú)立思考 問題 的能力。 由于 我的 水平有限， 有很多 紕漏 的地方 ， 希望 各位老師 多多 賜教。 這 四年 以 來，我的 老師們 、我的領(lǐng)導(dǎo) 們 、我的同學(xué) 們 給予 了 我 數(shù)不清的 關(guān)心和幫助，使我終身 難忘 ，我 由衷的 真心 感謝他們 ，他們將永遠(yuǎn)留在我的記憶里 。 在此期間，張老師還介紹我去找了對(duì)編程比較熟悉的幾位老師，有常 宏 杰老師、還有安軍強(qiáng)老師，在這里我也向他們表示由衷的感謝，幾位和自己不相干的老師卻耐心的指導(dǎo)自己，幫我們找資料，他們平易近人的作風(fēng)使 我深深為之感動(dòng)。 張 老師工作認(rèn)真 積極 負(fù)責(zé)、治學(xué) 非常 嚴(yán)謹(jǐn)、一絲不茍，是他 如今 取得成就的關(guān)鍵，也是我們學(xué)習(xí)的 楷模 ，在這次的畢業(yè)設(shè)計(jì)中給 于了 我們 非常 大的促進(jìn)作用。 通過這次的畢業(yè)設(shè)計(jì)我 們 的專業(yè)能力得到了 提升 ，自學(xué)的 能力和思考問題的能力 得到了 加強(qiáng) ，學(xué)到了 許 多解決問題和課題研究的辦法，這對(duì)于 我 們 在以后的工作和學(xué)習(xí)中 有很大的幫助 。 由于 在 張 老師的指導(dǎo) 下， 同學(xué)的幫助下 ， 我 逐漸學(xué)習(xí)并熟悉了這兩門語言，編程和調(diào)試程序的能力也 得到了 提高，最終成功 實(shí)現(xiàn)了 將溫濕度數(shù)據(jù)，在線傳輸、實(shí)時(shí)錄入、按要求查詢、在線分析和修改等功能。 要弄清 SQL SEVER 中數(shù)據(jù)指針的具體情況，以實(shí)現(xiàn)界面的流暢與美觀，學(xué)好 VB編程 ，以及控件的使用方法是編程 更加完善，界面更加完善，認(rèn)真研究 WINSOCK 控件及 TIMER 控件的 使用方法在后續(xù)的編程中是程序更加簡(jiǎn)便，容易操作。 （ 4） 界面設(shè)計(jì)不精細(xì)，功能不完善，需要進(jìn)一步研究。 （ 5）應(yīng)用控件之間的配合良好的實(shí)現(xiàn)了系統(tǒng)所需的功能。 6 設(shè)計(jì)思路 系統(tǒng)開發(fā)已經(jīng)解決的問題 在 系統(tǒng)的開發(fā)過程中， 按要求 主要解決了以下問題： （ 1） 數(shù)據(jù)的實(shí)時(shí)錄入及管理功能。 軟件系統(tǒng)使用說明 （ 1）運(yùn)行軟件前 必須安裝 SQL SEVER 20xx。只需雙擊自解壓文件會(huì)提示用戶選擇安裝路徑。為了傳輸數(shù)據(jù)，首先要設(shè)置客戶計(jì)算機(jī)的 LocalPort 屬性。通過設(shè)置 Winsock 控件的屬性和調(diào)用該控件的方法，可以很容易地連接到遠(yuǎn)程計(jì)算機(jī)并進(jìn)行雙向的數(shù)據(jù)交換。 本 科 畢 業(yè) 設(shè) 計(jì) 第 25 頁 共 32 頁 Timer 事件：開始的時(shí)候設(shè)置其 enable 屬性為 false，此時(shí)將不會(huì)執(zhí)行 timer 事件，然后設(shè)置其 interval 屬性為 100（即 100 毫秒），就是每 100 毫秒執(zhí)行一次 timer 事件。 = ‘清空文本框。 = ‘清空文本框。 MsgBox 已無需初始化 , vbExclamation ‘對(duì)話框提醒 已無需初始化 。 意思是從溫濕數(shù)據(jù)表中選出當(dāng)天的數(shù)據(jù)而且溫度必須符合 bo1中的條件。 amp。 Else MsgBox 溫度過低，請(qǐng)注意溫度控制 , vbExclamation ‘彈出對(duì)話框 溫度過低，請(qǐng)注意溫度控制 ，提醒管人員。 ‘定義 sql語言，主要意思是從溫濕度 表中選擇溫度大于 b1值的數(shù)據(jù)并且日期為當(dāng)前時(shí)間。 amp。 If = Then ‘判斷 b1是否為空。 （ 6） 分析 界面 界面介紹 ：實(shí)現(xiàn)對(duì)數(shù)據(jù)的 在線分析，主要是對(duì)溫度和濕度的實(shí)時(shí)分 析功能。 MsgBox 表中已無數(shù)據(jù)，請(qǐng)輸入數(shù)據(jù) , vbExclamation ‘彈出對(duì)話框提醒 表中已無數(shù)據(jù)，請(qǐng)輸入數(shù)據(jù) 。 ‘更新溫濕度數(shù)據(jù)表。 End If End Sub 這段代碼用于實(shí)現(xiàn)將修改的數(shù)據(jù)重新保存到數(shù)據(jù)庫中， 首先將數(shù)據(jù)顯示在界面上六個(gè)文本框中，然后可以在文本框中直接修改需要改動(dòng)的數(shù)據(jù)，修改完 畢后直接點(diǎn)擊保存按鈕，就能實(shí)現(xiàn)修改后的錄入功能。 !X = ‘將 Text3中的值付給表中 X字段。 Private Sub Command3_Click() If = Then ‘判斷文本框是否為空。 End If End Sub 這段代碼用于實(shí)現(xiàn)查看下一條數(shù)據(jù)的功能， 點(diǎn)擊下一條按鈕數(shù)據(jù)指針自動(dòng)移動(dòng)一位，并將數(shù)值自動(dòng)錄入到相應(yīng)的文本框中。 （ 5） 修改界面 圖 13 修改界面 本 科 畢 業(yè) 設(shè) 計(jì) 第 19 頁 共 32