系統(tǒng)可行性分析

1、第一章 系統(tǒng)可行性分析1.1 引 言隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在社會(huì)管理中應(yīng)用的普及，利 用計(jì)算機(jī)實(shí)現(xiàn)資產(chǎn)設(shè)備檔案管理勢(shì)在必行。對(duì)于企業(yè)來說，利用計(jì)算機(jī) 支持學(xué)校高效率完成資產(chǎn)設(shè)備管理的日常事務(wù)，是適 應(yīng) 現(xiàn) 代 化 制 度 要 求 、推動(dòng)企業(yè)信息管理走向科學(xué)化、規(guī)范化的必要條件；同時(shí)計(jì)算機(jī)有著手 工管理所無法比擬的優(yōu)點(diǎn).例如 :檢索迅速、查找方 便 、 可 靠 性 高 、 存 儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高資產(chǎn)設(shè) 備檔案管理的效率,也是企業(yè)信 息化的重要條件 。1.2 系 統(tǒng) 簡(jiǎn) 介資產(chǎn)設(shè)備檔案管理系統(tǒng)是一個(gè)企業(yè)單位不可缺少的部分，它的內(nèi)容 對(duì)于企業(yè)的決策者

2、和管理者來說都至關(guān)重要，所以資產(chǎn)設(shè)備檔案管理系 統(tǒng) 能 夠 為 用 戶 提 供 充 足 的 信 息 和 快 捷 的 查 詢 手 段 。 用 Visual Basic 構(gòu) 建 的 資 產(chǎn) 設(shè) 備 檔 案 管 理 系 統(tǒng) ， 數(shù) 據(jù) 庫(kù) 采 用 最 先 進(jìn) 的 Oracle 9i ， 能 實(shí) 現(xiàn)資產(chǎn)類別的增加、刪除、修改和檔案的增加、插入、修改、刪除、查 詢、預(yù)覽、編輯、報(bào)表、刷新、移動(dòng)、按某個(gè)屬性顯示等功能，此外， 在程序中還設(shè)計(jì)了用戶登陸，并設(shè)定了密碼，以確保本系統(tǒng)應(yīng)用的安全 性 。本 管 理 系 統(tǒng) 設(shè) 計(jì) 合 理 、界 面 美 觀 、操 作 方 便 、運(yùn) 行 穩(wěn) 定 、功 能 完 備 ，

3、為進(jìn)行現(xiàn)代化的資產(chǎn)設(shè)備檔案管理工作起到了重要作用，具有較高的實(shí) 用價(jià)值。1.3 開 發(fā) 工 具 選 擇隨 著 計(jì) 算 機(jī) 的 日 益 普 及 和 網(wǎng) 絡(luò) 的 發(fā) 展 ，數(shù) 據(jù) 庫(kù) 的 應(yīng) 用 范 圍 越 來 越 廣 ， 數(shù)據(jù)庫(kù)應(yīng)用的功能也越來越強(qiáng)，因此編寫數(shù)據(jù)庫(kù)應(yīng)用程序的難度日益加 大。目前，用于數(shù)據(jù)庫(kù)的開發(fā)工具更是層出不窮。要從眾多的數(shù)據(jù)庫(kù)中 選出適當(dāng)?shù)臄?shù)據(jù)庫(kù)開發(fā)平臺(tái)并不是一件很容易的事。微 軟公司的Visual Basic6.0是Windows 應(yīng)用程 序 開發(fā) 工 具，是目前 最 為 廣泛的、易 學(xué) 易用 的 面向 對(duì)象的 開 發(fā) 工 具。Visual Basic提供了大量的控件，這些控

4、件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人 員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率 和 可 靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB 是一個(gè) 相對(duì)較好的 選擇。1.4 數(shù) 據(jù)庫(kù) 后臺(tái)支持Oracle 9i數(shù)據(jù)庫(kù)是目前業(yè)內(nèi)伸縮性最好 、功能最齊 全 的數(shù)據(jù) 庫(kù) 。無論是 用 于 驅(qū)動(dòng)網(wǎng)站、打包應(yīng)用程序、數(shù)據(jù)倉(cāng) 庫(kù)或者是OLTP應(yīng)用程 序 ，Oracle 9i 數(shù)據(jù)庫(kù)都是 任 何 專 業(yè) 計(jì) 算 機(jī) 環(huán) 境 的 技 術(shù) 基 礎(chǔ) 。 Oracle 公 司 核心 技 術(shù) 產(chǎn) 品 的 Oracle 9i 的 系 列 產(chǎn) 品 ： Oracle 9i Database 、 Oracle 9

5、i Application Server 和 Oracle 9i Developr Suite。 每 一 個(gè) 都 被 重 新構(gòu)建以提供對(duì)最新技術(shù)的支持，同時(shí)這些產(chǎn)品幫助定義使用數(shù)據(jù)、進(jìn)行 商務(wù)活動(dòng)以及支持公司更好地采用技術(shù)的新方法。第二章 系統(tǒng)需求分析2.1 項(xiàng) 目 要 求資產(chǎn)設(shè)備檔案管理系統(tǒng)要求對(duì)檔案信息安全高效的進(jìn)行分類和管 理，提高工作效率，便于操作，能有效地對(duì)各種數(shù)據(jù)進(jìn)行修改、查詢、 增加、刪除。2.1.1 性 能 要 求在本系統(tǒng)中，既要求方便、快捷、有效地完成各項(xiàng)工作，還要求系 統(tǒng)有良好的適應(yīng)性；可靠的安全性和功能的完整性；并且錄入數(shù)據(jù)合法 性的校驗(yàn)程度要高，數(shù)據(jù)查詢速度快。2.1.

