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