网上书店(信息系统综合应用开发)

课程设计设计题目：图书信息管理

1. 系统目标

本系统支持图书商品管理、图书销售、客户分析等三个方面的功能，兼具有信息管理、事务处理和决策支持的系统特点。

2. 需求分析

1）业务需求

网上书店主要有三类用户角色：客户、店员、店长。

客户在系统中完成图书浏览和订购。

店员在系统中完成商品管理、订单处理等：商品上架、下架；商品折扣管理；商品汇总。

店长在系统中获得商品和销售状况分析、客户分析以制订营销策略：商品汇总；销售分析；客户分析

2）数据处理需求

系统涉及的数据源有图书数据、客户数据、客户购买数据，产生图书信息表、客户信息表、订单、客户分析表、销售分析表等各项表单。结合业务处理需求，系统数据流图如图所示。

3. 数据库设计

（1）数据库概念设计

系统主要实体有图书和客户两个，通过“订购”活动建立联系，建立实体联系模型的E-R图。

（2）数据库逻辑设计

客户（客户号，姓名，性别，职业，生日，所在省区，联系电话，Email，客户等级，忠诚度）图书（书号，书名，作者，出版社，出版时间，类别，内容简介，价格，折扣）

订单（订单号，客户号，支付方式，发货方式，发货地址，订货时间）

订单详细资料（订单号，书号，数量）

（3）数据库物理设计

下面给出SQL Server下的网上书店数据库物理设计的关系模型设计、完整性约束设计和索引选择。

1)Employee店员表：存储店员基本信息

2) Customer客户表：存储客户基本信息。

4)Order订单表：存储订单的基本情况

（4）数据库表格：

4. 系统开发设计

1）子系统设计

按照系统结构设计，本系统应该包括两个子系统，面向客户的网上购书B/S系统和面向店长和店员的C/S系统。采用Visual https://www.360docs.net/doc/1d2896378.html, 2003开发环境，使用https://www.360docs.net/doc/1d2896378.html,语言开发。2）界面

主界面有三个功能按钮，用户可根据实际情况选择。

1）选择用户

输入用户名密码，点确定可进入用户信息、查询管理界面；退出可直接点退出。

选择查询管理进入下面页面

输入书号，进行相关查询

2）选择店员，可进行图书管理、客户信息管理操作

选择图书管理，进入以下页面

选择客户信息管理，可进行客户信息查询、折扣管理、客户等级管理操作

5．课程设计总结

通过这次实践，我们初步学习了运用数据库解决实际问题的方法，学以致用，巩固了对所学的知识的记忆，熟练数据库的备份与恢复、性能分析与改进等等。

通过与他人的合作，增强了团队合作意识，大家各展所长，为团队献出自己的力量，共同取得进步，在每次做的过程中我都会从别人那里学到一些不一样的方法和技巧。我还是蛮感谢这次时间的。

最后在总结一下，通过这次课程设计，我们熟悉了Visual https://www.360docs.net/doc/1d2896378.html, 2003开发环境以及https://www.360docs.net/doc/1d2896378.html,和SQL语句的使用，提高了我们动手能力、合作能力、思考问题解决问题的能力。

希望我以后有机会还会再更一步学习数据库。

6．参考文献

【1】夏冰冰 .数据库管理及应用 . 国防工业出版社，2006.

【2】闪四清 .SQL Server实用简明教程 .清华大学出版社,2005. 【3】施伯乐,丁宝康,汪卫 .数据库系统教程 .3版 .高等教育出版

7．代码

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim f2 As Frm2

f2 = New Frm2

f2.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim f1 As Form1

f1 = New Form1

f1.Show()

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Len(TextBox1.Text) <> 4 Then

MsgBox("用户名不存在,请重新输入!")

End If

If TextBox2.Text <> TextBox2.Text Then

MsgBox("密码错误,请重新输入!")

Else

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local);

Integrated Security=SSPI;")

Dim sql As String = "Select * From customer Where customerCode='" & TextBox1.Text & "'"

Dim ad As SqlDataAdapter = New SqlDataAdapter(sql, cn)

Dim ds As New DataSet

ad.Fill(ds, "customer")