6、2 數(shù) 據(jù) 輸 入用戶添加的合法的資產(chǎn)類被信息和檔案信息，以及用戶查詢時(shí)可以 輸入任意的查詢條件。2.1.3 數(shù)據(jù)輸出資產(chǎn)設(shè)備類別和用戶查詢出的檔案信息結(jié)果和報(bào)表。2.2 系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)資產(chǎn)設(shè)備檔案信息關(guān)系的系統(tǒng)化、規(guī)范 化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成的。系統(tǒng)需要 完成功能主要有：2.2.1 、 用 戶 管 理 分 為 ： 用 戶 注 冊(cè) 、 更 改 密 碼 和 用 戶 刪 除 。用戶注冊(cè)：必需輸入不重復(fù)的用戶名和密碼、確認(rèn)密碼，完成 注冊(cè)。更改密碼：方便用戶使用具有自己個(gè)性特色的用戶名和密碼。用戶刪除：首先必須密碼確認(rèn)后，才有權(quán)限刪除已經(jīng)過期

7、的用 戶信息。2.2.2 、資 產(chǎn) 設(shè) 備 類 別 管 理 ：根 據(jù) 用 戶 的 需 要 來 實(shí) 現(xiàn) 類 別 的 增 加 、刪 除 、 修改。類別增加時(shí)會(huì)讓你選擇同層增加還是下層增加；修改，已經(jīng)使用的類別和包含子類別的類別不允許修改； 刪 除 和 修 改 是 一 樣 的 ，已 經(jīng) 使 用 的 和 包含子類別的不允許刪除。2.2.3 、 資 產(chǎn) 設(shè) 備 檔 案 維 護(hù) ： 增 加 、 插 入 、 移 動(dòng)、刪除、顯示順序選擇，轉(zhuǎn) 化 Excel 格 式 等 操 作 。 增加：首先要選擇你要增加的類別，然后點(diǎn) 增加，再在彈出的界面輸入你要增加的信息，各種內(nèi)容可以直接輸入，也可以點(diǎn)擊旁 邊的按鈕進(jìn)行選

8、擇，沒有的內(nèi)容需要輸入。然后確定，系統(tǒng)會(huì)自動(dòng)檢查你輸入的信息，無誤后增加成功，并給用戶以提示。 插入：首先在資產(chǎn)/設(shè)備檔 案 列 表 中 用 鼠 標(biāo)選擇要插 入 的 資 產(chǎn) /設(shè)備的插入位置，然 后 點(diǎn) 擊資產(chǎn)/設(shè)備列表下方的插入按鈕進(jìn)入資產(chǎn)/ 設(shè) 備 檔 案 錄 入 界 面 ，然 后 錄 入 資 產(chǎn) / 設(shè) 備 名 稱 、資 產(chǎn) / 設(shè) 備 型 號(hào) 、資 產(chǎn) /設(shè) 備 編 號(hào) 、 使 用 部 門 、 存 放 地 點(diǎn) 、 保 管 員 、 折 舊 方 法 、 數(shù) 量 、 單 價(jià) 、 累計(jì)折舊等信息 ， 資 產(chǎn)/設(shè)備信息錄入正 確 后 ， 然后選擇在 此 資 產(chǎn)/設(shè)備前面插入，還是在 此資產(chǎn)/設(shè)備

9、后 面 插 入 ，則實(shí)現(xiàn)插入成功。 資產(chǎn)/設(shè)備檔案修 改 ：首先用鼠標(biāo) 選 擇 要 修改的資產(chǎn)/ 設(shè) 備 ，然后點(diǎn)擊資產(chǎn)/設(shè)備列 表下 方的修改按 鈕 進(jìn) 入 資 產(chǎn)/設(shè)備檔案修改界面 ，然 后 錄 入 資 產(chǎn) / 設(shè) 備 名 稱 、資 產(chǎn) / 設(shè) 備 型 號(hào) 、資 產(chǎn) / 設(shè) 備 編 號(hào) 、使 用 部 門 、存 放 地 點(diǎn) 、保 管 員 、折 舊 方 法 、數(shù) 量 、單 價(jià) 、累 計(jì) 折 舊 等 信 息 ， 如 果 有 自 定 義 項(xiàng) 目 ，還 可 以 錄 入 自 定 義 項(xiàng) 目 信 息 。軟 件 自 動(dòng) 檢 驗(yàn) 資 產(chǎn) / 設(shè) 備 編 號(hào) 唯 一 性 ，資 產(chǎn) / 設(shè) 備 信 息 錄 入

