小熊唱片店系统室设计报告.docxVIP

同济大学 2009 年上海市大学生计算机应用能力大赛 数据库应用系统 项目设计报告 项目设计报告题目：小熊唱片店pro 小组成员姓名 ：___叶子、熊比德、程远振、陶膺舟__________________ 年级： 二 专业： 数学系 指导教师： 袁科萍 日期： 2009 年 2 月 28 日 项目特点 1、有丰富的数据库访问功能 小熊唱片店具有多种数据库查询功能，如：根据发行时间的先后查看排行前十的唱片信息（新碟推荐），根据关键字、地域、流派查询唱片信息（唱片查询），根据销售量查询唱片信息（TOP10），通过购买纪录以及收藏夹直接查询唱片信息（帐户管理），查询留言信息（给我留言），管理员可查询用户的信息及购买纪录（客户管理），管理员可通过水晶报表查询系统的总体信息（系统信息）。 也具有多种数据库控制功能，如：用户可将喜爱的唱片添加进收藏夹以便以后方便查看，客户可向管理员留言，管理员可直接在软件界面上添加、修改唱片信息，而无需直接访问数据库，管理员可通知客户收获以及给客户发系统信息。 2、较好的完整性约束功能 有关客户修改帐户信息，以及管理员修改唱片信息都做了较为周到的完整性控制，能避免应数据库出错而造成的系统崩溃等。 3、较为简洁高效的代码 不少地方都用到了面向对象技术，如窗体之间的信息传递一般都是通过构造函数实现的，特别是唱片添加\修改窗体，通过重载构造函数，实现唱片的新添加与修改已存在唱片的区别，大量减少了代码的重复。如下：带一个字符串参数的为修改唱片信息，不带参数的为新增唱片信息。 Public Sub New(ByVal Number As String) MyBase.New() InitializeComponent() CurrentCD = New CD(Number) Me.isNewCD = 0 Me.Text = "修改唱片信息" Call Me.InitializeCD() End Sub Public Sub New() MyBase.New() InitializeComponent() Me.isNewCD = 1 Me.TxtCDnum.Text = Me.GetNewCDnum Dim myadapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select 艺术家名称,艺术家编号 from 艺术家 order by 艺术家名称", myconn) Dim mydatatable As New DataTable myadapter.Fill(mydatatable) Me.CboArtistlist.DataSource = mydatatable Me.CboArtistlist.ValueMember = "艺术家编号" Me.CboArtistlist.DisplayMember = "艺术家名称" Me.CboArtistlist.SelectedIndex = 0 Call Me.NewAritst() Me.TxtArtname.Clear() Me.CboGenre.Text = "" Me.CboLanguage.Text = "" Me.CboRegion.Text = "" Me.BtnDrawback.Enabled = False Me.Text = "新片入库" Me.BtnFirst.Enabled = False Me.BtnNext.Enabled = False Me.BtnBefore.Enabled = False Me.BtnLast.Enabled = False Me.BtnDelCover.Enabled = False Me.BtnDelCover.Enabled = False Me.BtnDelSong.Enabled = False End Sub 3、友好的界面，运用了较多的多媒体元素 运用了大量的flash，通过action语言与vb交互，fscommand,setvariab