洗衣店管理系统大数据库设计

1、课程设计报告课程:数据库系统原理心口 子»:姓名: 班级: 教师:华东交通大学目录干洗店管理系统设计与实现 -1 -一、绪论-1 -二、需求分析-1 -2.1 信息要求-1 -2.2 处理要求-1 -2.3 安全性和完整性要求 -2 -三、系统分析 -2 -四、系统设计-2 -4.1 功能模块设计-2 -4.2 数据库设计 -3 -五、系统实现 -5 -5.1 创建数据库及创建表 -6 -5.2 创建应用库及应用对象 -7 -5.3 菜单设计-8 -5.4 创建数据窗口 - 9 -五、总结-15 -干洗店管理系统设计与实现、绪论本系统是针对小型干洗店的基本管理而设计的。随着计算机技术

2、的迅速发 展，各种软件的不断推陈出新，作为一种用计算机作为工具来进行各种工作的工 作形式，不论是对我们传统的工作、生活，还是对我们情感的表达都带来了极其 深远的意义和影响。随着人们生活水平与消费档次的提高，我们生活当中出现了形形色色的衣 服来装扮我们，为了对那些高档次的衣物的清洗以及那些因学习繁忙而没有时间 进行衣物清洗的同学提供方便的清洗条件，个个高校都有很多小型的个人经营的 干洗店，每个小型干洗店都有很多的衣物及财务的数据需要管理，手工管理这些纷繁复杂数据的方式已经不适应时代的潮流， 实现数据规范化的电脑管理，是一 个管理规范、运作高效的个人单位的必然要求。所以我们设计了校园干洗店管理 系

3、统，来基本解决各个干洗店的要求。如果用传统的方法进行管理，既容易出错, 透明度也不高，容易使消费者心理产生阴影，造成不良的影响。本系统是针对一 般小型干洗店出现的问题进行设计的，解决了干洗店日常的衣物与财务的管理。目前洗衣业管理状况要满足快速增长的洗衣量，是远远不够的，因为当前 干洗店采用手工或半手工处理洗衣店业务流程，多用人工方式在前台接送衣物， 洗衣管理，员工管理，营业额统计等，另外除了接送货物外，还有不少业务面上 用户，客户查看衣物状况等，以上这些干洗店内部业务如果用计算机来进行管理， 能大大节约大型干洗店工作人员和管理人的时间，提高工作效率。、需求分析进行数据库设计首先必须准确了解与分

4、析用户需求（包括数据与处理），需求分析是整个设计过程的基础。2.1 信息要求随着人门生活水平与消费档次的提高，我门生活当中出现了形形色色的衣服 来装扮，为了对那些非常高档次的衣物的和那些工作繁忙没有时间做家务人们的 衣物能够方便的清洗，个个街道都有很多小型的个人经营的干洗店，每个小型干洗店都有很多的衣物及财务的数据需要管理，所以我们设计了干洗店数据库管理 系统，来基本解决各个干洗店的要求？2.2 处理要求能够进行数据库的数据定义、数据操纵、数据控制等处理功能，进行联机处 理的相应时间要短。2.3 安全性和完整性要求对于干洗店来说，数据的安全性最为重要。要保护数据库以防止不合法的使 用所造成的数

5、据泄漏、更改和破坏，同时要保证数据的正确性和相容性，防止不 合语义的数据进入数据库。三、系统分析干洗店信息管理工作是干洗店管理工作的重要组成部分，现在相当一部分干洗店信息管理工作仍沿用手工方式。 随着社会发展、在干洗店洗衣服的人数增加， 效率低下、容易出错 的手工方式越来越不适应实际管理工作的需要，按照软件工程原理和数据库技术开发干洗店信息管理系统已成为干洗店的迫切需要。干洗店信息管理系统主要包括以下功能：1 .完成数据的录入和修改，并提交数据库保存。其中的数据包括：客户信息、衣物信 息、洗衣时间信息以及操作员信息等；2 .实现信息查询。主要包括：客户信息、衣物信息查询和洗衣查询等；3 .具备