DataGrid1.DataSource = ds.Tables("customer")

Me.SqlDataAdapter1.Fill(DataSet11.Customer)

mybind = Me.BindingContext(Me.DataSet11, "customer")

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Len(TextBox1.Text) <> 4 Then

MsgBox("用户名不存在,请重新输入!")

End If

If TextBox2.Text <> TextBox2.Text Then

MsgBox("密码错误,请重新输入!")

Else

Dim bf As Bookinf1

bf = New Bookinf1

bf.Show()

Me.Hide()

End If

End Sub

Private Sub顾客查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim cs As choose

cs = New choose

cs.Show()

Me.Hide()

End Sub

End Class

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Dim f1 As Frm_Bookadd

f1 = New Frm_Bookadd

f1.Show()

Me.Hide()

End Sub

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

Me.Hide()

Dim f2 As Frm_customerinf

f2 = New Frm_customerinf

f2.Show()

End Sub

Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click

Me.Hide()

Dim f3 As Frm_vipclass

f3 = New Frm_vipclass

f3.Show()

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

Me.Hide()

Dim f4 As Frm_Bookinf

f4 = New Frm_Bookinf

f4.Show()

End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

Me.Hide()

Dim f5 As Frm_BookDiscount

f5 = New Frm_BookDiscount

f5.Show()

End Sub

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

Me.Hide()

Dim f6 As Frm_login

f6 = New Frm_login

f6.Show()

End Sub

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Len(TextBox1.Text) <> 4 Then

MsgBox("用户名不存在,请重新输入!")

End If

If TextBox2.Text <> TextBox2.Text Then

MsgBox("密码错误,请重新输入!")

Else

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "Select * From customer Where customerCode='" & TextBox1.Text & "'"

Dim ad As SqlDataAdapter = New SqlDataAdapter(sql, cn)

Dim ds As New DataSet

ad.Fill(ds, "customer")

DataGrid1.DataSource = ds.Tables("customer")

Me.SqlDataAdapter1.Fill(DataSet11.Customer)

mybind = Me.BindingContext(Me.DataSet11, "customer")

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Len(TextBox1.Text) <> 4 Then

MsgBox("用户名不存在,请重新输入!")

End If

If TextBox2.Text <> TextBox2.Text Then

MsgBox("密码错误,请重新输入!")

Else

Dim bf As Bookinf1

bf = New Bookinf1

bf.Show()

Me.Hide()

End If

End Sub

Private Sub顾客查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim cs As choose

cs = New choose

cs.Show()

Me.Hide()

End Sub

End Class

Dim flag As String = "flag"

Dim sql As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

cn.Open()

Dim i As Integer

TextBox1.DataBindings.Clear()

TextBox2.DataBindings.Clear()

Dim sql As String = "update customer set vipclass ='" & TextBox2.Text & "'where customercode ='" & TextBox1.Text & "'"

Dim mycmd As New SqlCommand(sql, cn)

Try

i = mycmd.ExecuteNonQuery

Catch ex As Exception

MsgBox(ex.Message)

End Try

cn.Close()

MsgBox("修改成功")

End Sub

Private Sub Frm_vipclass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "select * from customer "

Dim ad As SqlDataAdapter = New SqlDataAdapter(sql, cn)

Dim ds As New DataSet

ad.Fill(ds, "customer")

DataGrid1.DataSource = ds.Tables("customer")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "select customerCode ,vipclass from customer "

Dim mycmd As New SqlCommand(sql, cn)

Dim myadapter As New SqlDataAdapter(sql, cn)

Dim mydataset As New DataSet

myadapter.Fill(mydataset, "customer")

DataGrid1.DataSource = mydataset.Tables("customer")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Hide()

Dim mm As Mainfrm

mm = New Mainfrm

mm.Show()

End Sub

End Class

Private Sub Frm_customerinf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SqlDataAdapter1.Fill(DataSet11.Customer)

mybind = BindingContext(DataSet11, "customer")

DataGrid1.DataSource = DataSet11.Customer

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

mybind.Position = mybind.Position - 1

DataGrid1.CurrentRowIndex = mybind.Position

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

mybind.Position = mybind.Position + 1

