【正文】 amp。 amp。 39。 amp。 amp。Private Sub loginOK_Click() ‘登錄按鈕 Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒(méi)有輸入用戶名稱，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 Else sql = select * from 用戶表 where 用戶名=39。 strConnection = strConnection amp。定義了一個(gè)關(guān)于用戶類型的全局變量Public ModifyBrwFlag1 As String 39。借出查詢界面為用戶提供三種查詢方式，用戶可以選中查找方式前的選項(xiàng)框后，再輸入相應(yīng)信息，就可以在下面的列表中顯示具有某一相同特性的借出信息。資產(chǎn)添加和修改共用一個(gè)界面，當(dāng)直接點(diǎn)擊增加資產(chǎn)時(shí)，則進(jìn)入后修改按鈕成反白，在每個(gè)text控件中填上相應(yīng)的信息，再點(diǎn)擊確定就完成了資產(chǎn)添加。修改密碼的功能要求在已知所要修改密碼的用戶名和密碼才允許進(jìn)行。他們?cè)诋厴I(yè)設(shè)計(jì)期間無(wú)論是在學(xué)習(xí)上還是在生活上都給予我許多幫助和支持，在此謹(jǐn)致以誠(chéng)摯的謝意！另外，還要感謝在我本科學(xué)習(xí)過(guò)程中的所有老師，是他們前三年半教導(dǎo)讓我順利完成學(xué)業(yè)，積累了足夠的知識(shí)能完成這項(xiàng)畢設(shè)課題。展望根據(jù)用戶將來(lái)對(duì)資產(chǎn)管理工作中面臨的新問(wèn)題的出現(xiàn)應(yīng)考慮增加新的功能，如增加資產(chǎn)折舊估算功能，資產(chǎn)的分類管理，所以將來(lái)要進(jìn)行軟件的升級(jí)是必不可少的。如何利用Visual Basic和Access 2003中的技術(shù)構(gòu)建使用高效的固定資產(chǎn)管理系統(tǒng)是本論文的重點(diǎn)工作。測(cè)試表明，系統(tǒng)在功能切換以及對(duì)數(shù)據(jù)庫(kù)中數(shù)據(jù)進(jìn)行查詢、增加、刪除、等操作時(shí)都沒(méi)有延時(shí)?！　∠到y(tǒng)建設(shè)基本完工之后，進(jìn)行了模塊集成測(cè)試，主要針對(duì)模塊間的兼容性、數(shù)據(jù)一致性和數(shù)據(jù)傳遞效果。硬件系統(tǒng)（Dell Latitude C640 Notebook）CPUMobile Intel Pentium 4M 內(nèi)存768 MB DDR2硬盤40 GB 4200 rad/min顯卡ATI Mobility Radeon 7500 32MB顯示器’ TFT LCD 1024*768軟件系統(tǒng)操作系統(tǒng)Microsoft Windows XP Home Edition + SP2程序開(kāi)發(fā)軟件Visual Basic Editor（Access 2003內(nèi)建）數(shù)據(jù)庫(kù)Access 2003辦公軟件Microsoft Office 2003 Professional　　單元測(cè)試　　單元測(cè)試又稱模塊測(cè)試，是針對(duì)軟件設(shè)計(jì)的最小單位——程序模塊進(jìn)行正確性檢驗(yàn)的測(cè)試工作，其目的在于發(fā)現(xiàn)各模塊內(nèi)部可能存在的各種差錯(cuò)，通俗地說(shuō)，就是查找Bug。 order by 編號(hào) Set rs = TransactSQL(sql) If = True Then MsgBox 沒(méi)有找到要查詢的信息, vbOKOnly Else With assetmentQueryGrid .Rows = 1 Do While Not .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = (0) …… .TextMatrix(.Rows 1, 9) = (9) Loop With assetmentQueryGrid ‘對(duì)控件的列名進(jìn)行設(shè)置 .TextMatrix(0, 0) = 編號(hào) …… .TextMatrix(0, 9) = 報(bào)廢日期 .ColWidth(0) = 600 .ColWidth(9) = 1300 .BackColorFixed = RGB(247, 214, 157) End WithEnd Sub考慮到借還管理的功能也可以通過(guò)資產(chǎn)管理模塊節(jié)約了成本、縮短了項(xiàng)目開(kāi)發(fā)周期，提高系統(tǒng)的穩(wěn)定性和可維護(hù)性，方便了用戶對(duì)軟件的適應(yīng)。組合查詢語(yǔ)句 Else sql = sql amp。 39。 amp。 編號(hào) =39。 39。 amp。在資產(chǎn)查詢界面中為用戶提供了三種查詢方式，分別按照不同的字段篩選資產(chǎn)。 amp。and 用戶密碼=39。 1)修改密碼系統(tǒng)通過(guò)用戶名找到數(shù)據(jù)庫(kù)中相關(guān)的記錄，判斷密碼是否正確。出于安全性的考慮在這里設(shè)置的一個(gè)記錄次數(shù)的變量，變量初值為0，當(dāng)輸入進(jìn)行一次，變量就加一，當(dāng)變量達(dá)到3時(shí)，則強(qiáng)制退出系統(tǒng)，即錯(cuò)誤輸入達(dá)到3次后，就強(qiáng)制退出。執(zhí)行sql語(yǔ)句的函數(shù)Public Function TransactSQL(ByVal sql As String) As Dim cont As Dim rs As Dim strConnection As StringSet cont = New 39。 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)需求分析，系統(tǒng)需要?jiǎng)?chuàng)建3個(gè)數(shù)據(jù)表，以下分別介紹各個(gè)數(shù)據(jù)表和表間關(guān)系：用戶信息表：字段名數(shù)據(jù)類型必填字段主鍵用戶名文本是是用戶密碼文本是否用戶權(quán)限數(shù)字是否備注文本否否資產(chǎn)記錄表： 字段名數(shù)據(jù)類型必填字段主鍵編號(hào)文本是是日期日期/時(shí)間是否設(shè)備編號(hào)文本是否設(shè)備名稱文本是否詳細(xì)描述文本否否金額文本是否經(jīng)費(fèi)號(hào)文本否否首次保管人文本是否報(bào)廢日期日期/時(shí)間否否備 注文本否否借出信息表： 字段名數(shù)據(jù)類型必填字段主鍵資產(chǎn)編號(hào)文本是是資產(chǎn)名稱文本是否借出數(shù)量數(shù)字是否借用人文本是否出借日期日期/時(shí)間是否擬還日期日期/時(shí)間否否借出理由文本否否備 注文本否否數(shù)據(jù)表間關(guān)系： 上面三張數(shù)據(jù)表之間的關(guān)系如下，即資產(chǎn)狀態(tài)表和借出信息中的資產(chǎn)編號(hào)是一一對(duì)應(yīng)的。建議您同時(shí)安裝Word 2003或以上版本。 (4)集成環(huán)境、處理多種數(shù)據(jù)信息 Access基于Windows操作系統(tǒng)下的集成開(kāi)發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ撸瑯O大地提高了開(kāi)發(fā)人員的工作效率，使得建立數(shù)據(jù)庫(kù)、創(chuàng)建表、設(shè)計(jì)用戶界面、設(shè)計(jì)數(shù)據(jù)查詢、報(bào)表打印等可以方便有序地進(jìn)行。在Ａｃｃｅｓｓ數(shù)據(jù)庫(kù)中為每個(gè)不同主題建立單個(gè)表，可以提高數(shù)據(jù)庫(kù)的工作效率，并可減少數(shù)據(jù)輸入而產(chǎn)生的錯(cuò)誤。 UPDATE語(yǔ)句可以同時(shí)更改多個(gè)字段、改多個(gè)記錄、或更改多個(gè)表中的記錄，所以在批量更新時(shí)，UPDATE語(yǔ)句特別有用。SQL可以控制數(shù)據(jù)庫(kù)管理系統(tǒng)提供給用戶的所有功能，包括定義數(shù)據(jù)庫(kù)存放的結(jié)構(gòu)、數(shù)據(jù)更新、數(shù)據(jù)檢索、實(shí)現(xiàn)數(shù)據(jù)共享和規(guī)定數(shù)據(jù)的完整性等。 Visual Basic在數(shù)據(jù)庫(kù)應(yīng)用程序的開(kāi)發(fā)領(lǐng)域中，提供了多種方便、強(qiáng)大的技術(shù)，協(xié)助設(shè)計(jì)人員輕松地連接并訪問(wèn)數(shù)據(jù)庫(kù)。l Style屬性：設(shè)置按鈕的外觀。它的默認(rèn)值是False,這時(shí)文本框只能接受單行文本，當(dāng)把它的屬性設(shè)置為True時(shí)，可以輸入多行文本。標(biāo)準(zhǔn)控件指的是在Visual Basic開(kāi)發(fā)環(huán)境中，初始狀態(tài)下工具箱中所包含的一系列控件，開(kāi)發(fā)本軟件過(guò)程中用到的主要有標(biāo)簽控件（Label）、文本框控件（Textbox）、命令按鈕控件（CommandButton）、單選按鈕控件（OptionButton）、復(fù)選框控件（CheckBox）等。VB引入了一種被稱為面向?qū)ο蟪绦蛟O(shè)計(jì)（object oriented programming，簡(jiǎn)稱為OPP）的方法。同時(shí)轉(zhuǎn)移方便、運(yùn)行環(huán)境簡(jiǎn)單，參考資料極其豐富，通用性好。同時(shí)參考書籍也極其豐富。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)；而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。北京航空航天大學(xué)畢業(yè)設(shè)計(jì)(論文) 第 79 頁(yè) 固定資產(chǎn)管理軟件的設(shè)計(jì)畢業(yè)設(shè)計(jì)目 錄1 緒論 1 課題背景及目的 1 相關(guān)領(lǐng)域已有成果 1 22 技術(shù)背景及開(kāi)發(fā)平臺(tái) 2 2 3 3 Visual Basic簡(jiǎn)介 4 4 4 6 SQL語(yǔ)言 6 Access2003簡(jiǎn)介 83 任務(wù)分析 9 系統(tǒng)分析 9 9 運(yùn)行環(huán)境要求 10 可行性分析 10 系統(tǒng)任務(wù)分析 11 系統(tǒng)功能模塊劃分 11 系統(tǒng)流程分析 12 數(shù)據(jù)庫(kù)分析 13 數(shù)據(jù)庫(kù)屬性分析 13 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 134 軟件的界面設(shè)計(jì)以及功能實(shí)現(xiàn) 16 通用模塊 16 登錄模塊 16 功能簡(jiǎn)介 16 17 18 用戶管理模塊 19 功能簡(jiǎn)介 19 19 22 功能簡(jiǎn)介 22 22 26 275 軟件測(cè)試 28 28 29　總體評(píng)價(jià) 29　運(yùn)行情況 29　系統(tǒng)評(píng)價(jià) 29結(jié)論與展望 31致 謝 33參考文獻(xiàn) 34附錄 35附錄A軟件使用說(shuō)明書 35附錄B系統(tǒng)維護(hù)手冊(cè) 371 緒論 課題背景及目的 實(shí)驗(yàn)室固定資產(chǎn)主要是指師生科研實(shí)踐活動(dòng)中經(jīng)常使用的儀器設(shè)備，如計(jì)算機(jī)、示波器、頻率計(jì)等，為正常的教學(xué)科研活動(dòng)所必不可少。隨著社會(huì)信息化程度的提高，現(xiàn)在一些企事業(yè)單位，院校機(jī)關(guān)都開(kāi)始開(kāi)發(fā)使用相關(guān)的信息管理系統(tǒng)來(lái)管理內(nèi)部事務(wù)，主要有人事資源管理系統(tǒng)，企業(yè)信息管理系統(tǒng)以及固定資產(chǎn)管理系統(tǒng)等等。VC盡管也是可視化的，.但很多地方需要手工編寫代碼，不如VB方便，同時(shí)也較VB難學(xué)，開(kāi)發(fā)周期長(zhǎng)。而且，還提供了對(duì)VBA的良好支持，用戶可以直接在其集成的Visual Basic環(huán)境中編寫代碼，數(shù)據(jù)庫(kù)的聯(lián)接也更容易實(shí)現(xiàn)。VB不同于傳統(tǒng)的面向過(guò)程的程序設(shè)計(jì)語(yǔ)言，它將應(yīng)用程序劃分為相互關(guān)聯(lián)的多個(gè)對(duì)象，并且建立起與這些對(duì)象相關(guān)的事件過(guò)程，通過(guò)用戶操作觸發(fā)某個(gè)時(shí)間來(lái)執(zhí)行相應(yīng)的實(shí)踐過(guò)程，從而達(dá)到運(yùn)算、處理的目的。ActiveX控件不包括在Visual Basic初始狀態(tài)下的工具箱中，通常存放在Windows的System或System32目錄下。l PasswordChar屬性：當(dāng)用戶在文本框中輸入文本時(shí)，顯示由該屬性指定的字符以代表實(shí)際的文本。當(dāng)它的屬性為0Standard時(shí)，按鈕的外觀為標(biāo)準(zhǔn)按鈕（默認(rèn)值）；當(dāng)它的屬性為1Graphical時(shí)，按鈕的外觀為圖形按鈕。在Visual Basic中共有以下3種可使用的數(shù)據(jù)庫(kù)訪問(wèn)對(duì)象：ADO ActiveX數(shù)據(jù)對(duì)象；RDO遠(yuǎn)程數(shù)據(jù)對(duì)象；DAO數(shù)據(jù)訪問(wèn)對(duì)象。本系統(tǒng)中主要使用了SELECT語(yǔ)句、UPDATE語(yǔ)句以及 DELETE語(yǔ)句。l DELETE語(yǔ)句DELETE語(yǔ)句創(chuàng)建一個(gè)刪除查詢，可以從FROM從句之中的一個(gè)或多個(gè)表中刪除記錄，并且滿足WHERE從句中的條件。其主要特點(diǎn)如下： (1)存儲(chǔ)方式單一 Access管理的對(duì)象有表、查詢、窗體、報(bào)表、頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（.mdb）的數(shù)據(jù)庫(kù)文件種，便于用戶的操作和管理。 (5)Access支持ODBC（開(kāi)發(fā)數(shù)據(jù)庫(kù)互連，Open Data Base Connectivity），利用Access 強(qiáng)大的DDE（動(dòng)態(tài)數(shù)據(jù)交換）和OLE（對(duì)象的聯(lián)接和嵌入）特性，可以在一個(gè)數(shù)據(jù)表中嵌入位圖、聲音、Excel表格、Word文檔，還可以建立動(dòng)態(tài)的數(shù)據(jù)庫(kù)報(bào)表和窗體等?！　∮布螅ㄩ_(kāi)發(fā)環(huán)境、使用環(huán)境相同）　　CPU：Pentium 233MHz或以上　　內(nèi)存：128MB或以上　　硬盤：180MB可用空間　　顯示器：Super VGA（1024768）或更高分辨率 可行性分析 　本程序?yàn)閱螜C(jī)使用，不涉及網(wǎng)絡(luò)及共享等技術(shù)。4 軟件的界面設(shè)計(jì)以及功能實(shí)現(xiàn)前面幾章都是介紹一些軟件制作的準(zhǔn)備工作，在這章將介紹我在開(kāi)發(fā)軟件的具體過(guò)程。創(chuàng)建連接Set rs = New On Error GoTo transactsql_error strConnection = Provider = 。主界面提供向各種功能界面的鏈接，包括四個(gè)下拉菜單和五個(gè)快捷方式按鈕。如果不正確將彈出對(duì)話框予以提示，正確將繼續(xù)進(jìn)行。 amp。 amp。 1）資產(chǎn)列表資產(chǎn)列表界面設(shè)計(jì)的關(guān)鍵是通過(guò)過(guò)程序?qū)?shù)據(jù)表中相關(guān)的字段與控件MSFlexGrid相綁定，通過(guò)MSFlexGrid顯示數(shù)據(jù)庫(kù)中指定數(shù)據(jù)表的內(nèi)容。 ModifyBkFlag1 amp。 If Trim() = Or… Or _Trim() = Then MsgBox 有些必要的信息錄入為空！, vbOKOnlyElse Set rs = TransactSQL(sql2)If = False Then MsgBox 該編號(hào)資產(chǎn)已經(jīng)存在，請(qǐng)核對(duì)！, vbOKOnly Else 39。 amp。 Trim() amp。 If Check3 Then 39。 首次保管人=