重慶師范大學《軟件工程》課程設計報告題目：電子相冊管理系統院（系）：計算機與信息科學學院年級專業:2008級計算機科學與技術組員:黃瑩、胡靜、曹婷婷：設計時間：2010年第1學期目錄TOC\o"1-5"\h\z《軟件工程》課程設計報告1\o"CurrentDocument"1.1課題研發的背景1\o"CurrentDocument"1.2課題研發的目的與意義1\o"CurrentDocument"2可行性研究1\o"CurrentDocument"2.1可行性研究的前提1要求1目標1\o"CurrentDocument"2.1.3條件、假定和限制1\o"CurrentDocument"2.1.4進行可行性研究的方法1\o"CurrentDocument"2.2對現有系統的分析：2\o"CurrentDocument"2.3對所建議系統的分析：2\o"CurrentDocument"2.4技術可行性分析2\o"CurrentDocument"2.5社會可行性分析2\o"CurrentDocument"2.6經濟可行性分析2\o"CurrentDocument"2.7操作可行性2\o"CurrentDocument"2.8可行性研究的結論2\o"CurrentDocument"2.9評價尺度3\o"CurrentDocument"3需求分析3\o"CurrentDocument"3.1需求分析的背景3目標33.2.2用戶的特點33.2.3假定和約束3\o"CurrentDocument"3.3系統對主要功能的規定43.3.1系統功能模塊43.3.2功能描述43.3.3系統主要功能的數據流程圖5\o"CurrentDocument"3.4數據字典103.4.1數據流的描述103.4.2數據項的條目113.4.3數據存儲條目113.4.4E-R圖12\o"CurrentDocument"3.5系統對性能的規定12精度123.5.2時間特性的要求12\o"CurrentDocument"4總體設計13\o"CurrentDocument"4.1系統總體設計13引言：134.1.2編寫目的：13范圍：134.1.4需求規定：134.1.5運行環境134.1.6系統總體結構如圖所示：14\o"CurrentDocument"4.3數據庫設計154.2.1用戶檔案數據庫154.2.2相冊數據庫16\o"CurrentDocument"4.3界面設計16\o"CurrentDocument"5結構化分析與設計18\o"CurrentDocument"5.1數據流圖185.1.1注冊185.1.2用戶登錄185.1.3管理員信息管理185.1.4總的數據流程圖195.2結構圖19\o"CurrentDocument"6面向對象設計和分析20\o"CurrentDocument"6.1識別執行者20\o"CurrentDocument"6.2識別用況20\o"CurrentDocument"6.3用況描述20\o"CurrentDocument"6.4活動圖描述用況21\o"CurrentDocument"7實現代碼23\o"CurrentDocument"7.1登錄代碼23\o"CurrentDocument"7.2注冊代碼25\o"CurrentDocument"7.3個人電子相冊代碼26\o"CurrentDocument"7.4管理員界面28\o"CurrentDocument"7.5個人資料30\o"CurrentDocument"7.6相片瀏覽34\o"CurrentDocument"8系統測試36\o"CurrentDocument"8.1系統測試概要36\o"CurrentDocument"8.2系統功能測試37\o"CurrentDocument"8.3系統維護38\o"CurrentDocument"9總結39\o"CurrentDocument"10參考文獻391引言1.1課題研發的背景由于市場競爭的需要，交流方式的多樣化，用戶的可選擇的方式也就不斷增加，對于軟件研發者，軟件功能的多樣化和完善才是競爭的資本。由于信息交流的多樣化，特別是電子信息技術的發展，同時，隨著數據庫技術，客戶/服務器技術等的發展，使得電子相冊系統的功能更加完善。電子相冊管理系統的特點是從相冊管理的角度出發，通過數據庫將幾乎所有與之相關的數據統一管理起來，從而形成了集成的信息集。電子相冊管理系統較好的用戶界面，信息共享，信息管理使得管理人員和用戶使用更加的便捷，而且電子相冊系統的可操作性非常強，針對不同教育程度的人群。電子相冊系統容納的信息量非常大，主要通過文字和圖片等方式展示出來，針對當前信息交流和管理類型的軟件較多的原因，電子相冊系統通過簡單的幾個功能模塊就實現了用戶的登錄、注冊、信息更新、信息共享、信息管理等功能。且在不同的功能模塊中，分工明確，不同的功能模塊通過控件聯系起來。從而使得用戶之間的交流更加的多樣化。1.2課題研發的目的與意義它能夠確保用戶交流的多樣化，不論什么樣的用戶，在交流的過程中最基本的就是個人信息的展示，在此基礎上，增加響應的個性化模塊，使得用戶之間的交流更加的豐富。因此，電子相冊系統的研發，促使用戶交流的多樣化和個性化，該系統不僅為用戶提供了交流平臺，同時還豐富了用戶交流的主題。2可行性研究2.1可行性研究的前提2.1.1要求功能：登錄功能、用戶注冊功能、管理員信息管理功能、用戶信息管理功能、系統設置管理子系統、其他系統接口性能：用戶的登錄，注冊，以及用戶對個人信息的更新和管理員對所有信息的更新等。輸入：用戶名、密碼，對應的相關信息等。輸出：用戶信息，包括文字，聲音，圖片等。2.1.2目標希望能夠以最低的成本，并且能夠在最短的時間期限內研發出具有登錄、注冊、信息共享、信息管理等功能的電子相冊管理系統。2.1.3條件、假定和限制1）建議系統運行的最短壽命為5年2）進行該系統方案選擇比較的期限為1個月3）建議該系統軟件投入使用的最遲時間為2011年1月4）開發該軟件系統的經費來源為本小組5）該系統要受到資金、壽命、社會等系列因素的制約和限制2.1.4進行可行性研究的方法本項目開發小組由3人組成，從三個大方面對系統開發作可行性研究分析。（1）兩人對現行電子相冊管理系統進行分析，調查確定現行系統已有的功能及初步確定待開發系統的功能。（2）兩人對電子相冊管理做實地調查，搜集日常工作管理信息，并初步確定電子相冊管理的主要流程。總結出待開發系統的功能。（3）匯總調查結果，確定系統框架及模型，對待開發系統進行可行性仿真研究。軟件主要達到功能基本齊全，操作簡單，應用方便。2.2對現有系統的分析：現有系統主要是由人工進行管理和維護，工作量較大，不能滿足人們對時間和效率的要求，導致這種電子相冊模式已不再適應日益增長的電子相冊工作管理量。迫切需要找到一種更加智能的電子相冊管理以及注冊系統。2.3對所建議系統的分析：本系統可運行于裝有WINDOWXP以及windows?系統的電腦上，可實現方便的用戶登錄和注冊以及管理員的登錄注冊。繼承舊的管理系統的優良性能基礎上進一步提升軟件的管理性能；實現資源的高效利用。其操作簡單界面簡明，易于用戶使用。2.4技術可行性分析由于當前開發技術受限，軟件系統中某些功能仍無法實現，同時，對于用戶提供的建議，實時更新維護需要大量的耗費人力，所以此時的管理員需要掌握數據庫以及編程方面的技術。目前為止，對于已實現的功能，用戶在使用過程中并無不良反饋，且在規定時間范圍內能完成軟件系統的開發。2.5社會可行性分析法律方面的可行性：本軟件產品未觸犯任何法律法規，可以進行開發研究使用方面的可行性：根據調查可知，本軟件產品是一款實用價值較強的產品，軟件提供諸多的功能，例如更新和查詢功能，以及信息共享等。2.6經濟可行性分析本軟件產品屬于小型軟件，對于經費的開支并不大，開發系統時涉及到access，MicrosoftVisualStudio等，系統開發的支出比較少，也在預算范圍內，主要用于支持軟件的硬件設備，安全和保密設備。軟件的收益通過網絡流量計算，因此，不同月的流量累計不同。2.7操作可行性2.8可行性研究的結論軟件開發過程中由于開發技術的不成熟，所以歷時相對較長，同時，軟件如若實時的更新，需要管理員隨時關注系統，以做到與用戶需求同步。軟件的收益幾乎為純收益，在軟件開發時，支出主要是源于硬件設備以及安全維護，其它方面并無太多支出，所以，該軟件的經濟效益是可觀的。2.9評價尺度費用的多少，各項功能的優先次序，費用的高低，壽命長度，開發時間的長短以及使用中的難易程度。3需求分析3.1需求分析的背景在完成了針對《電子相冊管理》軟件市場的前期調查，同時與多位軟件使用者進行了全面深入地探討和分析的基礎上，提出了這份軟件需求規格說明書。此需求規格說明書對《電子相冊管理系統》軟件做了全面細致的用戶需求分析，明確所要開發的軟件應具有的功能、性能與界面，使系統分析人員及軟件開發人員能清楚地了解用戶的需求，并在此基礎上進一步提出概要設計說明書和完成后續設計與開發工作。本說明書的預期讀者為用戶、業務或需求分析人員、測試人員、項目管理人員。3.2需求分析的任務概述3.2.1目標1、開發目標人們交流的方式多種多樣，但是，我們在交流的同時希望更多的了解對方的信息，本軟件即是根據此需求進行開發的。2、應用目標讓用戶能夠通過注冊信息，登錄并更新及查詢自己的信息，在此基礎上，用戶還能夠有效的掌握和共享其它資源，但是不能更新。從而促進了信息管理的規范化和集成化，使得用戶之間的交流更加的便捷。3.2.2用戶的特點本軟件產品的最終用戶來源廣泛，相同之處則是為了增進與他人之間的交流，管理人員則可以隨時更新軟件的項目，以及查詢和維護信息。本軟件面向大眾，用戶使用過程中的操作也不復雜，因此，本軟件的使用頻度應達到70%左右。3.2.3假定和約束本軟件產品為大眾用戶使用，然而，本軟件在功能上還不夠完善，因此對于用戶的需求還無法完全實現。3.3系統對主要功能的規定3.3.1系統功能模塊1）登錄模塊2）用戶注冊模塊3）管理員信息管理模塊4）用戶信息管理模塊5）系統設置管理模塊6）其他系統接口3.3.2功能描述下面詳細描述一下各個功能模塊：1）登錄模塊僅限于已注冊用戶和管理人員進行操作。該模塊主要是用于用戶登錄，用戶和管理人員輸入用戶名和正確的密碼即可進入對應的界面。該界面的注冊控件可轉到注冊功能，若用戶長期未使用已注冊帳號（五個月以內未曾使用系統將自動注銷）、為注冊用戶以及用戶名或者密碼遺失的用戶，點擊注冊控件進入注冊模塊。2）用戶注冊模塊僅限于用戶長期未使用已注冊帳號（五個月以內未曾使用系統將自動注銷）、為注冊用戶以及用戶名或者密碼遺失的用戶。在注冊過程中，即將注冊的用戶必須需要根據要求填寫用戶名、密碼、確認密碼、注冊郵箱等，在填寫過程中系統會有對應的提示，*為必填，對于其他比如說性別、出生年月等信息為可填，注冊成功后將進入個人信息模塊。3）管理員信息管理模塊僅限于管理人員進行操作。管理人員通過登錄模塊輸入管理員登錄帳號，進入管理員信息管理模塊，該模塊里面，管理人員能夠通過輸入查找功能，進行查詢數據庫中所有用戶的個人資料，而且，管理員還能對所有用戶的資料進行修改，包括文字和圖片信息。4）用戶信息管理模塊僅限于已注冊用戶和管理人員進行操作。用戶通過登錄功能模塊輸入正確的用戶名和密碼進入用戶信息模塊，用戶信息管理模塊僅僅是個人信息，不包括其他用戶的信息，所以，別的用戶不能夠修改此用戶的任何信息，用戶自身可以對個人的信息進行修改。在此模塊，用戶還能夠對用戶的信息進行不同的展示，例如圖片的展示，形態和大小呈現多樣化。5）系統設置管理模塊僅限于已注冊用戶和管理人員進行操作。管理員和已注冊用戶能夠根據不同的需要修改系統中的某些設置。3.3.3系統主要功能的數據流程圖1、注冊功能2、管理員登錄3、管理員管理功能4、用戶功能5、系統設置3.4數據字典.3.4.1數據流的描述數據流名來源去向說明登錄用戶輸入的用戶名和密碼驗證后進入系統界面管理員和用戶進入的界面不相同用戶注冊用戶填寫的注冊信息注冊成功后可直接登錄系統注冊信息自動寫入到后臺數據庫管理員界面正確的管理員用戶名和密碼進入主界面進行管理可直接查看用戶信息用戶界面正確的用戶名和密碼進入用戶主界面可對自己的相冊進行管理個人資料用戶點擊個人檔案修改資料或頭像修改后的資料自動更新后臺數據庫相片瀏覽用戶點擊個人相冊管理自己個人相冊上傳或刪除等修改后自動更新后臺數據庫相片刪除用戶進入個人電子相冊后點擊刪除相片直接刪除數據庫中的相片刪除后自動更新后臺數據庫個人電子相冊用戶登錄后點擊進入對相冊進行各項管理資料修改在個人資料中點擊進行資料的完善或修改修改后的資料自動更新在數據庫中

