第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 SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Me.管理员TableAdapter.FillBy(Me.ZhouDataSet.管理员, TextBox1.Text, TextBox2.Text) > 0 ThenMsgBox("成功！")理发管理.Show()Me.Close()ElseMsgBox("用户名或密码错误！", , "警告")End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubEnd Class3.2 管理界面管理界面可以对每个理发师每天服务的项目和收入进行统计和分类。
主要实现功能有：按员工统计本月接手的总金额，按服务类别统计本月的收入金额，按日期统计每天的收入总额，并形成条形统计图，查询本月顾客人数和收入金额最高的5天和最低的5天，如图3-3所示。
图3-3理发管理界面实现代码：Public Class 理发管理Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerPrivate 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 = TimeOfDayEnd SubPrivate Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedTextBox2.Text = TextBox2.Text + "剪发"Label7.Text = 10a = 10TextBox3.Text = d + 10d = d + 10End SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChangedTextBox2.Text = TextBox2.Text + "吹风"Label8.Text = 10b = 10TextBox3.Text = d + 10d = d + 10End SubPrivate Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChangedTextBox2.Text = TextBox2.Text + "做型"Label9.Text = 10c = 10TextBox3.Text = d + 10d = d + 10End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel10.Text = a + b + cTry' Me.理发师BindingSource.EndEdit()Me.理发师TableAdapter.Update(Me.ZhouDataSet.理发师)CheckBox1.Checked = FalseCheckBox2.Checked = FalseCheckBox3.Checked = Falsea = 0b = 0c = 0d = 0TextBox1.Text = ""TextBox2.Text = ""TextBox3.Text = ""MsgBox("添加成功", , "提示")Catch ex As ExceptionMsgBox("添加失败", , "警告")End TryEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click统计图vb.Show()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click收入统计.Show()End SubPrivate Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.ClickEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickCheckBox1.Checked = FalseCheckBox2.Checked = FalseCheckBox3.Checked = Falsea = 0b = 0c = 0d = 0TextBox2.Text = ""TextBox3.Text = ""End SubPrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedEnd SubPrivate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click收入统计表.Show()End SubEnd Class3.3运行结果1.按员工统计本月接手的总金额及按服务类别统计本月的收入金额，如图3-4所示。