軟件工程課程設計--電子相冊管理系統(tǒng)

1、.目 錄軟件工程課程設計報告11.1課題研發(fā)的背景31.2課題研發(fā)的目的與意義32 可行性研究42.1可行性研究的前提42.1.1 要求42.1.2 目標42.1.3 條件、假定和限制42.1.4 進行可行性研究的方法42.2對現(xiàn)有系統(tǒng)的分析：42.3對所建議系統(tǒng)的分析：42.4 技術可行性分析52.5社會可行性分析52.6 經濟可行性分析52.7 操作可行性52.8可行性研究的結論52.9評價尺度53 需求分析53.1 需求分析的背景53.2.1 目標63.2.2 用戶的特點63.2.3 假定和約束63.3系統(tǒng)對主要功能的規(guī)定63.3.1 系統(tǒng)功能模塊63.3.2 功能描述63.3.3 系統(tǒng)

2、主要功能的數(shù)據(jù)流程圖73.4 數(shù)據(jù)字典.123.4.1 數(shù)據(jù)流的描述123.4.2 數(shù)據(jù)項的條目133.4.3 數(shù)據(jù)存儲條目143.4.4 E-R圖143.5 系統(tǒng)對性能的規(guī)定153.5.1 精度153.5.2時間特性的要求154 總體設計154.1 系統(tǒng)總體設計154.1.1引言：154.1.2編寫目的：154.1.3范圍：154.1.4 需求規(guī)定：164.1.5 運行環(huán)境164.1.6系統(tǒng)總體結構如圖所示：164.3數(shù)據(jù)庫設計184.2.1 用戶檔案數(shù)據(jù)庫184.2.2 相冊數(shù)據(jù)庫194.3 界面設計195 結構化分析與設計215.1數(shù)據(jù)流圖215.1.1注冊215.1.2 用戶登錄215

3、.1.3 管理員信息管理215.1.4 總的數(shù)據(jù)流程圖225.2結構圖226 面向對象設計和分析236.1識別執(zhí)行者236.2識別用況236.3用況描述236.4 活動圖描述用況247 實現(xiàn)代碼267.1登錄代碼267.2注冊代碼287.3個人電子相冊代碼297.4管理員界面317.5個人資料337.6相片瀏覽378 系統(tǒng)測試398.1 系統(tǒng)測試概要398.2 系統(tǒng)功能測試408.3 系統(tǒng)維護419 總結4210 參考文獻42:40 1引言1.1課題研發(fā)的背景由于市場競爭的需要，交流方式的多樣化，用戶的可選擇的方式也就不斷增加，對于軟件研發(fā)者，軟件功能的多樣化和完善才是競爭的資本。由于信息交流

4、的多樣化，特別是電子信息技術的發(fā)展，同時，隨著數(shù)據(jù)庫技術，客戶/服務器技術等的發(fā)展，使得電子相冊系統(tǒng)的功能更加完善。電子相冊管理系統(tǒng)的特點是從相冊管理的角度出發(fā)，通過數(shù)據(jù)庫將幾乎所有與之相關的數(shù)據(jù)統(tǒng)一管理起來，從而形成了集成的信息集。電子相冊管理系統(tǒng)較好的用戶界面，信息共享，信息管理使得管理人員和用戶使用更加的便捷，而且電子相冊系統(tǒng)的可操作性非常強，針對不同教育程度的人群。電子相冊系統(tǒng)容納的信息量非常大，主要通過文字和圖片等方式展示出來，針對當前信息交流和管理類型的軟件較多的原因，電子相冊系統(tǒng)通過簡單的幾個功能模塊就實現(xiàn)了用戶的登錄、注冊、信息更新、信息共享、信息管理等功能。且在不同的功能模塊

5、中，分工明確，不同的功能模塊通過控件聯(lián)系起來。從而使得用戶之間的交流更加的多樣化。1.2課題研發(fā)的目的與意義它能夠確保用戶交流的多樣化，不論什么樣的用戶，在交流的過程中最基本的就是個人信息的展示，在此基礎上，增加響應的個性化模塊，使得用戶之間的交流更加的豐富。因此，電子相冊系統(tǒng)的研發(fā)，促使用戶交流的多樣化和個性化，該系統(tǒng)不僅為用戶提供了交流平臺，同時還豐富了用戶交流的主題。2 可行性研究2.1可行性研究的前提2.1.1 要求A. 功能：登錄功能、用戶注冊功能、管理員信息管理功能、用戶信息管理功能、系統(tǒng)設置管理子系統(tǒng)、其他系統(tǒng)接口B. 性能：用戶的登錄，注冊，以及用戶對個人信息的更新和管理員對所