10、正 確 后 ，點(diǎn) 擊 確 定 按 鈕 完 成 資 產(chǎn) /設(shè) 備 檔 案 信 息 修 改 。 資 產(chǎn) / 設(shè) 備 檔 案 刪 除 ： 首 先 用 鼠 標(biāo) 選 擇 要 刪 除 的 資 產(chǎn) / 設(shè) 備 ，然 后點(diǎn)擊資產(chǎn)/ 設(shè)備列表下方的 刪除按鈕，彈出一對(duì)話框 ，問你是否要?jiǎng)h除你選中的行，點(diǎn)是 完成資產(chǎn)/設(shè)備檔 案信息刪除，點(diǎn)否取消刪除。 資產(chǎn)/設(shè)備檔案移動(dòng)：資產(chǎn)/設(shè)備在列表中的位置是 允許移 動(dòng) 的 ，首先用鼠標(biāo)選擇要 移動(dòng) 的 資產(chǎn)/設(shè)備，然后點(diǎn)擊資產(chǎn)/設(shè) 備列表下方的移動(dòng)按鈕，然后出現(xiàn)移動(dòng)選 擇窗口，輸 入 移 動(dòng) 的位數(shù) 及 向 前 移 動(dòng) 還 是向后 移動(dòng)完成資產(chǎn)/設(shè)備位置移動(dòng)。 資 產(chǎn)/

11、設(shè)備檔案顯示順序選擇：軟 件 提 供了按 錄 入 順 序 排序按資產(chǎn)/設(shè)備編號(hào)順序排序按資產(chǎn)/ 設(shè)備名稱 排序3種排序方法，用戶可以根據(jù)習(xí)慣及單位具體情況自由選擇排序方法，排序選擇 位于資產(chǎn)/設(shè)備在列表中的左下方 ，可以用鼠標(biāo)點(diǎn)下拉框進(jìn)行選擇，選擇后 按回車鍵 就 可 以看到資產(chǎn)設(shè)備列表中的顯示順序。 將 資 產(chǎn) / 設(shè) 備 檔 案 內(nèi) 容 轉(zhuǎn) 換 為 EXCEL 數(shù) 據(jù) 格 式 ： 點(diǎn) 擊 資 產(chǎn) / 設(shè) 備 檔案列表下方的轉(zhuǎn)換為EXCEL 按鈕，會(huì)出現(xiàn)轉(zhuǎn)換項(xiàng)目選擇窗口，可以任意選擇要轉(zhuǎn)換的項(xiàng)目，在這里是一條或多條記錄的選中。也可以 用移動(dòng)按鈕移動(dòng)項(xiàng)之間的順序，這里我們是記錄一條一條的移動(dòng)，

12、點(diǎn) 擊向上移動(dòng)，或 者 向下移動(dòng)，記錄就會(huì)相應(yīng)的改變位置。 如 果 選中多條連續(xù)的記錄 也 可 以移動(dòng)，最后點(diǎn)擊確定轉(zhuǎn)化按鈕，軟 件 會(huì) 自動(dòng)打開一個(gè)空的EXCEL 表，然后把你選中的記錄數(shù)據(jù)轉(zhuǎn)換為EXCEL 表格式。2.2.4 、資產(chǎn)設(shè)備檔案查詢 直接查詢：可以直接通 過 點(diǎn) 擊 資 產(chǎn) / 設(shè) 備 類 別 表 中 的 類 別 ，從 檔 案資 產(chǎn) /設(shè)備列表中就直接查詢 到 對(duì) 應(yīng) 類 別 的 檔 案 資 料 。 間接查詢：可以點(diǎn)擊界面右下角的查詢條件按 鈕，進(jìn)入查詢條件選擇界面，輸入要查詢的條件（軟件提供了資產(chǎn)/設(shè)備 名 稱 、 資 產(chǎn) /設(shè)備規(guī)格、資產(chǎn)/設(shè) 備 編 號(hào) 等多種查詢條件），

13、查詢條 件可以選擇一種條件，也可以選擇多種條件，條件可以是一個(gè)字，也可以是多個(gè)字。 輸入好查詢條件后再選擇是模糊查詢還是 嚴(yán)格查詢，建議用模糊查詢。2.3 數(shù) 據(jù) 庫(kù) 需 求 分 析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就 要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、 數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的 具體設(shè)計(jì)打下基礎(chǔ)。針對(duì)資產(chǎn)設(shè)備檔案管理系統(tǒng)的需求，通過詳細(xì)的分析，設(shè)計(jì)如下所 示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：保管員表：NAME用戶表：USERNAM， EUSERID， NUM存放地點(diǎn)表： 存放地點(diǎn) 部門表： 使用部門 資產(chǎn)類別名表：ID ，

14、 NAM，E FATHERI，D IMAGE， SELECTIMAGE資產(chǎn)設(shè)備檔案表： 資產(chǎn)設(shè)備名稱，資產(chǎn)設(shè)備型號(hào)，資產(chǎn)設(shè)備編號(hào)，使用部門，存放地點(diǎn)，保管員，折舊方法，數(shù)量，單價(jià)，累計(jì)折舊，資產(chǎn)類別，顯示序號(hào)，插入序號(hào)，其他第二章總體設(shè)計(jì)3.1 引言在 完成了 軟件的需 求分析之后 ，系統(tǒng) 必須“做什么”已經(jīng)清 楚了，現(xiàn)在是決定“怎樣做”的時(shí)候。總體設(shè)計(jì)的基本 目的就是回答“從總體上說，系統(tǒng)應(yīng) 該如何實(shí) 現(xiàn)？”這個(gè) 問題。根據(jù)需 求分析，建設(shè)一 個(gè)安全、可靠、開放、高效的資產(chǎn)設(shè)備檔案管理系統(tǒng)，首先尋找實(shí)現(xiàn)目標(biāo)系統(tǒng)的 各種不同的方案，然后從中分析獲得最佳方案和最合理的軟件結(jié)構(gòu)，從 而用較低成本開

