【導(dǎo)讀】費管理人員進(jìn)行抄表管理的軟件系統(tǒng)。理效率而設(shè)計的。它完全取代了原來一直用人工抄表的工作方式，避免了。準(zhǔn)確、高效地完成電表抄表管理提供了強有力的工具和管理手段。算機對用電信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點。迅速、查找方便、可靠性高等。這些基本滿足了抄表管理的需求。抄表理系統(tǒng)在運行階段，效果好，數(shù)據(jù)準(zhǔn)確性高，提高了

　　

【正文】 MSm 控件，并在窗體裝入時進(jìn)行初始化 Private Sub Form_Load() = False = 40 39。初始化串口 = 0 = InputModeBinary 39。二進(jìn)制方式 = 1 = 9600,N,8,1 = 1 = 0 39。每次讀入緩沖區(qū)所有字符 If = False Then = True 39。打開串口 End If End Sub 2 添加 8 個 Check 并分別命名為 LED1—— LED8 ，用于控制單片機的 8個燈的狀態(tài) 添加一個命令按鈕 Command“應(yīng)用”用于確認(rèn)信息無誤后發(fā)送。 Private Sub Command1_Click() Dim A,B A =Check1(0).Value + Check1(1).Value * 2 + Check1(2).Value * 4 + Check1(3).Value * 8 B = Check1(4).Value + Check1(5).Value * 2 + Check1(6).Value * 4 + Check1(7).Value * 8 If = False Then = True 39。打開串口 End If = 0 = Chr(CInt(B)) 39。向單片機發(fā)送數(shù)據(jù) = 0MSComm1. Output = Chr(CInt(A))End Sub 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 33 結(jié)論 經(jīng)過三個多月的畢業(yè)設(shè)計，一個完整的基于 VB 的抄表管理系統(tǒng)終于設(shè)計完成了，但也正在這時我真正意識到自己所學(xué)知識量過少與對知識理解的欠佳，可以說關(guān)于這方面的接觸對于我來說才剛剛開始，深有 感觸，無以言表。 關(guān)于本系統(tǒng)，雖然對電抄系統(tǒng)進(jìn)行了系統(tǒng)的創(chuàng)建，但我們不可忽略的是這個系統(tǒng)并不完美，我們也不能高枕無憂。我們要在以后的學(xué)習(xí)實踐中去檢驗它的可用性，特別要考慮它的實時性和安全性，這才是我們最值得考慮的問題。一個系統(tǒng)好不好，要經(jīng)過反復(fù)的使用才能知道，不光光是理論中分析和設(shè)計得出來的。由此我就想到了在做這個系統(tǒng)時，有可能有的人用 ACCESS,有的人有可能用 SQL 等來建立不同的數(shù)據(jù)庫，這樣就導(dǎo)致有的系統(tǒng)自帶的代碼，而有的則是我們寫進(jìn)去的純代碼，當(dāng)然也就出現(xiàn)了個種各樣的問題。特別是關(guān)于系統(tǒng)的可移植性，有 許多不足之處，這樣我們就應(yīng)當(dāng)多查閱相關(guān)資料，反復(fù)地熟練應(yīng)用，才能把系統(tǒng)設(shè)計的巧，設(shè)計的好。同學(xué)交流也十分的重要，交流就是進(jìn)步，有進(jìn)步就會帶你走人一種柳暗花明的欣喜境界。 經(jīng)過這次畢業(yè)設(shè)計，引發(fā)了我得很多思考和興趣，首先是做程序要勤，手勤，眼勤，心勤；其次是要有韌性，不怕麻煩，不怕失敗，反復(fù)調(diào)試，反復(fù)練習(xí)，這樣才能找到最佳的程序設(shè)計。 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 34 致謝 非常感謝我的導(dǎo)師薛楠給予 我悉心關(guān)懷 ， 讓我順利地完成了畢 業(yè)論文，當(dāng)然也感謝母校辛勤培育之恩，老師和同學(xué)的大力幫助之情，讓 我學(xué)到了許多新的知識，同時也懂得了一些做學(xué)問的道理 ，這是一筆寶貴的財富。 從選擇畢業(yè)設(shè)計題目，到畢業(yè)設(shè)計規(guī)劃，查 找相關(guān)資料，設(shè)計模型，具體實施，結(jié)束論文，整個大致的流程中，我的 導(dǎo)師都給予 了我耐心的指導(dǎo)和默默的關(guān)心，設(shè)計為期之長，期間遇到了不少問題， 承蒙了老師的照顧，真的想對老師說聲 ：老師，謝謝您。除此之外，我還要感謝我的 幾位同學(xué)的得力相助，我希望我能向他們學(xué)習(xí)，發(fā)揚那種百折不撓孜 孜不倦的求索精神，那種至高無上的敬業(yè)精神，馬上我就要走向工作崗位 了，我相信我會時刻用他們的平凡而不簡單來鞭策自己 。 最后，祝愿我的老師和學(xué)友們永遠(yuǎn)幸福，快樂 。 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 35 參考文獻(xiàn) [1] 王 珊編著，數(shù)據(jù)庫概論 , 高等教育出版社 2021 年 2 月，第 45 頁 [2] 劉文濤編著 Visual Basic+Access，清華大學(xué)出版社 2021 年 7 月 ，第 141 頁 [3] 龔沛曾， 陸衛(wèi)民，楊志強編， Visual 程序設(shè)計教程 ，高等教育出版社， 2021 年 7 月，第 3 頁 [4] 飛思科技產(chǎn)品研發(fā)中心編著， Visual Basic 靈感編程 ，電子工業(yè)出版社， 2021 年 6 月，第 5051 頁 [5] 汪遠(yuǎn)征，劉瑞新編著 Visual Basic 與可視化編程 ，上?？萍汲霭嫔?，2021 年 5 月，第 100102 頁 [6] 網(wǎng)冠科技編 , Visual 程序設(shè)計工程師 ，機械工業(yè)出版社 2021 年2 月 ，第 7884 頁 [7] 譚浩強編著 ,Visual 程序設(shè)計教程 第二版 ，清華大學(xué)出版社2021 年 6 月 ，第 6072 頁 [8] 李長林 ,張麗華 ,王紅 ,編著 Visual Basic 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā) ,電子工業(yè)出版社， 2021 年 5 月 ,第 245 頁 [9] 蔡敏 ,劉海英．汪杰編著 ,Visual Basic 數(shù)據(jù)庫開發(fā)工程案例 ,人民郵電出版社， 2021． 8： 301 頁 [10] 康博工作室 ,張紅軍 ,王紅等編著 ,Visual Basic 6． 0 中文版高級應(yīng)用與開發(fā)指南 ,人民郵電出版社， 2021 年 4 月 ,第 147 頁 [11] 明日科技 ,Visual Basic 管理信息系統(tǒng)完整項目實例剖析 ,人民郵電出版社 ,第 41 頁 [12] 劉志銘 ,高春艷等編著 Visual Basic 數(shù)據(jù)庫開發(fā)實例解析 ,機械工業(yè)出版社 ,2021 年 8 月 第 98 頁 [13] 高春艷 ,李俊民等編著 Visual Basic 工程應(yīng)用與項目實踐 ,機械工業(yè)出版社 ,2021 年 1 月 第 128 頁 [14 ] 高春艷 ,李艷編著 Visual basic 數(shù)據(jù)庫 開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用 ,人民郵電出版社 ,2021 年 5 月 第 121 頁 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 36 附錄 A 部分窗體代碼 用戶登錄代碼 Private Sub Command1_Click() Dim rstpchard As New Dim reHard As String Dim getid As String reHard = GetpcHard(getid) select * from getpchard , gCnn, adOpenKeyset, adLockBatchOptimistic If = 0 Then (0) = reHard adAffectCurrent Else If Trim(reHard) Trim((0)) Then MsgBox 對不起，使用不合法請與開發(fā)者聯(lián)系！ , vbInformation End End If End If If = 1 Then Set rec = New select * from 記住密碼 , gCnn, 3, 3 rec(標(biāo)記 ) = 1 If Then rec(姓名 ) = Else rec(姓名 ) = End If If Then rec(權(quán)限 ) = Else rec(權(quán)限 ) = End If If Then rec(密碼 ) = Else rec(密碼 ) = 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 37 End If Else Set rec = New select * from 記住密碼 , gCnn, 3, 3 rec(標(biāo)記 ) = 0 End If Dim rec1 As Set rec1 = New select * from 登錄人員 , gCnn, 3, 3 Set rec = New select * from 密碼表 where 姓名 =39。 amp。 amp。 39。and 操作權(quán)限 =39。 amp。 amp。 39。and 密碼 =39。 amp。 amp。 39。, gCnn, 3, 3 If = False Then If rec(操作權(quán)限 ) 管理員 Then 39。 = False = False = False = False 39。 = False 39。 = False Else 39。 = True = True = True CreateNewKey HKEY_CURRENT_USER, ZhiYuanTechnologe SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, UserName, dlj, REG_SZ SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, PassWord, dlj, REG_SZ 39。 = True 39。 = True End If rec1(姓名 ) = Guser = 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 38 Else MsgBox 權(quán)限或密碼不正確，請重試 !, vbInformation End If End Sub Private Sub Command11_Click() End Sub Private Sub Command2_Click() = = = End Sub Private Sub Command3_Click() End End Sub Private Sub Command4_Click() 1 End Sub Private Sub Form_Activate() = = = Set rec = New select * from 記住密碼 , gCnn, 3, 3 If rec(標(biāo)記 ) = 0 Or rec(標(biāo)記 ) = 1 Then = rec(標(biāo)記 ) End If Set rec = New select * from 記住密碼 , gCnn, 3, 3 If rec(標(biāo)記 ) = 1 Then = rec(姓名 ) = rec(權(quán)限 ) = rec(密碼 ) End If 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 39 End Sub Private Sub Form_Load() = Provider=。Jet OLEDB:database password= amp。 DbPassword amp。 。Data Source= amp。 _ amp。 \data\。Persist Security Info=False = adUseClient Set rec = New select distinct 姓名 from 密碼表 , gCnn, 3, 3 With Combo2 Do Until .AddItem rec(姓名 ) Loop End With Set rec = Nothing End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = True Select Case MsgBox(此操作將退出本系統(tǒng)，繼續(xù)嗎？ , vbYesNo, 警告 ) Case vbYes Cancel = False End Case Else Cancel = True End Select End Sub 主界面代碼 Private Sub alllm_Click() = False End Sub Private Sub backup_Click() End Sub 哈爾濱理工大學(xué)學(xué)士學(xué)位論文 40 Private Sub benrixiaojie_Click() End Sub Private Sub Command1_Click() = False End Sub Private Sub cmdQuery_Click() Dim rst As New select * from panelinfo where holder=39。 amp。 amp。 39。 and de