課程設(shè)計(jì)論文燃?xì)夤芾硐到y(tǒng)(編輯修改稿)
2024-07-25 23:40 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 （8,0）十進(jìn)制 3 表型號(hào) （6,0） 十進(jìn)制 4 維修時(shí)間 日期型 5 維修人員 8 字符型 第六章 界面設(shè)計(jì)登陸窗口如下所示：若輸入的密碼不符合，即彈出對(duì)話框，提示該用戶無(wú)法進(jìn)入系統(tǒng)。主界面單擊主界面上的各個(gè)按鈕，可以進(jìn)入相應(yīng)的界面中。單擊菜單欄中的菜單，可以彈出下拉菜單。單戶讀表。就是每一天的用氣量需要更新，所以需要讀表集中度表，就是一個(gè)地方的一起更新每一天的數(shù)據(jù)下發(fā)表 ID，就是給每一個(gè)用戶的表下發(fā)一個(gè) ID ,然后他們就能使用了！遠(yuǎn)程開(kāi)關(guān)閥，當(dāng)用戶欠費(fèi)是，就利用這個(gè)切斷燃?xì)夤?yīng)開(kāi)關(guān)，停止對(duì)他的供氣用戶信息查詢用戶用氣量查詢用戶維修查詢用戶換表查詢用戶變更查詢用戶開(kāi)戶登記用戶變更登記用戶換表登記用戶維修信息打印用戶換表信息打印用戶變更信息打印總結(jié)與體會(huì) 在燃?xì)夤芾硐到y(tǒng)的設(shè)計(jì)過(guò)程中,也曾遇到很多困難,因?yàn)檫@是一個(gè)直接面對(duì)用戶的程序,所以在燃?xì)夤芾碓O(shè)計(jì)的階段也是需要不斷的改進(jìn),盡我們最大的程度去滿足用戶需求!在這個(gè)數(shù)據(jù)庫(kù)設(shè)計(jì)的初期遇到一個(gè)自動(dòng)更新問(wèn)題,利用上課,自己不斷的查資料,不斷地克服問(wèn)題最終將他妥善解決!其實(shí)遇到這樣的問(wèn)題也挺多的,下面就不一一細(xì)說(shuō)了! 在做個(gè)系統(tǒng)時(shí),有很多次自己想自己還是放棄了得了,但是,這些只是想法,而我嘗到了成功的喜悅!不管做什么事,都要堅(jiān)持到最后,要相信終會(huì)成功! 本人簽字： 參考文獻(xiàn)：[1]王珊，[2]Inmon W ：機(jī)械工業(yè)出版社[3] 戴軍湘, [4] 石志國(guó)編著 . Visual ,2022 5] 林聯(lián)彬,李旭, ,2022[6] 程序設(shè)計(jì)入門 . 清華大學(xué)出版社 ,2022[7] 曹祖圣主編. Visual ,2022附錄：部分源程序代碼(1)登錄代碼:If = abc And = 123 ThenUnload MeElseIf a = 3 ThenMsgBox (你已經(jīng)用了三次機(jī)會(huì)了，只能退出)Unload MeElse a = a + 1 MsgBox (密碼不對(duì)，請(qǐng)重新輸入，你還有 + Str(3 a) + 次機(jī)會(huì)) End If End If(2)主界面代碼Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case 用戶開(kāi)戶登記 Case 用戶變更登記 Case 用戶用氣量查詢 Case 用戶維修 Case 遠(yuǎn)程開(kāi)關(guān)閥 Case 集中讀表 Case 退出系統(tǒng) Dim cc = MsgBox(確定要退出燃?xì)夤芾硐到y(tǒng)嗎?, 33, 燃?xì)夤芾硐到y(tǒng))If c = vbOK Then Unload MeEnd Else End IfEnd SelectEnd SubPrivate Sub 單戶讀表_Click()End SubPrivate Sub 關(guān)閉系統(tǒng)_Click()Dim cc = MsgBox(確定要退出酒店管理系統(tǒng)嗎?, 33, 酒店管理系統(tǒng))If c = vbOK Then Unload MeEnd Else End IfEnd SubPrivate Sub 集中讀表_Click()End SubPrivate Sub 下發(fā)表 ID_Click()End SubPrivate Sub 用戶變更查詢_Click()End SubPrivate Sub 用戶變更登記_Click()End SubPrivate Sub 用戶變更信息打印_Click()End SubPrivate Sub 用戶換表登記_Click()End SubPrivate Sub 用戶換表查詢_Click()End SubPrivate Sub 用戶換表信息打印_Click()End SubPrivate Sub 用戶開(kāi)戶登記_Click()End SubPrivate Sub 用戶維修登記_Click()End SubPrivate Sub 用戶維修查詢_Click()End SubPrivate Sub 用戶維修信息打印_Click()End SubPrivate Sub 用戶信息查詢_Click()End SubPrivate Sub 用戶用氣量查詢_Click()End SubPrivate Sub 遠(yuǎn)程開(kāi)關(guān)閥_Click()End Sub(3)單戶讀表Private Sub Command1_Click()Dim conn As New Dim rs As New Dim strSql As StringSet conn = New = Provider=SQLOLEDB。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=燃?xì)夤芾硐到y(tǒng) = 0strSql = update 用戶用氣量信息表 set 已用燃?xì)饬?已用燃?xì)饬?當(dāng)日用氣量 where 用戶姓名=39。 amp。 amp。 39。 and 表 ID=39。 amp。 Val() amp。 39。 and 住址=39。 amp。 amp。 39。 strSql = select * from 用戶用氣量信息表 = : = : = :End SubPri
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1