XX学
软件工程课程设计报告
题 目 ： 电子相册理系统
院 （系）： 计算机信息科学学院
年级专业 ： 20XX级计算机科学技术
组 员 ：
指导老师 ：
设计时间： 2010 年 第 1学期
目录
软件工程课程设计报告 1
11课题研发背景 3
12课题研发目意义 3
2 行性研究 4
21行性研究前提 4
211 求 4
212 目标 4
213 条件假定限制 4
214 进行行性研究方法 4
22现系统分析： 4
23建议系统分析： 4
24 技术行性分析 5
25社会行性分析 5
26 济行性分析 5
27 操作行性 5
28行性研究结 5
29评价尺度 5
3 需求分析 5
31 需求分析背景 5
321 目标 6
322 户特点 6
323 假定约束 6
33系统功规定 6
331 系统功模块 6
332 功描述 6
333 系统功数流程图 7
34 数字典 12
341 数流描述 12
342 数项条目 13
343 数存储条目 14
344 ER图 14
35 系统性规定 15
351 精度 15
352时间特性求 15
4 总体设计 15
41 系统总体设计 15
411引言： 15
412编写目： 15
413范围： 15
414 需求规定： 16
415 运行环境 16
416系统总体结构图示： 16
43数库设计 18
421 户档案数库 18
422 相册数库 19
43 界面设计 19
5 结构化分析设计 21
51数流图 21
511注册 21
512 户登录 21
513 理员信息理 21
514 总数流程图 22
52结构图 22
6 面象设计分析 23
61识执行者 23
62识况 23
63况描述 23
64 活动图描述况 24
7 实现代码 26
71登录代码 26
72注册代码 28
73电子相册代码 29
74理员界面 31
75资料 33
76相片浏览 37
8 系统测试 39
81 系统测试概 39
82 系统功测试 40
83 系统维护 41
9 总结 42
10 参考文献 42
1引言
11课题研发背景
市场竞争需交流方式样化户选择方式断增加软件研发者软件功样化完善竞争资信息交流样化特电子信息技术发展时着数库技术客户服务器技术等发展电子相册系统功更加完善电子相册理系统特点相册理角度出发通数库相关数统理起形成集成信息集电子相册理系统较户界面信息享信息理理员户更加便捷电子相册系统操作性非常强针教育程度群
电子相册系统容纳信息量非常通文字图片等方式展示出针前信息交流理类型软件较原电子相册系统通简单功模块实现户登录注册信息更新信息享信息理等功功模块中分工明确功模块通控件联系起户间交流更加样化
12课题研发目意义
够确保户交流样化什样户交流程中基信息展示基础增加响应性化模块户间交流更加丰富电子相册系统研发促户交流样化性化该系统仅户提供交流台时丰富户交流题
2 行性研究
21行性研究前提
211 求
A 功：登录功户注册功理员信息理功户信息理功系统设置理子系统系统接口
B 性：户登录注册户信息更新理员信息更新等
C 输入：户名密码应相关信息等
D 输出：户信息包括文字声音图片等
212 目标
希够低成够短时间期限研发出具登录注册信息享信息理等功电子相册理系统
213 条件假定限制
1）建议系统运行短寿命5年
2）进行该系统方案选择较期限1月
3）建议该系统软件投入迟时间2011年1月
4）开发该软件系统费源组
5）该系统受资金寿命社会等系列素制约限制
214 进行行性研究方法
项目开发组3组成三方面系统开发作行性研究分析
（1）两现行电子相册理系统进行分析调查确定现行系统已功初步确定开发系统功
（2）两电子相册理做实调查搜集日常工作理信息初步确定电子相册理流程总结出开发系统功
（3）汇总调查结果确定系统框架模型开发系统进行行性仿真研究软件达功基齐全操作简单应方便
22现系统分析：
现系统工进行理维护工作量较满足时间效率求导致种电子相册模式已适应日益增长电子相册工作理量迫切需找种更加智电子相册理注册系统
23建议系统分析：
系统运行装WINDOW XPwindows7系统电脑实现方便户登录注册理员登录注册继承旧理系统优良性基础进步提升软件理性实现资源高效利操作简单界面简明易户
24 技术行性分析
前开发技术受限软件系统中某功法实现时户提供建议实时更新维护需量耗费力时理员需掌握数库编程方面技术目前止已实现功户程中良反馈规定时间范围完成软件系统开发
25社会行性分析
a法律方面行性：软件产品未触犯法律法规进行开发研究
b方面行性：根调查知软件产品款实价值较强产品软件提供诸功例更新查询功信息享等
26 济行性分析
软件产品属型软件费开支开发系统时涉accessMicrosoft Visual Studio等系统开发支出较少预算范围支持软件硬件设备安全保密设备软件收益通网络流量计算月流量累计
27 操作行性
28行性研究结
软件开发程中开发技术成熟历时相较长时软件实时更新需理员时关注系统做户需求步软件收益纯收益软件开发时支出源硬件设备安全维护方面太支出该软件济效益观
29评价尺度
费少项功优先次序费高低寿命长度开发时间长短中难易程度
3 需求分析
31 需求分析背景
完成针电子相册理软件市场前期调查时位软件者进行全面深入探讨分析基础提出份软件需求规格说明书
需求规格说明书电子相册理系统软件做全面细致户需求分析明确开发软件应具功性界面系统分析员软件开发员清楚解户需求基础进步提出概设计说明书完成续设计开发工作说明书预期读者户业务需求分析员测试员项目理员
32 需求分析务概述
321 目标
1开发目标
交流方式种样交流时希更解方信息软件根需求进行开发
2应目标
户够通注册信息登录更新查询信息基础户够效掌握享资源更新促进信息理规范化集成化户间交流更加便捷
322 户特点
软件产品终户源广泛相处增进间交流理员时更新软件项目查询维护信息软件面众户程中操作复杂软件频度应达70左右
323 假定约束
软件产品众户然软件功够完善户需求法完全实现
33系统功规定
331 系统功模块
1） 登录模块
2） 户注册模块
3） 理员信息理模块
4） 户信息理模块
5） 系统设置理模块
6） 系统接口
332 功描述
面详细描述功模块：
1） 登录模块
仅限已注册户理员进行操作该模块户登录户理员输入户名正确密码进入应界面该界面注册控件转注册功户长期未已注册帐号（五月未系统动注销）注册户户名者密码遗失户点击注册控件进入注册模块
2） 户注册模块
仅限户长期未已注册帐号（五月未系统动注销）注册户户名者密码遗失户注册程中注册户必须需根求填写户名密码确认密码注册邮箱等填写程中系统会应提示*必填说性出生年月等信息填注册成功进入信息模块
3) 理员信息理模块
仅限理员进行操作理员通登录模块输入理员登录帐号进入理员信息理模块该模块里面理员够通输入查找功进行查询数库中户资料理员户资料进行修改包括文字图片信息
4） 户信息理模块
仅限已注册户理员进行操作户通登录功模块输入正确户名密码进入户信息模块户信息理模块仅仅信息包括户信息户够修改户信息户身信息进行修改模块户够户信息进行展示例图片展示形态呈现样化
5） 系统设置理模块
仅限已注册户理员进行操作理员已注册户够根需修改系统中某设置
333 系统功数流程图
1 注册功
进入注册界面
录入基必填信息
提交数
否注册
取消服务等户步操作
Yes
No
进入登录首界面
2 登录功
户登录
否登录
取消服务退出界面
Yes
No
户进入登录首界面
输入户名密码
进入户界面
系统查询匹配
Yes
No
理员登录
否登录
取消服务退出界面
Yes
No
理员进入登录首界面
输入户名密码
进入理员界面
系统查询匹配
Yes
No
3理员理功
登录成功进入理员界面
输入查询户键
否修改询匹配
否查询询匹配
Yes
Yes
户信息显示
输入修改户键
进入该户界面
进入该户资料修改界面进行资料头修改
档案界面
相册界面
选择相应操作
开相册
传相片界面
删相册
……
浏览相片
4户功
进入档案
户界面
选择相应操作
进入相册
查修改相应数
选择相应操作
开相册
传相片
删相册
……
浏览相片
5系统设置
系统设置
数库维护
户密码设置
密码修改
保存传
数备份
34 数字典
341 数流描述
数流名
源
说明
登录
户输入户名密码
验证进入系统界面
理员户进入界面相
户注册
户填写注册信息
注册成功直接登录系统
注册信息动写入台数库
理员界面
正确理员户名密码
进入界面进行理
直接查户信息
户界面
正确户名密码
进入户界面
相册进行理
资料
户点击档案
修改资料头
修改资料动更新台数库
相片浏览
户点击相册
理相册
传删等修改动更新台数库
相片删
户进入电子相册点击删相片
直接删数库中相片
删动更新台数库
电子相册
户登录点击进入
相册进行项理
资料修改
资料中点击
进行资料完善修改
修改资料动更新数库中
342 数项条目
数项名称
类型
描述
户名
文类型
描述户理员户名
ID
数字类型
描述户电子相册中表示
密码
文类型
户电子相册中密码
确认密码
文类型
注册时候确认密码
注册邮箱
文类型
注册时候验证邮箱
性
文类型
描述户性
出生年月
文类型
描述户出生年月
头
文类型
户传头
星座
文类型
描述户星座
血型
文类型
描述户血型
职业
文类型
描述户职业
爱
文类型
描述户爱
Picture ID
文类型
户相册片编号
Path
文类型
户相册片源址
343 数存储条目
数存储名称
简述
组成
户注册信息
存放户注册信息
ID+户名+密码+确认密码+注册邮箱+性+出生年月+星座+血型+头+职业+爱
户片信息
存放户片信息
Picture ID+ path
344 ER图户
理
理员
1 N
文档库
更新
更新
I n 1 1
更新
更新
相册库
1 N 1 1
35 系统性规定
351 精度
1严格数格式输入否系统予响应进行处理
2查询时保证查全率相应域包含查询关键字记录查
352时间特性求
a． 响应时间：般操作响应时间应1~2秒软磁盘印机操作应接受时间完成
b． 更新处理时间：12时
c． 数转换传送时间：
d． 解题时间：
353 适应性：
开放式操作系统开放式数库开发工具标准通信协议结构层次独立性
4 总体设计
41 系统总体设计
411引言：
412编写目：
方便户减少户操作变性提高电子相册传速度减少传差错目标减少项资金支出提高理质量基需求分析编写文档目需求分析中设计功具体化
预期读者：
² …关业务
² …关技术
² …关软件设计开发员
² …关运行维护员
413范围：
说明：
a 开发软件系统名称：电子相册理系统
b 项目务提出者：2008级1班
项目开发者：第五开发组
户：学生
c 实现该软件计算中心计算机网络： WIN XP2000VistaWindows7
414 需求规定：
电子相册理系统提高快速注册方便户传片理片时便系统理员理目标减少项资金支出提高理质量方便性传片快速性创造条件户登陆注册理实现计算机理实现数时保存预处理详细说明请参见需求分析
415 运行环境
A． 数库：Access2003数库
B． 运行台：装windows系列操作系统PC机
416系统总体结构图示：
系统功总结构图
… 电子相册理系统
户注册子系统
登录子系统
理员信息理子系统
户信息理子系统
系统设置理子系统
注 册
信息完善
系统接口
43数库设计
421 户档案数库
422 相册数库
43 界面设计
登录界面：
注册界面：
资料界面：
5 结构化分析设计
51数流图
511注册
512 户登录
513 理员信息理
514 总数流程图
52结构图
11
10
2
4
7
6
5
1
8
9
3
1验证成功 2验证失败 3户名存
4户名已存 5求注册 6户名登录成功
7理员登录成功 8旧密码正确 9旧密码错误
10求修改密码 11维护期
6 面象设计分析
61识执行者
电子相册理系统中登录注册户者理员进行操作登录时户理员进入界面执行功户进入信息栏理员进入理信息界面注册操作针未注册户密码遗失户者账号长时间未户
根分析电子相册理系统执行者户理员执行者描述：
户：登录电子相册理系统时负责输入户名密码
理员：登录电子相册理系统时负责输入户名密码负责理电子相册系统户信息
台数库：1负责验证户注册信息户登录户名密码
2存储户相册路径
62识况
系统需求陈述知户需系统提供登录注册资料理相册理等功功包含校验密码功系统理员需系统提供登录户信息理资料理等功设计成两况图示：
注册
登录
修改资料
注销
修改密码
传相片
删片
验证户名
验证密码
户理
数库理
户
数库系统
理员
63况描述
面出部分况详细描述：
（1） 登录况描述
况名称：登录
参执行者：注册户理员
前置条件：登录户名密码完全正确
事件流：
1 进入登录界面时况开始
2 输入户名密码
3 果户名密码正确时弹出话框户名密码正确回第步否继续况结束
置条件：户进入信息界面理员进入户信息界面
（2） 注册况描述
况名称：注册
参执行者：未注册户户名者密码遗失户账号长时间未登录户
前置条件：系统中存户信息
事件流：
1 点击注册控件时况开始
2 输入户信息（户名密码注册邮箱等）
3 果户名已存回第二步否继续
4 台数库中添加新户信息
5 进入该户资料界面况结束
置条件：台数库中添加新户该户存储相应信息
64 活动图描述况
更新户信息
[取消]]
[放弃修改]
]
[确认修改]
[重试]
[验证失败]
[验证成功]
输入户名密码
户名密码错误
户页
修改资料
更新户信息
户修改信息况活动图
[否]
[]
[否]
[]
[验证成功]
[否]
[验证成功]
[]
注册
输入注册信息验证户名
否登录
登录
否重新注册
户注册况活动图
[重试]
[取消]
[验证成功]
[否]
[]
[重试]
[取消]
[验证成功]
[验证成功]
输入户名密码
修改密码
输入旧密码
输入新密码确认新密码
户名密码错误
密码错误
户密码况活动图
7 实现代码
71登录代码
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class Form1
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Dim n As Integer
Private Sub Button3_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button3Click
户注册界面Show()
MeHide()
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
Dim user As String
user TextBox1Text
If user admi Then
If TextBox2Text 123 Then
理员界面Show()
MeHide()
Else
If TextBox2Text Then
MsgBox(密码空)
Else
MsgBox(户名密码错误 MsgBoxStyleRetryCancel)
TextBox2Text
TextBox2Focus()
End If
End If
Else
Dim str As String
str SELECT * from 户注册界面
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead() True
If Trim(user) Trim(drGetValue(1)ToString) And Trim(TextBox2Text) Trim(drGetValue(2)ToString) Then
户界面Show()
户界面Text user & 电子相册
MeHide()
Exit Do
End If
Loop
If drRead() False Then
MsgBox(户名密码错误)
End If
End If
connClose()
End Sub
End Class
72注册代码
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class Form1
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Dim n As Integer
Private Sub Button3_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button3Click
户注册界面Show()
MeHide()
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
Dim user As String
user TextBox1Text
If user admi Then
If TextBox2Text 123 Then
理员界面Show()
MeHide()
Else
If TextBox2Text Then
MsgBox(密码空)
Else
MsgBox(户名密码错误 MsgBoxStyleRetryCancel)
TextBox2Text
TextBox2Focus()
End If
End If
Else
Dim str As String
str SELECT * from 户注册界面
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead() True
If Trim(user) Trim(drGetValue(1)ToString) And Trim(TextBox2Text) Trim(drGetValue(2)ToString) Then
户界面Show()
户界面Text user & 电子相册
MeHide()
Exit Do
End If
Loop
If drRead() False Then
MsgBox(户名密码错误)
End If
End If
connClose()
End Sub
End Class
73电子相册代码
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 电子相册
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db2mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Private Sub 层叠ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 层叠ToolStripMenuItemClick
MeLayoutMdi(MdiLayoutCascade)
End Sub
Private Sub 水铺ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 水铺ToolStripMenuItemClick
MeLayoutMdi(MdiLayoutTileHorizontal)
End Sub
Private Sub 垂直铺ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 垂直铺ToolStripMenuItemClick
MeLayoutMdi(MdiLayoutTileVertical)
End Sub
Private Sub 开相册ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 开相册ToolStripMenuItemClick
PictureBox1Hide()
Dim str As String
str SELECT * from Picture
connClose()
management(str)
dr cmdExecuteReader()
Dim i As Integer 1
Do While drRead() True
Dim f As New Picture
fMdiParent Me
fPictureBox1Image ImageFromFile(drGetValue(1))
If i < 6 Then
fText drGetValue(1)
fShow()
End If
i + 1
Loop
connClose()
End Sub
Private Sub 传ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 新建相册ToolStripMenuItemClick
Dim openFile As New OpenFileDialog
Dim str As String
openFileInitialDirectory C＼＼
openFileFilter txt files(*jpg)|*jpg|All files(**)|**
openFileRestoreDirectory True
If openFileShowDialog() WindowsFormsDialogResultOK Then
str INSERT INTO Picture(Path) VALUES(＇ & openFileFileName & ＇)
connClose()
management(str)
End If
Dim f As New Picture
fMdiParent Me
End Sub
Private Sub 删相册ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 删相册ToolStripMenuItemClick
相片删Show()
End Sub
Private Sub 关闭相册ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 关闭相册ToolStripMenuItemClick
MeClose()
户界面Show()
End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 退出ToolStripMenuItemClick
MeClose()
户界面Show()
End Sub
Private Sub 动浏览ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 动浏览ToolStripMenuItemClick
相片浏览Show()
End Sub
End Class
74理员界面
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 理员界面
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Private Sub 理员界面_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
Dim ad As New OleDbDataAdapter(select * from 户注册界面 conn)
Dim str1 As String
Dim ds As New DataSet
adFill(ds 户注册界面)
DataGridView1DataSource ds
DataGridView1DataMember 户注册界面
connClose()
Dim i j As Int16
For i 0 To dsTables(户注册界面)RowsCount 1
str1
For j 0 To dsTables(户注册界面)ColumnsCount 1
str1 & dsTables(户注册界面)Rows(i)Item(j) &
Next
Next
End Sub
Private Sub ToolStripLabel1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel1Click
户界面Show()
资料Button1Hide()
资料Button2Hide()
End Sub
Private Sub ToolStripLabel2_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel2Click
Dim str As String
str SELECT * from 户注册界面
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead() True
If Trim(ToolStripTextBox1Text) Trim(drGetValue(1)ToString) Then
资料Show()
End If
Loop
End Sub
End Class
75资料
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 资料
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
＇ connClose()
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
资料修改Show()
MeHide()
End Sub
Sub jinru(ByVal st1 As String)
Dim str As String
str SELECT * from 户注册界面 where 户名＇ & st1 & ＇
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead()
Label9Text drGetValue(1)
Label10Text drGetValue(0)
Label11Text drGetValue(5)
Label12Text drGetValue(6)
Label13Text drGetValue(4)
If drGetValue(7)ToString <> Then
PictureBox1Image ImageFromFile(drGetValue(7))
End If
If drGetValue(8)ToString Then
Label19Text 未填写
Else Label19Text drGetValue(8)
End If
If drGetValue(9)ToString Then
Label18Text 未填写
Else Label18Text drGetValue(9)
End If
If drGetValue(10)ToString Then
Label17Text 未填写
Else Label17Text drGetValue(10)
End If
If drGetValue(11)ToString Then
Label16Text 未填写
Else Label16Text drGetValue(11)
End If
Loop
End Sub
Private Sub 资料_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
Dim str As String
If Form1TextBox1Text <> admi Then
jinru(Form1TextBox1Text)
Else
jinru(理员界面ToolStripTextBox1Text)
End If
End Sub
Private Sub Button2_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button2Click
Dim openFile As New OpenFileDialog
openFileInitialDirectory e＼＼
openFileFilter txt files(*jpg)|*jpg|All files(**)|**
openFileRestoreDirectory True
If openFileShowDialog() WindowsFormsDialogResultOK Then
PictureBox1Image ImageFromFile(openFileFileName)
End If
Dim str As String
str UPDATE 户注册界面 set 头＇ & openFileFileName & ＇ where 户名＇ & Label9Text & ＇
connClose()
management(str)
dr cmdExecuteReader()
End Sub
End Class
资料修改：
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 资料修改
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
＇ connClose()
End Sub
Private Sub 资料修改_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
Label10Text 资料Label9Text
Label11Text 资料Label10Text
If 资料Label11Text 女 Then
RadioButton2Checked True
Else RadioButton1Checked True
End If
TextBox1Text 资料Label13Text
Dim i As Integer
For i 1990 To 2010
ComboBox1ItemsAdd(i & 年)
Next
For i 1 To 12
ComboBox2ItemsAdd(i & 月)
Next
For i 1 To 30
ComboBox3ItemsAdd(i & 日)
Next
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
Dim sex birthday mail xingzhuo xuexing zhiye aihao As String
If RadioButton1Checked True Then
sex RadioButton1Text
Else
sex RadioButton2Text
End If
birthday ComboBox1Text & ComboBox2Text & ComboBox3Text
xingzhuo ComboBox4Text
mail TextBox1Text
xuexing ComboBox5Text
zhiye TextBox2Text
aihao TextBox3Text
Dim str As String
str UPDATE 户注册界面 set 血型＇ & xuexing & ＇职业＇ & zhiye & ＇爱＇ & aihao & ＇性＇ & sex & ＇出生年月＇ & birthday & ＇星座＇ & xingzhuo & ＇注册邮箱＇ & mail & ＇ where 户名＇ & Label10Text & ＇
connClose()
management(str)
dr cmdExecuteReader()
MsgBox(保存成功)
户界面Show()
MeHide()
End Sub
End Class
76相片浏览
Public Class 相片浏览
Private Sub 相片浏览_FormClosed(ByVal sender As Object ByVal e As SystemWindowsFormsFormClosedEventArgs) Handles MeFormClosed
相片删Close()
End Sub
Private Sub 相片浏览_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
相片删Show()
相片删WindowState FormWindowStateMinimized
PictureBox1Image ImageFromFile(相片删ListBox1Items(0))
End Sub
Private Sub Timer1_Tick(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Timer1Tick
Static i As Integer 1
If i < 相片删ListBox1ItemsCount 1 Then
PictureBox1Image ImageFromFile(相片删ListBox1Items(i))
Else
i 0
PictureBox1Image ImageFromFile(相片删ListBox1Items(i))
End If
i i + 1
End Sub
Private Sub ToolStripLabel1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel1Click
Timer1Enabled True
End Sub
Private Sub ToolStripLabel2_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel2Click
Timer1Enabled False
End Sub
Private Sub ToolStripLabel3_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel3Click
相片删Show()
相片删WindowState FormWindowStateMinimized
Timer1Enabled True
End Sub
End Class
8 系统测试
81 系统测试概
处采黑盒测试法测试系统功否正确运作
接受测试功模块描述：
l 登录功
实现户登录根登录者进入界面理员界面户界面
l 户注册功
实现户注册功注册时填写相应户信息（户名密码确认密码等）
l 理员信息理功
实现理员整电子相册理系统理
l 户信息理功
实现户信息理户信息时修改
l 系统设置理
户根需修改系统相关设置
82 系统功测试
功模块
合法等价类
非法等价类
测试结果
输入
预期输出
输入
预期输出
登录
登录
户名：aa
密码：a
登录成功
户名：aa
密码：a
户名者密码错误
成功
取消
存
关闭
存
关闭
成功
注册
存
户注册界面
存
存
成功
注
册
注册
户名：b
密码b
确认密码：b
注册邮箱：12334@qqcom
性：男
出生年月：1990年7月9日
注册成功
输入已存户名aa
注册户名已存请重新注册
成功
取消
存
退出注册界面
存
存
成功
理员信息理
查
户名：aa
户资料界面
存
存
成功
修改
户名：aa
户资料界面
存
存
成功
户信息理
档案
存
户资料界面
存
存
成功
相册
存
户资料界面
存
存
成功
系统设置理
密码更改
户名：123
原密码：123
新密码：456
更改成功
户名：
原密码：123
新密码：456
户名空
成功
数库备份
备份址c＼
备份成功
C
路径存
成功
83 系统维护
系统采取三种方式维护：
1 改正性维护
软件初期某种原软件存错误缺陷需软件开发组户求系统进行改正性维护
2 适应性维护
系统长时间着户增加系统某方面速度刚开始时候问题做出适维护
3 完善性维护
系统年该应系统适应业务发展户软件提出新需求性求
9 总结
通长达两周软件工程课程设计团队学会软件工程设计基步骤学会培养团队协作力
开发初期团队必须统开发台组长统部署组分部分家分工合作汇总提高课程设计完成效率懂问题家相互帮忙解决懂问题问问老师问学网搜索千万里瞎想团队提高效率必须相互帮助良协作
前期工作做完定进行测试工作写代码难免会出现问题测试期间问题进行修改然总结验教训
总次设计程中学仅知识认识许事情次设计编程水提高步充分认识合作贵次设计涉数库软件工程vbnet学少编程工具数库连接知识数库操作进步解次设计综合力次锻炼必须承认力知识肤浅学道路漫长里衷心感谢指导老师杨卫明谢谢悉心指导热心帮助水限加时间短暂电子相册理系统中许足处老师加批评指正会课程设计中断改进断完善
10 参考文献
ISBN 9787302144458 软件工程
ISBN 7040140608 Visual BasicNET 程序设计导
GB85661995 软件生存期程
GB856788 计算机软件产品开发文件编制指南
GBT114571995 软件工程术语
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
XX学
软件工程课程设计报告
题 目 ： 电子相册理系统
院 （系）： 计算机信息科学学院
年级专业 ： 20XX级计算机科学技术
组 员 ：
指导老师 ：
设计时间： 2010 年 第 1学期
目录
软件工程课程设计报告 1
11课题研发背景 3
12课题研发目意义 3
2 行性研究 4
21行性研究前提 4
211 求 4
212 目标 4
213 条件假定限制 4
214 进行行性研究方法 4
22现系统分析： 4
23建议系统分析： 4
24 技术行性分析 5
25社会行性分析 5
26 济行性分析 5
27 操作行性 5
28行性研究结 5
29评价尺度 5
3 需求分析 5
31 需求分析背景 5
321 目标 6
322 户特点 6
323 假定约束 6
33系统功规定 6
331 系统功模块 6
332 功描述 6
333 系统功数流程图 7
34 数字典 12
341 数流描述 12
342 数项条目 13
343 数存储条目 14
344 ER图 14
35 系统性规定 15
351 精度 15
352时间特性求 15
4 总体设计 15
41 系统总体设计 15
411引言： 15
412编写目： 15
413范围： 15
414 需求规定： 16
415 运行环境 16
416系统总体结构图示： 16
43数库设计 18
421 户档案数库 18
422 相册数库 19
43 界面设计 19
5 结构化分析设计 21
51数流图 21
511注册 21
512 户登录 21
513 理员信息理 21
514 总数流程图 22
52结构图 22
6 面象设计分析 23
61识执行者 23
62识况 23
63况描述 23
64 活动图描述况 24
7 实现代码 26
71登录代码 26
72注册代码 28
73电子相册代码 29
74理员界面 31
75资料 33
76相片浏览 37
8 系统测试 39
81 系统测试概 39
82 系统功测试 40
83 系统维护 41
9 总结 42
10 参考文献 42
1引言
11课题研发背景
市场竞争需交流方式样化户选择方式断增加软件研发者软件功样化完善竞争资信息交流样化特电子信息技术发展时着数库技术客户服务器技术等发展电子相册系统功更加完善电子相册理系统特点相册理角度出发通数库相关数统理起形成集成信息集电子相册理系统较户界面信息享信息理理员户更加便捷电子相册系统操作性非常强针教育程度群
电子相册系统容纳信息量非常通文字图片等方式展示出针前信息交流理类型软件较原电子相册系统通简单功模块实现户登录注册信息更新信息享信息理等功功模块中分工明确功模块通控件联系起户间交流更加样化
12课题研发目意义
够确保户交流样化什样户交流程中基信息展示基础增加响应性化模块户间交流更加丰富电子相册系统研发促户交流样化性化该系统仅户提供交流台时丰富户交流题
2 行性研究
21行性研究前提
211 求
A 功：登录功户注册功理员信息理功户信息理功系统设置理子系统系统接口
B 性：户登录注册户信息更新理员信息更新等
C 输入：户名密码应相关信息等
D 输出：户信息包括文字声音图片等
212 目标
希够低成够短时间期限研发出具登录注册信息享信息理等功电子相册理系统
213 条件假定限制
1）建议系统运行短寿命5年
2）进行该系统方案选择较期限1月
3）建议该系统软件投入迟时间2011年1月
4）开发该软件系统费源组
5）该系统受资金寿命社会等系列素制约限制
214 进行行性研究方法
项目开发组3组成三方面系统开发作行性研究分析
（1）两现行电子相册理系统进行分析调查确定现行系统已功初步确定开发系统功
（2）两电子相册理做实调查搜集日常工作理信息初步确定电子相册理流程总结出开发系统功
（3）汇总调查结果确定系统框架模型开发系统进行行性仿真研究软件达功基齐全操作简单应方便
22现系统分析：
现系统工进行理维护工作量较满足时间效率求导致种电子相册模式已适应日益增长电子相册工作理量迫切需找种更加智电子相册理注册系统
23建议系统分析：
系统运行装WINDOW XPwindows7系统电脑实现方便户登录注册理员登录注册继承旧理系统优良性基础进步提升软件理性实现资源高效利操作简单界面简明易户
24 技术行性分析
前开发技术受限软件系统中某功法实现时户提供建议实时更新维护需量耗费力时理员需掌握数库编程方面技术目前止已实现功户程中良反馈规定时间范围完成软件系统开发
25社会行性分析
a法律方面行性：软件产品未触犯法律法规进行开发研究
b方面行性：根调查知软件产品款实价值较强产品软件提供诸功例更新查询功信息享等
26 济行性分析
软件产品属型软件费开支开发系统时涉accessMicrosoft Visual Studio等系统开发支出较少预算范围支持软件硬件设备安全保密设备软件收益通网络流量计算月流量累计
27 操作行性
28行性研究结
软件开发程中开发技术成熟历时相较长时软件实时更新需理员时关注系统做户需求步软件收益纯收益软件开发时支出源硬件设备安全维护方面太支出该软件济效益观
29评价尺度
费少项功优先次序费高低寿命长度开发时间长短中难易程度
3 需求分析
31 需求分析背景
完成针电子相册理软件市场前期调查时位软件者进行全面深入探讨分析基础提出份软件需求规格说明书
需求规格说明书电子相册理系统软件做全面细致户需求分析明确开发软件应具功性界面系统分析员软件开发员清楚解户需求基础进步提出概设计说明书完成续设计开发工作说明书预期读者户业务需求分析员测试员项目理员
32 需求分析务概述
321 目标
1开发目标
交流方式种样交流时希更解方信息软件根需求进行开发
2应目标
户够通注册信息登录更新查询信息基础户够效掌握享资源更新促进信息理规范化集成化户间交流更加便捷
322 户特点
软件产品终户源广泛相处增进间交流理员时更新软件项目查询维护信息软件面众户程中操作复杂软件频度应达70左右
323 假定约束
软件产品众户然软件功够完善户需求法完全实现
33系统功规定
331 系统功模块
1） 登录模块
2） 户注册模块
3） 理员信息理模块
4） 户信息理模块
5） 系统设置理模块
6） 系统接口
332 功描述
面详细描述功模块：
1） 登录模块
仅限已注册户理员进行操作该模块户登录户理员输入户名正确密码进入应界面该界面注册控件转注册功户长期未已注册帐号（五月未系统动注销）注册户户名者密码遗失户点击注册控件进入注册模块
2） 户注册模块
仅限户长期未已注册帐号（五月未系统动注销）注册户户名者密码遗失户注册程中注册户必须需根求填写户名密码确认密码注册邮箱等填写程中系统会应提示*必填说性出生年月等信息填注册成功进入信息模块
3) 理员信息理模块
仅限理员进行操作理员通登录模块输入理员登录帐号进入理员信息理模块该模块里面理员够通输入查找功进行查询数库中户资料理员户资料进行修改包括文字图片信息
4） 户信息理模块
仅限已注册户理员进行操作户通登录功模块输入正确户名密码进入户信息模块户信息理模块仅仅信息包括户信息户够修改户信息户身信息进行修改模块户够户信息进行展示例图片展示形态呈现样化
5） 系统设置理模块
仅限已注册户理员进行操作理员已注册户够根需修改系统中某设置
333 系统功数流程图
1 注册功
进入注册界面
录入基必填信息
提交数
否注册
取消服务等户步操作
Yes
No
进入登录首界面
2 登录功
户登录
否登录
取消服务退出界面
Yes
No
户进入登录首界面
输入户名密码
进入户界面
系统查询匹配
Yes
No
理员登录
否登录
取消服务退出界面
Yes
No
理员进入登录首界面
输入户名密码
进入理员界面
系统查询匹配
Yes
No
3理员理功
登录成功进入理员界面
输入查询户键
否修改询匹配
否查询询匹配
Yes
Yes
户信息显示
输入修改户键
进入该户界面
进入该户资料修改界面进行资料头修改
档案界面
相册界面
选择相应操作
开相册
传相片界面
删相册
……
浏览相片
4户功
进入档案
户界面
选择相应操作
进入相册
查修改相应数
选择相应操作
开相册
传相片
删相册
……
浏览相片
5系统设置
系统设置
数库维护
户密码设置
密码修改
保存传
数备份
34 数字典
341 数流描述
数流名
源
说明
登录
户输入户名密码
验证进入系统界面
理员户进入界面相
户注册
户填写注册信息
注册成功直接登录系统
注册信息动写入台数库
理员界面
正确理员户名密码
进入界面进行理
直接查户信息
户界面
正确户名密码
进入户界面
相册进行理
资料
户点击档案
修改资料头
修改资料动更新台数库
相片浏览
户点击相册
理相册
传删等修改动更新台数库
相片删
户进入电子相册点击删相片
直接删数库中相片
删动更新台数库
电子相册
户登录点击进入
相册进行项理
资料修改
资料中点击
进行资料完善修改
修改资料动更新数库中
342 数项条目
数项名称
类型
描述
户名
文类型
描述户理员户名
ID
数字类型
描述户电子相册中表示
密码
文类型
户电子相册中密码
确认密码
文类型
注册时候确认密码
注册邮箱
文类型
注册时候验证邮箱
性
文类型
描述户性
出生年月
文类型
描述户出生年月
头
文类型
户传头
星座
文类型
描述户星座
血型
文类型
描述户血型
职业
文类型
描述户职业
爱
文类型
描述户爱
Picture ID
文类型
户相册片编号
Path
文类型
户相册片源址
343 数存储条目
数存储名称
简述
组成
户注册信息
存放户注册信息
ID+户名+密码+确认密码+注册邮箱+性+出生年月+星座+血型+头+职业+爱
户片信息
存放户片信息
Picture ID+ path
344 ER图户
理
理员
1 N
文档库
更新
更新
I n 1 1
更新
更新
相册库
1 N 1 1
35 系统性规定
351 精度
1严格数格式输入否系统予响应进行处理
2查询时保证查全率相应域包含查询关键字记录查
352时间特性求
a． 响应时间：般操作响应时间应1~2秒软磁盘印机操作应接受时间完成
b． 更新处理时间：12时
c． 数转换传送时间：
d． 解题时间：
353 适应性：
开放式操作系统开放式数库开发工具标准通信协议结构层次独立性
4 总体设计
41 系统总体设计
411引言：
412编写目：
方便户减少户操作变性提高电子相册传速度减少传差错目标减少项资金支出提高理质量基需求分析编写文档目需求分析中设计功具体化
预期读者：
² …关业务
² …关技术
² …关软件设计开发员
² …关运行维护员
413范围：
说明：
a 开发软件系统名称：电子相册理系统
b 项目务提出者：2008级1班
项目开发者：第五开发组
户：学生
c 实现该软件计算中心计算机网络： WIN XP2000VistaWindows7
414 需求规定：
电子相册理系统提高快速注册方便户传片理片时便系统理员理目标减少项资金支出提高理质量方便性传片快速性创造条件户登陆注册理实现计算机理实现数时保存预处理详细说明请参见需求分析
415 运行环境
A． 数库：Access2003数库
B． 运行台：装windows系列操作系统PC机
416系统总体结构图示：
系统功总结构图
… 电子相册理系统
户注册子系统
登录子系统
理员信息理子系统
户信息理子系统
系统设置理子系统
注 册
信息完善
系统接口
43数库设计
421 户档案数库
422 相册数库
43 界面设计
登录界面：
注册界面：
资料界面：
5 结构化分析设计
51数流图
511注册
512 户登录
513 理员信息理
514 总数流程图
52结构图
11
10
2
4
7
6
5
1
8
9
3
1验证成功 2验证失败 3户名存
4户名已存 5求注册 6户名登录成功
7理员登录成功 8旧密码正确 9旧密码错误
10求修改密码 11维护期
6 面象设计分析
61识执行者
电子相册理系统中登录注册户者理员进行操作登录时户理员进入界面执行功户进入信息栏理员进入理信息界面注册操作针未注册户密码遗失户者账号长时间未户
根分析电子相册理系统执行者户理员执行者描述：
户：登录电子相册理系统时负责输入户名密码
理员：登录电子相册理系统时负责输入户名密码负责理电子相册系统户信息
台数库：1负责验证户注册信息户登录户名密码
2存储户相册路径
62识况
系统需求陈述知户需系统提供登录注册资料理相册理等功功包含校验密码功系统理员需系统提供登录户信息理资料理等功设计成两况图示：
注册
登录
修改资料
注销
修改密码
传相片
删片
验证户名
验证密码
户理
数库理
户
数库系统
理员
63况描述
面出部分况详细描述：
（1） 登录况描述
况名称：登录
参执行者：注册户理员
前置条件：登录户名密码完全正确
事件流：
1 进入登录界面时况开始
2 输入户名密码
3 果户名密码正确时弹出话框户名密码正确回第步否继续况结束
置条件：户进入信息界面理员进入户信息界面
（2） 注册况描述
况名称：注册
参执行者：未注册户户名者密码遗失户账号长时间未登录户
前置条件：系统中存户信息
事件流：
1 点击注册控件时况开始
2 输入户信息（户名密码注册邮箱等）
3 果户名已存回第二步否继续
4 台数库中添加新户信息
5 进入该户资料界面况结束
置条件：台数库中添加新户该户存储相应信息
64 活动图描述况
更新户信息
[取消]]
[放弃修改]
]
[确认修改]
[重试]
[验证失败]
[验证成功]
输入户名密码
户名密码错误
户页
修改资料
更新户信息
户修改信息况活动图
[否]
[]
[否]
[]
[验证成功]
[否]
[验证成功]
[]
注册
输入注册信息验证户名
否登录
登录
否重新注册
户注册况活动图
[重试]
[取消]
[验证成功]
[否]
[]
[重试]
[取消]
[验证成功]
[验证成功]
输入户名密码
修改密码
输入旧密码
输入新密码确认新密码
户名密码错误
密码错误
户密码况活动图
7 实现代码
71登录代码
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class Form1
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Dim n As Integer
Private Sub Button3_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button3Click
户注册界面Show()
MeHide()
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
Dim user As String
user TextBox1Text
If user admi Then
If TextBox2Text 123 Then
理员界面Show()
MeHide()
Else
If TextBox2Text Then
MsgBox(密码空)
Else
MsgBox(户名密码错误 MsgBoxStyleRetryCancel)
TextBox2Text
TextBox2Focus()
End If
End If
Else
Dim str As String
str SELECT * from 户注册界面
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead() True
If Trim(user) Trim(drGetValue(1)ToString) And Trim(TextBox2Text) Trim(drGetValue(2)ToString) Then
户界面Show()
户界面Text user & 电子相册
MeHide()
Exit Do
End If
Loop
If drRead() False Then
MsgBox(户名密码错误)
End If
End If
connClose()
End Sub
End Class
72注册代码
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class Form1
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Dim n As Integer
Private Sub Button3_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button3Click
户注册界面Show()
MeHide()
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
Dim user As String
user TextBox1Text
If user admi Then
If TextBox2Text 123 Then
理员界面Show()
MeHide()
Else
If TextBox2Text Then
MsgBox(密码空)
Else
MsgBox(户名密码错误 MsgBoxStyleRetryCancel)
TextBox2Text
TextBox2Focus()
End If
End If
Else
Dim str As String
str SELECT * from 户注册界面
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead() True
If Trim(user) Trim(drGetValue(1)ToString) And Trim(TextBox2Text) Trim(drGetValue(2)ToString) Then
户界面Show()
户界面Text user & 电子相册
MeHide()
Exit Do
End If
Loop
If drRead() False Then
MsgBox(户名密码错误)
End If
End If
connClose()
End Sub
End Class
73电子相册代码
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 电子相册
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db2mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Private Sub 层叠ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 层叠ToolStripMenuItemClick
MeLayoutMdi(MdiLayoutCascade)
End Sub
Private Sub 水铺ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 水铺ToolStripMenuItemClick
MeLayoutMdi(MdiLayoutTileHorizontal)
End Sub
Private Sub 垂直铺ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 垂直铺ToolStripMenuItemClick
MeLayoutMdi(MdiLayoutTileVertical)
End Sub
Private Sub 开相册ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 开相册ToolStripMenuItemClick
PictureBox1Hide()
Dim str As String
str SELECT * from Picture
connClose()
management(str)
dr cmdExecuteReader()
Dim i As Integer 1
Do While drRead() True
Dim f As New Picture
fMdiParent Me
fPictureBox1Image ImageFromFile(drGetValue(1))
If i < 6 Then
fText drGetValue(1)
fShow()
End If
i + 1
Loop
connClose()
End Sub
Private Sub 传ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 新建相册ToolStripMenuItemClick
Dim openFile As New OpenFileDialog
Dim str As String
openFileInitialDirectory C＼＼
openFileFilter txt files(*jpg)|*jpg|All files(**)|**
openFileRestoreDirectory True
If openFileShowDialog() WindowsFormsDialogResultOK Then
str INSERT INTO Picture(Path) VALUES(＇ & openFileFileName & ＇)
connClose()
management(str)
End If
Dim f As New Picture
fMdiParent Me
End Sub
Private Sub 删相册ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 删相册ToolStripMenuItemClick
相片删Show()
End Sub
Private Sub 关闭相册ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 关闭相册ToolStripMenuItemClick
MeClose()
户界面Show()
End Sub
Private Sub 退出ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 退出ToolStripMenuItemClick
MeClose()
户界面Show()
End Sub
Private Sub 动浏览ToolStripMenuItem_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles 动浏览ToolStripMenuItemClick
相片浏览Show()
End Sub
End Class
74理员界面
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 理员界面
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
End Sub
Private Sub 理员界面_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
Dim ad As New OleDbDataAdapter(select * from 户注册界面 conn)
Dim str1 As String
Dim ds As New DataSet
adFill(ds 户注册界面)
DataGridView1DataSource ds
DataGridView1DataMember 户注册界面
connClose()
Dim i j As Int16
For i 0 To dsTables(户注册界面)RowsCount 1
str1
For j 0 To dsTables(户注册界面)ColumnsCount 1
str1 & dsTables(户注册界面)Rows(i)Item(j) &
Next
Next
End Sub
Private Sub ToolStripLabel1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel1Click
户界面Show()
资料Button1Hide()
资料Button2Hide()
End Sub
Private Sub ToolStripLabel2_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel2Click
Dim str As String
str SELECT * from 户注册界面
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead() True
If Trim(ToolStripTextBox1Text) Trim(drGetValue(1)ToString) Then
资料Show()
End If
Loop
End Sub
End Class
75资料
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 资料
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
＇ connClose()
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
资料修改Show()
MeHide()
End Sub
Sub jinru(ByVal st1 As String)
Dim str As String
str SELECT * from 户注册界面 where 户名＇ & st1 & ＇
connClose()
management(str)
dr cmdExecuteReader()
Do While drRead()
Label9Text drGetValue(1)
Label10Text drGetValue(0)
Label11Text drGetValue(5)
Label12Text drGetValue(6)
Label13Text drGetValue(4)
If drGetValue(7)ToString <> Then
PictureBox1Image ImageFromFile(drGetValue(7))
End If
If drGetValue(8)ToString Then
Label19Text 未填写
Else Label19Text drGetValue(8)
End If
If drGetValue(9)ToString Then
Label18Text 未填写
Else Label18Text drGetValue(9)
End If
If drGetValue(10)ToString Then
Label17Text 未填写
Else Label17Text drGetValue(10)
End If
If drGetValue(11)ToString Then
Label16Text 未填写
Else Label16Text drGetValue(11)
End If
Loop
End Sub
Private Sub 资料_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
Dim str As String
If Form1TextBox1Text <> admi Then
jinru(Form1TextBox1Text)
Else
jinru(理员界面ToolStripTextBox1Text)
End If
End Sub
Private Sub Button2_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button2Click
Dim openFile As New OpenFileDialog
openFileInitialDirectory e＼＼
openFileFilter txt files(*jpg)|*jpg|All files(**)|**
openFileRestoreDirectory True
If openFileShowDialog() WindowsFormsDialogResultOK Then
PictureBox1Image ImageFromFile(openFileFileName)
End If
Dim str As String
str UPDATE 户注册界面 set 头＇ & openFileFileName & ＇ where 户名＇ & Label9Text & ＇
connClose()
management(str)
dr cmdExecuteReader()
End Sub
End Class
资料修改：
Imports SystemData
Imports SystemDataOleDb
Imports SystemDataSqlClient
Public Class 资料修改
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
Sub management(ByVal str As String)
connConnectionString ProviderMicrosoftJetOLEDB40Data SourceE＼软工—VB（电子相册理系统）＼db1mdb
connOpen()
cmdConnection conn
cmdCommandText str
cmdExecuteNonQuery()
＇ connClose()
End Sub
Private Sub 资料修改_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
Label10Text 资料Label9Text
Label11Text 资料Label10Text
If 资料Label11Text 女 Then
RadioButton2Checked True
Else RadioButton1Checked True
End If
TextBox1Text 资料Label13Text
Dim i As Integer
For i 1990 To 2010
ComboBox1ItemsAdd(i & 年)
Next
For i 1 To 12
ComboBox2ItemsAdd(i & 月)
Next
For i 1 To 30
ComboBox3ItemsAdd(i & 日)
Next
End Sub
Private Sub Button1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Button1Click
Dim sex birthday mail xingzhuo xuexing zhiye aihao As String
If RadioButton1Checked True Then
sex RadioButton1Text
Else
sex RadioButton2Text
End If
birthday ComboBox1Text & ComboBox2Text & ComboBox3Text
xingzhuo ComboBox4Text
mail TextBox1Text
xuexing ComboBox5Text
zhiye TextBox2Text
aihao TextBox3Text
Dim str As String
str UPDATE 户注册界面 set 血型＇ & xuexing & ＇职业＇ & zhiye & ＇爱＇ & aihao & ＇性＇ & sex & ＇出生年月＇ & birthday & ＇星座＇ & xingzhuo & ＇注册邮箱＇ & mail & ＇ where 户名＇ & Label10Text & ＇
connClose()
management(str)
dr cmdExecuteReader()
MsgBox(保存成功)
户界面Show()
MeHide()
End Sub
End Class
76相片浏览
Public Class 相片浏览
Private Sub 相片浏览_FormClosed(ByVal sender As Object ByVal e As SystemWindowsFormsFormClosedEventArgs) Handles MeFormClosed
相片删Close()
End Sub
Private Sub 相片浏览_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
相片删Show()
相片删WindowState FormWindowStateMinimized
PictureBox1Image ImageFromFile(相片删ListBox1Items(0))
End Sub
Private Sub Timer1_Tick(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles Timer1Tick
Static i As Integer 1
If i < 相片删ListBox1ItemsCount 1 Then
PictureBox1Image ImageFromFile(相片删ListBox1Items(i))
Else
i 0
PictureBox1Image ImageFromFile(相片删ListBox1Items(i))
End If
i i + 1
End Sub
Private Sub ToolStripLabel1_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel1Click
Timer1Enabled True
End Sub
Private Sub ToolStripLabel2_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel2Click
Timer1Enabled False
End Sub
Private Sub ToolStripLabel3_Click(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ToolStripLabel3Click
相片删Show()
相片删WindowState FormWindowStateMinimized
Timer1Enabled True
End Sub
End Class
8 系统测试
81 系统测试概
处采黑盒测试法测试系统功否正确运作
接受测试功模块描述：
l 登录功
实现户登录根登录者进入界面理员界面户界面
l 户注册功
实现户注册功注册时填写相应户信息（户名密码确认密码等）
l 理员信息理功
实现理员整电子相册理系统理
l 户信息理功
实现户信息理户信息时修改
l 系统设置理
户根需修改系统相关设置
82 系统功测试
功模块
合法等价类
非法等价类
测试结果
输入
预期输出
输入
预期输出
登录
登录
户名：aa
密码：a
登录成功
户名：aa
密码：a
户名者密码错误
成功
取消
存
关闭
存
关闭
成功
注册
存
户注册界面
存
存
成功
注
册
注册
户名：b
密码b
确认密码：b
注册邮箱：12334@qqcom
性：男
出生年月：1990年7月9日
注册成功
输入已存户名aa
注册户名已存请重新注册
成功
取消
存
退出注册界面
存
存
成功
理员信息理
查
户名：aa
户资料界面
存
存
成功
修改
户名：aa
户资料界面
存
存
成功
户信息理
档案
存
户资料界面
存
存
成功
相册
存
户资料界面
存
存
成功
系统设置理
密码更改
户名：123
原密码：123
新密码：456
更改成功
户名：
原密码：123
新密码：456
户名空
成功
数库备份
备份址c＼
备份成功
C
路径存
成功
83 系统维护
系统采取三种方式维护：
1 改正性维护
软件初期某种原软件存错误缺陷需软件开发组户求系统进行改正性维护
2 适应性维护
系统长时间着户增加系统某方面速度刚开始时候问题做出适维护
3 完善性维护
系统年该应系统适应业务发展户软件提出新需求性求
9 总结
通长达两周软件工程课程设计团队学会软件工程设计基步骤学会培养团队协作力
开发初期团队必须统开发台组长统部署组分部分家分工合作汇总提高课程设计完成效率懂问题家相互帮忙解决懂问题问问老师问学网搜索千万里瞎想团队提高效率必须相互帮助良协作
前期工作做完定进行测试工作写代码难免会出现问题测试期间问题进行修改然总结验教训
总次设计程中学仅知识认识许事情次设计编程水提高步充分认识合作贵次设计涉数库软件工程vbnet学少编程工具数库连接知识数库操作进步解次设计综合力次锻炼必须承认力知识肤浅学道路漫长里衷心感谢指导老师杨卫明谢谢悉心指导热心帮助水限加时间短暂电子相册理系统中许足处老师加批评指正会课程设计中断改进断完善
10 参考文献
ISBN 9787302144458 软件工程
ISBN 7040140608 Visual BasicNET 程序设计导
GB85661995 软件生存期程
GB856788 计算机软件产品开发文件编制指南
GBT114571995 软件工程术语
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