DataGrid1.CurrentRowIndex = mybind.Position

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Hide()

Dim mm As Mainfrm

mm = New Mainfrm

mm.Show()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

mybind.Position = 0

DataGrid1.CurrentRowIndex = mybind.Position

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

mybind.Position = mybind.Count - 1

DataGrid1.CurrentRowIndex = mybind.Position

End Sub

Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click

mybind.Position = DataGrid1.CurrentRowIndex

End Sub

End Class

Private Sub Frm_Bookinf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "Select BookCode From Book "

Dim myadpter1 As New SqlDataAdapter(sql, cn)

Dim mydataset1 As New Data.DataSet

myadpter1.Fill(mydataset1, "书号")

ComboBox1.DataSource = mydataset1.Tables("书号")

ComboBox1.DisplayMember = mydataset1.Tables("书号").Columns(0).ToString End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "Select BookName,BookSort,Price,Author,PublishTime From Book where BookCode='" & ComboBox1.Text & "'"

Dim mycmd As New SqlCommand(sql, cn)

Dim myread As SqlDataReader

cn.Open()

myread = mycmd.ExecuteReader

While 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)

End While

myread.Close()

cn.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

Dim mm As Mainfrm

mm = New Mainfrm

mm.Show()

End Sub

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

cn.Open()

Dim i As Integer

TextBox1.DataBindings.Clear()

TextBox2.DataBindings.Clear()

Dim sql As String = "update book set discount ='" & TextBox2.Text & "'where bookcode ='" & TextBox1.Text & "'"

Dim mycmd As New SqlCommand(sql, cn)

Try

i = mycmd.ExecuteNonQuery

Catch ex As Exception

MsgBox(ex.Message)

End Try

cn.Close()

End Sub

Private Sub Frm_BookDiscount_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "select BookCode as 书号,Discount as 折扣 from book "

Dim mycmd As New SqlCommand(sql, cn)

Dim myadapter As New SqlDataAdapter(sql, cn)

Dim mydataset As New DataSet

myadapter.Fill(mydataset, "book")

DataGrid1.DataSource = mydataset.Tables("book")

Dim myadapter1 As New SqlDataAdapter(sql, cn)

Dim mydataset1 As New DataSet

myadapter1.Fill(mydataset1, "book")

mybind = BindingContext(mydataset1, "book")

TextBox1.DataBindings.Add(New Binding("Text", mydataset1, "Book.书号"))

TextBox2.DataBindings.Add(New Binding("Text", mydataset1, "Book.折扣")) End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "select BookCode as 书号,Discount as 折扣 from book "

Dim mycmd As New SqlCommand(sql, cn)

Dim myadapter As New SqlDataAdapter(sql, cn)

Dim mydataset As New DataSet

myadapter.Fill(mydataset, "book")

DataGrid1.DataSource = mydataset.Tables("book")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Hide()

Dim mm As Mainfrm

mm = New Mainfrm

mm.Show()

End Sub

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "Insert Into

Book(Bookcode,bookname,price,Author,publisher,BookSort,Discount,Publishtime) Values( '" & TextBox1.Text & "','" _

& TextBox2.Text & "','" & Val(TextBox3.Text) & "','" & TextBox4.Text & "','" & TextBox8.Text & "','" & TextBox5.Text & "','" & Val(TextBox6.Text) & "','" &

Val(TextBox7.Text) & "')" '定义SQL更新命令

Dim mycmd As New SqlCommand(sql, cn)

Dim i As Integer

cn.Open()

Try

i = mycmd.ExecuteNonQuery()

Catch ex As Exception

MsgBox(ex.Message)

End Try

cn.Close()

MsgBox(i & "条记录成功添加")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Hide()

Dim mm As Mainfrm

mm = New Mainfrm

mm.Show()

End Sub

Private Sub Frm_Bookadd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cn As New SqlConnection("Initial Catalog=online bookstore; Data Source=(Local); Integrated Security=SSPI;")

Dim sql As String = "select * from book "

Dim ad As SqlDataAdapter = New SqlDataAdapter(sql, cn)

Dim ds As New DataSet

ad.Fill(ds, "book")

DataGrid1.DataSource = ds.Tables("book")

End Sub

End Class