15、發(fā)出較高質(zhì)量的資產(chǎn)設(shè)備檔案管理系統(tǒng)。3.2 數(shù) 據(jù) 庫(kù) 設(shè) 計(jì)數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè) 計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù) 據(jù) 庫(kù) 結(jié) 構(gòu) 設(shè) 計(jì) 可 以 提 高 數(shù) 據(jù) 存 儲(chǔ) 的 效 率 ，保 證 數(shù) 據(jù) 的 完 整 和 一 致 。另 外 ， 合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)將非常有利于程序的實(shí)現(xiàn)。 本系統(tǒng)中所涉及到的主要實(shí)體共有六個(gè)數(shù)據(jù)表 各表的物理結(jié)構(gòu)如下：保管員表：殳名稱類型字F殳大小其他說明NAME文本16保管員姓名用戶表：字段名稱類型字段大小其他說明USERNAME文本20用戶名USERID文本16用戶密碼NUM數(shù)字用戶權(quán)限，1為管理

16、員存放地點(diǎn)表殳名稱類型字F殳大小其他說明存放地點(diǎn)文本60部門表殳名稱類型字F殳大小其他說明使用部門文本30資產(chǎn)類別名表：字段名稱類型字段大小說明ID文本16類別編號(hào)NAME文本20類另名FATHERID文本16該類別父編號(hào)IMAGE數(shù)字類別圖象SELECTIMAGE數(shù)字類別被選中的圖象資產(chǎn)設(shè)備檔案表殳名稱類型字F殳大小說明資產(chǎn)設(shè)備名稱文本20資產(chǎn)設(shè)備型號(hào)文本20資產(chǎn)設(shè)備編號(hào)文本20使用部門文本20存放地點(diǎn)文本20保管員文本16折舊方法文本30數(shù)量文本單價(jià)文本累計(jì)折舊文本20資產(chǎn)類別文本20顯小序號(hào)數(shù)字記錄顯示給用戶的順序插入序號(hào)數(shù)字記錄插入的順序其他文本100記錄附加信息3.3 流程圖第四章、

17、詳細(xì)設(shè)計(jì)4.1 引言詳細(xì)設(shè)計(jì)是軟件開發(fā)時(shí)期的第三個(gè)階段，也是軟件設(shè)計(jì)的第二步， 它的根本目標(biāo)是確定應(yīng)該怎樣具體地實(shí)現(xiàn)所要求的系統(tǒng)。在概要設(shè)計(jì)已 經(jīng)確定了軟件系統(tǒng)的總體結(jié)構(gòu)，給予了系統(tǒng)中各個(gè)組成模塊的功能和模 塊間的聯(lián)系之后，詳細(xì)設(shè)計(jì)主要是考慮“怎樣實(shí)現(xiàn)”這個(gè)軟件系統(tǒng)，設(shè) 計(jì)出程序的“藍(lán)圖”，給出各個(gè)模塊的詳細(xì)過程性描述。4.2 系統(tǒng)登陸模塊根據(jù)系統(tǒng)的需求，結(jié)合實(shí)際管理的情況，本系統(tǒng)應(yīng)具有如下功能模 塊：本系統(tǒng)的登錄需要進(jìn)行身份驗(yàn)證，當(dāng)用戶輸入用戶名和密碼后，將 會(huì)和系統(tǒng)配置中的用戶名和密碼進(jìn)行比較，采用內(nèi)置計(jì)數(shù)器的方法來判 別輸入次數(shù)，三次密碼輸入錯(cuò)誤便強(qiáng)行終止系統(tǒng)運(yùn)行，防止非法用戶惡 意套取

18、密碼。如果沒有用戶名可以注冊(cè)，但記住第一個(gè)注冊(cè)的默認(rèn)是管理員，只 有他有權(quán)刪除所有用戶，如果第一個(gè)注冊(cè)用戶也被刪除，則刪除用戶時(shí) 的登陸密碼為空。4.2.1 系統(tǒng)主界面：用戶成功登陸后進(jìn)入主界面，如下4.2.2 用戶管理模塊在此，一般用戶可以在次修改密碼，管理員可以修改密碼和進(jìn) 入“用戶管理”查看和刪除所有用戶信息。4.2.2.用戶管理區(qū)資產(chǎn)設(shè)備類別管理模塊士醬產(chǎn)/燃各類別管理IZi叵I區(qū)收起增加修改刪除刷新關(guān)閉當(dāng)前:在此，用戶可以電擊相應(yīng)的按紐執(zhí)行增加、刪除或者修改等 信息的操作。4.2. 3 檔案增加和維護(hù)模塊在主界面點(diǎn)檔案增加和維護(hù)進(jìn)入該界面，你可以點(diǎn)左邊的 各類別，然后右邊列表顯示的是

