洗衣店管理系统数据库设计样本.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）
字段名
字段类型
字段长度
字段限制
注释
cuno
varchar
20
Primary key
顾客编号
cuname
varchar
40
Not null
姓名
cusex
char
4
Not null
性别
id
varchar
20
Not null
身份证号
tel
varchar
20
Not null
联系电话
address
varchar
100
Not null
联系地址
2、衣物表（clothes）
字段名
字段类型
字段长度
字段限制
注释
clno
varchar
40
Primary key
衣物编号
clname
varchar
40

衣物名称
brand
varchar
40

衣物品牌
color
varchar
20
Not null
衣物颜色
price
money

Not null
衣物单价
3、洗衣表（washing）
字段名
字段类型
字段长度
字段限制
注释
cuno
varchar
20
Primary key
顾客编号
clno
varchar
40
Primary key
衣物编号
sendtime
datetime

Not null
送衣时间
taketime
datetime

Not null
取衣时间
price
money

Not null
收取费用
4、操作员（operator）
字段名
字段类型
字段长度
子段限制
注释
opeartorno
varchar
20
Primary key
操作员编号
operatorname
varchar
40
Not null
操作员姓名
password
varchar
6
Not null
密码
permission
varchar

Not null
权限

五、系统实现
结合PowerBuilder进行数据库应用开发特点，设计过程可按如下环节进行：
l         创立数据库及创立表；

l         创立应用库及应用对象；
l         创立菜单；
l         创立数据窗口；
l         创立窗口并在窗口中放置所需控件。
5.1创立数据库及创立表
在SQL 查询分析器中创立数据库XYD_DB，在数据库中创立顾客表（customer），衣物表（clothes），洗衣表（washing），操作员（operator）。
相应代码入下：
1、创立数据库zqy：
Create database zqy
2、创立数据表
顾客基本状况数据表
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 money not 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.Recordset
Dim 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 If
ExeSQL_Exit:
Set rs = Nothing
Set cn = Nothing
Exit Function
ErrHandler:
' 显示错误信息
MsgBox "错误号:" & Err.Number & " 错误信息：" & Err.Description，vbExclamation
Resume ExeSQl_Exit
End Function
Public Sub changeformXYD_DB(frmain As MDIForm，frm As Form)
Dim Top As Integer
Top = (frmMain.ScaleHeight - frm.Height) / 2 - 600
If Top > 0 Then
frm.Top = Top
Else
frm.Top = 0
End If
frm.Left = (frmMain.ScaleWidth - frm.Width) / 2
End Sub
Sub Main()
frmLogin.Show
End Sub
5.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 Sub
ErrHandler:
MsgBox "错误号：" & Err.Number & "错误描述：" & Err.Description
End 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
InitControl
End Sub
2.用客户信息查询窗口如图

图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 If
ErrHandler:
MsgBox "错误号:" & Err.Number & " 错误信息：" & Err.Description，vbExclamatio
End Sub
添加顾客信息窗口，衣物信息查找窗口，洗衣信息添加窗口，洗衣信息查找窗口和管理员密码修改窗口分别如下：

图7 添加客户窗口

图8 衣物查找窗口

图9洗衣添加窗口

图10洗衣信息查找信息

图11管理员密码修改窗口
五、总结
1、明确系统设计目。第一次做这种课程设计，目不明确，开始时，思路混乱无从下手，重要是相应用程序做可视化窗口没接触过，从图书管借了关于VB书籍，边学边做，对代码意思不可以理解，没能将应用程序窗口功能与数据库数据连接。因此很失败！
2.随着干洗店业务不段发展，干洗店数据库管理系统是发展趋势，好数据库管理系统能大大提高工作效率，同步能保证数据安全性。无论是对于客户管理，还是对衣物或账务管理都优于手工操作和管理。