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

PAGE1-课程设计报告课程：数据库系统原理学号：姓名：班级：教师：华东交通大学目录干洗店管理系统设计与实现 -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-干洗店管理系统干洗店管理系统客户管理衣物管理洗衣管理系统管理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创建数据库及创建表在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, 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客户信息查询窗口查找客户信息窗口查找键代码：PrivateSubCommand1_Click()DimstrQueryAsStringOnErrorGoToErrHandler:IfOption1.Value=TrueThenIf