6、有信息的更新等。C. 輸入：用戶名、密碼，對應的相關信息等。D. 輸出：用戶信息，包括文字，聲音，圖片等。2.1.2 目標希望能夠以最低的成本，并且能夠在最短的時間期限內研發(fā)出具有登錄、注冊、信息共享、信息管理等功能的電子相冊管理系統(tǒng)。2.1.3 條件、假定和限制1）建議系統(tǒng)運行的最短壽命為5年2）進行該系統(tǒng)方案選擇比較的期限為1個月3）建議該系統(tǒng)軟件投入使用的最遲時間為2011年1月4）開發(fā)該軟件系統(tǒng)的經費來源為本小組5）該系統(tǒng)要受到資金、壽命、社會等系列因素的制約和限制2.1.4 進行可行性研究的方法本項目開發(fā)小組由3人組成，從三個大方面對系統(tǒng)開發(fā)作可行性研究分析。（1）兩人對現(xiàn)行電子相冊

7、管理系統(tǒng)進行分析，調查確定現(xiàn)行系統(tǒng)已有的功能及初步確定待開發(fā)系統(tǒng)的功能。（2）兩人對電子相冊管理做實地調查，搜集日常工作管理信息，并初步確定電子相冊管理的主要流程。總結出待開發(fā)系統(tǒng)的功能。（3）匯總調查結果，確定系統(tǒng)框架及模型，對待開發(fā)系統(tǒng)進行可行性仿真研究。軟件主要達到功能基本齊全，操作簡單，應用方便。2.2對現(xiàn)有系統(tǒng)的分析：現(xiàn)有系統(tǒng)主要是由人工進行管理和維護，工作量較大，不能滿足人們對時間和效率的要求，導致這種電子相冊模式已不再適應日益增長的電子相冊工作管理量。迫切需要找到一種更加智能的電子相冊管理以及注冊系統(tǒng)。2.3對所建議系統(tǒng)的分析：本系統(tǒng)可運行于裝有WINDOW XP以及window

8、s7系統(tǒng)的電腦上,可實現(xiàn)方便的用戶登錄和注冊以及管理員的登錄注冊。繼承舊的管理系統(tǒng)的優(yōu)良性能基礎上進一步提升軟件的管理性能；實現(xiàn)資源的高效利用。其操作簡單界面簡明,易于用戶使用。2.4 技術可行性分析由于當前開發(fā)技術受限，軟件系統(tǒng)中某些功能仍無法實現(xiàn)，同時，對于用戶提供的建議，實時更新維護需要大量的耗費人力，所以此時的管理員需要掌握數(shù)據(jù)庫以及編程方面的技術。目前為止，對于已實現(xiàn)的功能，用戶在使用過程中并無不良反饋，且在規(guī)定時間范圍內能完成軟件系統(tǒng)的開發(fā)。2.5社會可行性分析a.法律方面的可行性：本軟件產品未觸犯任何法律法規(guī)，可以進行開發(fā)研究b.使用方面的可行性：根據(jù)調查可知，本軟件產品是一款實

9、用價值較強的產品，軟件提供諸多的功能，例如更新和查詢功能，以及信息共享等。2.6 經濟可行性分析本軟件產品屬于小型軟件，對于經費的開支并不大，開發(fā)系統(tǒng)時涉及到access，Microsoft Visual Studio等，系統(tǒng)開發(fā)的支出比較少，也在預算范圍內，主要用于支持軟件的硬件設備，安全和保密設備。軟件的收益通過網(wǎng)絡流量計算，因此，不同月的流量累計不同。2.7 操作可行性2.8可行性研究的結論軟件開發(fā)過程中由于開發(fā)技術的不成熟，所以歷時相對較長，同時，軟件如若實時的更新，需要管理員隨時關注系統(tǒng)，以做到與用戶需求同步。軟件的收益幾乎為純收益，在軟件開發(fā)時，支出主要是源于硬件設備以及安全維護，

