化妆品销售管理系统

1、化装品销售管理系统课程名称：空间数据库根底专 业：地理信息系统班 级：0624111设 计 组：第七小组设 计 者：潘晓洋 秦建雨 刘钲 任高鹏指导教师：苗东利、毛政利设计时间：2022年12月河南城建学院测绘与城市空间信息系最新 精品 Word 欢送下载 可修改Visualfoxpro课程设计一、课题及任务- 2 -1.课题简介- 2 -2.任务分派- 2 -二、系统需求分析调查- 3 -1.系统需求分析- 3 -2.系统功能简介- 3 -三、系统设计- 4 -1.系统总体设计- 4 -2.系统详细设计- 4 -3.数据库设计- 4 -四、系统实施- 5 -1.数据资源- 5 -月销售记录-

2、 5 -积分表- 5 -资料表- 5 -密码- 6 -天销售记录- 6 -年销售记录- 6 -2.主程序设计- 7 -3.主要工作窗口- 7 -1.欢送界面- 7 -2.登陆表单- 8 -3、主界面- 9 -4.用户注册- 17 -5.修改密码表单- 17 -6.用户注销- 一八 -7.信息查询表单- 19 -8.查询结果浏览表单- 20 -9.根本信息修改表单- 21 -10删除表单- 23 -11、商品增添表单- 24 -12、会员注册表单- 25 -一三.积分查询表单- 26 -14.积分表单- 27 -一五.积分用户注销- 29 -16.销售表单- 29 -17、关于表单- 31 -4

3、.菜单设计- 32 -五、设计体会- 33 -六、参考文献- 34 -一、课题及任务1. 课题简介根据化装品店的实际需求，开发的一个运行良好，管理方便的，便于销售，便于查询的管理系统。2. 任务分派刘钲： 建立资料表，积分表，天销售记录表，月销售记录表，年销售记录表，登陆表单，欢送表单，用户注销表单；秦建雨：信息查询表单，信息修改表单，信息增添表单，信息删除表单任高鹏：积分注册，查询，增添，注销潘晓洋：建立数据库，销售系统销售表单，记录的删除天记录，月记录，年记录报表：天销售报表，月销售报表，年销售报表，关于表单，菜单与表单的挂载，主程序，连编，调试，界面美化。二、系统需求分析调查1.系统需求

4、分析现在开展迅速的信息时代，古老的纸质文档管理机制已不能很好的满足各大商家日常的管理与销售，一种有条理、简洁的管理系统迫切被需求。2.系统功能简介本系统具有根本的查询，增添，删除修改信息的功能，便捷易操作。在此根底之上，还增添了积分功能，使得来本店购置化装品的每一个顾客都有一个记录，通过积分来促进销售，到达盈利倍增的目的。本系统支持多用户，可设置多个用户进行相同的管理。销售界面上具有保存记录的功能，可以通过相对应的菜单进行删除，使得管理更加人性化。通过本系统可以清晰地直观的看到各个数据的相关信息，使得浏览速度更加快捷，使用起来更加方便三、系统设计1.系统总体设计2.系统详细设计系统管理模块：登

5、录密码的修改，新管理员的密码账号的创立，管理员信息的注销，退出系统；数据更新维护模块：化装品信息的根本查询，信息的修改，化装品的删除，化装品的增添；积分模块：积分用户的注册，积分的查询，积分值的添加，积分用户的注销；销售模块：1.销售3.数据库设计四、系统实施1.数据资源月销售记录积分表资料表密码天销售记录年销售记录2.主程序设计 主程序：SET TALK OFFCLEAR ALLclose allclear all_SCREEN.VISIBLE=.F.set sysmenu offset defa to sys(5)+sys(2021)+''do FORM 欢送界面.scxr

6、ead 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.rowsourcetype=6Combo1.rowsource=密码.姓名Oleboundcontrol1控件：Recordsource=密码.头像command1 cl

7、ick:count=count+1loca for ALLTRIM(密码.姓名)=alltrim(thisformxbo1.value)MESSAGEbox("输入不能为空！")elseDO FORM 主窗体.scxrelease thisformelseif count<3 then=messagebox("输入有误！",48,"警告")elsemessagebox("对不起您是非法用户，系统将自动退出！",48,"警告")quitendifendifendifcommand2click

