信息系统与数据库技术课程设计报告.doc

15信息系统与数据库技术技术实践信息系统与数据库技术技术实践1. 系统目标本系统支持网上图书的信息维护、图书信息汇总、图书折扣管理3个方面的功能，并且具有信息管理、事物处理、和决策支持的系统特点。2. 需求分析2.1业务需求设计网上书店信息系统中的客户信息管理模块，要求有客户和店员两个方面的功能。他们各自的主要业务处理需求如下：客户类的用户能注册、维护个人信息；查看个人购买记录；查看个人客户信息。店员类的用户能查询、浏览、汇总客户信息；客户评价；客户分类等。2.2数据处理需求系统涉及的数据源有图书数据、客户数据、客户购买数据，产生图书信息表、客户信息表、订单、客户分析表等各项表单。结合业务处理需求，系统数据流图如图2-1所示。图2-13. 数据库设计3.1根据需求分析及三层架构设计的思想，设计出客户系统功能如图3-1所示。图 3-1 后台管理的系统功能图如图3-2 3.2网上书店ER图3.3数据字典：3.3.1 Customer客户表：存储客户基本信息。字段名称字段说明类型定义属性限定索引关系（外键）CustomerCode客户号Char(8)Primary Key主索引Name客户姓名Varchar (16)Not NullSex 性别Char (2)Not Null男或女Job职业Char(12)Not NullBirthday生日DatetimeHometown所在省区Varchar (40)EmailEmailVarchar (40)Telephone联系电话Varchar (40) VIPClass用户等级Char(1)“A”D”LoyaltyClass忠诚度Char(1)“A”D”3.3.2 Book图书表：存储图书基本情况。字段名称字段说明类型定义属性限定索引关系（外键）BookCode书号Char(8)Primary Key 主索引BookName书名Varchar(60)Not NullAuthor作者Char(20)Not NullPublisher出版社Varchar(50)Not NullPublishTime出版时间DateTimeNot NullBookSort图书类别Char(8)Content内容简介Varchar(1000)Price价格Numeric(4,1)Not NullDiscount折扣Numeric(2,1)Not Null Default 1图书类别BookSort取值：人文、科学、经管、其他3.3.3 Order订单表：存储订单的基本情况字段名称字段说明类型定义属性限定索引关系（外键）OrderCode订单号Char(8)Primary Key主索引CustomerCode客户号Char(8)Not NullCustomer: CustomerCodePayType支付方式Varchar(1)Not NullSendType发货方式Varchar(1)Not NullAddress发货地址Varchar(200)Not NullOrderTime订货时间DateTimeNot NullDefault GetDate()OrderStatus订单状态Char(1)“P”、“F”、“C”Default “P”订单状态OrderStatus取值：“P”为处理中，“F”为完成，“C”为取消。支付方式PayType取值：“C”为货到现金支付；“I”为信用卡支付。发货方式SendType取值：“F”为快递；“P”为邮局邮寄。3.3.4 OrderDetail订单详细情况表：存储订单的详细情况。字段名称字段说明类型定义属性限定索引关系（外键）OrderCode订单号Char(8)Primary Key主索引Order: OrderCodeBookCode书号Char(8)Primary Key主索引Book: BookCodeAmount数量IntDefault 0 =03.4 关系模式：客户（客户号，姓名，性别，职业，生日，所在省区，联系电话，Email，客户等级，忠诚度）图书（书号，书名，作者，出版社，出版时间，类别，内容简介，价格，折扣）订单（订单号，客户号，支付方式，发货方式，发货地址，订货时间）订单详细资料（订单号，书号，数量） 3.5 数据库表：3.6 数据库关系图：4. 系统开发设计4.1 系统技术方案4.4.1 系统前台开发工具：面向客户的应用程序和面向店员的应用程序，都采用Visual Studio 2008开发环境，使用VB.NET语言开发。4.4.2后台数据库：采用Microsoft SQL Server 2005企业版。4.2 界面设计 4.4.1首页4.4.2 登录界面4.4.3 用户界面4.4.4 用户查看个人信息4.4.5 后台管理界面4.4.6 客户信息汇总4.4.7 新用户注册5. 课程设计总结本次课程设计完成的是网上图书信息管理系统中的客户信息管理，我基本完成了所要求的几个功能，包括用户个人信息查询、购书查询，管理员客户信息汇总，新用户注册等功能。通过本次课程设计，自己对Visual Stdio2008的基本知识有了一个很好的巩固和学习，特别是VS2008中的VB.Net，它的功能是非常强大的，使用它制作图形界面很方便。而且自己还进一步熟悉了Microsoft SQL Sever2005数据库的知识，包括建表、查询、修改等操作，以及学习了VS2008中怎样连接数据库。开始做这个课程设计的时候，感觉到自己只有一些理论知识，无法动手来操作。通过认真的学习来解决这一问题，这也提高了实际操作的能力。在编写程序的过程中，也发现自己还是存在着很多的缺点，对相关知识和使用不是很熟悉，操作数据库也不熟练，还需要自己多加练习来达到熟练的目的，以后还要努力学习锻炼自己。6. 附录附录1 参考文献1 David Schneider著,孙燕，等译，Visual Basic 2005程序设计M，清华大学出版社，2007.2 孙践知，张迎新，肖媛媛编著，Visual Basic.Net程序设计M，清华大学出版社，2010.3 白晓勇，余健，等编著，Visual Basic课程设计案例精编M，清华大学出版社，2007. 5 钱雪忠，罗海驰，陈国俊，等编著，数据库原理及技术课程设计 M，清华大学出版社，2009.6 张智强，张福兆，余健，陈皞，等编著，SQL Server 2005课程设计案例精编M，清华大学出版社，2008.附录2 程序清单窗体1Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.ShowDialog() Me.Close() End SubEnd Class窗体2Public Class Form2 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Text = Customer End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Text = 店小二 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sno1, sno2, psw As String sno1 = Customer sno2 = 店小二 psw = 123 If TextBox1.Text = sno1 Then If TextBox2.Text = psw Then Me.Close() Form3.ShowDialog() Else MsgBox(密码输入错误，请重新输入！, MsgBoxStyle.Exclamation, 提示) TextBox2.Text = End If ElseIf TextBox1.Text = sno2 Then If TextBox2.Text = psw Then Me.Close() Form4.ShowDialog() Else MsgBox(密码输入错误，请重新输入！, MsgBoxStyle.Exclamation, 提示) TextBox2.Text = End If End If End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged Form8.ShowDialog() End SubEnd Class窗体3Public Class Form3 Private Sub 查看信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查看信息ToolStripMenuItem.Click Form5.Show() End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click End End Sub Private Sub 已购买ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 已购买ToolStripMenuItem.Click Form6.Show() End Sub Private Sub 关于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于ToolStripMenuItem.Click MsgBox(此功能暂时不可用！, MsgBoxStyle.Exclamation, 提示) End Sub Private Sub 关于ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于ToolStripMenuItem1.Click MsgBox(请访问官方网站首页, MsgBoxStyle.Exclamation, 提示) End SubEnd Class窗体4Public Class Form4 Private Sub 查看客户信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查看客户信息ToolStripMenuItem.Click Form7.Show() End Sub Private Sub 客户信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Form8.Show() End Sub Private Sub 图书汇总ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 图书汇总ToolStripMenuItem.Click MsgBox(此功能暂时不可用！, MsgBoxStyle.Exclamation, 提示) End Sub Private Sub 折扣管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 折扣管理ToolStripMenuItem.Click MsgBox(此功能暂时不可用！, MsgBoxStyle.Exclamation, 提示) End Sub Private Sub 图书设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 图书设置ToolStripMenuItem.Click MsgBox(此功能暂时不可用！, MsgBoxStyle.Exclamation, 提示) End Sub Private Sub 查看订单ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查看订单ToolStripMenuItem.Click MsgBox(此功能暂时不可用！, MsgBoxStyle.Exclamation, 提示) End Sub Private Sub 信息维护ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 信息维护ToolStripMenuItem.Click MsgBox(亲，再点还是不能用！, MsgBoxStyle.Exclamation, 提示) End Sub Private Sub 帮助HToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助HToolStripMenuItem.Click End End SubEnd Class窗体5Imports System.Data.SqlClientPublic Class Form5 Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim myconn As New SqlConnection(Initial Catalog = BookSell; Data Source=(Local);Integrated Security=SSPI;) Dim sql As String = Select CustomerCode,UserName,Name,Sex,Job,Birthday,Hometown,Email,Telephone, _ & VIPClass From Customer Where Customer.CustomerCode=9001 Dim mycmd As New SqlCommand(sql, myconn) Dim myread As SqlDataReader myconn.Open() myread = mycmd.ExecuteReader myread.Read() TextBox1.Text = myread.Item(0) TextBox2.Text = myread.Item(1) TextBox3.Text = myread.Item(2) TextBox4.Text = myread.Item(3) TextBox5.Text = myread.Item(4) TextBox6.Text = myread.Item(5) TextBox7.Text = myread.Item(6) TextBox8.Text = myread.Item(7) TextBox9.Text = myread.Item(8) TextBox10.Text = myread.Item(9) myread.Close() myconn.Close() End SubEnd Class窗体6Imports System.Data.SqlClientPublic Class Form6 Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim myconn As New SqlConnection(Initial Catalog = BookSell;Data Source=(Local);Integrated Security=SSPI;) Dim sql As String = Select BookName,Amount,OrderTime From Book,OrderDetail,BookOrder Where Book.BookCode=100001 And BookOrder.OrderCode=08601 Dim mycmd As New SqlCommand(sql, myconn) Dim myread As SqlDataReader myconn.Open() myread = mycmd.ExecuteReader myread.Read() ListBox1.Items.Add(myread.Item(0) TextBox1.Text = myread.Item(1) TextBox2.Text = myread.Item(2) myread.Close() myconn.Close() End SubEnd Class窗体7Public Class Form7 Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As