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