10、其它方面并無太多支出，所以，該軟件的經濟效益是可觀的。2.9評價尺度費用的多少，各項功能的優(yōu)先次序，費用的高低，壽命長度，開發(fā)時間的長短以及使用中的難易程度。3 需求分析3.1 需求分析的背景在完成了針對電子相冊管理軟件市場的前期調查，同時與多位軟件使用者進行了全面深入地探討和分析的基礎上，提出了這份軟件需求規(guī)格說明書。此需求規(guī)格說明書對電子相冊管理系統(tǒng)軟件做了全面細致的用戶需求分析，明確所要開發(fā)的軟件應具有的功能、性能與界面，使系統(tǒng)分析人員及軟件開發(fā)人員能清楚地了解用戶的需求，并在此基礎上進一步提出概要設計說明書和完成后續(xù)設計與開發(fā)工作。本說明書的預期讀者為用戶、業(yè)務或需求分析人員、測試人員

11、、項目管理人員。3.2 需求分析的任務概述3.2.1 目標1、開發(fā)目標人們交流的方式多種多樣，但是，我們在交流的同時希望更多的了解對方的信息，本軟件即是根據(jù)此需求進行開發(fā)的。2、應用目標讓用戶能夠通過注冊信息，登錄并更新及查詢自己的信息，在此基礎上，用戶還能夠有效的掌握和共享其它資源，但是不能更新。從而促進了信息管理的規(guī)范化和集成化，使得用戶之間的交流更加的便捷。3.2.2 用戶的特點本軟件產品的最終用戶來源廣泛，相同之處則是為了增進與他人之間的交流，管理人員則可以隨時更新軟件的項目，以及查詢和維護信息。本軟件面向大眾，用戶使用過程中的操作也不復雜，因此，本軟件的使用頻度應達到70%左右。3.

12、2.3 假定和約束本軟件產品為大眾用戶使用，然而，本軟件在功能上還不夠完善，因此對于用戶的需求還無法完全實現(xiàn)。3.3系統(tǒng)對主要功能的規(guī)定3.3.1 系統(tǒng)功能模塊1） 登錄模塊2） 用戶注冊模塊3） 管理員信息管理模塊4） 用戶信息管理模塊5） 系統(tǒng)設置管理模塊6） 其他系統(tǒng)接口3.3.2 功能描述下面詳細描述一下各個功能模塊：1） 登錄模塊僅限于已注冊用戶和管理人員進行操作。該模塊主要是用于用戶登錄，用戶和管理人員輸入用戶名和正確的密碼即可進入對應的界面。該界面的注冊控件可轉到注冊功能，若用戶長期未使用已注冊帳號（五個月以內未曾使用系統(tǒng)將自動注銷）、為注冊用戶以及用戶名或者密碼遺失的用戶，點擊

13、注冊控件進入注冊模塊。2） 用戶注冊模塊僅限于用戶長期未使用已注冊帳號（五個月以內未曾使用系統(tǒng)將自動注銷）、為注冊用戶以及用戶名或者密碼遺失的用戶。在注冊過程中，即將注冊的用戶必須需要根據(jù)要求填寫用戶名、密碼、確認密碼、注冊郵箱等，在填寫過程中系統(tǒng)會有對應的提示，*為必填，對于其他比如說性別、出生年月等信息為可填，注冊成功后將進入個人信息模塊。3) 管理員信息管理模塊僅限于管理人員進行操作。管理人員通過登錄模塊輸入管理員登錄帳號，進入管理員信息管理模塊，該模塊里面，管理人員能夠通過輸入查找功能，進行查詢數(shù)據(jù)庫中所有用戶的個人資料，而且，管理員還能對所有用戶的資料進行修改，包括文字和圖片信息。4

14、） 用戶信息管理模塊僅限于已注冊用戶和管理人員進行操作。用戶通過登錄功能模塊輸入正確的用戶名和密碼進入用戶信息模塊，用戶信息管理模塊僅僅是個人信息，不包括其他用戶的信息，所以，別的用戶不能夠修改此用戶的任何信息，用戶自身可以對個人的信息進行修改。在此模塊，用戶還能夠對用戶的信息進行不同的展示，例如圖片的展示，形態(tài)和大小呈現(xiàn)多樣化。5） 系統(tǒng)設置管理模塊僅限于已注冊用戶和管理人員進行操作。管理員和已注冊用戶能夠根據(jù)不同的需要修改系統(tǒng)中的某些設置。3.3.3 系統(tǒng)主要功能的數(shù)據(jù)流程圖1、 注冊功能進入注冊界面錄入基本及必填信息提交數(shù)據(jù)是否注冊取消服務，等待用戶下步操作YesNo進入登錄首界面2、

