【正文】 不懂的地方就要問，參考文獻(xiàn)1．《visual basic程序設(shè)計》（第二版）， 王學(xué)軍 張玉梅 中國鐵道出版社課題制作人 陳 ＃ ＃ 學(xué)號 2010＃＃＃＃ 聯(lián)系電話 137第 ２９ 頁 共 29 頁。學(xué)習(xí)是永恒的，不知道的太多太多了，唯有不斷的學(xué)習(xí) 才能勝任自己的工作。于是我從圖書館借來許多書籍，自學(xué)以前沒學(xué)過的東西。與此同時，這一次的課程設(shè)計對于人生也有很大的啟示意義，做一件事，首先要有一個完整的規(guī)劃，并且按照規(guī)劃一步一步去做 ，不然到最后什么都做不了。這次vb課程設(shè)計 ，我收獲頗豐。僅僅實時動態(tài)曲線的知識就讓我查閱了兩天。讓我一度不知所措、急躁不安。每一點都需要學(xué)習(xí)因為從未接觸過數(shù)據(jù)庫、報表、實時曲線，從頭開始。事實上，這個課程設(shè)計的題目的確不好做，它的核心需要數(shù)據(jù)庫知識，需要報表打印，這些內(nèi)容都是老師要求我們自學(xué)的，而最為困難的是實現(xiàn)數(shù)據(jù)已動態(tài)曲線形式體現(xiàn)。DataReport1截圖伍 總結(jié)選題時，瓦斯報警監(jiān)控系統(tǒng)讓我眼睛一亮，首先，這是一個具有超級現(xiàn)實意義的系統(tǒng)，近年來煤礦的安全事故頻發(fā)，而這先事故的原因在很大程度上都與瓦斯?jié)舛瘸瑯?biāo)有關(guān)，因此，一個能有效監(jiān)控礦井內(nèi)瓦斯?jié)舛鹊南到y(tǒng)是很有用的；其次，這個項目要求一個人獨(dú)立完成，具有很強(qiáng)的挑戰(zhàn)性和鍛煉價值。Data控件的設(shè)置方法是：將Databasename設(shè)置為所要連接的數(shù)據(jù)庫的地址，將Recordsourse屬性設(shè)置為數(shù)據(jù)庫中所要連接的表格。Form10的源代碼如下Private Sub Command1_Click() End SubPrivate Sub Command2_Click() End SubForm10截圖說明：這里運(yùn)用到了一個很重要的控件——Data控件。 報表的顯示在本程序中，F(xiàn)ormForm1Form15分別表示一號、二號、三號監(jiān)測點的瓦斯?jié)舛缺?。Datareport控件和Dataenvironment控件的結(jié)合，實現(xiàn)報表打印，相應(yīng)數(shù)據(jù)清晰顯示。 報表的顯示與打印在瓦斯?jié)舛缺砩锨逦娘@示出來各個監(jiān)測點在各個時間的瓦斯?jié)舛?，為報表的打印做好了基礎(chǔ)。在本端程序中，將數(shù)據(jù)寫入數(shù)據(jù)庫的代碼是我以前沒有學(xué)過的，因此在編寫這一部分的程序時，我查閱了大量的資料，才將這一段完成。它涉及過程的調(diào)用圖像的繪制等多方面的知識，它需要我們有很強(qiáng)的綜合能力。 Second(Now) (瓦斯?jié)舛? = DataFromCom End SubPrivate Sub Command1_Click() Unload Me End Sub Form8截圖 說明本部分主要用來實現(xiàn)瓦斯?jié)舛惹€的動態(tài)顯示。 Minute(Now) amp。 = select*from 瓦斯 (時間) = Hour(Now) amp。 DataFromCom amp?！?‘ “ ‘每隔一秒將數(shù)據(jù)寫入相應(yīng)的數(shù)據(jù)庫 = select*from一號監(jiān)測點瓦斯?jié)舛缺韜here 瓦斯?jié)舛?=39。 : amp。 : amp。 Second(Now)End SubPrivate Sub Timer3_Timer() = “select*from 一號監(jiān)測點瓦斯?jié)舛缺?where 時間 =‘ “ amp。 Minute(Now) amp。畫出實時的曲線 = Str(DataFromCom)If DataFromCom 2900 Then MsgBox 一號監(jiān)測點瓦斯?jié)舛瘸瑯?biāo), vbOKOnly, 警告End IfEnd SubPrivate Sub Timer2_Timer() = Hour(Now) amp。定義一個過程名為PicMidleLine的過程，起作用是用Line方法，在圖像框中畫一條中線 (0, 0)(, 0), vbGreen End SubPrivate Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer) ‘定義了一個名叫DrawRealLine的過程，用來繪制瓦斯?jié)舛鹊膭討B(tài)曲線 If TimeCountX 1 0 Then ((TimeCountX—1)*10，DataFromComLastX)(TimeCountX*10, DataFromComX), vbWhite 39。上次的串口值Dim TimeCount As Integer ‘計時Private Sub form_load()PicScale Pic PicMidleLine Pic End SubPrivate Sub PicScale(picX As PictureBox) 39。Form8的代碼如下Option Explicit ‘強(qiáng)制顯式聲明變量Dim DataFromCom As Integer 39。 程序代碼及截圖本部分共涉及了Form8 (顯示一號瓦斯?jié)舛缺O(jiān)測點的瓦斯?jié)舛戎档膭討B(tài)變化情況)、Form12(顯示二號瓦斯?jié)舛缺O(jiān)測點的瓦斯?jié)舛戎档膭討B(tài)變化情況)、Form13(顯示三號瓦斯?jié)舛缺O(jiān)測點的瓦斯?jié)舛戎档膭討B(tài)變化情況)、Form16(同時顯示各瓦斯?jié)舛缺O(jiān)測點的瓦斯?jié)舛戎档膭討B(tài)變化情況)。 If Not Then MsgBox 用戶名已存在，請重新輸入, vbOKOnly + vbExclamation, 提示 = = = Else If Then MsgBox 兩次輸入的密碼不同，請重輸, vbOKOnly + vbExclamation, 提示 Else = select*from 一般用戶 (姓名) = (密碼) = MsgBox 用戶添加成功, vbOKOnly + vbExclamation, 添加用戶 End If