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

课程设计报告课程：数据库系统原理学号:姓名:班级：教师：华东交通大学目录干洗店管理系统设计与实现-0-一、绪论-0-二、需求解析-0-2.1信息要求-0-2.2办理要求-0-2.3安全性和完满性要求-1-三、系统解析-1-四、系统设计-1-4。1功能模块设计-1-4。2数据库设计-2-五、系统实现-4-5。1创办数据库及创办表-5-5.2创办应用库及应用对象-6-5。3菜单设计-7-5.4创办数据窗口-8-五、总结-14-干洗店管理系统设计与实现一、绪论本系统是针对小型干洗店的基本管理而设计的。随着计算机技术的迅速发展，各种软件的不断革故鼎新，作为一种用计算机作为工具来进行各种工作的工作形式，不论是对我们传统的工作、生活，还是对我们感情的表达都带来了极其深远的意义和影响.随着人们生活水平与花销品位的提高，我们生活中间出现了各种各样的衣服来装扮我们，为了对那些高品位的衣物的冲刷以及那些因学习繁忙而没有时间进行衣物冲刷的同学供应方便的冲刷条件,个个高校都有很多小型的个人经营的干洗店,每个小型干洗店都有很多的衣物及财务的数据需要管理，手工管理这些纷繁复杂数据的方式已经不适应时代的潮流，实现数据规范化的电脑管理，是一个管理规范、运作高效的个人单位的必然要求。所以我们设计了校园干洗店管理系统，来基本解决各个干洗店的要求。若是用传统的方法进行管理，既简单出错，透明度也不高，简单使花销者心理产生阴影，造成不良的影响。本系统是针对一般小型干洗店出现的问题进行设计的，解决了干洗店平常的衣物与财务的管理。当前洗衣业管理情况要满足迅速增加的洗衣量，是远远不够的，因为当前干洗店采用手工或半手工办理洗衣店业务流程,多用人工方式在前台接送衣物，洗衣管理，员工管理,营业额统计等，别的除了接送货物外,还有很多业务面上用户,客户查察衣物情况等,以上这些干洗店内部业务若是用计算机来进行管理，能大大节约大型干洗店工作人员和管理人的时间，提高工作效率。二、需求解析进行数据库设计第一必定正确认识与解析用户需求（包括数据与办理），需求解析是整个设计过程的基础.2.1信息要求随着人弟子活水平与花销品位的提高,我弟子活中间出现了各种各样的衣服来装扮,为了对那些特别高品位的衣物的和那些工作繁忙没有时间做家务人们的衣物能够方便的冲刷,个个街道都有很多小型的个人经营的干洗店,每个小型干洗店都有很多的衣物及财务的数据需要管理,所以我们设计了干洗店数据库管理系统,来基本解决各个干洗店的要求?2.2办理要求能够进行数据库的数据定义、数据控制、数据控制等办理功能,进行联机处-0-理的相应时间要短。2.3安全性和完满性要求关于干洗店来说，数据的安全性最为重要。要保护数据库以防范不合法的使用所造成的数据泄漏、更正和破坏，同时要保证数据的正确性和相容性，防范不合语义的数据进入数据库。三、系统解析干洗店信息管理工作是干洗店管理工作的重要组成部分，现在相当一部分干洗店信息管理工作仍沿用手工方式。随着社会发展、在干洗店洗衣服的人数增加，效率低下、简单出错的手工方式越来越不适应实质管理工作的需要,依照软件工程原理和数据库技术开发干洗店信息管理系统已成为干洗店的迫切需要。干洗店信息管理系统主要包括以下功能：1．完成数据的录入和更正,并提交数据库保存。其中的数据包括：客户信息、衣物信息、洗衣时间信息以及操作员信息等；2．实现信息盘问。主要包括:客户信息、衣物信息盘问和洗衣盘问等；3．具备必然的安全性管理功能。包括操作员的权限设置、密码设置和更正密码等功能。四、系统设计4.1功能模块设计本系统采用C/S系统结构，客户端负责供应表达逻辑、显示用户界面信息、接见数据库服务器，采用VB作为开发工具；服务器端则用于供应数据服务，采用SQLServer2000作为数据库管理系统.本系统依照功能划分为以下四个模块：客户管理(包括客户信息录入和客户信息盘问)、衣物管理（包括衣物信息增加和衣物信息盘问）、洗衣管理（包括洗衣信息录入和洗衣信息盘问）和系统管理（包括密码更正和退出系统等）.系统的功能模块图如图1所示：-1-干洗店管理系统客户管理衣物管理洗衣管理系统管理图1系统的功能模块图4。2数据库设计4.2.1数据库看法结构设计本系统主要有客户和洗衣两个实体集,一个客户包括若干信息，，两个实体集之间是多对多联系,联系上有收取花销.为保证系统的安全性,设置了操作员这一实体集，用来存放合法用户的编号、姓名、密码和权限。本系统的E—R图如图2所示:-2-衣物单价衣物颜色衣物品牌衣物名称衣物编号衣物m

收取花销洗衣取衣时间送衣时间n顾客顾客编号联系地址联系电话身份证号性别姓名操作员操作员编号操作员姓名密码权限名图2系统的E-R图数据库逻辑结构设计逻辑结构是独立于任何一种数据模型的信息结构。逻辑结构的任务是把看法结构设计阶段设计好的基本E-R图转变成宜采用的DBMS所支持的数据模型相吻合的逻辑结构,并对其进行优化。E—R图向关系模型转变要解决的问题是如何将实体型和实体间的联系转变-3-为关系模式,如何确定这些关系模式的属性和码.设计干洗店数据库，包括顾客、衣物、员工四个关系，其关系模式中对每个实体定义的属性以下:顾客（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）字段名字段种类字段长度子段限制说明opeartornovarchar20Primarykey操作员编号operatornamevarchar40Notnull操作员姓名passwordvarchar6Notnull密码permissionvarcharNotnull权限五、系统实现结合PowerBuilder进行数据库应用开发的特点，设计过程可按以下步骤进行：创办数据库及创办表；-4-创办应用库及应用对象;创办菜单；创办数据窗口;创办窗口并在窗口中放置所需控件.5。1创办数据库及创办表在SQL2000盘问解析器中创办数据库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，pricemoneynotnull，）洗衣基本情况数据表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）-5-)操作员数据表operator（opeartorno,opeatorname,password）的创办语句：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:-6-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.在菜单编写器中增加菜单，设置菜单层次菜单如图：-7-图3系统菜单窗口5。4创办数据窗口1.在工程中增加登录窗口，增加各控件并设置各控件属性.如图图4登陆窗口确定键命令代码：PrivateSubcmdOk_Click（）DimsqlAsStringDimrsAsADODB。RecordsetDimUserNameAsStringDimUserKeyAsIntegerOnErrorGoToErrHandler：IfTrim（UserName。Text="")ThenMsgBox”请输入用户名称！”,vbExclamationUserName.SetFocusElsesql="select*fromoperatorwhereopname='”&UserName。Text＆”'"-8-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）=”"Then-9-MsgBox"此项不一样意为空！"，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.用客户信息盘问窗口如图-10-图6客户信息盘问窗口查找客户信息窗口查找键代码：PrivateSubCommand1_Click()DimstrQu