图片库管理系统access课程设计报告.docx
- 文档编号:9622971
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:23
- 大小:679.95KB
图片库管理系统access课程设计报告.docx
《图片库管理系统access课程设计报告.docx》由会员分享,可在线阅读,更多相关《图片库管理系统access课程设计报告.docx(23页珍藏版)》请在冰豆网上搜索。
图片库管理系统access课程设计报告
盐城工学院纺织服装学院
数据库原理及应用课程设计
题目:
图片库管理系统
专业班级:
B服工091
学号:
0910803106
学生姓名:
赵祖霞
专业:
服装设计与工程
指导教师:
唐拥政
报告日期:
2012-6-23
目录
第1章课程设计目的与要求3
1.1课程设计目的3
1.2课程设计的实验环境3
1.3课程设计的预备知识3
1.4课程设计要求3
第2章课程设计选题说明及需求介绍3
2.1选题说明3
2.2需求分析3
2.3数据库设计说明4
2.4实现过程主要说明4
第3章课程设计总结19
第4章设想与提议20
参考文献20
图片库管理系统
1课程设计目的与要求
1.1课程设计的目的
《数据库原理及应用》课程设计是学完《数据库原理及应用》课程后一次全面的综合练习。
本课程设计主要在于巩固学生对数据库基本原理和基础理论的理解,掌握数据库应用系统设计开发的基本方法,进一步提高学生综合运用所学知识的能力。
1.2课程设计的实验环境
硬件要求能运行WindowsXP操作系统的微机系统。
数据库应用系统开发软件可以选用MicrosoftAccess2003,或其他数据库管理系统。
1.3课程设计的预备知识
熟悉数据库的基本知识及一种以上数据库系统开发软件。
1.4课程设计要求
运用Microsoftofficeaccess2003所学功能,以个人或小组的形式完成一份具有一定实际意义,且能解决一个具体问题的数据库管理系统。
要求在WINDOWS平台上完成Access数据库的表、查询、窗体、报表及宏的建立,形成一个数据库应用系统。
2课程设计选题说明及需求介绍
2.1选题说明:
1、项目背景:
数据库原理课程设计
2、编写目的:
掌握数据库设计原理及相关软件的使用
3、软件定义:
图片库管理系统
4、开发环境:
Access2003、Windowsxp
2.2需求分析
中国互联网经过10多年的高速发展,已经成为中国经济的一个重要组成部分。
发展的过程可以分为三个阶段:
第一个阶段是2000年前后,网易、搜狐、新浪等门户网站的相继创立,信息时代的互联网成为当时的主流;第二个阶段是2003年~2005年左右,娱乐、游戏等互联网公司相继出现、上市,这是互联网的娱乐时代;第三个阶段是2007年至今,电子商务、网络办公在中国开始逐步流行起来,其中以淘宝、拍拍、京东商城等为代表。
在互联网第二个阶段开始大批出现的网络社区,如:
天涯社区、51社区、QQ空间、人人网、开心网等以娱乐以及即时通讯为主体的一直发展至今,而且越来越流行。
在这些社区中,有一个最基本也最受用户欢迎的就是网络相册的应用。
网络相册,顾名思义,就是在网络上创建的相册,用户将自己的照片上传到网络上去,然后对相片进行分类,创建相册,输入、查看相片信息等。
此次做的这个图片管理系统,就是要实现这样一个功能。
2.3数据库设计说明
2.3.1概念设计
功能设计模块图:
2.3.2逻辑设计
“SwitchboardItems”数据表字段
字段名称
数据类型
字段大小
允许空值
说明
SwitchboardID
数字
长整型
否
主键
ItemNumber
数字
整型
否
ItemText
文本
255
否
Command
数字
整型
否
Argument
文本
50
否
“胶卷”数据表字段
字段名称
数据类型
字段大小
允许空值
说明
FilmID
自动编号
长整型
否
主键
FilmTitle
文本
50
否
FilmType
文本
30
否
FilmSpeed
文本
20
否
ColorFilm
是/否
FilmExpatioDate
日期/时间
短日期
DateDeveloped
日期/时间
短日期
DevelopedBy
文本
50
否
Camera
文本
50
否
Notes
备注
“照片”数据表字段
字段名称
数据类型
字段大小
允许空值
说明
PhotographID
自动编号
长整型
否
主键
FilmID
数字
长整型
否
PhotoLocationID
数字
长整型
否
PhotographNumber
数字
字节
否
DateTaken
日期/时间
否
短日期
TimeTaken
日期/时间
是
短日期
PlaceTaken
文本
50
否
SubjectName
文本
50
否
SubjectPhone
文本
50
是
LensUsed
文本
50
是
Aperture
文本
50
否
ShutterSpeed
文本
50
否
FilterUsed
文本
50
否
FilterUsed
文本
50
否
Flash
是/否
否
无索引
PrintSize
文本
50
否
Notes
备注
“照片位置”数据表字段
字段名称
数据类型
字段大小
允许空值
说明
PhotoLocationID
自动编号
长整型
否
主键
PhotoLocation
文本
50
否
建立数据表
图片管理系统共需要4张基本数据表,分别是“SwitchboardItems”、“胶卷”、“照片”和“照片位置”。
2.3.3创建数据表之间的关系
数据表之间的“关系”好像数据表的“灵魂”,通过它把各个独立的数据表联立成为一个整体,所以把“图片管理系统”中所需要的数据表创建完成以后,还要设置各个数据表之间的关系,创建数据表与数据表之间的关系如下:
上图为各表之间的关系分布图
2.4实现过程简要说明
2.4.1建立数据基本表
首先,使用设计器创建“图片库管理系统”数据库,然后使用设计器建表。
按照表格的逻辑结构将表格的数据填入。
2.4.2建立各表之间的关系:
建立关系如“2.3.3定义基本表之间的关系”所示
2.4.3窗体设置
窗体设置主要以“SwitchboardID”窗体为例,具体操作如下:
利用SwitchboardID数据表所建字段建立新的窗体,同时添加新的标签,调整窗体结构,单击工具栏的【视图】按钮,预览该窗体,结果如下图所示。
编写代码
在窗体设计视图所在的窗口中单击工具栏上的按钮,这时系统弹出MicrosoftVisualBasic编辑器。
在代码窗口中,输入如下代码:
PrivateSubForm_Open(CancelAsInteger)
OnErrorGoToForm_Open_Err
DoCmd.SelectObjectacForm,"Switchboard",True
DoCmd.Minimize
Me.Filter="[ItemNumber]=0AND[Argument]='默认'"
Me.FilterOn=True
Form_Open_Exit:
ExitSub
Form_Open_Err:
MsgBoxErr.Description
ResumeForm_Open_Exit
EndSub
PrivateSubForm_Current()
Me.Caption=Nz(Me!
[ItemText],"")
FillOptions
EndSub
PrivateSubFillOptions()
DimdbsAsDatabase
DimrstAsRecordset
DimstrSQLAsString
DimintOptionAsInteger
Me!
[Command1].Enabled=True
Me!
[Command1].SetFocus
WithMe!
[OptionLabel1]
.Visible=True
.FontWeight=conFontWeightBold
EndWith
ForintOption=2ToconNumButtons
Me("Option"&intOption).Visible=False
Me("OptionLabel"&intOption).Visible=False
Me("OptionLabel"&intOption).FontWeight=conFontWeightNormal
Me("Command"&intOption).Enabled=False
NextintOption
Setdbs=CurrentDb()
strSQL="SELECT*FROM[SwitchboardItems]"
strSQL=strSQL&"WHERE[ItemNumber]>0AND[SwitchboardID]="&Me!
[SwitchboardID]
strSQL=strSQL&"ORDERBY[ItemNumber];"
Setrst=dbs.OpenRecordset(strSQL)
If(rst.EOF)Then
Me!
[OptionLabel1].Caption="该切换面板页没有项目"
Else
While(Not(rst.EOF))
Me("OptionLabel"&rst!
[ItemNumber]).Visible=True
Me("OptionLabel"&rst!
[ItemNumber]).Caption=rst!
[ItemText]
Me("Command"&rst!
[ItemNumber]).Enabled=True
rst.MoveNext
Wend
EndIf
rst.Close
dbs.Close
EndSub
PrivateFunctionHandleFocus(intBtnAsInteger)
DimintOptionAsInteger
OnErrorGoToHandleMouseOver_Err
ForintOption=1ToconNumButtons
IfintOption=intBtnThen
Me("Option"&intOption).Visible=True
Me("OptionLabel"&intOption).FontWeight=conFontWeightBold
Me("command"&intBtn).SetFocus
Else
Me("Option"&intOption).Visible=False
Me("OptionLabel"&intOption).FontWeight=conFontWeightNormal
EndIf
NextintOption
HandleMouseOver_Exit:
ExitFunction
HandleMouseOver_Err:
MsgBox"执行命令时出错。
",vbCritical
ResumeHandleMouseOver_Exit
EndFunction
PrivateFunctionHandleButtonClick(intBtnAsInteger)
ConstconCmdGotoSwitchboard=1
ConstconCmdOpenFormAdd=2
ConstconCmdOpenFormBrowse=3
ConstconCmdOpenReport=4
ConstconCmdCustomizeSwitchboard=5
ConstconCmdExitApplication=6
ConstconCmdRunMacro=7
ConstconCmdRunCode=8
ConstconErrDoCmdCancelled=2501
DimdbsAsDatabase
DimrstAsRecordset
OnErrorGoToHandleButtonClick_Err
Setdbs=CurrentDb()
Setrst=dbs.OpenRecordset("SwitchboardItems",dbOpenDynaset)
rst.FindFirst"[SwitchboardID]="&Me!
[SwitchboardID]&"AND[ItemNumber]="&intBtn
If(rst.NoMatch)Then
MsgBox"读取切换面板项目表时出错。
"
rst.Close
dbs.Close
ExitFunction
EndIf
SelectCaserst!
[Command]
CaseconCmdGotoSwitchboard
Me.Filter="[ItemNumber]=0AND[SwitchboardID]="&rst!
[Argument]
CaseconCmdOpenFormAdd
DoCmd.OpenFormrst!
[Argument],,,,acAdd
CaseconCmdOpenFormBrowse
DoCmd.OpenFormrst!
[Argument]
CaseconCmdOpenReport
DoCmd.OpenReportrst!
[Argument],acPreview
CaseconCmdCustomizeSwitchboard
OnErrorResumeNext
Application.Run"ACWZMAIN.sbm_Entry"
If(Err<>0)ThenMsgBox"命令不可用。
"
OnErrorGoTo0
Me.Filter="[ItemNumber]=0AND[Argument]='默认'"
Me.Caption=Nz(Me!
[ItemText],"")
FillOptions
CaseconCmdExitApplication
CloseCurrentDatabase
CaseconCmdRunMacro
DoCmd.RunMacrorst!
[Argument]
CaseconCmdRunCode
Application.Runrst!
[Argument]
CaseElse
MsgBox"未知选项。
"
EndSelect
rst.Close
dbs.Close
HandleButtonClick_Exit:
ExitFunction
HandleButtonClick_Err:
If(Err=conErrDoCmdCancelled)Then
ResumeNext
Else
MsgBox"执行命令时出错。
",vbCritical
ResumeHandleButtonClick_Exit
EndIf
EndFunction
以上SwitchboardID窗体设置完成
胶卷窗体:
编写代码:
PrivateSubForm_Current()
IfIsNull(Me!
[FilmID])Then
DoCmd.GoToControl"FilmTitle"
EndIf
EndSub
PrivateSubForm_Activate()
OnErrorGoToErr_Form_Activate
DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70
Me!
[胶卷子窗体].Requery
Me!
[胶卷子窗体].Form!
[PhotoLocationID].Requery
Exit_Form_Activate:
ExitSub
Err_Form_Activate:
MsgBoxErr.Description
ResumeExit_Form_Activate
EndSub
PrivateSubPhotographs_Click()
OnErrorGoToErr_Photographs_Click
IfIsNull(Me!
[FilmID])Then
MsgBox"打开照片窗体前输入胶片信息。
"
Else
DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70
DoCmd.OpenForm"照片"
EndIf
Exit_Photographs_Click:
ExitSub
Err_Photographs_Click:
MsgBoxErr.Description
ResumeExit_Photographs_Click
EndSub
胶卷子窗体:
PrivateSubViewPhotos()
OnErrorGoToErr_ViewPhotos
IfIsNull(Forms!
[胶卷]!
[FilmID])Then
MsgBox"打开照片窗体前输入胶片信息。
"
Else
DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70
DoCmd.OpenForm"照片"
EndIf
Exit_ViewPhotos:
ExitSub
Err_ViewPhotos:
MsgBoxErr.Description
ResumeExit_ViewPhotos
EndSub
PrivateSubPhotographNumber_DblClick(CancelAsInteger)
ViewPhotos
EndSub
PrivateSubDateTaken_DblClick(CancelAsInteger)
ViewPhotos
EndSub
PrivateSubPlaceTaken_DblClick(CancelAsInteger)
ViewPhotos
EndSub
PrivateSubSubjectName_DblClick(CancelAsInteger)
ViewPhotos
EndSub
PrivateSubPhotoLocationID_NotInList(NewDataAsString,ResponseAsInteger)
MsgBox"双击该字段可将此条目添加到列表。
"
Response=acDataErrContinue
EndSub
PrivateSubPhotoLocationID_DblClick(CancelAsInteger)
OnErrorGoToErr_PhotoLocationID_DblClick
DimlngPhotoLocationIDAsLong
IfIsNull(Me!
[PhotoLocationID])Then
Me!
[PhotoLocationID].Text=""
Else
lngPhotoLocationID=Me!
[PhotoLocationID]
Me!
[PhotoLocationID]=Null
EndIf
DoCmd.OpenForm"照片位置",,,,,acDialog,"GotoNew"
Me!
[PhotoLocationID].Requery
IflngPhotoLocationID<>0ThenMe!
[PhotoLocationID]=lngPhotoLocationID
Exit_PhotoLocationID_DblClick:
ExitSub
Err_PhotoLocationID_DblClick:
MsgBoxErr.Description
ResumeExit_PhotoLocationID_DblClick
EndSub
照片窗体:
编写代码:
PrivateSubForm_Activate()
OnErrorGoToErr_Form_Activate
Me.Requery
IfIsLoaded("胶卷")Then
IfNotIsNull(Forms!
[胶卷]!
[胶卷子窗体].Form!
[PhotographID])Then
DoCmd.GoToControl"PhotographID"
DoCmd.FindRecordForms!
[胶卷]!
[胶卷子窗体].Form!
[PhotographID]
Else
IfForms!
[胶卷]!
[胶卷子窗体].Form.RecordsetClone.RecordCount>0Then
DoCmd.DoMenuItemacFormBar,3,0,,70
EndIf
EndIf
EndIf
Exit_Form_Activate:
ExitSub
Err_Form_Activate:
MsgBoxErr.Description
ResumeExit_Form_Activate
EndSub
PrivateSubPhotoLocationID_NotInList(NewDataAsString,ResponseAsInteger)
MsgBox"双击该字段可将此条目添加到列表。
"
Response=acDataErrContinue
EndSub
PrivateSubPhotoLocationID_DblClick(CancelAsInteger)
OnErrorGoToErr_PhotoLocationID_DblClick
DimlngPhotoLocationIDAsLong
IfIsNull(Me!
[PhotoLocationID])Then
Me!
[PhotoLocationID].Text=""
Else
lngPhotoLocationID=Me!
[PhotoLocationID]
Me!
[PhotoLocationID]
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图片库 管理 系统 access 课程设计 报告