19、該類別的所有記錄。在此簡(jiǎn)單介 紹一下增加,修改,轉(zhuǎn)化Excel, 其他按紐不重復(fù)了。4.2.3.1 增力口界面各種內(nèi)容可以直接輸入，也可以點(diǎn)擊旁邊的按鈕進(jìn)行選擇，沒 有的內(nèi)容需要輸入。但是資產(chǎn)類別是系統(tǒng)默認(rèn)的，不允許用戶 輸入，是默認(rèn)的你當(dāng)前選中的類別。輸入信息后點(diǎn)確定,系統(tǒng) 自動(dòng)檢驗(yàn)資產(chǎn)設(shè)備編號(hào)是否重復(fù)，和數(shù)字型的你是否輸入的非數(shù) 字，會(huì)給用戶相應(yīng)的提示，正確則增加成功。在此界面，點(diǎn)最下面一行的按紐可以進(jìn)入相應(yīng)信息的添加、刪 除、修改等操作。檔案增加區(qū)4.2.3.2 修改界面進(jìn)入該界面，首先顯示給用戶的是你要修改前的信息，用戶修改 后，點(diǎn)修改確定系統(tǒng)自動(dòng)檢驗(yàn)編號(hào)是否唯一和數(shù)字型的是否非數(shù)字，

20、 都正確則提示修改成功。4.2.3.3 轉(zhuǎn)化 Excel進(jìn)入該界面可以選中一行或多行然后實(shí)現(xiàn)上移和下移操作，在確定 轉(zhuǎn)化前請(qǐng)選中你要轉(zhuǎn)化的對(duì)象，然后系統(tǒng)會(huì)自動(dòng)打開一張Excel,并把你 選中的信息在excel中顯示。Exce工期據(jù)格式X|資產(chǎn)設(shè)備編號(hào)1 O110 2 3101110 2 3向上移動(dòng)資產(chǎn)設(shè)等名稱 I使用部門1 110 2 3蛆 部部部部庫(kù) 求術(shù)術(shù)術(shù)據(jù) 技技技技數(shù)向下移動(dòng)確定轉(zhuǎn)化存放地點(diǎn)一保管局倉(cāng)庠3超六倉(cāng)庫(kù)3倉(cāng)庫(kù)3倉(cāng)庫(kù)4王五倉(cāng)庫(kù)2超六返回4.2.4 資產(chǎn)設(shè)備檔案查詢查詢的實(shí)現(xiàn)，一般查詢你可以在檔案增加和維護(hù)界面點(diǎn)左邊的各類 別，則右邊的列表框里會(huì)顯示該類別的相應(yīng)信息。如果直接查詢

21、不方便， 可以在資產(chǎn)設(shè)備檔案增加界面點(diǎn)條件查詢進(jìn)入查詢界面，也可以在主 界面點(diǎn)檔案查詢。輸入要查詢的條件（軟件提供了資產(chǎn)/設(shè)備名稱、資 產(chǎn)/設(shè)備規(guī)格、資產(chǎn)/設(shè)備編號(hào)等多種查詢條件），查詢條件可以選擇一種 條件，也可以選擇多種條件，條件可以是一個(gè)字，也可以是多個(gè)字。輸入好查詢條件后再選擇是模糊查詢還是嚴(yán)格查詢,即可實(shí)現(xiàn)資產(chǎn)設(shè)備編號(hào)資產(chǎn)設(shè)備型號(hào)資產(chǎn)設(shè)備名稱使用部門1L>鼻笞案查詢產(chǎn)產(chǎn)產(chǎn)用故售舊計(jì) 資資資使存保折累查詢條件二第五章編碼設(shè)設(shè)設(shè)部隨員方折號(hào)號(hào)稱 編型名備整備門點(diǎn)法舊嚴(yán)格查詢5.1引言編碼的目的是實(shí)現(xiàn)人和計(jì)算機(jī)的通信，指揮計(jì)算機(jī)按人的意志正確 工作。目前，人和計(jì)算機(jī)通信仍然必須使用人

22、工設(shè)計(jì)的語(yǔ)言，也即是程 序設(shè)計(jì)語(yǔ)言。作為系統(tǒng)設(shè)計(jì)的一個(gè)步驟，編碼是設(shè)計(jì)的自然結(jié)果。5.2代碼命名在系統(tǒng)開發(fā)時(shí)，使用什么樣的程序設(shè)計(jì)語(yǔ)言是一個(gè)重要的抉擇， 適宜的程序設(shè)計(jì)語(yǔ)言能使根據(jù)設(shè)計(jì)去完成編碼時(shí)困難最少，可以減少 需要的程序測(cè)試量，并且可以得出更容易閱讀和更容易維護(hù)的程序。 因此，在編碼時(shí)，應(yīng)該考慮到實(shí)際情況來命名代碼。在具體的代碼編 寫過程中，按照軟件工程學(xué)的要求，對(duì)涉及到的過程、函數(shù)和變量進(jìn) 行科學(xué)的命名，使得代碼清晰、易懂。5.3代碼實(shí)施5.3.1 用戶登錄為了保證系統(tǒng)信息的安全，在進(jìn)入本系統(tǒng)時(shí)必須進(jìn)行身份驗(yàn)證。用 戶輸入的用戶名和密碼和系統(tǒng)中的用戶名進(jìn)行比較，三次密碼輸入錯(cuò)誤 便強(qiáng)行

