系统设计报告+图书管理系统

《系统设计报告+图书管理系统》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、《数据库应用系统开发》课程报告专业：公共事业管理班级：13公管姓名：刘惜梅傅旭儿设计题目：音乐播放器管理系统指导教师：赵辉2014年11月JJ音乐播放器管理系统一系统设计的目的和意义本系统设计是在学习VFP相关课程后，通过实际的操作来熟悉相关软件的应用，培养独立的完成对相关课题或者项目的分析能力、设计能力和调试能力。音乐播放器管理系统借助计算机强大的处理系统，大大减轻了管理人员的工作量，并提高了处理的准确性。音乐管理系统的开发运用，实现了音乐管理的自动化，本系统根据实际情况开发，用于对音乐播放器信息的管理，

2、来实现对用户的服务。本系统完成了对日常生活娱乐生活音乐播放的需要满足。查询、增添、删除都变的非常简单，减少了管理的工作量。数据库的使用让数据的大量传输、备份更加高效，数据的安全性更高。二、系统需求分析2.1 任务概述 音乐管理系统是为广大用户更方便的使用本系统和方便管理员管理而设计的一个系统平台。音乐管理系统功能的模块图：音乐播放器管理系统音乐用户功能模块管理员功能模块登录系统下载音乐播放音乐添加删除音乐登录系统查找用户查找音乐修改用户删除用户三、数据库系统设计1.所需表的建立歌曲基本信息表图书借阅信息表学

3、生信息表四、系统设计与实现1．系统登录功能实现⑴功能描述运用表单显示登录界面，并在登录时进行身份验证，只有身份满足并且密码正确时，才能进入。用户登录界面设计图（2）系统代码实现“登录”按钮的click事件源代码：ifthisform.optiongroup1.value=1locateforalltrim(类别)="管理员"andalltrim(用户名)=alltrim(thisform.text1.value)andalltrim(密码)=alltrim(thisform.text2.value)else

4、locateforalltrim(类别)="用户"andalltrim(用户名)=alltrim(thisform.text1.value)andalltrim(密码)=alltrim(thisform.text2.value)endifif!found()messagebox("用户名或密码错误！")thisform.c=thisform.c+1ifthisform.c>3messagebox("用户名密码已连续三次错误，退出系统！！！")quitelsethisform.text1.value=""th

5、isform.text2.value=""thisform.text1.setfocusendifelsedo主菜单.mprEndif“退出”按钮的click事件源代码：thisform.Release2.学生图书查询功能实现⑴功能描述学生可以根据自己的学号、密码，通过书名或作者，查询图书信息，包括作者、书籍简介、库存数量等信息。按书名查询的界面设计图按作者查询的界面设计图（2）系统代码实现按作者查询：Form的init事件源代码：THISFORM.TExt1.Value=5thisform.SetAll(

6、"visible",.F.)thisform.label1.Visible=.T.thisform.command1.Visible=.T.thisform.COMBO1.Visible=.T.thisform.SetAll("readonly",.t.,"textbox")THISFORM.RefreshCombo1的interactivechange事件源代码：THISFORM.TExt1.Value=5SELECT图书借阅信息表LOCATEFORALLTRIM(作者)=ALLTRIM(THISFORM

7、.COMBO1.DisplayValue)SCANFORALLTRIM(作者)=ALLTRIM(THISFORM.COmbo1.DisplayVALUE)THISFORM.TExt1.Value=THISFORM.TEXT1.Value-借阅册数ENDSCANthisform.SetAll("visible",.T.)thisform.SetAll("readonly",.t.,"textbox")THISFORM.Refresh“退出”按钮的click事件源代码：THISFORM.Release按书名查询

8、：Form的init事件源代码：Form的init事件源代码：THISFORM.TExt1.Value=5thisform.SetAll("visible",.F.)thisform.label1.Visible=.T.thisform.command1.Visible=.T.thisform.COMBO1.Visible=.T.thisform.SetAll("readonly",.t.,"textbox")T