电子相册管理系统

重庆师范大学《软件工程》课程设计报告题目：电子相册管理系统院（系）：计算机与信息科学学院年级专业: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