23、終止系統(tǒng)運(yùn)行，防止非法用戶惡意套取密碼代碼描述：Private Sub Command1_Click()'登錄Dim tmpRes5 As New ADODB.RecordsetIf Combo1.Text = "" ThenMsgBox " 請(qǐng)選 擇用戶 名”,vbOKOnly," 提示 信息"ElsetmpRes5.Open "select * from 用戶 where username= '"&Combo1.Text & "”', m_adoconn, adOpenK

24、eyset, adLockOptimisticIf tmpRes5.Fields("userid").Value <> Text1.Text ThenNN = NN + 1If NN < 4 ThenMsgBox ""密碼錯(cuò)誤”，請(qǐng)重新輸入"ElseMsgBox "你輸入密碼錯(cuò)誤次數(shù)已經(jīng)三次，系統(tǒng)退出"EndEnd IfElseUnload MeFrm_main.ShowEnd IfEnd IfEnd Sub5.3.2 連接數(shù)據(jù)庫(kù)'建立數(shù)據(jù)庫(kù)連接Public m_adoconn As ADODB.C

25、onnectionSet m_adoconn = New ADODB.Connectionm_adoconn.CursorLocation = adUseClientm_adoconn.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=" + "test" _+ ”;USER ID=" + "ora_zzf" _+ ”;DATA SOURCE=" + "test" _+ ”;PERSIST SECURITY INFO=TRUE"

26、m_adoconn.Open'MsgBox "susess"5.3.3 數(shù)據(jù)編輯數(shù)據(jù)編輯模塊的功能是能夠提供各種方式讓管理員添加信息，修 改、刪除現(xiàn)有的信息。數(shù)據(jù)添加模塊的功能是擴(kuò)展現(xiàn)有數(shù)據(jù)庫(kù)，讓管理 員能夠快速高效的將新的數(shù)據(jù)添加進(jìn)去，并且要保證數(shù)據(jù)的有效性和合 法性，不能造成數(shù)據(jù)的重復(fù)和重疊。而在修改過程中，不能造成主鍵的 相同。否則將會(huì)使系統(tǒng)喪失有效性。下面以資產(chǎn)設(shè)備檔案信息編輯為例：(1)數(shù)據(jù)錄入：Dim tmpRes As New ADODB.RecordsetDim tmpRes1 As New ADODB.RecordsetDim tmpRes2 As

27、 New ADODB.RecordsetDim tmpRes3 As New ADODB.RecordsettmpRes.Open "select * from 資產(chǎn)設(shè) 備檔案 表"， m_adoconn, adOpenKeyset, adLockOptimistictmpRes.AddNew'Text1.Text = GetSequence判斷“資產(chǎn)設(shè)備編號(hào)”不能為空If Text3.Text = "" ThenMsgBox "資產(chǎn)設(shè)備編號(hào)不能為空，請(qǐng)輸入"Text3.SetFocusExit SubEnd If 判斷”資產(chǎn)

28、設(shè)備編號(hào)(主鍵)”不能重復(fù)tmpRes2.Open "select count(*) as num from資 產(chǎn)設(shè)備 檔案表where 資產(chǎn)設(shè)備編號(hào)='"& Text3.Text & "”', m_adoconnIf tmpRes2.Fields("num").Value > 0 ThenMsgBox " 資產(chǎn)設(shè)備編號(hào)重復(fù)，請(qǐng)重新輸入"Text3.SetFocusExit SubEnd If 判斷“數(shù)量”不能為非數(shù)字型If Text5.Text = "" ThenE

29、lseIf IsNumeric(Text5.Text) = False ThenMsgBox " 數(shù)量必須為數(shù)字型"Text5.SetFocusExit SubEnd IfEnd If 判斷”單價(jià)”必須為數(shù)字型If Text5.Text = "" ThenElseIf IsNumeric(Text6.Text) = False Then MsgBox " 單價(jià)必須為數(shù)字型" Text6.SetFocusExit SubEnd IfEnd If 設(shè)置顯示序號(hào)tmpResl.Open "select count（*） as nu

30、ml from 資產(chǎn)設(shè) 備檔案表", m_adoconnCountNuml = tmpRes1.Fields（"num1"）.ValueCountNuml = CountNuml + 1tmpResl.CloseSet tmpRes1 = Nothing' 設(shè)置插入序號(hào)tmpRes3.Open "select max（插入 序號(hào)）as num2 from 資 產(chǎn)設(shè)備檔案表", m_adoconnIf IsNull（tmpRes3.Fields（"num2"）.Value） ThenCountNum2 = 1ElseC

31、ountNum2 = tmpRes3.Fields（"num2"）.ValueCountNum2 = CountNum2 + 1 tmpRes3.CloseEnd IfSet tmpRes3 = NothingtmpRes.Fields（"資產(chǎn)設(shè) 備名稱"）.Value = Text1.TexttmpRes.Fields（"資產(chǎn)設(shè) 備型號(hào)"）.Value = Text2.TexttmpRes.Fields（"資產(chǎn)設(shè) 備編號(hào)"）.Value = Text3.TexttmpRes.Fields（"使用部 門&

32、quot;）.Value = Combo1.TexttmpRes.Fields（"存放地點(diǎn)"）.Value = Combo2.TexttmpRes.Fields（"保管員"）.Value = Combo3.TexttmpRes.Fields（"折舊方法"）.Value = Text4.TextIf Text5.Text <> "" ThentmpRes.Fields（數(shù)量"）.Value = Text5.TextEnd IfIf Text6.Text <> ""

