图书订购数据库和VB实践总结

图书订购管理系统

摘要: 随着经济和时代的发展，SQL数据库应用基础是大学生应该掌握的计算机基础基本之一。此次课程设计完成一个SQL Server环境下的图书订购管理系统，实现系统化的有关数据库管理与应用。该系统主要实现用户、客户、图书管理，背景设置和订购图书等功能，可以实现数据的查询、添加、修改和删除。通过该系统的设计，达到初步了解如何利用VB和数据库进行软件开发的目的。

【关键词】：窗体、代码、数据链接、图书订购管理系统、SQL数据库、VB程序设计

一．任务说明

正确理解课程设计任务，进行分析和设计，运用数据库基本理论与应用技术知识，在SQL Server和Visual Basic的环境中建立一个数据库应用系统，对数据达到检索、更新和控制等操作目的。系统功能应包括所要求实现的基本功能，所设计的软件要求界面美观，便于操作。

（1）进行需求分析，设计概念模型；

（2）设计相应的关系模型，确定数据库结构；

（3）设计关系的主键约束、外键约束等数据完整性控制；

（4）设计应用系统的系统结构图，确定系统功能；

（5）建立数据库。

（6）编制VB程序，实现数据库应用系统。

（7）分析遇到的问题，总结并写出课程设计报告（2000~3000字左右）；

图书订购管理系统要求：

1.验证密码后成功登陆

2.功能

1）系统管理包括添加用户、删除用户、修改密码、重新登陆、退出等。

2）客户信息管理包括客户信息的查询、录入、修改、删除等。

3）图书管理包括查询、录入、修改、删除图书信息。

4）书订购管理实现在图书数目可供订购情况下进行订购。

二. 图书订购管理系统开发设计思想

2. 数据库设计

实体：

管理员：用户名、密码

客户：客户号、姓名、性别、地址、联系电话

图书：书号、书名、内容摘要、出版社、单价、库存数量

订单：订单号、书号、订购数目、订货日期、总金额

E-R图：

建立的表：

1.Bookstore表:users，password

2.Customer表：cus_id(主键)、cus_name、cus_sex、address、

telephone

3.Book表：book_id（主键）、book_name、writer、publishe、resume、

price

4.Order表：cus_id（外键）、order_id（主键）、date

5.Orderrelation表:book_id（主键）、order_id（主键）、number、

price、totalprice、inventor

三.系统说明

1）登陆

①若没有输入账号或者密码，则会提醒“请输入账号和密码”；

②若输入的账号不存在于bookstore的表中则会提醒“输入的账号不存在”；且三次没有输入正确账号系统自动退出

③输入的密码不正确则会提醒密码错误，且输入三次不正确后系统自动退出

④若账号密码正确则进入主菜单窗口

2）用户管理

①可以添加新的用户且实现用户预览；

②可以修改当前登录的用户的密码；

③当输入管理员密码时，可以删除用户；

④退出到登录窗口则可以切换用户

3）客户管理

①添加客户子模块。

②删改客户子模块

③通过选择客户号，客户名和客户手机查询客户信息子模块

4）图书管理

①添加图书子模块。

②删改图书子模块

③通过选择作者，出版社，图书号和图书名查询图书信息子模块

5）图书订购

在足够的库存下实现图书的订购，并且及时更新订单信息。

6）背景设置设置背景的开关。这是一个辅助功能，目的是让操作者在一个轻松、快乐的环境下进行诗词欣赏操作。

四．功能实现

1、图书订购管理系统主窗体的创建

（1）创建工程项目——工程1

（2）创建公用模块Module 1定义登陆的用户名为全局变量

(3) 创建登录窗口更名为登陆窗口并输入按照要求代码

Private Sub Command1_Click()

If text1 = "" Then

MsgBox "请输入用户名", , "登陆"

text1.SetFocus

Exit Sub

End If

If text2 = "" Then

MsgBox "请输入密码", , "登陆"

text2.SetFocus

Exit Sub

End If

Adodc1.RecordSource = "select*from bookstore where users='" _

& Trim(text1) & "'" 【判断用户名是否存在】

Adodc1.Refresh

If Adodc1.Recordset.EOF = True Then

MsgBox "用户名不存在", , "登陆"

trytimes = trytimes + 1

If trytimes >= 3 Then

MsgBox "已经三次尝试登陆本系统不成功，系统即将关闭", , "登陆"

End

Else

Exit Sub

End If

End If

If Trim(Adodc1.Recordset.Fields("password")) <> Trim(text2) Then

MsgBox "密码错误", , "登陆" 【判断用户名和密码是否对应】

trytimes = trytimes + 1

text2.SelStart = 0

text2.SelLength = Len(text2)

text2.SetFocus

If trytimes >= 3 Then

MsgBox "已经三次尝试登陆本系统不成功，系统即将关闭", , "登陆"

End

Else

Exit Sub

End If

Else

userID = text1.Text 【将登陆的用户名记录下来】

MsgBox "欢迎进入网络订书平台", , "登陆"

主菜单.Show

Unload Me

End If

End Sub

（4）创建图书订购管理系统主窗体，然后根据前面所说的设计思路设计菜单编辑器，添加各类菜单打开各个框以做运用。最后在代码区内输入代码进行窗体的跳转。

2.用户管理窗体的创建

1）添加用户窗体的创建新建一个窗体并命名为添加用户的子窗体，后根据前面所说的设计思路设计窗体，添加控件并设置控件属性，最后在代码区输入代码。

Private Sub Command1_Click()

If Len(Text1.Text) = 0 Then

MsgBox "输入用户名不能为空！", vbOKOnly, "警告"

Text1.SetFocus

Exit Sub

End If

If Len(Text2.Text) = 0 Then

MsgBox "输入密码不能为空！", vbOKOnly, "警告"

Text2.SetFocus

Exit Sub

End If

If Trim(Text2.Text) <> Trim(Text3.Text) Then

MsgBox "两次密码输入不一致，请确认！", vbOKOnly, "警告"

Exit Sub 【判断两次输入的密码是否一致】End If

If addedit Then

Adodc1.Refresh

bookstore.Recordset.Find "users='" & Text1.Text & "'"

If Not users.Recordset.EOF Then

MsgBox "用户名已经存在" 【判断添加的用户是否存在】

Text1.SetFocus

Text1.SelStart = 0

txtusers.SelLength = Len(Text1)

Exit Sub

End If

End If

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("users") = Trim(Text1.Text)

Adodc1.Recordset.Fields("password") = Trim(Text2.Text)

Adodc1.Recordset.Update

MsgBox " 添加用户成功!", vbOKOnly, "提示"

Unload Me

End Sub

2）删除用户窗体的创建新建一个窗体并命名为删除用户 …… 此处隐藏：7048字，全部文档内容请下载后查看。喜欢就下载吧 ……