洗衣店管理系统数据库设计资料.docx

1、洗衣店管理系统数据库设计资料课程设计报告课程：数据库系统原理学号： 姓名： 班级： 教师： 华东交通大学干洗店管理系统设计与实现 -1 -一、 绪论 -1 -二、 需求分析 -1 -2.1信息要求 -1 -2.2处理要求 -1 -2.3安全性和完整性要求 -2 -三、 系统分析 -2 -四、 系统设计 -2 -4.1功能模块设计 -2 -4.2数据库设计 -4 -五、 系统实现 -6 -5.1创建数据库及创建表 -7 -5.2创建应用库及应用对象 -8 -5.3菜单设计 -9 -5.4创建数据窗口 - 10 -五、总结 -16 -干洗店管理系统设计与实现一、绪论本系统是针对小型干洗店的基本管理

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

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

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

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

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

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

8、为关系模式，如何确定这些关系模式的属性和码。设计干洗店数据库，包括顾客、衣物、员工四个关系，其关系模式中对每个 实体定义的属性如下：顾客（customer）:顾客编号、姓名、性别、身份证号、联系电话、联系地 址衣物（clothes）:衣物编号、衣物名称、衣物颜色、衣物品牌、衣物单价 洗衣（wash in g）:顾客编号、衣物编号、衣物名称、衣物品牌、送衣时间、 取衣时间、收取费用操作员（操作员编号,操作员姓名,密码,权限）1、顾客表（customer）字段名 1字段类型字段长度字段限制注释cunovarchar20Primary key顾客编号cun amevarchar40Not null姓

9、名cusexchar4Not null性别idvarchar20Not null身份证号telvarchar20Not null联系电话addressvarchar100Not null联系地址2、衣物表（clothes）字段名字段类型字段长度字段限制注释clnovarchar40Primary key衣物编号cln amevarchar40衣物名称brandvarchar40衣物品牌colorvarchar20Not null衣物颜色pricemoneyNot null衣物单价3、洗衣表（washing）字段名字段类型字段长度字段限制注释cunovarchar20Primary key顾客编

10、号clnovarchar40Primary key衣物编号sen dtimedatetimeNot null送衣时间taketimedatetimeNot null取衣时间pricemoneyNot null收取费用4、操作员（operator字段名字段类型字段长度子段限制注释opeartor novarchar20Primary key操作员编号operator namevarchar40Not null操作员姓名passwordvarchar6Not null密码permissi onvarcha 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) 的创建语句：crea

