洗衣店管理系统数据库设计Word文件下载.docx
- 文档编号:5621376
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:20
- 大小:241.70KB
洗衣店管理系统数据库设计Word文件下载.docx
《洗衣店管理系统数据库设计Word文件下载.docx》由会员分享,可在线阅读,更多相关《洗衣店管理系统数据库设计Word文件下载.docx(20页珍藏版)》请在冰点文库上搜索。
对于干洗店来说,数据的安全性最为重要。
要保护数据库以防止不合法的使用所造成的数据泄漏、更改和破坏,同时要保证数据的正确性和相容性,防止不合语义的数据进入数据库。
三、系统分析
干洗店信息管理工作是干洗店管理工作的重要组成部分,现在相当一部分干洗店信息管理工作仍沿用手工方式。
随着社会发展、在干洗店洗衣服的人数增加,效率低下、容易出错的手工方式越来越不适应实际管理工作的需要,按照软件工程原理和数据库技术开发干洗店信息管理系统已成为干洗店的迫切需要。
干洗店信息管理系统主要包括以下功能:
1.完成数据的录入和修改,并提交数据库保存。
其中的数据包括:
客户信息、衣物信息、洗衣时间信息以及操作员信息等;
2.实现信息查询。
主要包括:
客户信息、衣物信息查询和洗衣查询等;
3.具备一定的安全性管理功能。
包括操作员的权限设置、密码设置和修改密码等功能。
四、系统设计
4.1功能模块设计
本系统采用C/S体系结构,客户端负责提供表达逻辑、显示用户界面信息、访问数据库服务器,采用VB作为开发工具;
服务器端则用于提供数据服务,采用SQL Server2000作为数据库管理系统。
本系统按照功能划分为以下四个模块:
客户管理(包括客户信息录入和客户信息查询)、衣物管理(包括衣物信息添加和衣物信息查询)、洗衣管理(包括洗衣信息录入和洗衣信息查询)和系统管理(包括密码修改和退出系统等)。
系统的功能模块图如图1所示:
图1 系统的功能模块图
4.2数据库设计
4.2.1数据库概念结构设计
本系统主要有客户和洗衣两个实体集,一个客户包含若干信息,,两个实体集之间是多对多联系,联系上有收取费用。
为保证系统的安全性,设置了操作员这一实体集,用来存放合法用户的编号、姓名、密码和权限。
本系统的E-R图如图2所示:
图2 系统的E-R图
4.2.2数据库逻辑结构设计
逻辑结构是独立于任何一种数据模型的信息结构。
逻辑结构的任务是把概念结构设计阶段设计好的基本E-R图转化为宜选用的DBMS所支持的数据模型相符合的逻辑结构,并对其进行优化。
E-R图向关系模型转化要解决的问题是如何将实体型和实体间的联系转化为关系模式,如何确定这些关系模式的属性和码。
设计干洗店数据库,包括顾客、衣物、员工四个关系,其关系模式中对每个实体定义的属性如下:
顾客(customer):
顾客编号、姓名、性别、身份证号、联系电话、联系地址
衣物(clothes):
衣物编号、衣物名称、衣物颜色、衣物品牌、衣物单价
洗衣(washing):
顾客编号、衣物编号、衣物名称、衣物品牌、送衣时间、取衣时间、收取费用
操作员(操作员编号,操作员姓名,密码,权限)
1、顾客表(customer)
字段名
字段类型
字段长度
字段限制
注释
cuno
varchar
20
Primarykey
顾客编号
cuname
varchar
40
Notnull
姓名
cusex
char
4
Notnull
性别
id
varchar
20
Notnull
身份证号
tel
varchar
20
联系电话
address
100
Not null
联系地址
2、衣物表(clothes)
clno
varchar
Primarykey
衣物编号
clname
varchar
40
衣物名称
brand
varchar
衣物品牌
color
varchar
Notnull
衣物颜色
price
money
Notnull
衣物单价
3、洗衣表(washing)
cuno
varchar
Primary key
clno
varchar
40
Primarykey
sendtime
datetime
Notnull
送衣时间
taketime
datetime
Notnull
取衣时间
money
Notnull
收取费用
4、操作员(operator)
子段限制
opeartorno
Primarykey
操作员编号
operatorname
varchar
40
Not null
操作员姓名
password
6
Notnull
密码
permission
权限
五、系统实现
结合PowerBuilder进行数据库应用开发的特点,设计过程可按如下步骤进行:
●
创建数据库及创建表;
创建应用库及应用对象;
创建菜单;
创建数据窗口;
创建窗口并在窗口中放置所需控件。
5.1创建数据库及创建表
在SQL 2000 查询分析器中创建数据库XYD_DB,在数据库中创建顾客表(customer),衣物表(clothes),洗衣表(washing),操作员(operator)。
对应代码入下:
1、创建数据库zqy:
Createdatabase zqy
2、创建数据表
顾客基本情况数据表
customer(cuno,cuname,cusex,id,tel,address)的创建语句:
createtablecustomer (
cunovarchar(20)ﻩprimary key,
ﻩﻩcunamevarchar(40)notnull,
ﻩﻩcusex char(4) notnull,
idvarchar(20) notnullunique,
ﻩﻩtel varchar(20) notnull,
address varchar(100)notnull
)
衣物基本情况数据表
clothes(clno,clname,brand,color,price)的创建语句:
create table clothes(
ﻩﻩclno varchar(40)primarykey(clno),
ﻩclnamevarchar(40),
ﻩbrand varchar(40),
ﻩcolor varchar(20) notnull,
pricemoneyﻩnot null,
洗衣基本情况数据表
washing(cuno,clno,sendtime,taketime,price)的创建语句:
createtable washing(
cuno varchar(20),
clnovarchar(40) ,
sendtime datetime notnull,
taketime datetime notnull,
pricemoney notnull,
primary key(cuno,clno),
foreignkey(cuno)referencescustomer(cuno),
foreign key(clno)references clothes(clno)
操作员数据表
operator(opeartorno,opeatorname,password)的创建语句:
createtableoperator(
ﻩﻩoperatornovarchar(20)ﻩprimary key,
ﻩﻩoperatornamevarchar(40) not null,
ﻩﻩpassword varchar (6) notnull,
5.2创建应用库及应用对象
在VB中新建工程,命名为干洗店管理系统,对数据库的操作设计一个可被各模块调用的函数放入公共模块。
在工程中添加公共模块,在工程引用中添加【MicrosofitActiveXData Objects2.8Library】。
公共模块代码如下:
PublicFunctionExecuteSQL(ByValSQLAsString,MsgstringAsString) AsADODB.Recordset
Dim cnAsADODB.Connection
Dim rsAsADODB.Recordset
Dim strConnection AsString
DimstrArray()As String
Set cn =New ADODB.Connection
Setrs=NewADODB.Recordset
OnErrorGoTo ErrHandler:
strConnection ="
Provider=SQLOLEDB.1;
Integrated Security=SSPI;
PersistSecurityInfo=False;
InitialCatalog=pos;
DataSource=127.0.0.1"
strArray=Split(sql)
cn.OpenstrConnection
IfStrComp(UCase$(strArray(0)),"select", vbTextCompare)=0 Then
rs.OpenTrim$(sql), cn, adOpenKeyset, adLockOptimistic
SetExeSQL =rs
Else
cn.Execute sql
EndIf
ExeSQL_Exit:
Setrs =Nothing
Setcn=Nothing
ExitFunction
ErrHandler:
'
显示错误信息
MsgBox"
错误号:
"&
Err.Number&
" 错误信息:
"
&
Err.Description, vbExclamation
Resume ExeSQl_Exit
EndFunction
Public SubchangeformXYD_DB(frmainAs MDIForm,frmAs Form)
Dim TopAsInteger
Top=(frmMain.ScaleHeight - frm.Height)/2-600
IfTop>0 Then
frm.Top=Top
Else
frm.Top=0
End If
frm.Left=(frmMain.ScaleWidth-frm.Width)/2
EndSub
Sub Main()
frmLogin.Show
EndSub
5.3菜单设计
1.在工程中添加【添加MDI窗口】
2.打开此窗口属性设置
3.在菜单编辑器中添加菜单,设置菜单层次
菜单如图:
图 3 系统菜单窗口
5.4创建数据窗口
1.在工程中添加登录窗口,添加各控件并设置各控件属性。
如图
图4登陆窗口
确定键命令代码:
PrivateSubcmdOk_Click()
DimsqlAs String
Dim rsAsADODB.Recordset
DimUserNameAsString
DimUserKeyAsInteger
OnErrorGoToErrHandler:
IfTrim(UserName.Text="
)Then
MsgBox"
请输入用户名称!
vbExclamation
UserName.SetFocus
Else
sql="select*fromoperator whereopname='
&UserName.Text&
"'"
Set rs=ExeSQL(sql)
Ifrs.EOF =TrueThen
MsgBox "
没有此用户,请重新输入用户名!
vbExclamation
UserName.SetFocus
Else
If Trim(rs!
Password)=Trim(UserKey.Text) Then
Intopno=rs!
opno
rs.Close
Me.Hide
frmMain.Show
UnloadMe
Else
MsgBox "密码不正确,请重新输入密码!
vbExclamation
UserKey.SetFocus
UserKey.Text = ""
End If
EndIf
EndIf
ExitSub
ErrHandler:
MsgBox "
错误号:
& Err.Number&
"
错误描述:
" &
Err.Description
衣物信息添加窗口
图 5衣物信息添加窗口
保存键代码:
PrivateSubCommand1_Click()
DimiAsInteger
Dimsql As String
DimmonPrice AsCurrency
IfTrim(clno(i)="
Then
MsgBox"
此项不允许为空!
vbExclamation
txtProductInfo(i).SetFocus
ExitSub
EndIf
Nexti
IfIsNumeric(txtProductInfo(0).Text) =FalseThen
MsgBox"
编号应为数字量!
, vbExclamation
txtProductInfo(0).SetFocus
ExitSub
EndIf
IfIsNumeric(txtProductInfo
(2).Text)= FalseThen
MsgBox"
应为数字量!
",vbExclamation
txtProductInfo
(2).SetFocus
ExitSub
Else
monPrice=txtProductInfo
(2).Text
EndIf
EndIf
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
EndSub
2.用客户信息查询窗口如图
图6客户信息查询窗口
查找客户信息窗口 查找键代码:
PrivateSubCommand1_Click()
Dim strQuery AsString
OnError GoToErrHandler:
If Option1.Value=True Then
IfTrim(Text1.Text)="
Then
strQuery="
select* fromCustomer"
Else
strQuery="select* from Customerwherecuno='
&Text1 & "
EndIf
End If
IfOption2.Value=TrueThen
IfTrim(Text2.Text)=""Then
strQuery="
select* from Customser"
Else
strQuery= "
select *fromCustomerwherecunamelike'
%"
&Text2.Text&
%'
EndIf
EndIf
ErrHandler:
MsgBox"
Err.Number&
错误信息:
Err.Description,vbExclamatio
EndSub
添加用户信息窗口,衣物信息查找窗口,洗衣信息添加窗口,洗衣信息查找窗口和管理员密码修改窗口分别如下:
图7 添加客户窗口
图8衣物查找窗口
图9洗衣添加窗口
图10洗衣信息查找信息
图11管理员密码修改窗口
五、总结
1、明确系统设计的目的。
第一次做这种课程设计,目的不明确,开始时,思路混乱无从下手,主要是对应用程序做可视化窗口没接触过,从图书管借了关于VB的书籍,边学边做,对代码的意思不能够理解,没能将应用程序窗口的功能与数据库数据连接。
所以很失败!
2.随着干洗店业务的不段发展,干洗店数据库管理系统是发展趋势,好的数据库管理系统能大大提高工作效率,同时能保证数据的安全性。
不论是对于客户的管理,还是对衣物或账务管理都优于手工的操作和管理。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 洗衣店 管理 系统 数据库 设计