《音乐专辑销售网站》由会员分享，可在线阅读，更多相关《音乐专辑销售网站（16页珍藏版）》请在金锄头文库上搜索。
1、2014级高级语言程序设计 石家庄铁道大学四方学院集中实践报告书课题名称音乐专辑销售网站姓 名学 号系、 部土木工程系专业班级指导教师刘仁芬2015年 6 月 25 日 一、设计任务及要求：设计任务：音乐专辑销售网站的开发 要 求： 1内容要求：音乐专辑销售系统主要功能：专辑分类：包括华语专辑、港澳专辑、欧美专辑和别国专辑等等分类，分别展示相应分类的专辑简介。专辑信息：展示出专辑的标题、歌手、发行、出版、歌曲、库存数量、销售数量、封面图片等等，并设有购买链接，将添加订单消息发送到订单页面（要求用户登录）。2设计要求：建立一个工程，将完成本题目创建的所有文件添加到工程中；根据题目的要求建立数据库
2、，库中建立所需的表。数据表之间根据需要建立必要的联系。将完成的全部内容生成一个.exe文件.二、指导教师评语： 三、成绩 指导教师签名： 年 月 日 音乐专辑销售系统的开发1选题的意义对销售网站来说，对经营状况起决定作用的是网站的管理水平。如何利用先进的管理手段来提高网站的管理水平是网站发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高销售的管理无疑是一条行之有效的途径。它可以最大限度地发挥准确、快捷、高效等作用，对网站的业务管理提供强有力的支持。因此，采用全新的计算机网络和网站管理系统，已成为提高网站的销售效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助网站有效地进
3、行业务管理与销售，释放最大价值。专辑销售网站在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。2 系统功能需求分析2.1系统概述该系统是以管理与销售为基础开发的通用专辑销售管理系统，适合中、小销售网站的使用。该系统应有较高的可靠性，音乐专辑销售系统包括专辑简介，专辑录入，订单管理，专辑查询，专辑购买，新增用户等多种功能。我们所设计的专辑销售管理系统具有以上功能，可以方便快捷准确的获取以上信息，为客人提供方便，形成美观大方的主题操作界面，可以使网站更高效的为客人服务。专辑简介：为不同类型的专辑添加概括性的简介，方便客人了解。专辑录入：方便管理员录入新增
4、的专辑库存与专辑详情。订单管理：方便管理员管理客户订单，为其添加发货时间与发货快递等信息。专辑查询：方便客户查询专辑库存与专辑详情等。专辑购买：为客户提供购买服务，购买方便。新增用户：用户注册模块，方便用户注册以浏览网站。2.2系统的组成及各模块的功能专辑销售管理系统的组成主要包括以下几点功能:1. 用户登录模块：账号和密码2. 管理员登录模块：账号和密码3. 专辑销售模块：专辑名称，专辑类型，歌手，发行，出版，库存数量，销售数量，单价4. 专辑详情模块：专辑名称，歌手，歌名 5. 订单详情模块：账户名，购买专辑名，购买数量，购买时间，发货时间，所用快递 2.3系统的运行环境1.系统使用环境
5、操作系统:Windows XP/7。 系统支持：Visual basic 6.0及以上版本支持库。数据库：Access。硬件环境：处理器;Intel Pentium 166MX或者更高。硬盘：剩余使用空间1GB以上。内存：32MB以上。显卡：SVGA显示适配器。 2.系统开发环境 操作系统：Windows XP/7。系统支持：Visual Basic 6.0。3系统设计3.1总体结构设计订单详情退出用户登陆专辑销售系统主界面专辑简介查询详情购买专辑注销图1 总体模块图3.2数据库实现表1 登录界面数据表字段名称数据类型字段大小编号自动编号长整型账号文本50密码文本50表2 订单详情管理数据表字
6、段名称数据类型字段大小账户名文本255购买专辑名文本255购买数量数字长整型购买时间日期/时间发货时间日期/时间所用快递文本255编号自动编号长整型表3 专辑详情管理数据表字段名称数据类型字段大小编号自动编号长整型专辑名称文本255歌手文本255歌曲文本255表4 专辑销售管理数据表字段名称数据类型字段大小专辑名称文本255专辑类型文本255歌手文本255发行文本255出版文本255库存数量文本255销售数量文本255价格货币4系统实现4.1登录模块的设计与实现图2登录界面Private Sub Command1_Click()s = Combo1.TextAdodc1.RecordSourc
7、e = select * from 登录表 where 账号= + Combo1.Text + Adodc1.RefreshIf Adodc1.Recordset.Fields(2).Value = Text1 ThenUnload Me主界面.ShowElseMsgBox 密码错误！End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()新增用户.Show登录界面.HideEnd SubPrivate Sub Command4_Click()管理员登陆界面.Show登录界面.Hi
8、deEnd SubPrivate Sub Form_Load()Adodc1.CommandType = adCmdUnknownAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=专辑管理系统数据库.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from 登录表Adodc1.RefreshCombo1.ClearDo While Not Adodc1.Recordset.EOFCombo1.AddItem Adodc1.Rec
9、ordset.Fields(1).ValueAdodc1.Recordset.MoveNextLoopEnd Sub4.2其他模块的设计与实现图3主界面Private Sub chakanxiangqing_Click()查询专辑详情.ShowEnd SubPrivate Sub chakanxiangqing2_Click()查询专辑详情.ShowEnd SubPrivate Sub chakanxiangqing3_Click()查询专辑详情.ShowEnd SubPrivate Sub chakanxiangqing4_Click()查询专辑详情.ShowEnd SubPrivate S
10、ub Command1_Click()主界面.Hide登录界面.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()订单详情查询.ShowEnd SubPrivate Sub Command4_Click()专辑录入.ShowEnd SubPrivate Sub goumai_Click()选购专辑.ShowEnd SubPrivate Sub goumai2_Click()选购专辑.ShowEnd SubPrivate Sub goumai3_Click()选购专辑.ShowEn
11、d SubPrivate Sub goumai4_Click()选购专辑.ShowEnd SubPrivate Sub zhuanjijianjie_Click()华语专辑简介.ShowEnd SubPrivate Sub zhuanjijianjie2_Click()粤语专辑简介.ShowEnd SubPrivate Sub zhuanjijianjie3_Click()欧美专辑简介.ShowEnd SubPrivate Sub zhuanjijianjie4_Click()别国专辑简介.ShowEnd Sub图4专辑简介Private Sub Command1_Click()主界面.Sho
12、w欧美专辑简介.HideEnd Sub图5查询专辑详情Dim s$Private Sub Command1_Click()Dim s As Strings = Combo1.TextAdodc1.RecordSource = select * from 专辑详情管理 where 专辑名称= & s & Adodc1.Refresh End SubPrivate Sub Form_Load()Adodc1.CommandType = adCmdUnknownAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source
13、=专辑管理系统数据库.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from 专辑详情管理Adodc1.RefreshCombo1.ClearDo While Not Adodc1.Recordset.EOFCombo1.AddItem Adodc1.Recordset.Fields(1).ValueAdodc1.Recordset.MoveNextLoopEnd SubPrivate Sub Command2_Click()查询专辑详情.Hide主界面.ShowEnd Sub图6选购专辑Private Sub Command1_Click() shangpin = Adodc1.Recordset.Fields(专辑名称) 订单详情确认.ShowEnd SubPrivate Sub Command2_Click()选购专辑.Hide主界面.ShowEnd SubPrivate Sub Command3_Click()Dim s As Strings = Combo1.TextAdodc1.RecordSource