15、登錄功能用戶登錄是否登錄取消服務，退出界面YesNo用戶進入登錄首界面輸入用戶名及密碼進入用戶個人界面系統(tǒng)查詢匹配YesNo管理員登錄是否登錄取消服務，退出界面YesNo管理員進入登錄首界面輸入用戶名及密碼進入管理員界面系統(tǒng)查詢匹配YesNo3、管理員管理功能登錄成功，進入管理員界面輸入要查詢用戶主鍵是否修改詢匹配是否查詢詢匹配YesYes所有用戶信息顯示輸入要修改用戶主鍵進入該用戶界面進入該用戶個人資料修改界面，進行資料、頭像修改個人檔案界面?zhèn)€人相冊界面選擇相應操作打開相冊上傳相片界面刪除相冊瀏覽相片4、用戶功能進入個人檔案用戶界面選擇相應操作進入個人相冊查看、修改相應數(shù)據(jù)選擇相應操作打開相

16、冊上傳相片刪除相冊瀏覽相片5、系統(tǒng)設置系統(tǒng)設置數(shù)據(jù)庫維護用戶密碼設置密碼修改保存、上傳數(shù)據(jù)備份3.4 數(shù)據(jù)字典.3.4.1 數(shù)據(jù)流的描述數(shù)據(jù)流名來源去向說明登錄用戶輸入的用戶名和密碼驗證后進入系統(tǒng)界面管理員和用戶進入的界面不相同用戶注冊用戶填寫的注冊信息注冊成功后可直接登錄系統(tǒng)注冊信息自動寫入到后臺數(shù)據(jù)庫管理員界面正確的管理員用戶名和密碼進入主界面進行管理可直接查看用戶信息用戶界面正確的用戶名和密碼進入用戶主界面可對自己的相冊進行管理個人資料用戶點擊個人檔案修改資料或頭像修改后的資料自動更新后臺數(shù)據(jù)庫相片瀏覽用戶點擊個人相冊管理自己個人相冊上傳或刪除等修改后自動更新后臺數(shù)據(jù)庫相片刪除用戶進入個

17、人電子相冊后點擊刪除相片直接刪除數(shù)據(jù)庫中的相片刪除后自動更新后臺數(shù)據(jù)庫個人電子相冊用戶登錄后點擊進入對相冊進行各項管理資料修改在個人資料中點擊進行資料的完善或修改修改后的資料自動更新在數(shù)據(jù)庫中3.4.2 數(shù)據(jù)項的條目數(shù)據(jù)項名稱類型描述用戶名文本類型描述用戶和管理員的用戶名ID數(shù)字類型描述用戶在電子相冊中的表示密碼文本類型用戶在電子相冊中的密碼確認密碼文本類型注冊時候的確認密碼注冊郵箱文本類型注冊時候所用的驗證郵箱性別文本類型描述用戶的性別出生年月文本類型描述用戶的出生年月頭像文本類型用戶上傳的個人頭像星座文本類型描述用戶的星座血型文本類型描述用戶的血型職業(yè)文本類型描述用戶的職業(yè)愛好文本類型描述

18、用戶的愛好Picture ID文本類型用戶相冊照片的編號Path文本類型用戶相冊照片的來源地址3.4.3 數(shù)據(jù)存儲條目數(shù)據(jù)存儲名稱簡述組成用戶注冊信息存放用戶的注冊信息ID+用戶名+密碼+確認密碼+注冊郵箱+性別+出生年月+星座+血型+頭像+職業(yè)+愛好用戶照片信息存放用戶的照片信息Picture ID+ path3.4.4 E-R圖用戶管理管理員 1 N文檔庫更新更新 I n 1 1 更新更新相冊庫 1 N 1 13.5 系統(tǒng)對性能的規(guī)定3.5.1 精度1、要按照嚴格的數(shù)據(jù)格式輸入，否則系統(tǒng)不給予響應進行處理。2、查詢時要保證查全率，所有相應域包含查詢關鍵字的記錄都能查到。3.5.2時間特性的

