【正文】 在論文的撰寫過程中 老師們 給予我很大的幫助，幫助解決了不少的難點，使得論文 能夠及時完成，這里一并表示真誠的感 謝。老師們認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 最后，我要特別感謝 我的導(dǎo)師劉望蜀 老師、 和研究生助教吳子儀 老師。四年的風(fēng)風(fēng)雨雨，我們一同走過，充滿著關(guān)愛，給我留下了值得珍藏的最美好的記憶。感謝老師四年來對我孜孜不倦的教誨，對我成長的關(guān)心和愛護。從這里走出，對我的人生來說，將是踏上一個新的征程，要把所學(xué)的知識應(yīng)用到實際工作中去。 最后，我要感謝我的父母對我的關(guān)系和理解，如果沒有他們在我的學(xué)習(xí)生涯中的無 私奉獻(xiàn)和默默支持，我將無法順利完成今天的學(xué)業(yè)。 其次，我要感謝大學(xué)四年中所有的任課老師和輔導(dǎo)員在學(xué)習(xí)期間對我的嚴(yán)格要求，感謝他們對我學(xué)習(xí)上和生活上的幫助，使我了解了許多專業(yè)知識和為人的道理，能夠在今后的生活道路上有繼續(xù)奮斗的力量。從他身上，我學(xué)到了許多能受益終生的東西。 首先，我要特別感謝我的知道郭謙功老師對我的悉心指導(dǎo)，在我的論文書寫及設(shè)計過程中給了我大量的幫助和指導(dǎo)，為我理清了設(shè)計思路和操作方法，并對我所做的課題提出了有效的改進(jìn)方案。這期間凝聚了很多人的心血，在此我表示由衷的感謝。本次畢業(yè)設(shè)計是對我大學(xué)四年學(xué)習(xí)下來最好的檢驗。 首先非常感謝學(xué)校開設(shè)這個課題，為本人日后從事計算機方面的工作提供了經(jīng)驗，奠定 了基礎(chǔ)。 涉密論文按學(xué)校規(guī)定處理。 作者簽名： 日期： 年 月 日 學(xué)位論文版權(quán)使用授權(quán)書 本學(xué)位論文作者完全了解學(xué)校有關(guān)保留、使用學(xué)位論文的規(guī)定，同意學(xué)校保留并向國家有關(guān)部門或機構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱 。對本文的研究做出重要貢獻(xiàn)的個人和集體，均已在文中以明確方式標(biāo)明。 作者簽名： 日 期： 安徽理工大學(xué)畢業(yè)論文 33 學(xué) 位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨立進(jìn)行研究所取得的研究成果。對本研究提供過幫助和做出過貢獻(xiàn)的個人或集體，均已在文中作了明確的說明并表示了謝意。 安徽理工大學(xué)畢業(yè)論文 32 畢業(yè)設(shè)計（論文）原創(chuàng)性聲明和使用授權(quán)說明 原創(chuàng)性聲明 本人鄭重承諾：所呈交的畢業(yè)設(shè)計（論文），是我個人在指導(dǎo)教師的指導(dǎo)下進(jìn)行的研究工作及取得的成果。 感謝安徽理工大學(xué)給了我 一 個學(xué) 習(xí) 的機會，感謝測繪學(xué)院給予我成長的平臺。 在此，我還要感謝在儀器愉快的度過大學(xué)生活的同學(xué)、朋友，正是你么的幫助和支持，我才能克服一個一個的困難和疑惑，直至本文的順利完成。同時 在思想上和人生態(tài)度等方面 呂 老師給予了諄諄教誨，這些教導(dǎo)在我今后的學(xué)習(xí)和工作中將不斷影響我和激勵我。 呂老師嚴(yán)謹(jǐn)細(xì)致、一絲不茍的作風(fēng) 給我留下了深刻的印象，受益匪淺，她 一直是我工作、學(xué)習(xí)中的榜樣；她循循善誘的教導(dǎo)和不拘一格的思路給予我無盡的啟迪； 從開始的搜集材料，初稿的審核到最后論文的定稿的整個過程中，老師都及時給予我建議，指出不足之處，為我的畢業(yè)論文提出了寶貴意見，幫助我更好地組織論了文結(jié)構(gòu)，充實了論文的內(nèi)容。在安全方面，我們可以改進(jìn)更好的加密算法，更安全的 SQL 語句。 本系統(tǒng)采用 C /S、 B /S混合結(jié)構(gòu) ，更好地吸收了 C /S結(jié)構(gòu)和 B /S結(jié)構(gòu)各自的優(yōu)點 ，使得二者的缺點得到互補。先對儀器管理的工作流程進(jìn)行深入了解，得到系統(tǒng)需求，然后根據(jù)系統(tǒng)需求進(jìn)行設(shè)計和開發(fā)。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr 安徽理工大學(xué)畢業(yè)論文 28 Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me 儀器管理界面 .Show End Sub (6)、使用者信息窗體代碼實現(xiàn) : Private Sub Command1_Click() Unload Me 儀器管理界面 .Show End Sub 安徽理工大學(xué)畢業(yè)論文 29 結(jié)論 本文首先在理論上詳細(xì)的講解了系統(tǒng)設(shè)計的關(guān)鍵步驟和理論依據(jù) 以及用到的工具和語言，然后結(jié)婚實際應(yīng)用，檢驗介紹了項目開發(fā)的流程。驗證代碼置于此處 39。為這個 recordset 顯示當(dāng)前記錄位置 = Record: amp。 End Sub Private Sub DataList1_Click() Print 儀器編號： End Sub (5)、儀器借出信息查詢窗體代碼實現(xiàn)： Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) MsgBox Data error event hit err: amp。 amp。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select 安徽理工大學(xué)畢業(yè)論文 23 If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub Private Sub cmdRefresh_Click() 安徽理工大學(xué)畢業(yè)論文 24 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me 儀器管理界面 .Show End Sub (4)、儀器編號窗體代碼實現(xiàn)： Private Sub Command1_Click() Unload Me 儀器管理界面 .Show 安徽理工大學(xué)畢業(yè)論文 25 End Sub Private Sub DataCombo1_Change() = 儀器型號 =39。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 安徽理工大學(xué)畢業(yè)論文 22 39。想要忽略錯誤，注釋掉下一行 39。 strSQL, db, 2, 2 If = True Then MsgBox 沒有這個用戶 ,請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 = = Exit Sub End If If RS(密碼 ) Trim() Then MsgBox 密碼不正確 ,請重新 輸入 !, vbOKOnly + vbExclamation, 警告 Exit Sub End If Set RS = Nothing 儀器管理界面 .Show 安徽理工大學(xué)畢業(yè)論文 20 登陸系統(tǒng) .Hide End Sub Private Sub Command2_Click() End End Sub (2)、儀器管理界面窗體的代碼： Private Sub Command1_Click() 儀器信息管理 .Show 儀器管理界面 .Hide End Sub Private Sub Command2_Click() 使用者信息管理 .Show 儀器管理界面 .Hide End Sub Private Sub Command3_Click() 儀器借出信息查詢 .Show 儀器管理界面 .Hide End Sub Private Sub Command4_Click() 安徽理工大學(xué)畢業(yè)論文 21 測量儀器編號 .Show 儀器管理界面 .Hide End Sub Private Sub Command5_Click() Unload Me 登陸系統(tǒng) .Show End Sub (3)、儀器信息管理窗口代碼實現(xiàn)： Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。 amp。 \ strSQL = select * from 管理員信息 where 用戶名 =39。DBQ= amp。 登陸界面 截圖如下： 安徽理工大學(xué)畢業(yè)論文 16 如果輸入如數(shù)據(jù)庫管理員信息表中保存的信息不符，則出現(xiàn)如下界面： 若登陸成功，則可以進(jìn)入儀器管理界面，截圖如下： 安徽理工大學(xué)畢業(yè)論文 17 然后可以進(jìn)行各種操作，如果點擊“儀器信息管理”，則會出現(xiàn)儀器信息管理窗體，然后可以對儀器信息進(jìn)行查詢、添加、刪除、更新等操作，截圖如下： 點擊關(guān)閉就可以返回界面， 然后可以進(jìn)行其它操作，如點擊“儀器編號查詢”，就會出現(xiàn)儀器編號窗體，可以對各種型號的測量儀器的編號進(jìn)行查詢，截圖如下 安徽理工大學(xué)畢業(yè)論文 18 點擊關(guān)閉，退出改窗體返回界面，點擊使用者信息管理，打開使用者信息窗體，可以對不同類別的使用者進(jìn) 行查詢，截圖如下： 退出返回界面，點擊退出就會返回儀器管理系統(tǒng)的登錄界面，點擊退出系統(tǒng)就會退出該系統(tǒng)。 要使用系統(tǒng)，必須經(jīng)過驗證才可以登陸系統(tǒng)，程序運行后要求輸入用戶名和密碼，