化妆品销售管理系统.docx
《化妆品销售管理系统.docx》由会员分享，可在线阅读，更多相关《化妆品销售管理系统.docx（39页珍藏版）》请在冰豆网上搜索。
化妆品销售管理系统
化妆品销售管理系统
课程名称：
空间数据库基础
专业：
地理信息系统
班级：
0624111
设计组：
第七小组
设计者：
潘晓洋秦建雨刘钲任高鹏
指导教师：
苗东利、毛政利
设计时刻：
2021年12月
河南城建学院
测绘与都市空间信息系
一、课题及任务
1.课题简介
依照化妆品店的实际需求，开发的一个运行良好，治理方便的，便于销售，便于查询的治理系统。
2.任务分派
刘钲：
建立资料表，积分表，天销售记录表，月销售记录表，年销售记录表，登陆表单，欢迎表单，用户注销表单；
秦建雨：
信息查询表单，信息修改表单，信息增加表单，信息删除表单
任高鹏：
积分〔注册，查询，增加，注销〕
潘晓洋：
建立数据库，销售系统〔销售表单，记录的删除〔天记录，月记录，年记录〕〕报表：
天销售报表，月销售报表，年销售报表，关于表单，菜单与表单的挂载，主程序，连编，调试，界面美化。
二、系统需求分析调查
1.系统需求分析
现在进展迅速的信息时代，古老的纸质文档治理机制已不能专门好的满足各大商家日常的治理与销售，一种有条理、简洁的治理系统迫切被需求。
2.系统功能简介
本系统具有差不多的查询，增加，删除修改信息的功能，便利易操作。
在此基础之上，还增加了积分功能，使得来本店购买化妆品的每一个顾客都有一个记录，通过积分来促进销售，达到盈利倍增的目的。
本系统支持多用户，可设置多个用户进行相同的治理。
销售界面上具有储存记录的功能，能够通过相对应的菜单进行删除，使得治理更加人性化。
通过本系统能够清晰地直观的看到各个数据的相关信息，使得扫瞄速度更加快捷，使用起来更加方便
三、系统设计
1.系统总体设计
2.系统详细设计
系统治理模块：
登录密码的修改，新治理员的密码账号的创建，治理员信息的注销，退出系统；
数据更新爱护模块：
化妆品信息的差不多查询，信息的修改，化妆品的删除，化妆品的增加；
积分模块：
积分用户的注册，积分的查询，积分值的添加，积分用户的注销；
销售模块：
1.销售
3.数据库设计
四、系统实施
1.数据资源
月销售记录
积分表
资料表
密码
天销售记录
年销售记录
2.主程序设计
主程序：
SETTALKOFF
CLEARALL
closeall
clearall
_SCREEN.VISIBLE=.F.
setsysmenuoff
setdefatosys（5）+sys（2003）+'\'
doFORM欢迎界面.scx
readevents
RETURN
QUIT
3.要紧工作窗口
1.欢迎界面
Form———Init
PUBLICiasInteger
i=1
time———timer
i=i+1
IFi=9THEN
thisform.Visible=.F.
RELEASEthisform
DOFORM登录.scx
ENDIF
2.登陆表单
数据环境：
密码.dbf
Form1——————Init
PUBLICcountasInteger
count=1
Combo1.rowsourcetype=6
Combo1.rowsource=密码.姓名
Oleboundcontrol1控件：
Recordsource=密码.头像
command1—————click:
count=count+1
locaforALLTRIM（密码.姓名）==alltrim（thisformxbo1.value）
IFthisform.text2.Value==""
MESSAGEbox（"输入不能为空！
"）
else
iffound（）andALLTRIM（密码.密码）==alltrim（thisform.text2.value）
DOFORM主窗体.scx
releasethisform
else
ifcount<3then
=messagebox（"输入有误！
",48,"警告"）
else
messagebox（"对不起您是非法用户，系统将自动退出！
",48,"警告"）
quit
endif
endif
endif
command2——————click:
quit
3、主界面
数据环境：
资料.dbf积分表.dbf
Form1———————init:
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
do菜单1.mprwiththis,.T.
thisform.text1.SetFocus
Olecontrol1——————init:
this.Nodes.Clear
This.LineStyle=1&&tvwRootLines
this.labelEdit=1&&tvwManual
This.Style=7&&tvwTreelinesPlusMinusPictureText
This.ImageList=Thisform.Imagelist1&&与Imagelist控件建立关联
this.labelEdit=1&&tvwManual
this.Nodes.Add（,,"表","表",2）
this.Nodes.Add（"表",4,"资料表","资料表",2）
this.Nodes.Add（"表",4,"积分表","积分表",2）
this.Nodes.Add（"表",4,"天销售记录","天销售记录",2）
this.Nodes.Add（"表",4,"月销售记录","月销售记录",2）
this.Nodes.Add（"表",4,"年销售记录","年销售记录",2）
this.Refresh
nodeclick:
***ActiveX控件事件***
LPARAMETERSnode
DOCASE
CASEthis.selectedItem.Text="表"
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
this.Tag=""
CASEthis.selectedItem.Text="积分表"
WITHthisform.grid1
.ColumnCount=3
.Column1.Header1.Caption="姓名"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="学号"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="积分"
Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
this.Tag="select*from积分表intocursortemp"
CASEthis.selectedItem.Text="天销售记录"
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
this.Tag="sele*from天销售记录intocursortemp"
CASEthis.selectedItem.Text="月销售记录"
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
this.Tag="sele*from月销售记录intocursortemp"
CASEthis.selectedItem.Text="年销售记录"
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
this.Tag="sele*from年销售记录intocursortemp"
CASEthis.selectedItem.Text="资料表"
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
this.Tag="sele*from资料intocursortemp"
ENDCASE
thisform.grid1.RecordSource=this.Tag
thisform.Refresh
grid1：
recordsource=资料
recordsourcetype=4
text1————————interactivechange:
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
thisform.grid1.RecordSource="SELECT*FROM资料WHERE品名likeALLTRIM（thisform.text1.value）+'%'INTOCURSORtemp"
thisform.grid1.refresh
command2:
click:
WITHthisform.grid1
.ColumnCount=8
.Column1.Header1.Caption="编号"
.Column1.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.BackColor=RGB（255,255,190）
.Column2.Header1.Caption="品名"
.Column3.Header1.BackColor=RGB（255,255,190）
.Column3.Header1.Caption="价格"
.Column4.Header1.BackColor=RGB（255,255,190）
.Column4.Header1.Caption="规格"
.Column5.Header1.BackColor=RGB（255,255,190）
.Column5.Header1.Caption="数量"
.Column6.Header1.BackColor=RGB（255,255,190）
.Column6.Header1.Caption="产地"
.Column7.Header1.BackColor=RGB（255,255,190）
.Column7.Header1.Caption="生产日期"
.Column8.Header1.BackColor=RGB（255,255,190）
.Column8.Header1.Caption="保质期"
.Column1.width=50
.Column2.width=160
.Column3.width=50
endwith
thisform.grid1.recordsource="SELECT*FROM资料INTOCURSORtemp"
thisform.grid1.refresh
command3:
click:
a=messagebox（"是否接入网络？
",4+32+0,"温馨提示"）
ifa=6
ThisForm.HyperLink1.NavigateTo（"xxbaidux/"）
endif
4.用户注册
数据环境：
密码.dbf
Command1—————————click:
a=alltrim（thisform.text1.value）
b=alltrim（thisform.text2.value）
ifa=="".or.b==""
messagebox（"输入不能为空！
",48,"温馨提示"）
else
appendblank
replace姓名witha
replace密码withb
messagebox（"注册成功！
"）
endif
command2—————
升级会员 