3.4.2數據項的條目數據項名稱類型描述用戶名文本類型描述用戶和管理員的用戶名ID數字類型描述用戶在電子相冊中的表示密碼文本類型用戶在電子相冊中的密碼確認密碼文本類型注冊時候的確認密碼注冊郵箱文本類型注冊時候所用的驗證郵箱性別文本類型描述用戶的性別出生年月文本類型描述用戶的出生年月頭像文本類型用戶上傳的個人頭像星座文本類型描述用戶的星座血型文本類型描述用戶的血型職業文本類型描述用戶的職業愛好文本類型描述用戶的愛好PictureID文本類型用戶相冊照片的編號Path文本類型用戶相冊照片的來源地址3.4.3數據存儲條目數據存儲名稱簡述組成用戶注冊信息存放用戶的注冊信息ID+用戶名+密碼+確認密碼+注冊郵箱+性別+出生年月+星座+血型+頭像+職業+愛好用戶照片信息存放用戶的照片信息PictureID+path

3.4.4E-R圖3.5系統對性能的規定3.5.1精度3.4.4E-R圖1、要按照嚴格的數據格式輸入，否則系統不給予響應進行處理。2、查詢時要保證查全率，所有相應域包含查詢關鍵字的記錄都能查到。3.5.2時間特性的要求響應時間：一般操作的響應時間應在1~2秒內，對軟磁盤和打印機的操作也應在可接受的時間內完成。更新處理時間：每12小時數據的轉換和傳送時間：解題時間：3.5.3適應性：使用開放式的操作系統，開放式的數據庫開發工具及標準的通信協議，結構層次自獨立性。4總體設計4.1系統總體設計4.1.1引言：4.1.2編寫目的：以方便用戶的使用，減少用戶使用的操作不變性，提高電子相冊上傳的速度，減少上傳差錯為目標，減少各項資金支出，提高管理質量，基于需求分析之上編寫了本文檔，目的在于，將需求分析中的設計的功能具體化預期讀者：?…有關業務主管；?…有關技術主管；?…有關軟件設計開發人員；?…有關運行維護人員4.1.3范圍：說明：待開發的軟件系統的名稱：電子相冊管理系統項目任務提出者：2008級1班項目開發者：第五開發小組用戶：大學生實現該軟件的計算中心或計算機網絡：WINXP/2000/Vista./Windows74.1.4需求規定：本電子相冊管理系統主要以提高快速注冊，方便用戶上傳照片，管理照片，同時便于系統的管理員管理為目標，減少各項資金支出，提高管理質量，從而能為使用方便性和上傳照片快速性創造條件，對用戶的登陸注冊以及管理實現計算機管理，實現數據的及時保存預處理。詳細的說明請參見《需求分析》。4.1.5運行環境數據庫：Access2003數據庫運行平臺：裝有windows系列操作系統的PC機…電子相冊管理系統系統功能總結構圖4.3數據庫設計4.2.1用戶檔案數據庫[[外LU—Sl.f-1.11%BI4irh':':li亦;必a牲ccc|cii嬲朋日El任忡何1,.J■t.專

4.2.2相冊數據庫T'ictizreTriPath?鼬E：僦件工程I—+土苜隔1菇,iK31直成件工程Lri：?隔L貧,|匕3Z上做件工程L—1垣隔35衛：頃件工程\T-in+^苜既T\蘭擊ll1'■3B衛：頃件工程Ifijt苜酯1茹||，ST衛:僦件工程「s苜蝦搖m38E皿軟件工程「―土苜隔1結,|1,39衛：\軟件工程If+拒酣1〔自動編號）4.3界面設計登錄界面：吧登錄注冊界面:

個人資料界面:5結構化分析與設計5.1數據流圖5.1.1注冊5.1.2用戶登錄5.1.3管理員信息管理—用戶名、密碼一5.1.4總的數據流程圖5.2結構圖電子相冊管理系統3I|4錄入注冊信息1、驗證成功2、驗證失敗3、用戶名不存在4、用戶名已存在5、要求注冊6、用戶名登錄成功7、管理員登錄成功8、舊密碼正確9、舊密碼錯誤10、要求修改密碼11、維護期到6面向對象設計和分析6.1識別執行者在電子相冊管理系統中，登錄和注冊是由用戶或者管理人員進行的操作，只是在登錄時，用戶和管理員進入的界面不同，所以執行的功能也不同。用戶進入個人信息欄，管理員進入管理信息界面。注冊操作針對未注冊用戶以及密碼遺失的用戶，或者是賬號長時間未使用的用戶。根據以上分析，可以得到電子相冊管理系統的執行者是用戶和管理員。執行者的描述如下：用戶：登錄電子相冊管理系統時負責輸入用戶名和密碼。管理員：登錄電子相冊管理系統時負責輸入用戶名和密碼，負責管理電子相冊系統的所有用戶信息。后臺數據庫：1、負責驗證用戶注冊的信息以及用戶登錄的用戶名和密碼。2、存儲用戶相冊路徑。6.2識別用況從系統的需求陳述可知，用戶需要系統提供登錄、注冊、個人資料管理、相冊管理等功能，這些功能都包含了校驗密碼的功能。系統管理人員需要系統提供登錄、用戶信息管理、個人資料管理等功能。所以，可將它們設計成兩個用況。如下圖所示：6.3用況描述下面給出各個部分用況的詳細描述：（1）登錄用況的描述用況名稱：登錄參與的執行者：注冊用戶和管理員前置條件：登錄的用戶名和密碼完全正確事件流：當進入登錄界面時用況開始輸入用戶名和密碼如果用戶名和密碼不正確時彈出對話框“用戶名或密碼不正確”，回到第一步，否則繼續。用況結束。后置條件：用戶進入個人信息界面，管理員進入用戶信息界面。(2)注冊用況的描述用況名稱：注冊參與的執行者：未注冊用戶、用戶名或者密碼遺失的用戶、賬號長時間未登錄的用戶前置條件：系統中不存在此用戶的任何信息事件流：當點擊注冊控件時用況開始輸入用戶信息(用戶名、密碼、注冊郵箱等)如果用戶名已經存在，則回到第二步，否則繼續在后臺數據庫中添加新的用戶信息進入該用戶個人資料界面，用況結束后置條件：在后臺數據庫中添加了一個新用戶，并為該用戶存儲相應的信息。6.4活動圖描述用況更新用戶信息用戶修改信息用況的活動圖

用戶注冊用況的活動圖用戶密碼用況的活動圖7實現代碼7.1登錄代碼ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.Data.SqlClientPublicClassForm1DimconnAsNewOleDbConnectionDimcmdAsNewOleDbCommandDimdrAsOleDbDataReaderSubmanagement(ByValstrAsString)conn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\軟工一VB(電子相冊管理系統)\db1.mdb”conn.Open()cmd.Connection=conncmd.CommandText=strcmd.ExecuteNonQuery()EndSubDimnAsIntegerPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click用戶注冊界面.Show()Me.Hide()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimuserAsStringuser=TextBox1.TextIfuser=〃admi〃ThenIfTextBox2.Text="123"Then管理員界面.Show()Me.Hide()ElseIfTextBox2.Text=〃〃ThenMsgBox(〃密碼不能為空！〃)ElseMsgBox(〃用戶名或密碼錯誤〃，MsgBoxStyle.RetryCancel)TextBox2.Text=〃〃TextBox2.Focus()EndIfEndIfElseDimstrAsString=〃〃str="SELECT*from用戶注冊界面〃conn.Close()management(str)dr=cmd.ExecuteReader()DoWhiledr.Read()=TrueIfTrim(user)=Trim(dr.GetValue(1).ToString)AndTrim(TextBox2.Text)=Trim(dr.GetValue(2).ToString)Then用戶界面.Show()用戶界面.Text=user&〃的個人電子相冊〃Me.Hide()ExitDoEndIfLoopIfdr.Read()=FalseThenMsgBox(〃用戶名或密碼錯誤！〃)EndIfEndIfconn.Close()EndSubEndClass7.2注冊代碼ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.Data.SqlClientPublicClassForm1DimconnAsNewOleDbConnectionDimcmdAsNewOleDbCommandDimdrAsOleDbDataReaderSubmanagement(ByValstrAsString)conn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\軟工一VB(電子相冊管理系統)\db1.mdb”conn.Open()cmd.Connection=conncmd.CommandText=strcmd.ExecuteNonQuery()EndSubDimnAsIntegerPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click用戶注冊界面.Show()Me.Hide()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimuserAsStringuser=TextBox1.TextIfuser=〃admi〃ThenIfTextBox2.Text="123"Then管理員界面.Show()Me.Hide()ElseIfTextBox2.Text=〃〃ThenMsgBox(〃密碼不能為空！〃)ElseMsgBox(〃用戶名或密碼錯誤〃，MsgBoxStyle.RetryCancel)TextBox2.Text=〃〃TextBox2.Focus()EndIfEndIfElseDimstrAsString=〃〃str="SELECT*from用戶注冊界面〃conn.Close()management(str)dr=cmd.ExecuteReader()DoWhiledr.Read()=TrueIfTrim(user)=Trim(dr.GetValue(1).ToString)AndTrim(TextBox2.Text)=Trim(dr.GetValue(2).ToString)Then用戶界面.Show()用戶界面.Text=user&〃的個人電子相冊〃Me.Hide()ExitDoEndIfLoopIfdr.Read()=FalseThenMsgBox(〃用戶名或密碼錯誤！〃)EndIfEndIfconn.Close()EndSubEndClass7.3個人電子相冊代碼ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.Data.SqlClientPublicClass個人電子相冊DimconnAsNewOleDbConnectionDimcmdAsNewOleDbCommandDimdrAsOleDbDataReaderSubmanagement(ByValstrAsString)conn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\軟工一VB(電子相冊管理系統)\db2.mdb”conn.Open()cmd.Connection=conncmd.CommandText=strcmd.ExecuteNonQuery()EndSubPrivateSub層疊ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles層疊ToolStripMenuItem.ClickMe.LayoutMdi(MdiLayout.Cascade)EndSubPrivateSub水平平鋪ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles水平平鋪ToolStripMenuItem.ClickMe.LayoutMdi(MdiLayout.TileHorizontal)EndSubPrivateSub垂直平鋪ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles垂直平鋪ToolStripMenuItem.ClickMe.LayoutMdi(MdiLayout.TileVertical)EndSubPrivateSub打開相冊ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles打開相冊ToolStripMenuItem.ClickPictureBox1.Hide()DimstrAsString=〃〃str="SELECT*fromPicture"conn.Close()management(str)dr=cmd.ExecuteReader()DimiAsInteger=1DoWhiledr.Read()=TrueDimfAsNewPicturef.MdiParent=Mef.PictureBox1.Image=Image.FromFile(dr.GetValue(1))Ifi<=6Thenf.Text=dr.GetValue(1)f.Show()EndIfi+=1Loopconn.Close()EndSubPrivateSub上傳ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles新建相冊ToolStripMenuItem.ClickDimopenFileAsNewOpenFileDialogDimstrAsStringopenFile.InitialDirectory=〃C:\\〃openFile.Filter="txtfiles(*.jpg)|*.jpg|Allfiles(*.*)|*.*〃openFile.RestoreDirectory=TrueIfopenFile.ShowDialog()=Windows.Forms.DialogResult.OKThenstr="INSERTINTOPicture(Path)VALUES('"&openFile.FileName&"')"conn.Close()management(str)EndIfDimfAsNewPicturef.MdiParent=MeEndSubPrivateSub刪除相冊ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles刪除相冊ToolStripMenuItem.Click相片刪除.Show()EndSubPrivateSub關閉相冊ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles關閉相冊ToolStripMenuItem.ClickMe.Close()用戶界面.Show()EndSubPrivateSub退出ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem.ClickMe.Close()用戶界面.Show()EndSubPrivateSub自動瀏覽ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles自動瀏覽ToolStripMenuItem.Click相片瀏覽.Show()EndSubEndClass7.4管理員界面查看修改卜：=L±a￡eg男1的再4用日D：曜?.賓2?eaaa男來23e￡aaa男24￡：=Laa郅￡ea±a男2BmHididhrhi-女1碰年3月犯2Smo11]111h-hi-男1明拜E月汩，:加巽ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.Data.SqlClientPublicClass管理員界面DimconnAsNewOleDbConnectionDimcmdAsNewOleDbCommandDimdrAsOleDbDataReaderSubmanagement(ByValstrAsString)conn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\軟工一VB(電子相冊管理系統)\db1.mdb”cmd.Connection=conncmd.CommandText=strcmd.ExecuteNonQuery()EndSubPrivateSub管理員界面—Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadconn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\^X—VB(電子相冊管理系統)\db1.mdb”conn.Open()DimadAsNewOleDbDataAdapter(〃select*from用戶注冊界面〃，conn)DimstrlAsStringDimdsAsNewDataSetad.Fill(ds,〃用戶注冊界面〃)DataGridView1.DataSource=dsDataGridView1.DataMember=〃用戶注冊界面〃conn.Close()Dimi,jAsInt16Fori=0Tods.Tables(〃用戶注冊界面〃).Rows.Count-1str1=〃〃Forj=0Tods.Tables(〃用戶注冊界面〃).Columns.Count-1str1&=ds.Tables(〃用戶注冊界面〃).Rows(i).Item(j)&""NextNextEndSubPrivateSubToolStripLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripLabel1.Click用戶界面.Show()個人資料.Button1.Hide()個人資料.Button2.Hide()EndSubPrivateSubToolStripLabel2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripLabel2.ClickDimstrAsString=〃〃str="SELECT*from用戶注冊界面〃conn.Close()management(str)dr=cmd.ExecuteReader()DoWhiledr.Read()=TrueIfTrim(ToolStripTextBox1.Text)=Trim(dr.GetValue(1).ToString)Then個人資料.Show()EndIfLoopEndSubEndClass7.5個人資料基本個人資料：用戶名二b相瑜工D:31性別二女出生年月：年■月殳日雇系寺式-b星座:基本個人資料：用戶名二b相瑜工D:31性別二女出生年月：年■月殳日雇系寺式-b星座:金牛座血星二『型職業二學生愛好:未埴與個人頭像更改頭像DimconnAsNewOleDbConnectionDimcmdAsNewOleDbCommandDimdrAsOleDbDataReaderSubmanagement(ByValstrAsString)conn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\軟工一VB(電子相冊管理系統)\db1.mdb”conn.Open()cmd.Connection=conncmd.CommandText=strcmd.ExecuteNonQuery()'conn.Close()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.Click資料修改.Show()Me.Hide()EndSubSubjinru(ByValstlAsString)DimstrAsString=〃〃str="SELECT*from用戶注冊界面where用戶名='〃&stl&〃'〃conn.Close()management(str)dr=cmd.ExecuteReader()DoWhiledr.Read()Label9.Text=dr.GetValue(l)Label10.Text=dr.GetValue(0)Label11.Text=dr.GetValue(5)Label12.Text=dr.GetValue(6)Label13.Text=dr.GetValue(4)Ifdr.GetValue(7).ToString<>〃〃ThenPictureBox1.Image=Image.FromFile(dr.GetValue(7))EndIfIfdr.GetValue(8).ToString=〃〃ThenLabel19.Text=〃未填寫〃Else:Label19.Text=dr.GetValue(8)EndIfIfdr.GetValue(9).ToString=〃〃ThenLabel18.Text=〃未填寫〃Else:Label18.Text=dr.GetValue(9)EndIfIfdr.GetValue(10).ToString=〃〃ThenLabel17.Text=〃未填寫〃Else:Label17.Text=dr.GetValue(10)EndIfIfdr.GetValue(11).ToString=〃〃ThenLabel16.Text=〃未填寫〃Else:Label16.Text=dr.GetValue(11)EndIfLoopEndSubPrivateSub個人資料_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimstrAsString=〃〃IfForm1.TextBox1.Text<>〃admi〃Thenjinru(Form1.TextBox1.Text)Elsejinru(管理員界面.ToolStripTextBox1.Text)EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimopenFileAsNewOpenFileDialogopenFile.InitialDirectory=〃e:\\〃openFile.Filter="txtfiles(*.jpg)|*.jpg|Allfiles(*.*)|*.*〃openFile.RestoreDirectory=TrueIfopenFile.ShowDialog()=Windows.Forms.DialogResult.OKThenPictureBox1.Image=Image.FromFile(openFile.FileName)EndIfDimstrAsString=〃〃str="UPDATE用戶注冊界面set頭像='〃&openFile.FileName&〃'where用戶名='〃&Label9.Text&〃'〃conn.Close()management(str)dr=cmd.ExecuteReader()EndSubEndClass資料修改：ImportsSystem.DataImportsSystem.Data.OleDbImportsSystem.Data.SqlClientPublicClass資料修改DimconnAsNewOleDbConnectionDimcmdAsNewOleDbCommandDimdrAsOleDbDataReaderSubmanagement(ByValstrAsString)conn.ConnectionString="Provider=Microsoft.Jet.0LEDB.4.0;DataSource=E:\軟工一VB(電子相冊管理系統)\db1.mdb”conn.Open()cmd.Connection=conncmd.CommandText=strcmd.ExecuteNonQuery()'conn.Close()EndSubPrivateSub資料修改—Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadLabellO.Text=個人資料.Label9.TextLabelll.Text=個人資料.LabellO.TextIf個人資料.Labelll.Text=〃女〃ThenRadioButton2.Checked=TrueElse:RadioButtonl.Checked=TrueEndIfTextBoxl.Text=個人資料.Labell3.TextDimiAsIntegerFori=1990To2010ComboBox1.Items.Add(i&〃年〃)NextFori=1To12ComboBox2.Items.Add(i&〃月〃)NextFori=1To30ComboBox3.Items.Add(i&〃日〃)NextEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsex,birthday,mail,xingzhuo,xuexing,zhiye,aihaoAsStringIfRadioButton1.Checked=TrueThensex=RadioButton1.TextElsesex=RadioButton2.TextEndIfbirthday=ComboBox1.Text&ComboBox2.Text&ComboBox3.Textxingzhuo=ComboBox4.Textmail=TextBox1.Textxuexing=ComboBox5.Textzhiye=TextBox2.Textaihao=TextBox3.TextDimstrAsString=〃〃str="UPDATE用戶注冊界面set血型='〃&xuexing&〃'，職業='〃&zhiye&〃'，愛好='〃&aihao&"',性別='"&sex&"',出生年月='"&birthday&"',星座='"&xingzhuo&"',注冊郵箱='"&mail&"'where用戶名='"&Label10.Text&","conn.Close()management(str)dr=cmd.ExecuteReader()MsgBox("保存成功！")用戶界面.Show()Me.Hide()EndSubEndClass7.6相片瀏覽II-IUIU匚匚isPublicClass理遂禹privar+esub^Kg^——Fornlclosed(ByvalsenderAsObjec尸ByVaieAssysr+enLwindows，Forms,FormclosedEvenr+Args)HandlesMe?FormClosed益KU藩?close。EndSub35h--L-tx^-rLPrivateSub相片瀏覽_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load相片刪除.Show()相片刪除.WindowState=FormWindowState.MinimizedPictureBox1.Image=Image.FromFile(相片刪除.ListBox1.Items(0))EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickStaticiAsInteger=1Ifi<=相片刪除.ListBox1.Items.Count-1ThenPictureBox1.Image=Image.Fr