8、:quit3、主界面 数据环境：资料.dbf 积分表.dbfForm1 init: WITH thisform.grid1.ColumnCount=8kColor=RGB(255,255,190) .Column4.Header1.Caption="规格" .Column1.width=50 .Column2.width=160 .Column3.width=50 endwithdo 菜单1.mpr with this , .T.Olecontrol1init: this.Nodes.ClearThis.LineStyle= 1 && tvwRootLine

9、s this.labelEdit= 1 && tvwManualThis.Style= 7 && tvwTreelinesPlusMinusPictureText This.ImageList=Thisform.Imagelist1 &&与Imagelist控件建立关联this.labelEdit= 1 && tvwManualdd ("表",4,"资料表","资料表",2)this.Refresh nodeclick: * ActiveX 控件事件 *LPARAMETE

10、RS nodeDO CASE WITH thisform.grid1.ColumnCount=8 .Colu .Column6.Header1.BackColor=RGB(255,255,190) .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag=""WITH thisform.grid1.ColumnCount=355,190)Column1.width=50 .Column2.width=160 .Column3.width=50 endwith this.Tag ="

11、select * from 积分表 into cursor temp"CASE this.selectedItem.Text="天销售记录"WITH thisform.grid1.ColumnCount=8RGB(255,255,190)5,190) .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 天销售记录 into cursor temp"WITH thisform.grid1.ColumnCount=8Color=RG

12、B(255,255,190)255,255,190)190) .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 月销售记录 into cursor temp"WITH thisform.grid1.ColumnCount=8 .Column1.Header1.Caption="编号"r=RGB(255,255,190)255,190) .Column1.width=50 .Column2.width=160 .Column3.width

13、=50 endwiththis.Tag ="sele * from 年销售记录 into cursor temp"CAWITH thisform.grid1.ColumnCount=8Color=RGB(255,255,190)255,255,190) .Column1.width=50 .Column2.width=160 .Column3.width=50 endwiththis.Tag ="sele * from 资料 into cursor temp"ENDCASEthisform.Refreshgrid1：recordsource=资料 rec

14、ordsourcetype=4text1 interactivechange:WITH thisform.grid1.ColumnCount=8 .Col .Column1.width=50 .Column2.width=160 .Column3.width=50 endwithcommand2:click: WITH thisform.grid1.ColumnCount=8 .Column1.width=50 .Column2.width=160 .Column3.width=50 endwithcommand3:click:a=messagebox("是否接入网络？",

15、4+32+0,"温馨提示")if a=6endif4.用户注册 数据环境：密码.dbfCommand1click:if a="".or.b=""messagebox("输入不能为空！",48,"温馨提示")elseappend blankreplace 姓名 with areplace 密码 with bmessagebox("注册成功！")endifcommand2 click:5.修改密码表单数据环境：密码.dbfCombo1: rowsourcetype=6 Rowso

16、urce=密码.姓名Command1click:aa=thisformxbo1.valueif aa=""and bb=""messagebox("数据不能为空！")elseloca for 姓名=aa and 密码=bbif .not.姓名=aa or .not.密码=bbmessagebox("输入的用户名或者密码错误！",48,"温馨提示")else repl 密码 with amessagebox("密码修改成功！")endifendifrelease thisfor

17、mCommand2click:release thisform6.用户注销数据环境：密码.dbfCommand1click:USE 密码.dbf EXCLUSIVE LOCATE ALL FOR 姓名IF EOF()MESSAGEBOX("注销用户不存在！",48,"温馨提示")ELSEMESSAGEBOX("注销不能为空！",48,"温馨提示")elsea=messagebox("是否删除？",4+32+0,"温馨提示")if a=6dele ALL FOR 姓名packm

18、essagebox("删除成功！")ENDIFENDIFENDIFthisform.Refresh7.信息查询表单 数据环境：资料.dbfCommand1click:do case select * from 资料 where 编号select * from 资料 where 品名 select * from 资料 where 单价单价endcasedo form 查询结果浏览.scxcommand2click:release thisform8.查询结果浏览表单 Form1init:TT9.根本信息修改表单数据环境：资料.dbfForm1init:Command1clic