6、一定的安全性管理功能。包括操作员的权限设置、密码设置和修改密码等功能。四、系统设计4.1 功能模块设计本系统采用C/S体系结构，客户端负责提供表达逻辑、 显示用户界面信息、 访问数据库服务 器,采用VB作为开发工具；服务器端则用于提供数据服务，采用 SQLServer2000作为数据 库管理系统。本系统按照功能划分为以下四个模块：客户管理（包括客户信息录入和客户信息查询）、衣物 管理（包括衣物信息添加和衣物信息查询）、洗衣管理（包括洗衣信息录入和洗衣信息查询）和系 统管理（包括密码修改和退出系统等）。系统的功能模块图如图1所示：图1系统的功能模块图4.2 数据库设计4.2.1 数据库概念结构设

7、计本系统主要有客户和洗衣两个实体集，一个客户包含若干信息，两个实体集之间是多对多联系，联系上有收取费用。为保证系统的安全性，设置了操作员这一实体集，用来存放合法用户的编号、姓名、密码和权限。本系统的E-R图如图2所示：4.2.2 数据库逻辑结构设计逻辑结构是独立于任何一种数据模型的信息结构。 逻辑结构的任务是把概念 结构设计阶段设计好的基本E-R图转化为宜选用的DBMST支持的数据模型相符 合的逻辑结构，并对其进行优化。E-R图向关系模型转化要解决的问题是如何将实体型和实体间的联系转化为关系模式，如何确定这些关系模式的属性和码。设计干洗店数据库，包括顾客、衣物、员工四个关系，具关系模式中对每个

8、 实体定义的属性如下：顾客（customer）:顾客编号、姓名、性别、身份证号、联系电话、联系地衣物（clothes ）:衣物编号、衣物名称、衣物颜色、衣物品牌、衣物单价洗衣（washing）：顾客编号、衣物编号、衣物名称、衣物品牌、送衣时间、 取衣时间、收取费用操作员（操作员编号,操作员姓名，密码,权限） 1、顾客表（customer）字段名1字段类型字段长度字段限制注释cunovarchar20Primary key顾客编号cunamevarchar40Not null姓名cusexchar4Not null性别idvarchar20Not null身份证号telvarchar20Not

9、null联系电话addressvarchar100Not null联系地址2、衣物表（clothes ）字段名字段类型字段长度字段限制注释clnovarchar40Primary key衣物编号clnamevarchar40衣物名称brandvarchar40衣物品牌colorvarchar20Not null衣物颜色pricemoneyNot null衣物单价3、洗衣表（washing）字段名字段类型字段长度字段限制注释cunovarchar20Primary key顾客编号clnovarchar40Primary key衣物编号sendtimedatetimeNot null送衣时间tak

10、etimedatetimeNot null取衣时间pricemoneyNot null收取费用4、操作员（operator ）字段名字段类型字段长度子段限制注释opeartornovarchar20Primary key操作员编号operatornamevarchar40Not null操作员姓名passwordvarchar6Not null密码permissionvarcha rNot null权限五、系统实现结合PowerBuilder进行数据库应用开发的特点，设计过程可按如下步骤进行: 创建数据库及创建表；创建应用库及应用对象；创建菜单；创建数据窗口 ；创建窗口并在窗口中放置所需控件。

11、5.1 创建数据库及创建表在SQL 2000查询分析器中创建数据库XYD_DB ,在数据库中创建顾客表(customer),衣物表(clothes ),洗衣表(washing),操作员(operator )。对应代码入下：1、创建数据库zqy:Create database zqy2、创建数据表顾客基本情况数据表customer(cuno,cuname,cusex,id,tel,address) 的仓建语句：createtablecustomer(cuno varchar (20)primary key ,cuname varchar (40)not null,cusex char (4)no

12、t null,idteladdressvarchar( 20)notnulluniquevarchar(20)notnull,varchar ( 100 )not null)衣物基本情况数据表clothes(clno,clname,brand,color,price) 的仓建语句：create tableclothes (clno varchar ( 40) primary key ( clno clname varchar (40), brand varchar (40),color varchar ( 20)not null,pricemoneynot null,) 洗衣基本情况数据表),

