1、化妆品销售管理系统化妆品销售管理系统课程名称:空间数据库基础专 业:地理信息系统班 级:0624111设 计 组:第七小组设 计 者:潘晓洋 秦建雨 刘钲 任高鹏指导教师:苗东利、毛政利设计时刻:2021年12月河南城建学院测绘与都市空间信息系一、课题及任务1.课题简介依照化妆品店的实际需求,开发的一个运行良好,治理方便的,便于销售,便于查询的治理系统。2.任务分派刘钲: 建立资料表,积分表,天销售记录表,月销售记录表,年销售记录表,登陆表单,欢迎表单,用户注销表单;秦建雨:信息查询表单,信息修改表单,信息增加表单,信息删除表单任高鹏:积分注册,查询,增加,注销潘晓洋:建立数据库,销售系统销售
2、表单,记录的删除天记录,月记录,年记录报表:天销售报表,月销售报表,年销售报表,关于表单,菜单与表单的挂载,主程序,连编,调试,界面美化。二、系统需求分析调查1.系统需求分析现在进展迅速的信息时代,古老的纸质文档治理机制已不能专门好的满足各大商家日常的治理与销售,一种有条理、简洁的治理系统迫切被需求。2.系统功能简介本系统具有差不多的查询,增加,删除修改信息的功能,便利易操作。在此基础之上,还增加了积分功能,使得来本店购买化妆品的每一个顾客都有一个记录,通过积分来促进销售,达到盈利倍增的目的。本系统支持多用户,可设置多个用户进行相同的治理。销售界面上具有储存记录的功能,能够通过相对应的菜单进行
3、删除,使得治理更加人性化。通过本系统能够清晰地直观的看到各个数据的相关信息,使得扫瞄速度更加快捷,使用起来更加方便三、系统设计1.系统总体设计2.系统详细设计系统治理模块:登录密码的修改,新治理员的密码账号的创建,治理员信息的注销,退出系统;数据更新爱护模块:化妆品信息的差不多查询,信息的修改,化妆品的删除,化妆品的增加;积分模块:积分用户的注册,积分的查询,积分值的添加,积分用户的注销;销售模块:1.销售3.数据库设计四、系统实施1.数据资源月销售记录积分表资料表密码天销售记录年销售记录2.主程序设计 主程序:SET TALK OFFCLEAR ALLclose allclear all_S
4、CREEN.VISIBLE=.F.set sysmenu offset defa to sys(5)+sys(2003)+do FORM 欢迎界面.scxread eventsRETURN QUIT3.要紧工作窗口1.欢迎界面FormInitPUBLIC i as Integer i=1timetimeri=i+1IF i=9 THEN thisform.Visible= .F.RELEASE thisformDO FORM 登录.scxENDIF2.登陆表单 数据环境:密码.dbfForm1 Init PUBLIC count as Integer count=1Combo1.rowsour
5、cetype=6Combo1.rowsource=密码.姓名Oleboundcontrol1控件:Recordsource=密码.头像command1 click:count=count+1loca for ALLTRIM(密码.姓名)=alltrim(thisformxbo1.value)IF thisform.text2.Value=MESSAGEbox(输入不能为空!)elseif found()and ALLTRIM(密码.密码)=alltrim(thisform.text2.value)DO FORM 主窗体.scxrelease thisformelseif count3 then
6、=messagebox(输入有误!,48,警告)elsemessagebox(对不起您是非法用户,系统将自动退出!,48,警告)quitendifendifendifcommand2click:quit3、主界面 数据环境:资料.dbf 积分表.dbfForm1 init: WITH thisform.grid1.ColumnCount=8 .Column1.Header1.Caption=编号 .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(255,255,190) .Column2.Hea
7、der1.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
8、=产地 .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 endwithdo 菜单1.mpr with this , .T.thisform.text1.SetFocusOlecontrol1init: this.Nodes.ClearThis.
9、LineStyle= 1 & tvwRootLines this.labelEdit= 1 & tvwManualThis.Style= 7 & tvwTreelinesPlusMinusPictureText This.ImageList=Thisform.Imagelist1 &与Imagelist控件建立关联this.labelEdit= 1 & tvwManualthis.Nodes.Add (,表,表,2)this.Nodes.Add (表,4,资料表,资料表,2)this.Nodes.Add (表,4,积分表,积分表,2)this.Nodes.Add (表,4,天销售记录,天销售记
10、录,2)this.Nodes.Add (表,4,月销售记录,月销售记录,2)this.Nodes.Add (表,4,年销售记录,年销售记录,2)this.Refresh nodeclick: * ActiveX 控件事件 *LPARAMETERS nodeDO CASE CASE this.selectedItem.Text=表WITH thisform.grid1.ColumnCount=8 .Column1.Header1.Caption=编号 .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RG
11、B(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,19
12、0) .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 endwiththis.Tag=CASE this.selectedItem.Text=积分表WITH thisform.grid1.
13、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
14、=select * from 积分表 into cursor tempCASE this.selectedItem.Text=天销售记录WITH thisform.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.H
15、eader1.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.Capti
16、on=生产日期 .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption=保质期 .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag =sele * from 天销售记录 into cursor tempCASE this.selectedItem.Text=月销售记录WITH thisform.grid1.ColumnCount=8 .Column1.Header1.Caption=编号 .Column1.Header1.B
17、ackColor=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.Heade
18、r1.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 endwiththis.
19、Tag =sele * from 月销售记录 into cursor tempCASE this.selectedItem.Text=年销售记录WITH thisform.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) .Colum
20、n3.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.C
21、aption=生产日期 .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption=保质期 .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag =sele * from 年销售记录 into cursor tempCASE this.selectedItem.Text=资料表WITH thisform.grid1.ColumnCount=8 .Column1.Header1.Caption=编号 .Column1.Header1
22、.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.Hea
23、der1.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 endwiththi
24、s.Tag =sele * from 资料 into cursor tempENDCASEthisform.grid1.RecordSource=this.Tagthisform.Refreshgrid1:recordsource=资料 recordsourcetype=4text1 interactivechange:WITH thisform.grid1.ColumnCount=8 .Column1.Header1.Caption=编号 .Column1.Header1.BackColor=RGB(255,255,190) .Column2.Header1.BackColor=RGB(25
25、5,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) .
26、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 endwiththisform.grid1.RecordSource =SELECT * FROM 资料 WHERE 品名 like ALLT
27、RIM(thisform.text1 .value) +% INTO CURSOR tempthisform.grid1.refreshcommand2:click: WITH thisform.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
28、,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) .Colum
29、n7.Header1.Caption=生产日期 .Column8.Header1.BackColor=RGB(255,255,190) .Column8.Header1.Caption=保质期 .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththisform.grid1.recordsource=SELECT * FROM 资料 INTO CURSOR temp thisform.grid1.refreshcommand3:click:a=messagebox(是否接入网络?,4+32+0,温馨提示)if a=6ThisForm.HyperLink1.NavigateTo(xxbaidux/)endif4.用户注册 数据环境:密码.dbfCommand1click:a=alltrim(thisform.text1.value)b=alltrim(thisform.text2.value)if a=.or.b=messagebox(输入不能为空!,48,温馨提示)elseappend blankreplace 姓名 with areplace 密码 with bmessagebox(注册成功!)endifcommand2
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1