基于vb的瓦斯警報課程設(shè)計(編輯修改稿)
2025-07-24 18:57 本頁面
【文章內(nèi)容簡介】 End If End If End IfEnd SubPrivate Sub Command2_Click() End SubForm3截圖 說明登錄界面由formform2和form3三個界面組成，實現(xiàn)用戶的登陸。通過在form1中設(shè)置的ComboBox(組合框),用戶可以選擇自己所屬的用戶類型，從而實現(xiàn)不同類型通過不同的路徑登錄。同時，我還在form中增設(shè)了一個Timer控件，用來增強標題的動態(tài)效果。在form2和form3中，都使用了ADO控件，該控件的主要作用是用來實現(xiàn)窗體和數(shù)據(jù)庫的連接。ADO控件的設(shè)置步驟如下一、右擊ADO控件，單機彈出的快捷菜單中的“ADODC屬性”選項。二、在彈出的屬性頁中，單擊“生成”，然后在彈出的“數(shù)據(jù)連接屬性”選擇或輸入數(shù)據(jù)庫名稱三、單擊“測試連接”，若顯示“測試連接成功”，則說明已經(jīng)成功地實現(xiàn)了和數(shù)據(jù)庫的連接。在本課程設(shè)計中，ADO控件的運用是極為廣泛。后面的窗體所涉及到的ADO控件的設(shè)置方法，與這里類似，到時將不再贅述。在通過登錄界面完成登陸之后，便進入主窗體(Form4)，進而完成修改密碼，增加、注銷用戶，查看瓦斯?jié)舛鹊膶崟r動態(tài)曲線等各種功能。 代碼設(shè)計及截圖Private Sub chakanjiankongdianfenbutu_Click() End SubPrivate Sub dayinerhao_Click() End SubPrivate Sub dayinsanhao_Click() End SubPrivate Sub dayinyihao_Click() End SubPrivate Sub erhao_Click() End SubPrivate Sub fanhui_Click() End SubPrivate Sub liaojiebenxitong_Click() End SubPrivate Sub sanhao_Click() End SubPrivate Sub shanchuyonghu_Click() End SubPrivate Sub tongshi_Click() End SubPrivate Sub xiugaimima_Click() End SubPrivate Sub yihao_Click() End SubPrivate Sub zengjiaxinyonghu_Click() End SubForm4截圖 說明本窗體運用了菜單編輯器來編輯下拉式菜單。下拉式菜單的優(yōu)點在于可以使操作界面變得整潔美觀，是程序的應用和操作變得十分的直觀、方便。各菜單項的屬性設(shè)置如下表所示。標題Name內(nèi)縮符號備注用戶管理yonghuguanli無增加新用戶zengjiaxinyonghu刪除用戶Shanchuyonghu修改密碼xiugaimima查看cakan一號監(jiān)測點Yihao二號監(jiān)測點Erhao三號監(jiān)測點sanhao同時查看tongshi打印報表dayinbaobiao打印一號監(jiān)測點Dayinyihao打印二號監(jiān)測點Dayinerhao打印三號監(jiān)測點Dayinsanhao了解liaojie了解本系統(tǒng)liaojiebenxitong查看監(jiān)控點分布圖chakanjiankongdianfenbutu返回登錄界面fanhui 用戶的刪除 代碼與截圖 Private Sub form_load() = *End SubPrivate Sub Command1_Click() If = Then MsgBox 請輸入您要刪除的用戶的姓名, vbOKOnly + vbInformation, 提示 End If If = Then MsgBox 請輸入您的姓名, vbOKOnly + vbInformation, 提示 End If If = Then MsgBox 請輸入您的密碼, vbOKOnly + vbInformation, 提示 End If = select*from 管理員 where 姓名 =39。 amp。 amp。 39。 and 密碼 =39。 amp。 amp。 39。 If = True Then MsgBox 您的姓名或您的密碼有誤，請重新輸入, vbOKOnly + vbExclamation, 提示 = = Else = select*from 一般用戶 where 姓名 =39。 amp。 amp。 39。 If = True Then MsgBox 您要刪除的用戶不存在，請重輸, vbOKOnly + vbExclamation, 提示 Else Dim m As Integer m = MsgBox(刪除該用戶之后將無法恢復，確定刪除？, 4 + 32 + 256, 提示) If m = vbYes Then = select*from一般用戶 where 姓名 =39。 amp。 amp。 39。 If Then : MsgBox 這是最后一條記錄，確定刪除？, vbOK
語文相關(guān)推薦
鄂ICP備17016276號-1