数据库课设报告模板

第1章系统功能概述

1.1系统任务

理发店人员复杂，员工的工资也很难算清楚。利用计算机管理就容易得多。顾客来理发，由某个理发师接手。顾客的花销按各种服务名目收费，比如“剪发”，“吹风”，“做型”，“离子烫”，“波峰烫”，“麻辣烫”等。必须提供复杂的查询功能，包括：

●按员工统计本月接手的总金额。

●按服务类别统计本月的收入金额。

●按日期统计每天的收入总额，并形成条形统计图。

●查询本月顾客人数和收入金额最高的5天和最低的5天。

1.2系统目标

1.能够快速地管理和查询所有理发师收入信息。

2.能够高效地进行理发管理。

3.能够进行结算管理，避免人为计算或操作失误。

4.能够正确的生成收入统计图

5.减轻登记、收银人员的工作任务。

第2章数据库设计

2.1 需求分析

本系统用于理发店的管理，用户指定为管理者自己，输入用户名，登录密码即可进入对本管理系统进行管理应用

（1）登录系统

在系统运行欢迎界面后即可进入登陆界面，在进入登陆界面后输入用户名和密码，正确即可进入主窗体界面进行操作，如果密码错误则提示错误。

（2）理发管理

数据包括：理发师编号，服务项目，收入金额，收入统计，服务日期等信息。

（3）统计管理

统计总收入情况，建立统计图

操作要求：可以按条件进行信息的查询，得到各自的收入金额。（4）排名系统

查询本月顾客人数和收入金额最高的5天和最低的5天

2.2 E-R模型

理发店管理系统E-R模型如图2-1所示。

图2-1理发店管理系统E-R模型

2.3 关系模型

理发店管理系统关系模型如图2-2所示。

图2-2理发店管理系统关系模型

2.4 表结构设计

1.管理员表用于记录管理员姓名和密码，如图2-3所示。

图2-3管理员表

2.理发师表用于记录理发师理发项目，如图2-4所示。

图2-4理发师表

3.收入表用与记录理发店当日各项收入，如图2-5所示。

图2-5收入表

4.收入统计用于统计本月收入金额最高的5天和最低的5天，如图2-6所示。

图2-6收入统计

5.收入统计表按员工统计本月接手的总金额，按服务类别统计本月的收入金额，如

图2-7所示。

图2-7收入统计表

6.统计图按日期统计每天的收入总额，并形成条形统计图，如图2-8所示。

图2-8统计图

第3章系统各功能模块的详细设计

3.1 登录

欢迎界面窗体的界面设计如图3-1所示。等待五秒后自动进入到登录窗体，如果想退出，直接点击退出即可退出本系统

图3-1 欢迎界面

登录窗体的界面设计如图3-2所示。该界面用于已注册的用户的登录，首先在界面的文本框中输入自己的用户名和密码，然后点击登录。如果用户名存在并且密码正确，则可进入到主界面；如果用户名不存在，则显示“用户名错误，重新输入”，密码如果错误，

则显示“密码错误，重新输入”

图 3-2登录界面

登录界面代码：

Public Class 用户登录

Private Sub 用户登录_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: 这行代码将数据加载到表“ZhouDataSet.管理员”中。您可以根据需要移动或删除它。

Me.管理员TableAdapter.Fill(Me.ZhouDataSet.管理员)

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

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

If Me.管理员TableAdapter.FillBy(Me.ZhouDataSet.管理员, TextBox1.Text, TextBox2.Text) > 0 Then

MsgBox("成功！")

理发管理.Show()

Me.Close()

Else

MsgBox("用户名或密码错误！", , "警告")

End If

End Sub

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

Me.Close()

End Sub

End Class

3.2 管理界面

管理界面可以对每个理发师每天服务的项目和收入进行统计和分类。

主要实现功能有：按员工统计本月接手的总金额，按服务类别统计本月的收入金额，按日期统计每天的收入总额，并形成条形统计图，查询本月顾客人数和收入金额最高的5天和最低的5天，如图3-3所示。

