【正文】 而發(fā)揮各部門的協(xié)同效應(yīng)，不能很好地為領(lǐng)導(dǎo)的決策提供可靠的依據(jù)。這樣，不僅減少不必要的重復(fù)工作，而且確保了數(shù)據(jù)的準(zhǔn)確性和及時(shí)陛。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大可以與 Windows 專業(yè)開(kāi)發(fā)工具 SDK相媲美。 在 21 世紀(jì)初， Microsoft 公司推出 Visual Studio .NET 20xx，它與 Visual Basic 之間有了重大變化， Visual Studio 為各種編程工具做了一個(gè)平臺(tái)， Visual 可在安徽理工大學(xué)畢業(yè)論文 4 這種平臺(tái)上運(yùn)行。但是 Visual Basic. NET 渡過(guò)幾個(gè) BETA 版本之后還是 找到了正確的定位。 數(shù)據(jù)庫(kù)管理系統(tǒng)簡(jiǎn)介 Microsoft Office Access（前名 Microsoft Access）是由 微軟 發(fā)布的關(guān)聯(lián)式 數(shù)據(jù)庫(kù)管理系統(tǒng) 。雖然它支援部分 面向?qū)ο?技術(shù) ，但是未能成為一種完整的面向?qū)ο箝_(kāi)發(fā)工具。無(wú)論如何，不少 Access 的功能（表單，報(bào)告，序列和 VB 代碼）可以用作其他數(shù)據(jù)庫(kù)的后期應(yīng)用，包括 JET（檔案為主的數(shù)據(jù)庫(kù)引擎， Access 缺省使用）、 Microsoft SQL Server、 Oracle 和任何其他跟 ODBC 兼容的產(chǎn)品。隨著我國(guó)與世界信息高速公路的接軌，企業(yè)通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)活動(dòng)信息必將為企業(yè)帶來(lái)巨大的經(jīng)濟(jì)效益和社會(huì)效益，企業(yè)的辦公及管理都將朝著高效、快速、無(wú)紙化的方向發(fā)展。因此 ,系統(tǒng)要有管理員、操作員權(quán)限管理機(jī)制 ,要有容災(zāi)、容錯(cuò)方案 ,要有異常災(zāi)害的恢復(fù)能力 ,要保證系統(tǒng) 軟件安全、可靠地運(yùn)行。 傳統(tǒng)的管理信息系統(tǒng)建立在局域網(wǎng) (LAN)上 ,其工作模式為 Client/Server (C /S)結(jié)構(gòu) ,雖然這種結(jié)構(gòu)具有專用性強(qiáng)、安全性好的特點(diǎn) ,但其不易維護(hù)、集成困難、信息封閉 ,安徽理工大學(xué)畢業(yè)論文 9 不便于和 Inter連接 ,企業(yè)不能及時(shí)地 了解顧客需求和外部信息 ,企業(yè)之間也難以交流。但是這種結(jié)構(gòu)的缺陷是 : B /S部分的應(yīng)用邏輯相對(duì) C /S部分來(lái)說(shuō)不能重用 ,需要重新編寫 ,因此重復(fù)開(kāi)發(fā)的成本較高 ,另外當(dāng)應(yīng)用需求發(fā)生改變時(shí)也必須同時(shí)修改兩個(gè)系統(tǒng) ,增加了系統(tǒng)運(yùn)作的成本。 （ 5)使用者類別信息的修改、查詢。因此，在開(kāi)發(fā)此課題時(shí)，選擇 Windows操作系統(tǒng)作為操作平臺(tái)可以使該系統(tǒng)得到更廣泛的應(yīng)用。 （ 2)系統(tǒng)效益 1） 及時(shí)掌握儀器正確的入庫(kù)信息。 數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)需要綜合各個(gè)部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個(gè)數(shù)據(jù)直接的關(guān)系，按照 DBMS 提供的功能和描述工具，設(shè)計(jì)出規(guī)模適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。 在此模塊中定義了對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作的函數(shù)，已經(jīng)一些在系統(tǒng)中通常用到的通用函數(shù)，簡(jiǎn)化了代碼，提高了程序的可維護(hù)性和健壯性。儀器借出編號(hào)為該表的主鍵，由此可查出借出儀器的詳細(xì)情況，具體設(shè)計(jì)如下： 表 6 儀器借出信息管理 表 字段名 類型 長(zhǎng)度 類別編號(hào) 數(shù)字 1 使用者編號(hào) 數(shù)字 9 使用者姓名 文本 10 所屬院系 文本 20 各表之間關(guān)系說(shuō)明 儀器編號(hào)表以及儀器借出信息管理表中的儀器型號(hào)屬性受儀器信息表中的主鍵約束，儀器借出信息管理表中的使用者編號(hào)屬性受使用者信息表中的主鍵使用者編號(hào)屬性約束，使用者信息表中的類別編號(hào)是使用者類別信息表的一個(gè)外鍵。 登陸界面 截圖如下： 安徽理工大學(xué)畢業(yè)論文 16 如果輸入如數(shù)據(jù)庫(kù)管理員信息表中保存的信息不符，則出現(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)擊使用者信息管理，打開(kāi)使用者信息窗體，可以對(duì)不同類別的使用者進(jìn) 行查詢，截圖如下： 退出返回界面，點(diǎn)擊退出就會(huì)返回儀器管理系統(tǒng)的登錄界面，點(diǎn)擊退出系統(tǒng)就會(huì)退出該系統(tǒng)。 strSQL, db, 2, 2 If = True Then MsgBox 沒(méi)有這個(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。下列動(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。驗(yàn)證代碼置于此處 39。在安全方面，我們可以改進(jìn)更好的加密算法，更安全的 SQL 語(yǔ)句。 感謝安徽理工大學(xué)給了我 一 個(gè)學(xué) 習(xí) 的機(jī)會(huì)，感謝測(cè)繪學(xué)院給予我成長(zhǎng)的平臺(tái)。對(duì)本文的研究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式標(biāo)明。本次畢業(yè)設(shè)計(jì)是對(duì)我大學(xué)四年學(xué)習(xí)下來(lái)最好的檢驗(yàn)。 其次，我要感謝大學(xué)四年中所有的任課老師和輔導(dǎo)員在學(xué)習(xí)期間對(duì)我的嚴(yán)格要求，感謝他們對(duì)我學(xué)習(xí)上和生活上的幫助，使我了解了許多專業(yè)知識(shí)和為人的道理，能夠在今后的生活道路上有繼續(xù)奮斗的力量。四年的風(fēng)風(fēng)雨雨，我們一同走過(guò)，充滿著關(guān)愛(ài)，給我留下了值得珍藏的最美好的記憶。在論文的撰寫過(guò)程中 老師們 給予我很大的幫助，幫助解決了不少的難點(diǎn)，使得論文 能夠及時(shí)完成，這里一并表示真誠(chéng)的感 謝。感謝老師四年來(lái)對(duì)我孜孜不倦的教誨，對(duì)我成長(zhǎng)的關(guān)心和愛(ài)護(hù)。從他身上，我學(xué)到了許多能受益終生的東西。 首先非常感謝學(xué)校開(kāi)設(shè)這個(gè)課題，為本人日后從事計(jì)算機(jī)方面的工作提供了經(jīng)驗(yàn)，奠定 了基礎(chǔ)。 作者簽名： 日 期： 安徽理工大學(xué)畢業(yè)論文 33 學(xué) 位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨(dú)立進(jìn)行研究所取得的研究成果。 在此，我還要感謝在儀器愉快的度過(guò)大學(xué)生活的同學(xué)、朋友，正是你么的幫助和支持，我才能克服一個(gè)一個(gè)的困難和疑惑，直至本文的順利完成。 本系統(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ǔ)。為這個(gè) recordset 顯示當(dāng)前記錄位置 = Record: amp。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。 amp。 要使用系統(tǒng)，必須經(jīng)過(guò)驗(yàn)證才可以登陸系統(tǒng)，程序運(yùn)行后要求輸入用戶名和密碼，如果用戶名和密碼通過(guò)驗(yàn)證，系統(tǒng)進(jìn)入主頁(yè)面。詳細(xì)設(shè)計(jì)如下： 安徽理工大學(xué)畢業(yè)論文 14 表 2 儀器信息表 字段名 類型 長(zhǎng)度 字段名 類型 長(zhǎng)度 類別名稱 文本 20 出廠日期 日期 /時(shí)間 8 圖片 OLE 對(duì)象 4 購(gòu)置日期 日期 /時(shí)間 8 數(shù)量 數(shù)字 5 已借數(shù)量 數(shù)字 5 精度 文本 20 所屬院系 文本 50 價(jià)格 貨幣 8 說(shuō)明 文本 100 廠商 日期 /時(shí)間 20 儀器編號(hào)表，分別記錄了每個(gè) GPS、經(jīng)緯儀、全站儀、水準(zhǔn)儀、測(cè)距儀編號(hào)信息，其中儀器出廠編號(hào)為各表的主鍵，詳細(xì)設(shè)計(jì)如下： 表 3 儀器 編號(hào) 表 字段名 類型 長(zhǎng)度 儀器出廠編號(hào) 文本 10 儀器型號(hào) 文本 10 類別名稱 文本 50 使用者類別信息表，保存了使用者得類別信息，類別編號(hào)為該表的主鍵，詳細(xì)信息如下： 表 4 使用者類別信息 表 字段名 類型 長(zhǎng)度 類別編號(hào) 數(shù)字 1 類