音乐专辑销售网站

石家庄铁道大学四方学院

集中实践报告书

课题名称 音乐专辑销售网站

姓 名 学 号 系、 部 土木工程系

专业班级 指导教师

刘仁芬

2015年 6 月 25 日

※※※※※※※※

※ ※※ ※

※ ※

※

※

※

※

※

※※※※※

2014级

高级语言程序设计

音乐专辑销售系统的开发

1选题的意义

对销售网站来说，对经营状况起决定作用的是网站的管理水平。如何利用先进的管理手段来提高网站的管理水平是网站发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高销售的管理无疑是一条行之有效的途径。它可以最大限度地发挥准确、快捷、高效等作用，对网站的业务管理提供强有力的支持。因此，采用全新的计算机网络和网站管理系统，已成为提高网站的销售效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助网站有效地进行业务管理与销售，释放最大价值。专辑销售网站在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。

2 系统功能需求分析

2.1系统概述

该系统是以管理与销售为基础开发的通用专辑销售管理系统，适合中、小销售网站的使用。该系统应有较高的可靠性，音乐专辑销售系统包括专辑简介，专辑录入，订单管理，专辑查询，专辑购买，新增用户等多种功能。我们所设计的专辑销售管理系统具有以上功能，可以方便快捷准确的获取以上信息，为客人提供方便，形成美观大方的主题操作界面，可以使网站更高效的为客人服务。

专辑简介：为不同类型的专辑添加概括性的简介，方便客人了解。

专辑录入：方便管理员录入新增的专辑库存与专辑详情。

订单管理：方便管理员管理客户订单，为其添加发货时间与发货快递等信息。

专辑查询：方便客户查询专辑库存与专辑详情等。

专辑购买：为客户提供购买服务，购买方便。

新增用户：用户注册模块，方便用户注册以浏览网站。

2.2系统的组成及各模块的功能

专辑销售管理系统的组成主要包括以下几点功能:

1.用户登录模块：账号和密码

2.管理员登录模块：账号和密码

3.专辑销售模块：专辑名称，专辑类型，歌手，发行，出版，库存数量，销售数

量，单价

4.专辑详情模块：专辑名称，歌手，歌名

5.订单详情模块：账户名，购买专辑名，购买数量，购买时间，发货时间，所用

快递

2.3系统的运行环境

1.系统使用环境

操作系统: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 订单详情管理数据表

字段名称数据类型字段大小账户名文本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.Text

Adodc1.RecordSource = "select * from 登录表where 账号='" + Combo1.Text + "'" Adodc1.Refresh

If Adodc1.Recordset.Fields(2).Value = Text1 Then

Unload Me

主界面.Show

Else

MsgBox "密码错误！"

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Command3_Click()

新增用户.Show

登录界面.Hide

End Sub

Private Sub Command4_Click()

管理员登陆界面.Show

登录界面.Hide

End Sub

Private Sub Form_Load()

mandType = adCmdUnknown

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=专辑管理系统数据库.mdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from 登录表"

Adodc1.Refresh

Combo1.Clear

Do While Not Adodc1.Recordset.EOF

Combo1.AddItem Adodc1.Recordset.Fields(1).Value

Adodc1.Recordset.MoveNext

Loop

End Sub

4.2其他模块的设计与实现

图3主界面

Private Sub chakanxiangqing_Click()

查询专辑详情.Show

End Sub

Private Sub chakanxiangqing2_Click()

查询专辑详情.Show

End Sub

Private Sub chakanxiangqing3_Click()

查询专辑详情.Show

End Sub