19、要求a 響應時間：一般操作的響應時間應在12秒內，對軟磁盤和打印機的操作也應在可接受的時間內完成。b 更新處理時間：每12小時c 數(shù)據(jù)的轉換和傳送時間：d 解題時間：3.5.3 適應性：使用開放式的操作系統(tǒng)，開放式的數(shù)據(jù)庫開發(fā)工具及標準的通信協(xié)議，結構層次自獨立性。4 總體設計 4.1 系統(tǒng)總體設計 4.1.1引言：4.1.2編寫目的：以方便用戶的使用，減少用戶使用的操作不變性，提高電子相冊上傳的速度，減少上傳差錯為目標，減少各項資金支出，提高管理質量，基于需求分析之上編寫了本文檔，目的在于，將需求分析中的設計的功能具體化預期讀者：² 有關業(yè)務主管；² 有關技術主管；

20、78; 有關軟件設計開發(fā)人員；² 有關運行維護人員4.1.3范圍：說明：a. 待開發(fā)的軟件系統(tǒng)的名稱：電子相冊管理系統(tǒng)b. 項目任務提出者：2008級1班 項目開發(fā)者：第五開發(fā)小組 用戶：大學生 c. 實現(xiàn)該軟件的計算中心或計算機網(wǎng)絡： WIN XP/2000/Vista./Windows74.1.4 需求規(guī)定：本電子相冊管理系統(tǒng)主要以提高快速注冊，方便用戶上傳照片，管理照片，同時便于系統(tǒng)的管理員管理為目標，減少各項資金支出，提高管理質量，從而能為使用方便性和上傳照片快速性創(chuàng)造條件，對用戶的登陸注冊以及管理實現(xiàn)計算機管理，實現(xiàn)數(shù)據(jù)的及時保存預處理。詳細的說明請參見需求分析。4.1.5

21、 運行環(huán)境A 數(shù)據(jù)庫：Access2003數(shù)據(jù)庫B 運行平臺：裝有windows系列操作系統(tǒng)的PC機4.1.6系統(tǒng)總體結構如圖所示：系統(tǒng)功能總結構圖 電子相冊管理系統(tǒng)用戶注冊子系統(tǒng)登錄子系統(tǒng)管理員信息管理子系統(tǒng)用戶信息管理子系統(tǒng)系統(tǒng)設置管理子系統(tǒng)注 冊信息完善其他系統(tǒng)接口4.3數(shù)據(jù)庫設計4.2.1 用戶檔案數(shù)據(jù)庫4.2.2 相冊數(shù)據(jù)庫4.3 界面設計 登錄界面：注冊界面： 個人資料界面：5 結構化分析與設計5.1數(shù)據(jù)流圖5.1.1注冊5.1.2 用戶登錄5.1.3 管理員信息管理5.1.4 總的數(shù)據(jù)流程圖5.2結構圖11102476518931、驗證成功 2、驗證失敗 3、用戶名不存在 4、用

22、戶名已存在 5、要求注冊 6、用戶名登錄成功7、管理員登錄成功 8、舊密碼正確 9、舊密碼錯誤10、要求修改密碼 11、維護期到6 面向對象設計和分析6.1識別執(zhí)行者在電子相冊管理系統(tǒng)中，登錄和注冊是由用戶或者管理人員進行的操作，只是在登錄時，用戶和管理員進入的界面不同，所以執(zhí)行的功能也不同。用戶進入個人信息欄，管理員進入管理信息界面。注冊操作針對未注冊用戶以及密碼遺失的用戶，或者是賬號長時間未使用的用戶。根據(jù)以上分析，可以得到電子相冊管理系統(tǒng)的執(zhí)行者是用戶和管理員。執(zhí)行者的描述如下：用戶：登錄電子相冊管理系統(tǒng)時負責輸入用戶名和密碼。管理員：登錄電子相冊管理系統(tǒng)時負責輸入用戶名和密碼,負責管理

23、電子相冊系統(tǒng)的所有用戶信息。后臺數(shù)據(jù)庫：1、負責驗證用戶注冊的信息以及用戶登錄的用戶名和密碼。 2、存儲用戶相冊路徑。6.2識別用況從系統(tǒng)的需求陳述可知，用戶需要系統(tǒng)提供登錄、注冊、個人資料管理、相冊管理等功能，這些功能都包含了校驗密碼的功能。系統(tǒng)管理人員需要系統(tǒng)提供登錄、用戶信息管理、個人資料管理等功能。所以，可將它們設計成兩個用況。如下圖所示：注冊登錄修改資料注銷修改密碼上傳相片刪除照片驗證用戶名驗證密碼用戶管理數(shù)據(jù)庫管理用戶數(shù)據(jù)庫系統(tǒng)管理員6.3用況描述下面給出各個部分用況的詳細描述：（1） 登錄用況的描述 用況名稱：登錄 參與的執(zhí)行者：注冊用戶和管理員 前置條件：登錄的用戶名和密碼完全