图3-3理发管理界面

实现代码：

Public Class 理发管理

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Integer

Private Sub 理发管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: 这行代码将数据加载到表“ZhouDataSet.理发师”中。您可以根据需要移动或删除它。

Me.理发师TableAdapter.Fill(Me.ZhouDataSet.理发师)

Me.理发师BindingSource.AddNew()

Label4.Text = TimeOfDay

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

TextBox2.Text = TextBox2.Text + "剪发"

Label7.Text = 10

a = 10

TextBox3.Text = d + 10

d = d + 10

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

TextBox2.Text = TextBox2.Text + "吹风"

Label8.Text = 10

b = 10

TextBox3.Text = d + 10

d = d + 10

End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

TextBox2.Text = TextBox2.Text + "做型"

Label9.Text = 10

c = 10

TextBox3.Text = d + 10

d = d + 10

End Sub

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

Label10.Text = a + b + c

Try

' Me.理发师BindingSource.EndEdit()

Me.理发师TableAdapter.Update(Me.ZhouDataSet.理发师)

CheckBox1.Checked = False

CheckBox2.Checked = False

CheckBox3.Checked = False

a = 0

b = 0

c = 0

d = 0

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

MsgBox("添加成功", , "提示")

Catch ex As Exception

MsgBox("添加失败", , "警告")

End Try

End Sub

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

Me.Close()

End Sub

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

统计图vb.Show()

End Sub

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

收入统计.Show()

End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

End Sub

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

CheckBox1.Checked = False

CheckBox2.Checked = False

CheckBox3.Checked = False

a = 0

b = 0

c = 0

d = 0

TextBox2.Text = ""

TextBox3.Text = ""

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

收入统计表.Show()

End Sub

End Class

3.3运行结果

1.按员工统计本月接手的总金额及按服务类别统计本月的收入金额，如图3-4所示。

图3-4理发师收入表及总收入表

2.查询统计收入金额最高的5天和最低的5天，如图3-5所示。

图3-5收入统计

3.按日期统计每天的收入总额，并形成条形统计图，如图3-6所示。

图3-6统计图

总结

在设计开始这前，我对VB并不是很了解，后来在老师和同学的帮助下，慢慢对VB有了一定了解，并结合了SQL等设计思想逐步完成了理发店管理系统中界面的系统模块。

在整个设计过程中，也出现过很多的问题，在不断学习的过程中我体会到：

1．设计是一个不断学习新鲜事物的过程，从设计初的不懂到最后能够顺利完成，我体会到在实践中学习的重要性。

2．由于前期工作的不彻底，对系统的需求分析的要求认识不够清楚，使得后续的工作不得不经常返回去修改数据表和个别代码。使我体会到在设计中的每一步的重要性，如果上一个步骤不能很好的完成，在后续的设计将会付出几倍的代价，比如数据库的连接、编程，报表的生成等等。

3．设计过程中，由于要实现某些功能，互联网帮了我的大忙。网络资源是一个丰富的共享体系，我通过在百度上提出问题得到了很多热心网友的帮助，使我在很多地方少走了很多的了弯路。

经过近两个星期的设计，我深刻体会到了一个软件的设计和它的发展是那很的严密，容不

得半点的马虎。要严格按照软件工程的方法与思想，逐步完成。同时也让我明白了，很多的知识在用时才会觉的“书到用时方恨少”，只有靠平常的积累。

参考文献

[1] 刘志妩.基于VB和SQL的数据库编程技术.北京.清华大学出版社.2008

[2] 顾京珊.数据库技术与联机分析.上海.上海科学技术出版社.1996

[3] 张立.Visual Basic 6.0 数据库开发技术与工程实践.北京.人民邮电出版社.2003

[4] 龚沛.Visual basic 程序设计教程（6.0版）.高等教育出版社.2007

[5] 萨师煊，王珊.数据库系统概论.高等教育出版社.2008

[6] 刘韬,何旭洪等.VB 6.0 数据库系统开发示例导航.人民教育出版社.1998