管理信息系統(tǒng)管理信息系統(tǒng) 課課程程設(shè)設(shè)計計 報報告告 題目: 圖 書 管 理 信 息 系 統(tǒng) 院 系： 經(jīng) 濟 管 理 學 院 專業(yè)班級： 電 子 商 務(wù) 2008-1 學生姓名： 王洪云、袁堂興、王江、楊亞民 指導教師： 周 長 紅 2011 年 1 月 14 日 指導教師評語 指導教師： 年 月 日 成績評定 學 號姓 名任務(wù)分工成績 0801060522王洪云系統(tǒng)規(guī)劃和系統(tǒng)分析 0801060523王江系統(tǒng)設(shè)計 0801060530袁堂興系統(tǒng)實施 0801060527楊亞民收集資料 目目 錄錄 1.1.系統(tǒng)規(guī)劃系統(tǒng)規(guī)劃 1 1 1.1 問題的提出 1 1.2 研究路線 1 1.3 戰(zhàn)略規(guī)劃說明書 2 2.2.系統(tǒng)分析系統(tǒng)分析 5 5 2.1 可行性分析報告 5 2.2 管理業(yè)務(wù)調(diào)查6 2.3 數(shù)據(jù)流程分析 7 2.4 數(shù)據(jù)字典 9 3.3.系統(tǒng)設(shè)計系統(tǒng)設(shè)計 1212 3.1 功能結(jié)構(gòu)圖設(shè)計 12 3.2 信息系統(tǒng)流程圖設(shè)計 13 3.3 輸入設(shè)計 13 3.4 輸出設(shè)計 15 3.5 數(shù)據(jù)存儲設(shè)計 17 3.6 處理流程圖設(shè)計 19 4.4.系統(tǒng)實施系統(tǒng)實施 2121 4.1 系統(tǒng)功能界面和主要代碼 21 4.2 系統(tǒng)的數(shù)據(jù)查詢和修改 27 4.3 系統(tǒng)的測試 34 5.5.總結(jié)總結(jié) 4343 參考文獻參考文獻 4545 1.系統(tǒng)規(guī)劃系統(tǒng)規(guī)劃 1.1 問題的提出問題的提出 圖書館作為信息資源的集散地,圖書和用戶借閱資料繁多,包含很多信 息數(shù)據(jù)的管理,現(xiàn)今,有很多的圖書館都是初步開發(fā)使用,甚至尚未使用計 算機進行信息管理，根據(jù)調(diào)查得知，他們以前對信息的管理都基于文本， 表格等紙介質(zhì)的手工處理，對圖書借閱情況（如借閱天數(shù)，超過借閱的天 數(shù)）的統(tǒng)計和審核都通過借書卡的方式人工查詢。 對借閱的權(quán)限，借閱天數(shù)用人工計算，手工抄寫。數(shù)據(jù)處理工作量大， 容易出錯。由于數(shù)據(jù)量大容易丟失，且不容易查找。 總的來說，缺乏系統(tǒng)規(guī)范的管理手段。盡管有的圖書館有計算機，但 是尚未由于信息管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是信 息管理系統(tǒng)開發(fā)的基本環(huán)境。 基于這個問題，我們認為有必要建立一個圖書管理系統(tǒng)，使圖書管理 工作規(guī)范化。 1.2 研究路線研究路線 用戶對新系統(tǒng)提出 的需求(各種問題) 開發(fā)一個原型系統(tǒng) 開發(fā)人員對問題進 行總結(jié) 完成系統(tǒng)開發(fā)并交 付使用 修改 運行原型系統(tǒng) 增加功能 有修改意見否? 增加新功能否? Y Y N N 1.3 戰(zhàn)略規(guī)劃說明書戰(zhàn)略規(guī)劃說明書 新系統(tǒng)的名稱：新系統(tǒng)的名稱：圖書音像信息管理系統(tǒng) 新系統(tǒng)的目標：新系統(tǒng)的目標：針對各中等院校的圖書管理現(xiàn)狀設(shè)計出符合一般學校 的計算機輔助圖書管理信息系統(tǒng).實現(xiàn)對圖書基本信息、讀者基本信息進 行計算機輔助管理,完成借書和還書有關(guān)信息的記錄、修改、查詢、刪除 等一系列任務(wù)的計算機管理和實現(xiàn).我們總體設(shè)計的目標就是實現(xiàn)圖書管 理的系統(tǒng)化、規(guī)范化和自動化，具體有： （1）系統(tǒng)維護方便可靠、有較高的安全性，滿足實用性、先進性的 要求。 （2）商品管理信息化，提高服務(wù)質(zhì)量、提高工作效率、降低管理成 本。 （3）系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲 安全。 新系統(tǒng)總體結(jié)構(gòu)：新系統(tǒng)總體結(jié)構(gòu)： 系統(tǒng)能完成的任務(wù)主要服務(wù)于企業(yè)發(fā)展流程中的三大子系 該系統(tǒng)界 面友好,操作簡單,能完成添加圖書信息,修改圖書信息,查詢圖書信息,添 加讀者類別,修改讀者類別,查詢讀者信息,修改讀者信息等一系列圖書管 理功能,開發(fā)本系統(tǒng)的任務(wù)是實現(xiàn)圖書管理的系統(tǒng)化和自動化,幫助管理人 員更好更高效的完成圖書管理工作.本著實用性和介紹性原則整個系統(tǒng)有 三大模塊,每個大模塊又包含幾個小模塊: 第一板塊、讀者管理部分:包括讀者信息管理,其功能是實現(xiàn)對各部分 數(shù)據(jù)內(nèi)容的添加和修改等操作。 第二板塊、圖書管理部分:包括圖書信息管理和類別管理, 其功能是 實現(xiàn)對各部分數(shù)據(jù)內(nèi)容的添加和修改、查詢等操作。 第三板塊、圖書借閱管理部分:包括借書管理和還書管理, 其功能是 實現(xiàn)對各部分數(shù)據(jù)內(nèi)容的添加和修改、查詢等操作。 開發(fā)方法：開發(fā)方法：結(jié)構(gòu)化系統(tǒng)開發(fā)方法，它是目前應(yīng)用得最普遍的一種開發(fā) 方法。 系統(tǒng)分析：對要開發(fā)的新系統(tǒng)的可行性進行論證和詳細的系統(tǒng)調(diào)查， 進行。 系統(tǒng)化分析、建立信息系統(tǒng)的邏輯模型 系統(tǒng)設(shè)計：在邏輯模型的基礎(chǔ)上設(shè)計系統(tǒng)的物理模型，包括：代碼設(shè) 計、信息系統(tǒng)流程圖設(shè)計、數(shù)據(jù)庫設(shè)計、處理流程圖設(shè)計和編寫程序設(shè)計 說明書。 系統(tǒng)實施：程序設(shè)計及調(diào)試、系統(tǒng)轉(zhuǎn)換及系統(tǒng)運行與評估、編寫使用 說明書。 我們選擇這個開發(fā)方法的原因：我們選擇這個開發(fā)方法的原因：結(jié)構(gòu)化系統(tǒng)開發(fā)方法是在生命周期基 礎(chǔ)上發(fā)展起來的。與生命周期法相比，結(jié)構(gòu)化系統(tǒng)開發(fā)方法更強調(diào)開發(fā)人 員與用戶的緊密結(jié)合，而且在開發(fā)策略上強調(diào)“從上到下” ，注重開發(fā)過 程的整體性和全局性，適合大型信息系統(tǒng)的開發(fā)。 允許組織根據(jù)自身精確的需求定制一個系統(tǒng) 采用多個階段逐一進行的結(jié)構(gòu)化方式 建立工廠專業(yè)人員與知識工作者之間的任務(wù)分離 下面是我們根據(jù)規(guī)劃，課程設(shè)計的完成的進度表： 周一：我們首先確立了課程題目，進行了大體方向研究，然后具體分 工，并提出工作計劃 周二：我們一起深入討論了系統(tǒng)的有關(guān)東西；比如職能，業(yè)務(wù)過程， 數(shù)據(jù)類，總體結(jié)構(gòu)等等， 周三：查閱資料的人搜查有關(guān)資料，代碼設(shè)計者開始準備有關(guān)數(shù)據(jù)庫 和程序語言的東西 周五周二：文檔編寫者編寫文檔 周三：最后檢查文檔和程序，再由排版者進行最后的排版 2.系統(tǒng)分析系統(tǒng)分析 2.1 可行性分析報告可行性分析報告 （1）系統(tǒng)簡述：VB 和 ACCESS 開發(fā)，即使遇到困難，也能從豐富的參 考書中找到解決方案。 （2）管理上的可行性分析：在該單位中，從主管領(lǐng)導、管理人員到 具體的業(yè)務(wù)人員在建立一個計算機產(chǎn)品庫存管理新系統(tǒng)的必要性的認識是 一致的。 （3）技術(shù)上的可行性分析：技術(shù)方面，我們選擇的是 VB 和 ACCESS, 都是組員熟悉的語言，即使遇到部分困難，也可以從豐富的參考書中找到 解決方案。所以技術(shù)方面是絕對可行的。 （4）經(jīng)濟上的可行性分析：開發(fā)需求較低,加上成熟的軟硬件環(huán)境、 目標系統(tǒng)并不是十分復雜和開發(fā)周期較短,人員經(jīng)濟支出有限。開發(fā)完成 運行后，為使用者帶來便利，為新系統(tǒng)的進一步推廣創(chuàng)造了條件，經(jīng)濟收 益將遠超過投資。從經(jīng)濟角度考慮,此系統(tǒng)開發(fā)可行。 （5）法律上的可行性分析：由于整個系統(tǒng)是自行開發(fā),自行使用，所 以系統(tǒng)本身不存在版權(quán)爭議，符合國家各種政策法規(guī)。服務(wù)器軟件方面， 它的操作系統(tǒng)可能會被微軟跟蹤,如果不是正版軟件,將會面臨民事訴訟的 風險。 （6）結(jié)論：由于該單位有良好的管理基礎(chǔ)，單位的經(jīng)濟效益良好， 對建立新系統(tǒng)所需的費用由能力支持，因而建立新系統(tǒng)在管理上，技術(shù)上 合經(jīng)濟上都是可行的，所以我們可以立即開發(fā)系統(tǒng)。 2.2 管理業(yè)務(wù)調(diào)查管理業(yè)務(wù)調(diào)查 1. 管理功能調(diào)查 圖書管理系統(tǒng) 圖 書 管 理 讀 者 管 理 借 閱 管 理 圖 書 登 記 圖 書 查 詢 讀 者 登 記 讀 者 查 詢 借 閱 歸 還 2 組織結(jié)構(gòu)調(diào)查 圖書借閱 室 館 長 財務(wù)室采編室 采 購 統(tǒng) 計 組 會 計 組 成 本 組 圖 書 編 目 組 采 購 組 借 閱 組 辦 公 室 采 購 計 劃 組 倉 庫 2.3 數(shù)據(jù)流程分析數(shù)據(jù)流程分析 數(shù)據(jù)流程調(diào)查： 通過調(diào)查可以繪制出數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是一種能全面地描述信 息系統(tǒng)邏輯模型的主要工具，它可以用少數(shù)幾種符合綜合的反映出信息在 系統(tǒng)中的流動、處理和存儲情況。 0 層數(shù)據(jù)流程圖： 讀者 管理 員 圖書 P0 圖書管理系 統(tǒng) 第一層數(shù)據(jù)流程圖： P1.1 注冊為系 統(tǒng)成員 P1.2 登錄處理 P1.3 入庫處理 讀者數(shù)據(jù)庫 讀者和圖書信 息管理文件 圖書明細 D1 根據(jù)系統(tǒng)讀者名單 D2 系統(tǒng)數(shù)據(jù)庫 D3 系統(tǒng)管理員名單 D4 管理系統(tǒng)的權(quán)限 D5 圖書入庫單 D6 登記圖書信息 F 1.1 F 1.2 F 1.3 第二層數(shù)據(jù)流程圖： S1 讀 者 S3 圖 書 P2.1 讀者注冊 系統(tǒng) P2.2 系統(tǒng)處理 讀者數(shù)據(jù) 庫 系統(tǒng)文件 P2.3 圖書入庫處 理 圖書種類 圖書數(shù)據(jù)庫 系統(tǒng)數(shù)據(jù)庫 讀者資料 圖書信息 注冊明細 系統(tǒng)的各方面請求 F 2.3 F 2.1 F 2.2 D2 D3 D1 D4 D6D7 S3 圖 書 S1 讀 者 S2 系統(tǒng) 管理員 S2 管 理員 2.4 數(shù)據(jù)字典數(shù)據(jù)字典 數(shù)據(jù)字典的內(nèi)容包括對數(shù)據(jù)流程圖中的數(shù)據(jù)項、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、 處理邏輯、數(shù)據(jù)存儲和外部實體等六個方面進行具體的定義。數(shù)據(jù)流程圖 配以數(shù)據(jù)字典，就可以從圖形和文字兩個方面對系統(tǒng)的邏輯模型進行完整 的描述 下面是我們的數(shù)據(jù)字典（以圖書采編過程為例）： 數(shù)據(jù)項的定義： 數(shù)據(jù)項 編號 數(shù)據(jù)項 名稱 別名簡稱類型及 寬度 取值范圍 I1 書號書碼書代碼字符型， 11 位 “00000000001” “99999999999 ” 數(shù)據(jù)結(jié)構(gòu)的定義： 數(shù)據(jù)結(jié)構(gòu)編號名稱簡述組成 DS0203 借書證圖書借閱圖書信息+借閱 人信息+ 數(shù)據(jù)流的定義 編號名稱簡述來源去向組成數(shù)據(jù)流量高峰流量 D02 03 圖書 借閱 單 圖書 借閱 單 用戶填 寫圖書 借閱單， 輸入計 算機。 P2_1 1 檢 查讀 者身 份 借閱日期 書名 讀者賬號 讀者姓 名借閱 100 部 / 日 500 部 / 日 數(shù)量） 處理邏輯的定義： 編號名稱簡述輸入的 數(shù)據(jù)流 處理輸出的 數(shù)據(jù)流 處理頻 率 P0203 計算借 書數(shù)量 計算所 借閱的 所有圖 書數(shù)量 數(shù)據(jù)流 書的代 碼，來 源于商 品庫存 表；數(shù) 據(jù)流數(shù) 量和圖 書類別， 來源于 處理邏 輯“個 人資料” 和數(shù)據(jù) 存儲 “圖書 入庫” 根據(jù)數(shù) 據(jù)流 “借閱 單”和 “顧客 信息” ， 檢索學 生文件， 確定該 學生的 類別； 在根據(jù) 已經(jīng)確 定的該 學生類 別，檢 索庫存 表，以 確定該 顧客的 收費標 數(shù)據(jù)流 “借書 單”一 是去學 生，二 是寫入 數(shù)據(jù)存 儲“借 閱庫” 對每個 學生的 每一次 借閱處 理一次 準. 數(shù)據(jù)儲存的定義 編號名稱簡述組成關(guān)鍵字相關(guān)聯(lián)的 處理 F0203 圖書入庫借閱圖書 的名稱和 編號 圖書編號+ 圖書類別+ 圖書名稱+ 單價+數(shù)量 +備注 商品編號 名稱 類別 P02，P03 外部實體的定義 編號名稱簡述輸入的數(shù)據(jù) 流 輸出的數(shù)據(jù) 流 S0203 借書人借閱該館圖 書的人員 D0206D0208 2.5 主要數(shù)據(jù)處理的描述 決策規(guī)則號 1234 是否登記 NYYY 是否有書 NY 條 件是否歸還 N 不借 YY 借書 Y 處 理催還 Y 3.系統(tǒng)設(shè)計系統(tǒng)設(shè)計 3.1 功能結(jié)構(gòu)圖設(shè)計功能結(jié)構(gòu)圖設(shè)計 3.2 信息系統(tǒng)流程圖設(shè)計信息系統(tǒng)流程圖設(shè)計 管理員設(shè)置圖書設(shè)置 主文件 文件更新模塊 上月文件 讀者設(shè)置工具 圖書借閱/歸 還 注銷 幫助 數(shù)據(jù)備份模塊 備份文件 實用查詢模塊 統(tǒng)計模塊 3.3 輸入設(shè)計輸入設(shè)計 管理員注冊： 讀者登記 圖書登記 3.4 輸出設(shè)計輸出設(shè)計 管理員信息查詢輸出設(shè)計 讀者信息查詢設(shè)計 圖書信息查詢 3.5 數(shù)據(jù)存儲設(shè)計數(shù)據(jù)存儲設(shè)計 采用 access 數(shù)據(jù)庫,VB6 開發(fā) 管理員表（ID,NAME,PASS,USER,BOOK,PHOTO） 圖書信息表（ID,NAME,SORT,DATE,PRICE,WRITER,CONCERN,REMARK, CHECK_DATE） 圖書庫存表（ID,QUANTITY） 讀者信息表（ID,NAME,SEX,IDENTIFICATION,TEL,ADDRESS,PHOTO, CHECK_DATE） 借閱信息表（UER_ID,BOOK_ID,LEND_DATE） 圖書類型(BOOK_SORT) 1管理員表 編號字段名數(shù)據(jù)類型說明 1MANAGER_ID文本，長度 20管理員 ID 2MANAGER_NAME文本，長度 50管理員姓名 3MANAGER_PASS文本，長度 50密碼 4MANAGER_USER是/否讀者權(quán)限 5MANAGER_BOOK是/否圖書權(quán)限 6MANAGER_PHOT O 文本，長度 150管理員相片 2圖書信息表 編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1BOOK_ID文本記錄編號，主鍵 2BOOK_NAME文本，長度 50圖書名稱 3BOOK_SORT文本，長度 10圖書類別 4BOOK_DATE文本，長度 50出版日期 5BOOK_PRICE文本，長度 50圖書價格 6BOOK_WRITER文本，長度 50圖書作者(主編) 7BOOK_CONCERN文本，長度 50出版社 8BOOK_REMARK文本，長度 50備注 9BOOK_CHECK_DAT E 日期/時間登記日期 3書庫存表 編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1BOOK_ID 文本，長度 20圖書編號 2BOOK_QUANTITYInt 圖書庫存 4讀者信息 編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1USER_ID文本，長度 20記錄編號，主鍵 2USER_NAME文本，長度 50讀者姓名 3USER_SEX文本，長度 50讀者性別 4USER_IDENTIFICA TION 文本，長度 50讀者身份證 5USER_TEL文本，長度 11讀者電話 6USER_ADDRESS文本，長度 50讀者地址 7USER_PHOTO文本，長度 50讀者相片 8USER_CHECK_DA TE 日期/時間登記日期 5借閱信息表 編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1USER_ID文本，長度 20 記圖書編號 2BOOK_ID文本，長度 20 圖書編號 3LEND_DAT E 文本，長度 50 6圖書類型表 編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1BOOK_SOR T 文本，長度 50 圖書類型 3.6 處理流程圖設(shè)計處理流程圖設(shè)計 管理員設(shè)置 管理員注冊管理員查詢修改 建立管理員設(shè)置程序 文件 更改管理員模塊登陸界面 文件更新模塊 數(shù)據(jù)備份模塊 備份文件 上次 文件 退出系統(tǒng) 讀者信息管理 讀者登記 讀者修改 修改 讀者查詢 建立讀者信息管 理 程序 文件更新 上次 文件 文件 圖書管理 圖書登記 圖書修改 修改 圖書查詢 建立圖書管理程序 管理 程序 文件更新 上次 文件 文件 圖書借閱/ 歸還 4.系統(tǒng)實施系統(tǒng)實施 4.1系統(tǒng)功能界面和主要代碼系統(tǒng)功能界面和主要代碼 登錄窗口： Option Explicit Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim str_manager As String str_manager = “ If txt_ManagerID = “ Then MsgBox “請輸入管理員 ID“ txt_ManagerID.SetFocus Exit Sub End If 管理員注冊： Private Sub Cmd_manager_check_Click() 確定 If Txt_Mid = “ Then: MsgBox “請輸入管理員 ID“: Txt_Mid.SetFocus: Exit Sub If Txt_Mname = “ Then: MsgBox “請輸入管理員名“: Txt_Mname.SetFocus: Exit Sub If Txt_Mpass(0) = “ Then: MsgBox “請輸入密碼“: Txt_Mpass(0).SetFocus: Exit Sub If Txt_Mpass(0) 2 Then If txt_user(i) = “ Then MsgBox “請輸入“ + lbl_user(i): txt_user(i). SetFocus: Exit Sub End If Next i If Option1(0) = True Then str_sex = “男“ Else: str_sex = “女“ 控制身份證號的長度為 15 或 18 位,且要求除最后一位可以 X 外, 其它全為數(shù)字 判斷身份證號前 17 位是否為數(shù)字 If Not IsNumeric(Mid(txt_user(3), 1, 17) Then MsgBox “請輸入正確的身份證號“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If 判斷身份證號是否等于 15 位或 18 位 If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox “請輸入正確的身份證號“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub 如果是 18 位最后一位如果不是數(shù)字允許是X或x ElseIf Len(txt_user(3) = 18 Then If Not IsNumeric(Mid(txt_user(3), 18, 1) And Not (Mid(txt_user(3), 18, 1) = “x“ Or Mid(txt_user(3), 18, 1) = “X“) Then MsgBox “請輸入正確的身份證號“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If End If 讀者一覽表： Debug.Print Mid(user_s, 5) Set rds_user = New ADODB.Recordset If Mid(user_s, 5) = “ Then rds_user.Open “select * from 讀者信息“, myconn, adOpenKeyset, adLockOptimistic, 1 rds_usercount.Open “select count(USER_ID) from 讀者信息“, myconn, adOpenKeyset, adLockOptimistic, 1 Else rds_user.Open “select * from 讀者信息 where“ + Mid(user_s, 5), myconn, adOpenKeyset, adLockOptimistic, 1 rds_usercount.Open “select count(USER_ID) as cu from 讀者信息 where“ + Mid(user_s, 5), myconn, adOpenKeyset, adLockOptimistic, 1 End If If rds_user.RecordCount 0 Then Set MSHFlexGrid1.DataSource = rds_user MSHFlexGrid1.TextMatrix(0, 0) = “讀者編號“ MSHFlexGrid1.TextMatrix(0, 1) = “讀者姓名“ MSHFlexGrid1.TextMatrix(0, 2) = “讀者性別“ MSHFlexGrid1.TextMatrix(0, 3) = “身份證號“ MSHFlexGrid1.TextMatrix(0, 4) = “電話“ MSHFlexGrid1.TextMatrix(0, 5) = “家庭住址“ MSHFlexGrid1.TextMatrix(0, 6) = “相片存儲位置“ MSHFlexGrid1.TextMatrix(0, 7) = “登記日期“ rds_user.Close MsgBox “共有“ Me.Tag 判斷狀態(tài) For i = 0 To 7 If i 7 And txt_book(i) = “ Then MsgBox “請輸入“ + lbl_book(i): txt_book(i).SetFocus: Exit Sub Next i If DTPicker1.Value = Date Then MsgBox “出版日期錯誤“: DTPicker1.SetFocus: Exit Sub 判斷圖書價格是否為數(shù)值且小數(shù)點后為兩位數(shù)字 If Not IsNumeric(txt_book(4) Then MsgBox “圖書價格有誤，請輸入正 確的價格“: txt_book(4).SetFocus: txt_book(4).SelStart = 0: txt_book(4). SelLength = Len(txt_book(4): Exit Sub InStr(1, txt_book(4), “.“) Val(txt_book(4)判 斷小數(shù)點后位數(shù):50/50./50.0/50.00 If InStr(1, txt_book(4), “.“) Val(txt_book(4) Then MsgBox “圖書價格只保留兩位小數(shù)“ txt_book(4).SetFocus txt_book(4).SelStart = 0 txt_book(4).SelLength = Len(txt_book(4) Exit Sub End If If Me.Tag = “check“ Then If .State = adStateOpen Then .Close .Open “圖書信息“, myconn, adOpenKeyset, adLockPessimistic, adCmdTable .AddNew .Update “BOOK_ID“, txt_book(0) ElseIf Me.Tag = “modify“ Then If .State = adStateOpen Then .Close Or Left(.Source, 34) 2 Then If txt_user(i) = “ Then MsgBox “請輸入“ + lbl_user(i): txt_user(i). SetFocus: Exit Sub End If If Option1(0) = True Then str_sex = “男“ Else: str_sex = “女“ 控制身份證號的長度為 15 或 18 位,且要求除最后一位可以 X 外, 其它全為數(shù)字 判斷身份證號前 17 位是否為數(shù)字 If Not IsNumeric(Mid(txt_user(3), 1, 17) Then MsgBox “請輸入正確的身份證號“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If 判斷身份證號是否等于 15 位或 18 位 If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox “請輸入正確的身份證號“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub 如果是 18 位最后一位如果不是數(shù)字允許是X或x ElseIf Len(txt_user(3) = 18 Then If Not IsNumeric(Mid(txt_user(3), 18, 1) And Not (Mid(txt_user(3), 18, 1) = “x“ Or Mid(txt_user(3), 18, 1) = “X“) Then MsgBox “請輸入正確的身份證號“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then CommonDialog1.Filter = “*.bmp|*.bmp;*.jpg|*.jpg;*.ico|*.ico“ CommonDialog1.ShowOpen If CommonDialog1.FileName “ Then Image1.Picture = LoadPicture(CommonDialog1.FileName) Else Image1.Picture = LoadPicture(App.Path + “icophoto.ico“) End If End If If Button = 2 And Image1.Picture.Type = 1 Then If MsgBox(“確認刪除照片？“, vbCritical + vbOKCancel) = vbOK Then Image1.Picture = LoadPicture(App.Path + “icophoto.ico“) End If End Sub Private Sub txt_user_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “ENTER“ End Sub 5.總結(jié)總結(jié) 這次課程設(shè)計讓我感觸良深。在課程的學習中還沒有這么深刻的體會 到一個系統(tǒng)或者說一個整體所以涉及的方面或東西是那么具體和細致。只 有在自己切身實踐之后才更有體會。系統(tǒng)從規(guī)劃、再到開發(fā)和維護，文檔 的編寫和整理，程序的實現(xiàn)這些都需要團隊成員的密切合作，不斷的討論 和完善。 所以注定了從一開始的團隊分工就必須做到物盡其人，分工上不僅僅 要考慮到個人的實際技術(shù)能力，還要考慮到合作中相互交流和溝通能力。 在一個團隊中必要的一點就是考慮到隊員的性格因素，這樣才能在分工上 做到不疏漏。 上面是我在團隊成員合作和分工上的一點體會，接下來我再說一下這 次課程設(shè)計在工作上的認識。以前做課程設(shè)計的時候是針對一個問題找解 決方案。現(xiàn)在是對于一個整體進行設(shè)計，從對系統(tǒng)需求的分析到解決方案 的尋求，然后是系統(tǒng)開發(fā)，到最后的維護，一系列的課程都需要一環(huán)節(jié)接 著一環(huán)節(jié)的緊扣完成，不能有所疏漏。 總之在這次設(shè)計中收獲頗豐，很值得自己過后多思考一下。 -王洪云 這次管理信息系統(tǒng)的課程設(shè)計終于圓滿完成了。通過這次設(shè)計使我從 中我學到了很多的東西，比如在編程方面和 word 的版式調(diào)整方面。還有 我們小組的團結(jié)，互相幫助，互相學習。我從中懂得了一個人的力量是有 限的，但是集體的力量是無窮的，每個人都把自己比較擅長的方面展現(xiàn)出 來，然后把這些優(yōu)秀的東西在集合在一起，使得我們的能力整體提高，所 以才能順利的完成這次課程設(shè)計，這對我們以后也有很大的幫助。 在這次設(shè)計中我主要是負責系統(tǒng)實施者一塊，但是在其他方面我們也 是一起商討，并且把整體中的困難共同解決。當我們把困難那一個一個解 決完之后，后面的事情就簡單了許多。在解決完這些問題的時候，我們也 學習到了很多的方法和學到了很多東西。在我們小組分工來做這次設(shè)計的 時候，雖然分工，但是基本還是整體一起完成的。當某一個成員遇到困難 時，我們就一起商討方法，該如何做，如何解決，使我們這個小組緊緊的 擰在了一起。我懂得了，團結(jié)才是力量。 雖然我只負責系統(tǒng)實施這一塊，但是我也從整體上把握了這個系統(tǒng)， 因為如果你不從全局來了解它，很難真正做好其中的一部分。從整體進行 設(shè)計，從對系統(tǒng)需求的分析到解決方案的尋求，然后是系統(tǒng)開發(fā)，到最后 的維護，這些步驟都是緊扣的。所以只有真正掌握了這些，才能更好的完 成這個系統(tǒng)。 總之在這次課程設(shè)計和上次的數(shù)據(jù)結(jié)構(gòu)課程設(shè)計使我學到了很多東西， 也使我懂得了遇到問題該如何解決，怎樣解決。這是我最要的東西。 -袁堂興 經(jīng)過一個學期的管理信息系統(tǒng)的學習，自己收獲頗多，了解了一個系 統(tǒng)是如何從調(diào)查到可行性分析，又是如何從系統(tǒng)設(shè)計開發(fā)到系統(tǒng)實施維護 的。在理論課程之后我們以組的 形式進行了兩周的課程設(shè)計，我們親身 將課上的理論與實際結(jié)合，從而細細體會其中的道理。同時，我們體會到 現(xiàn)在自己所會只是皮毛，以后要不斷充實。 -王江 這次實習終于在團隊共同努力下完美結(jié)束。這次比起上次的課程設(shè)計 讓我更加明白不管自己做什么。只要是做好自己的本來任務(wù)。對團隊就是 有價值的。這次我主要負責第二部分。也就是管理業(yè)務(wù)調(diào)查，業(yè)務(wù)數(shù)字流 程表，數(shù)字字典的收集資料。雖說做的有限但團隊隊員對我評價還是得到 了提高。更重要的使我明白的一點要更好的為團隊服務(wù)，還是要自己掌握 更多的技能，只有這樣在團隊的努力下，項目才能更好的更完美的發(fā)揮其 價值。這也是我所欠缺的，所以在今后的學習中，我要繼續(xù)努力。改掉自 己浮躁，學習點真的有用的東西。這次的課程設(shè)計讓我感到空前的充實感。 同時真的感謝幾個團隊隊員的支持。 楊亞民 參考文獻參考文獻 系統(tǒng)分析與設(shè)計 季延平、郭鴻志合著 華秦書局 1995 年