33、 ThentmpRes.Fields("單價(jià)").Value = Text6.TextEnd IftmpRes.Fields("累計(jì)折 舊").Value = Text7.TexttmpRes.Fields("資產(chǎn)類 別").Value = Text8.TexttmpRes.Fields("其他").Value = Text9.TexttmpRes.Fields("顯示序號(hào)").Value = CountNum1tmpRes.Fields("插入序號(hào)").Value = Co

34、untNum2tmpRes.UpdatetmpRes.CloseSet tmpRes = NothingCommand1.Enabled = FalseCommand2.Enabled = FalseMsgBox " 增加成功！”Unload MeFrm_Dang_AN.Show數(shù)據(jù)修改Dim tmpRes As New ADODB.RecordsetDim tmpRes1 As New ADODB.RecordsetIf Text3.Text = SS ThentmpRes.Open "select * from 資 產(chǎn)設(shè)備 檔案表 ", m_adoconn,a

35、dOpenKeyset, adLockOptimisticIf SS = tmpRes.Fields( tmpRes.Fields(" tmpRes.Fields(" 'tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields("資產(chǎn)設(shè)備編號(hào)").Value Then 資產(chǎn)設(shè)備名稱").Value = Text1.Text 資產(chǎn)設(shè)備型號(hào)").Value = Text2.Text 資產(chǎn)設(shè)備編號(hào)").Value = Text3

36、.Text 使用部門").Value = Combo1.Text 存放地點(diǎn)").Value = Combo2.Text 保管員").Value = Combo3.TexttmpRes.Fields("折 舊方法").Value = Text4.TexttmpRes.Fields("數(shù)量").Value = Val(Text5.Text)tmpRes.Fields("單價(jià)").Value = Val(Text6.Text)tmpRes.Fields("累 計(jì)折舊").Value = Te

37、xt7.TexttmpRes.Fields("資產(chǎn)類 別").Value = Text8.TexttmpRes.Fields("tmpRes.Update其 他").Value = Text9.TexttmpRes.CloseSet tmpRes = NothingExit Sub '因?yàn)镮D是唯一的，沒有必要再找下去了End IfElsetmpRes.Open "select * from 資 產(chǎn)設(shè)備 檔案表 ", m_adoconn, adOpenKeyset, adLockOptimistictmpRes1.Open &

38、quot;select count(*) as num1 from資產(chǎn) 設(shè)備檔案 表 where 資產(chǎn)設(shè) 備編號(hào)='"& Combo1.Text & "”', m_adoconnIf tmpRes1.Fields("num1").Value > 0 ThenMsgBox " 該資產(chǎn)設(shè)備編號(hào)已存在，請(qǐng)重新修改"一"提示"Exit SubElseIf tmpRes.Fields("tmpRes.Fields(" tmpRes.Fields(" tmpR

39、es.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields("Do While Not tmpRes.EOF資產(chǎn)設(shè) 備編號(hào)").Value = SS Then資產(chǎn)設(shè) 備名稱").Value = Text1.Text資產(chǎn)設(shè) 備型號(hào)").Value = Text2.Text資產(chǎn)設(shè)備編號(hào)").Value = Text3.Text使用部 門").Value = Combo1.Text存放地點(diǎn)").Value = Combo2.Text保管員&quo

40、t;).Value = Combo3.TexttmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Update tmpRes.Close折 舊方法").Value = Text4.Text數(shù) 量").Value = Val(Text5.Text)單 價(jià)").Value = Val(Text6.Text) 累計(jì)折 舊").Value = Text

41、7.Text 資產(chǎn)類別").Value = Combo4.Text 其 他").Value = Text9.TextCommandl.Enabled = FalseMsgBox " 修改成功，請(qǐng)返回" Exit SubElsetmpRes.MoveNextEnd IfLoop End IfEnd If(3)刪除記錄If SDF.SelectedItem Is Nothing ThenMsgBox " 請(qǐng)選擇您要?jiǎng)h除的記錄"一"提示"ElseIf MsgBox(" 確認(rèn)要把資產(chǎn)設(shè)備編號(hào)為 “"&a

42、mp;SDF.SelectedItem.Text & ""的記錄刪除嗎？(Y/N)”, vbYesNo,"是否 確認(rèn)刪 除")=vbNo ThenExit SubElseDim tmpRes As New ADODB.RecordsettmpRes.Open "select * from資 產(chǎn)設(shè)備 檔案表 order by 顯示序 號(hào)"，m_adoconn, adOpenKeyset, adLockOptimisticDo While Not tmpRes.EOFIf tmpRes.Fields（"資產(chǎn)設(shè) 備編號(hào)&q

43、uot;）.Value =DF.SelectedItem.Text Thenm_adoconn.Execute"delete from 資 產(chǎn)設(shè)備 檔案表where 資產(chǎn)設(shè)備編號(hào)='"& SDF.SelectedItem.Text & "”'tmpRes.MoveNextDo While Not tmpRes.EOFtmpRes.Fields（" 顯 示 序 號(hào)"）.Value =tmpRes.Fields（" 顯示序號(hào)"）.Value - 1tmpRes.MoveNextLooptmpRes