24、正確 事件流：1. 當進入登錄界面時用況開始2. 輸入用戶名和密碼3. 如果用戶名和密碼不正確時彈出對話框“用戶名或密碼不正確”，回到第一步，否則繼續(xù)。用況結束。 后置條件：用戶進入個人信息界面，管理員進入用戶信息界面。（2） 注冊用況的描述 用況名稱：注冊 參與的執(zhí)行者：未注冊用戶、用戶名或者密碼遺失的用戶、賬號長時間未登錄的用戶 前置條件：系統(tǒng)中不存在此用戶的任何信息 事件流：1. 當點擊注冊控件時用況開始2. 輸入用戶信息（用戶名、密碼、注冊郵箱等）3. 如果用戶名已經存在，則回到第二步，否則繼續(xù)4. 在后臺數(shù)據(jù)庫中添加新的用戶信息5. 進入該用戶個人資料界面，用況結束后置條件：在后臺數(shù)

25、據(jù)庫中添加了一個新用戶，并為該用戶存儲相應的信息。6.4 活動圖描述用況 更新用戶信息 取消放棄修改 確認修改重試驗證失敗驗證成功輸入用戶名，密碼用戶名或密碼錯誤用戶個人主頁修改資料更新用戶信息 用戶修改信息用況的活動圖否是否是驗證不成功否驗證成功是注冊輸入注冊信息，并驗證用戶名是否登錄登錄是否重新注冊用戶注冊用況的活動圖重試取消驗證成功否是重試取消驗證不成功驗證成功輸入用戶名和密碼修改密碼輸入舊密碼輸入新密碼，確認新密碼用戶名或密碼錯誤密碼錯誤用戶密碼用況的活動圖7 實現(xiàn)代碼7.1登錄代碼Imports System.DataImports System.Data.OleDbImports

26、System.Data.SqlClientPublic Class Form1 Dim conn As New OleDbConnection Dim cmd As New OleDbCommand Dim dr As OleDbDataReader Sub management(ByVal str As String) conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:軟工VB（電子相冊管理系統(tǒng)）db1.mdb" conn.Open() cmd.Connection = conn

27、 cmd.CommandText = str cmd.ExecuteNonQuery() End Sub Dim n As Integer Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 用戶注冊界面.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand

28、les Button1.Click Dim user As String user = TextBox1.Text If user = "admi" Then If TextBox2.Text = "123" Then 管理員界面.Show() Me.Hide() Else If TextBox2.Text = "" Then MsgBox("密碼不能為空！") Else MsgBox("用戶名或密碼錯誤", MsgBoxStyle.RetryCancel) TextBox2.Text = &q

29、uot;" TextBox2.Focus() End If End If Else Dim str As String = "" str = "SELECT * from 用戶注冊界面" conn.Close() management(str) dr = cmd.ExecuteReader() Do While dr.Read() = True If Trim(user) = Trim(dr.GetValue(1).ToString) And Trim(TextBox2.Text) = Trim(dr.GetValue(2).ToString)

30、 Then 用戶界面.Show() 用戶界面.Text = user & "的個人電子相冊" Me.Hide() Exit Do End If Loop If dr.Read() = False Then MsgBox("用戶名或密碼錯誤！") End If End If conn.Close() End SubEnd Class7.2注冊代碼Imports System.DataImports System.Data.OleDbImports System.Data.SqlClientPublic Class Form1 Dim conn As

31、 New OleDbConnection Dim cmd As New OleDbCommand Dim dr As OleDbDataReader Sub management(ByVal str As String) conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:軟工VB（電子相冊管理系統(tǒng)）db1.mdb" conn.Open() cmd.Connection = conn cmd.CommandText = str cmd.ExecuteNonQuery() End Su

32、b Dim n As Integer Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 用戶注冊界面.Show() Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim user As String user = TextBox

33、1.Text If user = "admi" Then If TextBox2.Text = "123" Then 管理員界面.Show() Me.Hide() Else If TextBox2.Text = "" Then MsgBox("密碼不能為空！") Else MsgBox("用戶名或密碼錯誤", MsgBoxStyle.RetryCancel) TextBox2.Text = "" TextBox2.Focus() End If End If Else Dim

