数据库课程设计洗车房管理系统

1、沈阳理工大学课程设计专用纸摘 要 本系统的主要功能是洗车房信息的管理及对各种信息的查询，增加，修改，更新。本系统的数据库是用SQL server 2008软件进行创建与设计，分别包括车辆信息，车位信息，工资信息和密码表四个表。通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。利用VB软件对系统的窗口进行设计，包括欢迎界面、登陆界面、主菜单界面、浏览窗体和查询窗体等，可以通过这些窗体进行登陆操作，对输入的用户信息进行验证，以及最重要的操作是对数据库中信息进行浏览与查询。并可以对数据进行添加与删除，做到及时更新。关键词： 洗车房信息管理 SQL server 20008 VB6.0目

2、 录第1章 系统功能概述11.1 系统功能11.2 系统结构总图1第2章 数据库设计22.1 需求分析22.2 E-R模型22.3 关系模型42.4 表结构设计4第3章 系统各功能模块的详细设计83.1各窗体的设计83.2 封面83.3登录窗体93.4 主菜单113.5洗车记录窗体12总结19参考文献19第1章 系统功能概述1.1 系统功能（1）洗车记录的管理与查询（2）车位信息的管理与查询（3）工资信息的管理与查询（4）工作信息修改1.2 系统结构总图 洗车房管理系统通过运用VB软件建立，窗口化设计，对洗车房各项工作的查询，管理，更新。记录日常工作信息，合理分配工资，及时查询工作记录等，结构

3、如图1.1洗车房管理系统洗车记录洗车记录查询车位表信息车型信息查询工资信息工作信息修改图1.1洗车房管理系统的总体结构第2章 数据库设计2.1 需求分析 洗车房的业务很简单。来了一辆车，记录其车型、车牌号、洗车时间、价格，在那个车位洗车。每个车位包含若干洗车员，一辆车由多个洗车员同时清洗。洗车数量、车型与洗车员的工资挂钩，所以必须准确计算每个洗车员洗车的次数和车型。必须提供复杂的查询功能，2.2 E-R模型车牌号车型车位车辆信息价格洗车时间图2.1车辆信息实体属性洗车员2洗车员3洗车员1车位信息车位车位信息实体属性图2.2工资总数量洗车员号码工资信息中车数量小车数量大车数量图2.3工资信息实体

4、属性密码表账号密码系统信息实体属性图2.42.3 关系模型一个实体型转换为一个关系模式。实体的属性就是关系的属性，实体的码就是关系的码。根据E-R图向关系模型转换的原则，把E-R图转换为关系模型。关系的码用下横线标出。（1）车辆信息（车牌号、车型信息、洗车时间、洗车价格、车位）（2）车位信息（车位、洗车员1、洗车员2、洗车员3）（3） 工资信息（洗车员号码，工资，总车辆数，大车数量，中车数量，小车数量）（4） 密码表（账号、密码）2.4 表结构设计本系统需在SQL Server中建立四个表，分别为车辆信息，车位信息，工资信息和密码表。（1）洗车记录表的建立与基本数据：“洗车记录表”如图2.5，

5、SQL 语句如下：create table 洗车记录 (车牌号 char(10) PRIMARY KEY,车型 char（10) not null,洗车时间 char(10) not null,价格 char(10)not null,车位 smallint not null,) ;图2.5洗车记录表（2）车位信息表的建立与基本数据：“车位信息表”如图2.6，SQL 语句如下：create table 车位信息(车位 smallint primary key,洗车员1 char(10),洗车员2 char(10),洗车员3 char(10),);图2.6车位信息表（3） 工资信息表的建立与基本数