44、.CloseSet tmpRes = NothingFun1'調(diào)用函數(shù)，功能實(shí)現(xiàn)列表框信息的更新Exit SubElsetmpRes.MoveNextEnd IfLoopEnd If5.3.4 數(shù)據(jù)移動(dòng)（向前移動(dòng)）Dim Num As IntegerIf Text1.Text = "" ThenMsgBox " 請(qǐng)輸入您要移動(dòng)的位數(shù)"一" 提示"Exit SubElseIf IsNumeric（Text1.Text） = False ThenMsgBox "”移動(dòng)位數(shù)”必須為數(shù)字型"Text1.Text =

45、""Textl.SetFocusExit SubElseIf Val(Textl.Text) < 1 ThenMsgBox " 輸入的"移動(dòng)的位數(shù)”必須為正數(shù)"一" 提示"Exit SubElseNum = Val(Textl.Text)Dim tmpRes10 As New ADODB.RecordsetDim tmpRes4 As New ADODB.RecordsettmpRes4.Open "select * from資 產(chǎn)設(shè)備 檔案表 where 資產(chǎn)設(shè)備編號(hào)='"& SS

46、 &皿,m_adoconn'SS是一個(gè)全局變量，在這里是當(dāng)前'被選中的記錄的資產(chǎn)設(shè)備編號(hào)信息 設(shè)置顯示序號(hào)CountNuml = tmpRes4.Fields("tmpRes4.CloseSet tmpRes4 = Nothing If Num >= CountNuml ThenMsgBox "你輸入數(shù)，請(qǐng)重新輸入移動(dòng)的位數(shù)"一"Textl.Text =""Textl.SetFocusExit SubElsetmpRes10.Openorder by 顯 示 序 號(hào) adLockOptimistic顯示序

47、號(hào)").Value移動(dòng)位數(shù)”大于選中行前的記錄總 提示""select * from 資產(chǎn)設(shè)備檔案表", m_adoconn, adOpenKeyset,Do While Not tmpRes10.EOFIftmpRes10.Fields(顯示序號(hào)").Value>=CountNuml - Num ThenIfCountNuml ThentmpRes10.Fields(CountNuml ThentmpRes10.Fields("tmpRes10.Fields("顯示序號(hào)").Value + 1ElseIf

48、tmpRes10.Fields("tmpRes10.Fields("顯示序號(hào)").Value顯示序號(hào)").Value顯示序號(hào)").Value顯示序號(hào)").ValueCountNum1 - NumtmpRes10.UpdatetmpRes10.CloseSet tmpRes10 = Nothing MsgBox "移動(dòng)成功" Unload MeFrm_Dang_AN.Show Exit SubEnd IfEnd IfEnd IftmpRes10.MoveNextLoopEnd IfEnd IfEnd IfEnd If

49、5.3.5 轉(zhuǎn)化 Excel 表代碼描述：Dim Xlapp As ObjectDim SS As IntegerDim I As IntegerDim xlsheet As Excel.WorksheetSet Xlapp = CreateObject("excXlapp.Workbooks.AddXlapp.Visible = TrueSet xlsheet = Xlapp.Worksheets.AddWith xlsheet.Range("C1")=".Range("C1").Font.Size = 20.Range("

50、;A2")=".Range("B2")=".Range("C2")=".Range("D2")=".Range("E2")=".Range("F2")=".Range("G2")=".Range("H2")=".Range("I2")=".Range("J2")=".Range("K2")

51、=".Range("L2")="SS = 3el.application")資產(chǎn)設(shè)備檔案信息”設(shè)備編號(hào)”設(shè)備名稱”設(shè)備型號(hào)"使用部門”存放地點(diǎn)”保管員"折舊方法”數(shù)量 "單價(jià)"累計(jì)折舊”其他 "類別名稱"For I = 1 To SDF.ListItems.CountIf SDF.ListItems(I).Selected = True Then.Cells(SS, 1) = SDF.ListItems(I).Text.Cells(SS,2)SDF.ListItems(I).SubIt

52、ems(1)3)4)5)6)7)8)9)10)11)12).Cells(SS,SDF.ListItems(I).SubItems(2).Cells(SS,SDF.ListItems(I).Sub Items(3).Cells(SS,SDF.ListItems(I).SubItems(4).Cells(SS,SDF.ListItems(I).SubItems(5).Cells(SS,SDF.ListItems(I).SubItems(6).Cells(SS, SDF.ListItems(I).SubItems.Cells(SS,SDF.ListItems(I).SubItems(8).Cells

53、(SS,SDF.ListItems(I).SubItems(9).Cells(SS, SDF.ListItems(I).SubItems(10).Cells(SS, SDF.ListItems(I).SubItems(11)SS = SS + 1End IfNextEnd WithSet xlsheet = NothingSet Xlapp = Nothing第六章、測(cè)試6.1 弓I言軟件測(cè)試是保證軟件質(zhì)量的關(guān)鍵步驟，它是對(duì)軟件需求分析、設(shè)計(jì) 規(guī)格說明書和編碼的最終復(fù)審，確切的說，軟件測(cè)試就是為了發(fā)現(xiàn)錯(cuò)誤 而執(zhí)行的過程。它在軟件生命周期中分為兩個(gè)階段，通常在編寫出每個(gè)模塊之后就 對(duì)它做測(cè)試的為