12、te table customer ()衣物基本情况数据表clothes(clno,clname,brand,color,price)的创建语句create tableclothes(clnovarchar( 40) primarykey ( clno ),clnamevarchar( 40) ,brandvarchar( 40) ,colorvarchar( 20) notnull,pricemoneynot null,)洗衣基本情况数据表的创建语句 ：washing(cuno,clno,sendtime,taketime,price)createtablewashing(cunovarch

13、ar( 20),clnovarchar( 40)sendtimedatetimenot null,taketimedatetimenotnull,pricemoneynot null,primarykey ( cuno, clno ),foreignkey ( cuno) referencescustomer( cuno ),foreignkey ( clno) referencesclothes( clno )操作员数据表 operator (opeartorno,opeatorname,password )的创建语句： create table operator (operatorno v

14、archar ( 20) primary key5.2 创建应用库及应用对象在 VB 中新建工程， 命名为干洗店管理系统， 对数据库的操作设计一个可被各模块调用 的函数放入公共模块。 在工程中添加公共模块， 在工程引用中添加 【 Microsofit ActiveX Data Objects 2.8 Library 】。公共模块代码如下：Public Function ExecuteSQL(ByValSQL As String, Msgstring As String) As ADODB.RecordsetDim cn As ADODB.ConnectionDim rs As ADODB.Re

15、cordsetDim strConnection As StringDim strArray() As StringSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetOn Error GoTo ErrHandler:strConnection = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1strArray = Split(sql)cn.Open s

16、trConnectionIf StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 Thenrs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimisticSet ExeSQL = rsElsecn.Execute sqlEnd IfExeSQL_Exit:Set rs = NothingSet cn = NothingExit FunctionErrHandler: 显示错误信息MsgBox 错误号 : & Err.Number & 错误信息： & Err.Description, vbExc

17、lamation Resume ExeSQl_ExitEnd FunctionPublic Sub changeformXYD_DB(frmain As MDIForm, frm As Form)Dim Top As IntegerTop = (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.

18、3 菜单设计1.在工程中添加【添加 MDI 窗口】2.打开此窗口属性设置3.在菜单编辑器中添加菜单，设置菜单层次菜单如图：图3系统菜单窗口1在工程中添加登录窗口，添加各控件并设置各控件属性。如图5.4创建数据窗口图4登陆窗口 确定键命令代码：Private Sub cmdOk_Click()Dim sql As StringDim rs As ADODB.RecordsetDim UserName As Stri ngDim UserKey As In tegerOn Error GoTo ErrHa ndler:If Trim(UserName.Text = ) The nMsgBox 请输

19、入用户名称！ , vbExclamationUserName.SetFocusElseKillsql = select * from operator where opn ame = & UserName.Text &Set rs = ExeSQL(sql)If rs.EOF = True The nMsgBox 没有此用户，请重新输入用户名！ , vbExclamationUserName.SetFocusElseIf Trim(rs! Password) = Trim(UserKey.Text) The nIn top no = rs!op nors.CloseMe.HidefrmMa i

20、n .ShowUn load MeElseMsgBox 密码不正确，请重新输入密码！ , vbExclamationUserKey.SetFocusUserKey.Text =End IfEnd IfEnd IfExit SubErrHa ndler:MsgBox 错误号：” & Err.Number & ” 错误描述：” & Err.DescriptionEnd Sub衣物信息添加窗口图5衣物信息添加窗口保存键代码：Private Sub Comma nd1_Click()Dim i As In tegerDim sql As Stri ngDim mon Price As Currency

21、If Trim(cl no(i) = ThenMsgBox 此项不允许为空！ , vbExclamation txtProductInfo(i).SetFocusExit SubEnd IfNext iIf IsNumeric(txtProductInfo(0).Text) = False ThenMsgBox 编号应为数字量！ , vbExclamation txtProductInfo(0).SetFocusExit SubEnd IfIf IsNumeric(txtProductInfo(2).Text) = False ThenMsgBox 应为数字量！ , vbExclamation

22、 txtProductInfo(2).SetFocus Exit SubElsemonPrice = txtProductInfo(2).TextEnd IfEnd Ifsql = insert Products(ProductID,ProductName,UnitPrice,Unit,Remark) & _ values( & txtProductInfo(0).Text & , & _ txtProductInfo(1).Text & , & monPrice & ,sql = sql & cboUnit.Text & , & txtProductInfo(4).Text & )ExeSQ

23、L (sql)sql = insert ProductIn values( & txtProductInfo(0).Text & , & _ txtProductInfo(3).Text & , & dtpInDate.Value & )ExeSQL (sql)MsgBox 数据添加成功！ , vbExclamationInitControlEnd Sub2.用客户信息查询窗口如图图6客户信息查询窗口查找客户信息窗口 查找键代码：Private Sub Comma nd1_Click()Dim strQuery As Stri ngOn Error GoTo ErrHa ndler:If Op

24、tio n1.Value = True The nIf Trim(Text1.Text) = The nstrQuery = select * from CustomerElsestrQuery = select * from Customer where cuno = & Textl & End IfEnd IfIf Optio n2.Value = True The nIf Trim(Text2.Text) = The nstrQuery = select * from CustomserElsestrQuery = select * from Customer where cuname

25、like % & Text2.Text & % End IfEnd IfErrHa ndler:MsgBox 错误号:& Err.Number & 错误信息：& Err.Description, vbExclamatioEnd Sub添加用户信息窗口， 衣物信息查找窗口， 洗衣信息添加窗口， 洗衣信息查找窗口和管理员密码修改窗口分别如下：图7添加客户窗口图8衣物查找窗口图9洗衣添加窗口图10洗衣信息查找信息图11管理员密码修改窗口五、总结1、明确系统设计的目的。第一次做这种课程设计，目的不明确，开始时，思路 混乱无从下手，主要是对应用程序做可视化窗口没接触过，从图书管借了关于 VB 的书籍，边学边做，对代码的意思不能够理解，没能将应用程序窗口的功能 与数据库数据连接。所以很失败！