洗衣店综合管理系统数据库设计.doc

课程设计汇报 课程： 数据库系统原理 学号： 姓名： 班级： 老师： 华东交通大学目录干洗店管理系统设计和实现- 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作为开发工具；服务器端则用于提供数据服务，采取SQL Server作为数据库管理系统。本系统根据功效划分为以下四个模块：用户管理（包含用户信息录入和用户信息查询）、衣物管理（包含衣物信息添加和衣物信息查询）、洗衣管理（包含洗衣信息录入和洗衣信息查询）和系统管理（包含密码修改和退出系统等）。系统功效模块图图1所表示：干洗店管理系统用户管理衣物管理洗衣管理系统管理图1 系统功效模块图4.2数据库设计4.2.1数据库概念结构设计本系统关键有用户和洗衣两个实体集，一个用户包含若干信息，两个实体集之间是多对多联络，联络上有收取费用。为确保系统安全性，设置了操作员这一实体集，用来存放正当用户编号、姓名、密码和权限。本系统E-R图图2所表示：n用户洗衣衣物衣物单价衣物颜色衣物品牌衣物名称衣物编号送衣时间取衣时间收取费用联络地址联络电话身份证号性别姓名用户编号m操作员操作员编号操作员姓名名密码权限图2 系统E-R图4.2.2数据库逻辑结构设计逻辑结构是独立于任何一个数据模型信息结构。逻辑结构任务是把概念结构设计阶段设计好基础E-R图转化为宜选择DBMS所支持数据模型相符合逻辑结构，并对其进行优化。E-R图向关系模型转化要处理问题是怎样将实体型和实体间联络转化为关系模式，怎样确定这些关系模式属性和码。设计干洗店数据库，包含用户、衣物、职员四个关系，其关系模式中对每个实体定义属性以下：用户（customer）:用户编号、姓名、性别、身份证号、联络电话、联络地址衣物（clothes）: 衣物编号、衣物名称、衣物颜色、衣物品牌、衣物单价洗衣（washing）：用户编号、衣物编号、衣物名称、衣物品牌、送衣时间、取衣时间、收取费用操作员（操作员编号,操作员姓名,密码,权限）1、用户表（customer）字段名字段类型字段长度字段限制注释cunovarchar20Primary key用户编号cunamevarchar40Not null姓名cusexchar4Not null性别idvarchar20Not null身份证号telvarchar20Not null联络电话addressvarchar100Not null联络地址2、衣物表（clothes）字段名字段类型字段长度字段限制注释clnovarchar40Primary key衣物编号clnamevarchar40 衣物名称brandvarchar40 衣物品牌colorvarchar20Not null衣物颜色pricemoney Not null衣物单价3、洗衣表（washing）字段名字段类型字段长度字段限制注释cunovarchar20Primary key用户编号clnovarchar40Primary key衣物编号sendtimedatetime Not null送衣时间taketimedatetime Not null取衣时间pricemoney Not null收取费用4、操作员（operator）字段名字段类型字段长度子段限制注释opeartornovarchar20Primary key操作员编号operatornamevarchar40Not null操作员姓名passwordvarchar6Not null密码permissionvarcharNot null权限五、系统实现结合PowerBuilder进行数据库应用开发特点，设计过程可按以下步骤进行：l 创建数据库及创建表；l 创建应用库及应用对象；l 创建菜单；l 创建数据窗口；l 创建窗口并在窗口中放置所需控件。5.1创建数据库及创建表在SQL 查询分析器中创建数据库XYD_DB，在数据库中创建用户表（customer），衣物表（clothes），洗衣表（washing），操作员（operator）。对应代码入下：1、创建数据库zqy：Create database zqy2、创建数据表用户基础情况数据表customer(cuno,cuname,cusex,id,tel,address)创建语句：create table customer (cuno varchar(20) primary key,cuname varchar(40) not null,cusex char(4) not null, id varchar(20) not null unique,tel varchar(20) not null, address varchar(100)not null)衣物基础情况数据表clothes(clno,clname,brand,color,price)创建语句：create table clothes(clno varchar(40) primary key(clno), clname varchar(40) , brand varchar(40), color varchar(20) not null, price moneynot null,)洗衣基础情况数据表washing(cuno,clno,sendtime,taketime,price)创建语句：create table washing(cuno varchar(20), clno varchar(40) , sendtime datetime not null, taketime datetime not null, price money not null, primary key(cuno,clno), foreign key(cuno) references customer(cuno), foreign key(clno) references clothes(clno)操作员数据表operator(opeartorno,opeatorname,password)创建语句：create table operator (operatorno varchar(20) primary key,operatorname varchar(40) not null,password varchar (6) not null,5.2 创建应用库及应用对象在VB中新建工程，命名为干洗店管理系统，对数据库操作设计一个可被各模块调用函数放入公共模块。在工程中添加公共模块，在工程引用中添加 【Microsofit ActiveX Data Objects 2.8 Library】。公共模块代码以下：Public Function ExecuteSQL(ByValSQL As String, Msgstring As String) As ADODB.RecordsetDim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnection As String Dim strArray() As String Set cn = New ADODB.Connection Set rs = New ADODB.Recordset On Error GoTo ErrHandler: strConnection = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1 strArray = Split(sql) cn.Open strConnection If StrComp(UCase$(strArray(0), select, vbTextCompare) = 0 Then rs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimistic Set ExeSQL = rs Else cn.Execute sql End IfExeSQL_Exit: Set rs = Nothing Set cn = Nothing Exit FunctionErrHandler: 显示错误信息 MsgBox 错误号: & Err.Number & 错误信息： & Err.Description, vbExclamation 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.3菜单设计1.在工程中添加【添加MDI窗口】2.打开此窗口属性设置3.在菜单编辑器中添加菜单，设置菜单层次菜单图：图 3 系统菜单窗口5.4创建数据窗口1.在工程中添加登录窗口，添加各控件并设置各控件属性。图 图4 登陆窗口确定键命令代码：Private Sub cmdOk_Click() Dim sql As String Dim rs As ADODB.Recordset Dim UserName As String Dim UserKey As Integer On Error GoTo ErrHandler: If Trim(UserName.Text = ) Then MsgBox 请输入用户名称！, vbExclamation UserName.SetFocus Else sql = select * from operator where opname = & UserName.Text & Set rs = ExeSQL(sql) If rs.EOF = True Then MsgBox 没有此用户，请重新输入用户名！, vbExclamation UserName.SetFocus Else If Trim(rs! Password) = Trim(UserKey.Text) Then Intopno = rs!opno rs.Close Me.Hide frmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入密码！, vbExclamation UserKey.SetFocus UserKey.Text = End If End If End If Exit SubErrHandler: MsgBox 错误号： & Err.Number & 错误描述： & Err.DescriptionEnd Sub衣物信息添加窗口图 5 衣物信息添加窗口保留键代码：Private Sub Command1_Click()Dim i As Integer Dim sql As String Dim monPrice As Currency If Trim(clno(i) = Then MsgBox 此项不许可为空！, vbExclamation txtProductInfo(i).SetFocus Exit Sub End If Next i If IsNumeric(txtProductInfo(0).Text) = False Then MsgBox 编号应为数字量！, vbExclamation txtProductInfo(0).SetFocus Exit Sub End If If IsNumeric(txtProductInfo(2).Text) = False Then MsgBox 应为数字量！, vbExclamation txtProductInfo(2).SetFocus Exit Sub Else monPrice = txtProductInfo(2).Text End If End If sql = insert Products(ProductID,ProductName,UnitPrice,Unit,Remark) & _ values( & txtProductInfo(0).Text & , & _ txtProductInfo(1).Text & , & monPrice & , sql = sql & cboUnit.Text & , & txtProductInfo(4).Text & ) ExeSQL (sql) sql = insert ProductIn values( & txtProductInfo(0).Text & , & _ txtProductInfo(3).Text & , & dtpInDate.Value & ) ExeSQL (sql) MsgBox 数据添加成功！, vbExclamation InitControlEnd Sub2.用用户信息查询窗口图图6 用户信息查询窗口查找用户信息窗口 查找键代码：Private Sub Command1_Click() Dim strQuery As String On Error GoTo ErrHandler: If Option1.Value = True Then If Trim(Text1.Text) = Then strQuery = select * from Customer Else strQuery = select * from Customer where cuno = & Text1 & End If End If If Option2.Value = True Then If Trim(Text2.Text) = Then strQuery = select * from Customser Else strQuery = select * from Customer where cuname like % & Text2.Text & % End If End IfErrHandler: MsgBox 错误号: & Err.Number & 错误信息： & Err.Description, vbExclamatioEnd Sub添加用户信息窗口，衣物信息查找窗口，洗衣信息添加窗口，洗衣信息查找窗口和管理员密码修改窗口分别以下：图7 添加用户窗口图8 衣物查找窗口图9洗衣添加窗口图10洗衣信息查找信息图11管理员密码修改窗口五、总结1、明确系统设计目标。第一次做这种课程设计，目标不明确，开始时，思绪混乱无从下手，关键是对应用程序做可视化窗口没接触过，从图书管借了相关VB书籍，边学边做，对代码意思不能够了解，没能将应用程序窗口功效和数据库数据连接。所以很失败！2.伴随干洗店业务不段发展，干洗店数据库管理系统是发展趋势，好数据库管理系统能大大提升工作效率，同时能确保数据安全性。不管是对于用户管理，还是对衣物或账务管理全部优于手工操作和管理。