19、k:GO topLOCATE ALL FOR ALLTRIM(资料.编号MESSAGEBOX("查询不能为空！",48,"温馨提示")elseIF FOUND()编号品名单价规格数量 ELSE MESSAGEBOX("无此记录",48,"温馨提示") endifendifcommand2click:DO CASE replace 编号 replace 品名 replace 单价 replace 规格 replace 数量 ENDCASE MESSAGEBOX("修改成功！")Command3ch

20、eck1click:check2click:check3click:check4click:check5click:command4click:RELEASE thisform10删除表单数据环境：资料.dbfForm1init:text1enteractivechange:list1click：command1click:USE 资料.dbf EXCLUSIVEGO topIF FOUND()PACK MESSAGEBOX("success!")ELSE MESSAGEBOX("no record!")endif11、商品增添表单 数据环境：资料.db

21、fCommand1click:SELECT 资料MESSAGEBOX("输入不能为空！",48,"温馨提示")ELSEAPPEND blankreplace 编号 replace 品名 replace 单价 replace 规格 replace 数量 MESSAGEBOX("success!")ENDIFCommand2click:12、会员注册表单数据环境：积分表.dbfCommand1click:if a="".or.b="".or.c=0messagebox("输入不能为空！&q

22、uot;,48,"温馨提示")elseappend blankreplace 姓名 with areplace 学号 with breplace 积分 with cmessagebox("注册成功！")endifcommand2click:一三.积分查询表单数据环境：积分比表.dbfCommand1click:SELECT 积分表GO topDO CASE MESSAGEBOX("输入不能为空！",48,"温馨提示")elseLOCATE FOR 姓名IF EOF()MESSAGEBOX("查询信息不存在

23、！",48,"温馨提示")else积分ENDIFENDIFMESSAGEBOX("输入不能为空！",48,"温馨提示")elseLOCATE FOR 学号IF EOF()MESSAGEBOX("查询信息不存在！",48,"温馨提示")else积分thisform.RefreshENDIFENDIFENDCASECommand2click:14.积分表单数据环境：资料表.dbfCommand1click:SELECT 积分表GO topDO CASE MESSAGEBOX("输

24、入不能为空！",48,"温馨提示")elseLOCATE FOR ALLTRIM(积分表.姓名IF EOF()MESSAGEBOX("查询信息不存在！",48,"温馨提示")else积分ENDIFENDIFMESSAGEBOX("输入不能为空！",48,"温馨提示")elseLOCATE FOR ALLTRIM(积分表.学号IF EOF()MESSAGEBOX("查询信息不存在！",48,"温馨提示")else积分thisform.Refresh

25、ENDIFENDIFENDCASECommand2click:Command3click:SELECT 积分表DO CASE LOCATE ALL FOR 姓名replace 积分 MESSAGEBOX("success！")LOCATE ALL FOR 学号replace 积分 MESSAGEBOX("success！")ENDCASECommand4click:一五.积分用户注销数据环境：积分表.dbfCommand1click：CLOSE TABLES ALL USE 积分表.dbf EXCLUSIVE LOCATE ALL FOR 学号IF EO

26、F()MESSAGEBOX("注销用户不存在！",48,"温馨提示")ELSEMESSAGEBOX("注销不能为空！",48,"温馨提示")elsea=messagebox("是否删除？",4+32+0,"温馨提示")if a=6dele ALL FOR 学号packmessagebox("删除成功！")ENDIFENDIFENDIFthisform.Refresh16.销售表单数据环境：资料.dbf Command1click:ELSEENDIFComm

27、and2click:CLOSE TABLES ALL USE 天销售记录GO topAPPEND blankreplace 品名 replace 编号 replace 数量 replace 单价 MESSAGEBOX("写入成功！")Command3click:CLOSE TABLES ALL USE 月销售记录GO topAPPEND blankreplace 品名 replace 编号 replace 数量 replace 单价 MESSAGEBOX("写入成功！")Command4click:CLOSE TABLES ALL USE 年销售记录GO

28、 topAPPEND blankreplace 品名 replace 编号 replace 数量 replace 单价 MESSAGEBOX("写入成功！")Command5click:RELEASE thisform17、关于表单 ForminitT产品说明Thisform。Label2.caption=本品是v1.0 版，x，盗版必究！Thisform。Label3.caption=x洋雨钲鹏工作室Thisform。Label4.caption=x971一三7239”Thisform。Label5.caption=E-mail：971一三7239xqqxThisform。Label6.caption=x一八749650123住址：2区1#1一八”4.菜单设计系统管理子菜单注册新用户do form 注册新用户.scx修