34、str As String = "" str = "SELECT * from 用戶注冊界面" conn.Close() management(str) dr = cmd.ExecuteReader() Do While dr.Read() = True If Trim(user) = Trim(dr.GetValue(1).ToString) And Trim(TextBox2.Text) = Trim(dr.GetValue(2).ToString) Then 用戶界面.Show() 用戶界面.Text = user & "的個人電

35、子相冊" Me.Hide() Exit Do End If Loop If dr.Read() = False Then MsgBox("用戶名或密碼錯誤！") End If End If conn.Close() End SubEnd Class7.3個人電子相冊代碼Imports System.DataImports System.Data.OleDbImports System.Data.SqlClientPublic Class 個人電子相冊 Dim conn As New OleDbConnection Dim cmd As New OleDbComma

36、nd Dim dr As OleDbDataReader Sub management(ByVal str As String) conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:軟工VB（電子相冊管理系統(tǒng)）db2.mdb" conn.Open() cmd.Connection = conn cmd.CommandText = str cmd.ExecuteNonQuery() End Sub Private Sub 層疊ToolStripMenuItem_Click(ByVal

37、sender As System.Object, ByVal e As System.EventArgs) Handles 層疊ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub 水平平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平鋪ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizonta

38、l) End Sub Private Sub 垂直平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平鋪ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub 打開相冊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

39、打開相冊ToolStripMenuItem.Click PictureBox1.Hide() Dim str As String = "" str = "SELECT * from Picture" conn.Close() management(str) dr = cmd.ExecuteReader() Dim i As Integer = 1 Do While dr.Read() = True Dim f As New Picture f.MdiParent = Me f.PictureBox1.Image = Image.FromFile(dr.G

40、etValue(1) If i <= 6 Then f.Text = dr.GetValue(1) f.Show() End If i += 1 Loop conn.Close() End Sub Private Sub 上傳ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建相冊ToolStripMenuItem.Click Dim openFile As New OpenFileDialog Dim str As String openFile.In

41、itialDirectory = "C:" openFile.Filter = "txt files(*.jpg)|*.jpg|All files(*.*)|*.*" openFile.RestoreDirectory = True If openFile.ShowDialog() = Windows.Forms.DialogResult.OK Then str = "INSERT INTO Picture(Path) VALUES('" & openFile.FileName & "')&q

42、uot; conn.Close() management(str) End If Dim f As New Picture f.MdiParent = Me End Sub Private Sub 刪除相冊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除相冊ToolStripMenuItem.Click 相片刪除.Show() End Sub Private Sub 關閉相冊ToolStripMenuItem_Click(ByVal sender As S

43、ystem.Object, ByVal e As System.EventArgs) Handles 關閉相冊ToolStripMenuItem.Click Me.Close() 用戶界面.Show() End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Me.Close() 用戶界面.Show() End Sub Private Sub 自動瀏覽ToolStripMe

44、nuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自動瀏覽ToolStripMenuItem.Click 相片瀏覽.Show() End SubEnd Class7.4管理員界面Imports System.DataImports System.Data.OleDbImports System.Data.SqlClientPublic Class 管理員界面 Dim conn As New OleDbConnection Dim cmd As New OleDbCommand Dim

45、 dr As OleDbDataReader Sub management(ByVal str As String) conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:軟工VB（電子相冊管理系統(tǒng)）db1.mdb" cmd.Connection = conn cmd.CommandText = str cmd.ExecuteNonQuery() End Sub Private Sub 管理員界面_Load(ByVal sender As System.Object, ByVal e

46、As System.EventArgs) Handles MyBase.Load conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:軟工VB（電子相冊管理系統(tǒng)）db1.mdb" conn.Open() Dim ad As New OleDbDataAdapter("select * from 用戶注冊界面", conn) Dim str1 As String Dim ds As New DataSet ad.Fill(ds, "用戶注冊界面"

47、) DataGridView1.DataSource = ds DataGridView1.DataMember = "用戶注冊界面" conn.Close() Dim i, j As Int16 For i = 0 To ds.Tables("用戶注冊界面").Rows.Count - 1 str1 = "" For j = 0 To ds.Tables("用戶注冊界面").Columns.Count - 1 str1 &= ds.Tables("用戶注冊界面").Rows(i).Item(j) & " " Next Next End Sub Private Sub ToolStripLabel1_Click(ByVal sender As S