13、washing(cuno,clno,sendtime,taketime,price) createtablewashing(cunovarchar( 20),clnovarchar(40),sendtimedatetimenot null,taketimedatetimenot null,pricemoneynot null,primary key ( cuno , clno ),的创建语句foreignkey ( cuno ) referencescustomer(cuno ),foreignkey ( clno ) referencesclothes(clno )操作员数据表operato

14、r (opeartorno,opeatorname,password )的创建语句:primary key not null, not null,create table operator (operatorno varchar ( 20)operatorname varchar ( 40) password varchar ( 6)5.2 创建应用库及应用对象在VB中新建工程，命名为干洗店管理系统，对数据库的操作设计一个可被各模块调用的函数放入公共模块。在工程中添加公共模块，在工程引用中添加【Microsofit ActiveX DataObjects 2.8 Library 】。公共模块代

15、码如下：Public Function ExecuteSQL(ByValSQL As String, Msgstring As String) As ADODB.RecordsetDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As StringDim strArray() As StringSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetOn Error GoTo ErrHandler:strConnection = "Prov

16、ider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1"strArray = Split(sql)cn.Open strConnectionIf StrComp(UCase$(strArray(0), "select", vbTextCompare) = 0 Thenrs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimisticSet ExeSQL = r

17、sElsecn.Execute sqlEnd IfExeSQL_Exit:Set rs = NothingSet cn = NothingExit FunctionErrHandler:显示错误信息MsgBox "错误号："& Err.Number & "错误信息："& Err.Description, vbExclamationResume ExeSQl_ExitEnd FunctionPublic Sub changeformXYD_DB(frmain As MDIForm, frm As Form)Dim Top As In

18、tegerTop = (frmMain.ScaleHeight - frm.Height) / 2 - 600If Top > 0 Thenfrm.Top = TopElsefrm.Top = 0End Iffrm.Left = (frmMain.ScaleWidth - frm.Width) / 2End SubSub Main()frmLogin.ShowEnd Sub5.3 菜单设计1 .在工程中添加【添加MDI窗口】2 .打开此窗口属性设置3 .在菜单编辑器中添加菜单，设置菜单层次菜单如图：图3系统菜单窗口5.4 创建数据窗口1 .在工程中添加登录窗口，添加各控件并设置各控件属性

19、。如图图4登陆窗口确定键命令代码：Private Sub cmdOk_Click()Dim sql As StringDim rs As ADODB.RecordsetDim UserName As StringDim UserKey As IntegerOn Error GoTo ErrHandler:If Trim(UserName.Text = "") ThenMsgBox ”请输入用户名称！", vbExclamationUserName.SetFocusElsesql = "select * from operator where opname

20、 = '" & UserName.Text & ""'Set rs = ExeSQL(sql)If rs.EOF = True ThenMsgBox "没有此用户，请重新输入用户名！ ", vbExclamation UserName.SetFocusElseIf Trim(rs! Password) = Trim(UserKey.Text) ThenIntopno = rs!opnors.CloseMe.HidefrmMain.ShowUnload MeElseMsgBox "密码不正确，请重新输入密

21、码！", vbExclamationUserKey.SetFocusUserKey.Text =""End IfEnd IfEnd IfExit SubErrHandler:MsgBox "错误号："& Err.Number & "错误描述："& Err.DescriptionEnd Sub衣物信息添加窗口图5衣物信息添加窗口保存键代码：Private Sub Command1_Click()Dim i As IntegerDim sql As StringDim monPrice As Curren

22、cyIf Trim(clno(i) = "" ThenMsgBox "此项不允许为空！", vbExclamationtxtProductInfo(i).SetFocus Exit Sub End If Next iIf IsNumeric(txtProductInfo(0).Text) = False ThenMsgBox "编号应为数字量！", vbExclamationtxtProductInfo(0).SetFocus Exit SubEnd IfIf IsNumeric(txtProductInfo(2).Text) = F

23、alse ThenMsgBox "应为数字量！", vbExclamationtxtProductInfo(2).SetFocus Exit SubElsemonPrice = txtProductInfo(2).TextEnd IfEnd Ifsql = "insert Products(ProductID,ProductName,UnitPrice,Unit,Remark) " & _ "values(" & txtProductInfo(0).Text & ",'" &

24、 _ txtProductInfo(1).Text & "'," & monPrice & ",'"sql = sql & cboUnit.Text & "','" & txtProductInfo(4).Text & "')" ExeSQL (sql)sql = "insert ProductIn values(" & txtProductInfo(0).Text & ",

25、" & _ txtProductInfo(3).Text & ",'" & dtpInDate.Value & "')"ExeSQL (sql)MsgBox "数据添加成功!", vbExclamationInitControlEnd Sub2 .用客户信息查询窗口如图图6客户信息查询窗口查找客户信息窗口查找键代码：Private Sub Command1_Click()Dim strQuery As StringOn Error GoTo ErrHandler:If Option1.Value = True ThenIf Trim(Text1.Text) = "" Th