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

课程设计报告课程：数据库系统原理学号：姓名：班级：教师：华东交通大学目录干洗店管理系统设计与实现 -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.1信息规定随着人门生活水平与消费档次的提高,我门生活当中出现了形形色色的衣服来装扮,为了对那些非常高档次的衣物的和那些工作繁忙没有时间做家务人们的衣物可以方便的清洗,个个街道都有很多小型的个人经营的干洗店,每个小型干洗店都有很多的衣物及财务的数据需要管理,所以我们设计了干洗店数据库管理系统,来基本解决各个干洗店的规定｡2.2解决规定可以进行数据库的数据定义、数据操纵、数据控制等解决功能,进行联机解决的相应时间要短。2.3安全性和完整性规定对于干洗店来说，数据的安全性最为重要。要保护数据库以防止不合法的使用所导致的数据泄漏、更改和破坏，同时要保证数据的对的性和相容性，防止不合语义的数据进入数据库。三、系统分析干洗店信息管理工作是干洗店管理工作的重要组成部分，现在相称一部分干洗店信息管理工作仍沿用手工方式。随着社会发展、在干洗店洗衣服的人数增长，效率低下、容易犯错的手工方式越来越不适应实际管理工作的需要，按照软件工程原理和数据库技术开发干洗店信息管理系统已成为干洗店的迫切需要。干洗店信息管理系统重要涉及以下功能：1．完毕数据的录入和修改，并提交数据库保存。其中的数据涉及：客户信息、衣物信息、洗衣时间信息以及操作员信息等；2．实现信息查询。重要涉及：客户信息、衣物信息查询和洗衣查询等；3．具有一定的安全性管理功能。涉及操作员的权限设立、密码设立和修改密码等功能。四、系统设计4.1功能模块设计本系统采用C/S体系结构，客户端负责提供表达逻辑、显示用户界面信息、访问数据库服务器，采用VB作为开发工具；服务器端则用于提供数据服务，采用SQLServer2023作为数据库管理系统。干洗店管理系统干洗店管理系统客户管理衣物管理洗衣管理系统管理4.2数据库设计4.2.1数据库概念结构设计本系统重要有客户和洗衣两个实体集，一个客户包含若干信息，，两个实体集之间是多对多联系，联系上有收取费用。为保证系统的安全性，设立了操作员这一实体集，用来存放合法用户的编号、姓名、密码和权限。本系统的E-R图如图2所示：nn顾客洗衣衣物衣物单价衣物颜色衣物品牌衣物名称衣物编号送衣时间取衣时间收取费用联系地址联系电话身份证号性别姓名顾客编号m操作员操作员操作员编号操作员姓名名密码权限 图2系统的E-R图4.2.2数据库逻辑结构设计 逻辑结构是独立于任何一种数据模型的信息结构。逻辑结构的任务是把概念结构设计阶段设计好的基本E-R图转化为宜选用的DBMS所支持的数据模型相符合的逻辑结构，并对其进行优化。E-R图向关系模型转化要解决的问题是如何将实体型和实体间的联系转化为关系模式，如何拟定这些关系模式的属性和码。设计干洗店数据库，涉及顾客、衣物、员工四个关系，其关系模式中对每个实体定义的属性如下：顾客（customer）:顾客编号、姓名、性别、身份证号、联系电话、联系地址衣物（clothes）:衣物编号、衣物名称、衣物颜色、衣物品牌、衣物单价洗衣（washing）：顾客编号、衣物编号、衣物名称、衣物品牌、送衣时间、取衣时间、收取费用1、顾客表（customer）字段名字段类型字段长度字段限制注释cunovarchar20Primarykey顾客编号cunamevarchar40Notnull姓名cusexchar4Notnull性别idvarchar20Notnull身份证号telvarchar20Notnull联系电话addressvarchar100Notnull联系地址2、衣物表（clothes）字段名字段类型字段长度字段限制注释clnovarchar40Primarykey衣物编号clnamevarchar40衣物名称brandvarchar40衣物品牌colorvarchar20Notnull衣物颜色pricemoneyNotnull衣物单价3、洗衣表（washing）字段名字段类型字段长度字段限制注释cunovarchar20Primarykey顾客编号clnovarchar40Primarykey衣物编号sendtimedatetimeNotnull送衣时间taketimedatetimeNotnull取衣时间pricemoneyNotnull收取费用4、操作员（operator）字段名字段类型字段长度子段限制注释Primarykey操作员编号Notnull操作员姓名6Notnull密码permissionrNotnull权限五、系统实现结合PowerBuilder进行数据库应用开发的特点，设计过程可按如下环节进行：

创建数据库及创建表；

创建应用库及应用对象；

创建菜单；

创建数据窗口；