6、据：“工资信息表”如2.7，SQL 语句如下：create table 工资信息(洗车员char(10) primary key,工资 char(10),数量 char(10),大 char(10),中 char(10),小 char(10),）； 图2.7工资信息表（4）系统信息表的建立与基本数据：“密码表”如图2.8，SQL语句如下：Create table 密码表(账号 varchar(10），密码 varchar(10);图2.8密码表第3章 系统各功能模块的详细设计3.1各窗体的设计本洗车房管理系统共包括11个窗体，分别为欢迎界面，登录，注册新用户，车型信息查询，车位信息查询，工资信

7、息查询，车型信息修改，查询车牌号，MDI窗体。其中主窗体为MDI窗体。下面介绍各个窗体的设计语句及实现功能。3.2 封面封面，如图3.1，标题为“洗车房管理系统”，为此标题添加一个Timer，编辑代码使其可以定时变色。点击“点击进入系统”就可以关闭本窗体并打开登录窗体。封面代码如下：Private Sub Picture1_Click()Form2.ShowUnload MeEnd Sub图3.1欢迎界面3.3登录窗体单击封面，进入登录窗口，如图3.2，若正确则打开下面的主窗体，如图3.3。登录代码如下：Dim miCount As IntegerPrivate Sub CmdCancel_C

8、lick()Unload MeEnd SubPrivate Sub CmdLand_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = "Select * from 密码表 Where 账号='" & Text1 & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then MsgBox "账号错误,请重新输入 ", vbExclamation,

9、 "警告" Text1.Text = "": Text1.SetFocusElse If Adodc1.Recordset.Fields("密码") = Text2.Text Then MDIForm1.Show Unload Me Else MsgBox "密码错误，请重新输入 ", vbExclamation, "警告" Text2.Text = "": Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount

10、= 3 Then Unload MeEnd Sub图3.2登录图3.4 主菜单设计为MDI窗体如图3.3，含有主菜单：菜单（包括洗车记录）、文件（包括洗车员工作记录）。代码如下：Private Sub xichejilu_Click()Form4.ShowEnd SubPrivate Sub shouru_Click()Form6.ShowEnd SubPrivate Sub xicheyuan_Click()Form7.ShowEnd SubPrivate Sub zuijia_Click()Form9.ShowEnd Sub图3.3主菜单图3.5洗车记录窗体 洗车记录窗体用于查询洗车记录及

11、其基本信息。单击“录入”按钮，允许添加新的记录，当单击确定时，同时添加新记录，单击“删除”按钮，删除已经添加的信息 。同时包含工资信息，修改工作信息，车位表，查询车型信息。登记代码如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCMDOK.Enabled = TrueCMDESC.Enabled = TrueText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked

12、= FalseText5.Locked = FalseEnd SubPrivate Sub CmdDel_Click()x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivat

13、e Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst ' 记录指针移到首记录（显示首记录）CmdFirst.Enabled = False ' 让首记录按钮无效CmdPre.Enabled = False ' 让前移按钮无效CmdNext.Enabled = True ' 让后移按钮有效CmdLast.Enabled = True ' 让末记录按钮有效End SubPrivate Sub CmdLast_Click()Adodc1.Recordset.MoveLast ' 移到末记录 CmdFirst.

14、Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseEnd SubPrivate Sub CmdNext_Click()Adodc1.Recordset.MoveNext '记录指针移到下一条记录CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast '则记录指针移到末记录上 Cmd

15、Next.Enabled = False CmdLast.Enabled = False End IfEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePrevious '记录指针移到前一条记录CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then ' 如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst '则记录指针移到首记录上 CmdFirst.Enabled = False CmdPre.

16、Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCMDOK.Enabled = FalseCMDESC.Enabled = FalseEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCMDOK.Enabled = FalseCMDESC.Enabled = FalseEn

17、d SubPrivate Sub Command7_Click()Form14.ShowEnd SubPrivate Sub Command6_Click()Form10.ShowEnd SubPrivate Sub Command8_Click()Form12.ShowEnd SubPrivate Sub Command9_Click()Form13.ShowEnd Sub “洗车记录”界面用于进行对“洗车记录”浏览，添加，以及对其他信息的查询修改，如图3.4图3.4洗车记录浏览图 “修改工作信息”界面用于修改“工作信息”表内容，以便对洗车员工作记录进行及时更新，如图3.5图3.5修改工作信

18、息“工资信息”界面用于显示工资信息表的内容，以便查询洗车员工资信息，如图3.6图3.6工资信息图“车位表”界面用于显示车位信息，如图3.7图3.7车位表图 点击“查询车型信息”进入“车型查询界面”通过输入车牌号并点击“查询”查询车型信息，如图3.8,代码如下：Dim str As Stringstr = " Select * From 洗车记录"str = str & "WHERE Vnumber Like '" & Text1 & "%'"Adodc1.RecordSource = strAdodc1.RefreshEnd Sub图3.8车牌号查询界面 “洗车员工作记录”用于查询每位洗车员工作记录，如图3.9：图3.9洗车员工作记录查询表总结 通过这次数据库课程设计，我学会了如何利用Microsoft SQL Server2008软件建立相关信息的数据库，并通过Microsoft Visual Basic 6.0实现对相关信息的查询，将所学知识都运用到实践中去，增加了我对数据库的兴趣，让我能更清楚地了解到数据库在现实生活