创建窗口并在窗口中放置所需控件。5.1创建数据库及创建表在SQL2023查询分析器中创建数据库XYD_DB，在数据库中创建顾客表（customer），衣物表（clothes），洗衣表（washing），操作员（operator）。相应代码入下：1、创建数据库zqy：Createdatabasezqy2、创建数据表顾客基本情况数据表customer(cuno,cuname,cusex,id,tel,address)的创建语句：createtablecustomer( cunovarchar(20) primarykey, cunamevarchar(40)notnull, cusexchar(4) notnull,idvarchar(20)notnullunique, telvarchar(20)notnull, addressvarchar(100) notnull)衣物基本情况数据表clothes(clno,clname,brand,color,price)的创建语句：createtableclothes( clnovarchar(40)primarykey(clno), clnamevarchar(40), brandvarchar(40) , colorvarchar(20)notnull, pricemoney notnull,)洗衣基本情况数据表washing(cuno,clno,sendtime,taketime,price)的创建语句：createtablewashing( cunovarchar(20), clnovarchar(40),sendtimedatetimenotnull,taketimedatetimenotnull,pricemoneynotnull,primarykey(cuno,clno),foreignkey(cuno)referencescustomer(cuno),foreignkey(clno)referencesclothes(clno))操作员数据表operator()的创建语句：createtableoperator( operatornovarchar(20) primarykey, operatornamevarchar(40)notnull, passwordvarchar(6) notnull,5.2创建应用库及应用对象在VB中新建工程，命名为干洗店管理系统，对数据库的操作设计一个可被各模块调用的函数放入公共模块。在工程中添加公共模块，在工程引用中添加【MicrosofitActiveXDataObjects2.8Library】。公共模块代码如下：PublicFunctionExecuteSQL(ByValSQLAsString,MsgstringAsString)AsADODB.RecordsetDimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcn=NewADODB.ConnectionSetrs=NewADODB.RecordsetOnErrorGoToErrHandler:strConnection="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=pos;DataSource=127.0.0.1"strArray=Split(sql)cn.OpenstrConnectionIfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Thenrs.OpenTrim$(sql),cn,adOpenKeyset,adLockOptimisticSetExeSQL=rsElsecn.ExecutesqlEndIfExeSQL_Exit:Setrs=NothingSetcn=NothingExitFunctionErrHandler:'显示错误信息MsgBox"错误号:"&Err.Number&"错误信息："&Err.Description,vbExclamationResumeExeSQl_ExitEndFunctionPublicSubchangeformXYD_DB(frmainAsMDIForm,frmAsForm)DimTopAsIntegerTop=(frmMain.ScaleHeight-frm.Height)/2-600IfTop>0Thenfrm.Top=TopElsefrm.Top=0EndIffrm.Left=(frmMain.ScaleWidth-frm.Width)/2EndSubSubMain()frmLogin.ShowEndSub5.3菜单设计1.在工程中添加【添加MDI窗口】2.打开此窗口属性设立3.在菜单编辑器中添加菜单，设立菜单层次菜单如图：图3系统菜单窗口5.4创建数据窗口1.在工程中添加登录窗口，添加各控件并设立各控件属性。如图图4登陆窗口拟定键命令代码：PrivateSubcmdOk_Click()DimsqlAsStringDimrsAsADODB.RecordsetDimUserNameAsStringDimUserKeyAsIntegerOnErrorGoToErrHandler:IfTrim(UserName.Text="")ThenMsgBox"请输入用户名称！",vbExclamationUserName.SetFocusElsesql="select*fromoperatorwhereopname='"&UserName.Text&"'"Setrs=ExeSQL(sql)Ifrs.EOF=TrueThenMsgBox"没有此用户，请重新输入用户名！",vbExclamationUserName.SetFocusElseIfTrim(rs!Password)=Trim(UserKey.Text)ThenIntopno=rs!opnors.CloseMe.HidefrmMain.ShowUnloadMeElseMsgBox"密码不对的，请重新输入密码！",vbExclamationUserKey.SetFocusUserKey.Text=""EndIfEndIfEndIfExitSubErrHandler:MsgBox"错误号："&Err.Number&"错误描述："&Err.DescriptionEndSub衣物信息添加窗口图5衣物信息添加窗口保存键代码：PrivateSubCommand1_Click()DimiAsIntegerDimsqlAsStringDimmonPriceAsCurrencyIfTrim(clno(i)=""ThenMsgBox"此项不允许为空！",vbExclamationtxtProductInfo(i).SetFocusExitSubEndIfNextiIfIsNumeric(txtProductInfo(0).Text)=FalseThenMsgBox"编号应为数字量！",vbExclamationtxtProductInfo(0).SetFocusExitSubEndIfIfIsNumeric(txtProductInfo(2).Text)=FalseThenMsgBox"应为数字量！",vbExclamationtxtProductInfo(2).SetFocusExitSubElsemonPrice=txtProductInfo(2).TextEndIfEndIfsql="insertProducts(ProductID,ProductName,UnitPrice,Unit,Remark)"&_"values("&txtProductInfo(0).Text&",'"&_txtProductInfo(1).Text&"',"&monPrice&",'"sql=sql&cboUnit.Text&"','"&txtProductInfo(4).Text&"')"ExeSQL(sql)sql="insertProductInvalues("&txtProductInfo(0).Text&","&_txtProductInfo(3).Text&",'"&dtpInDate.Value&"')"ExeSQL(sql)MsgBox"数据添加成功！",vbExclamationInitControlEndSub2.用客户信息查询窗口如图图6客户信息查询窗口查找客户信息窗口查找键代码：PrivateSubCommand