化妆品销售管理系统.docVIP

化妆品销售管理系统 课程名称：空间数据库基础 专 业：地理信息系统 班 级：0624111 设 计 组：第七小组 设 计 者：潘晓洋 秦建雨 刘钲 任高鹏 指导教师：苗东利、毛政利 设计时间：2012 年 12 月 河南城建学院河南城建学院 测绘与城市空间信息系测绘与城市空间信息系 一、课题及任务一、课题及任务- 2 - 1.课题简介课题简介- 2 - 2.任务分派任务分派- 2 - 二、系统需求分析调查二、系统需求分析调查- 3 - 1.系统需求分析- 3 - 2.系统功能简介- 3 - 三、系统设计三、系统设计- 4 - 1.1.系统总体设计系统总体设计- 4 - 2.系统详细设计系统详细设计- 4 - 3.数据库设计数据库设计- 4 - 四、系统实施四、系统实施- 5 - 1.数据资源数据资源- 5 - 月销售记录- 5 - 积分表- 5 - 资料表- 5 - 密码- 6 - 天销售记录- 6 - 年销售记录- 6 - 2.主程序设计主程序设计- 7 - 3.主要工作窗口主要工作窗口- 7 - 1.欢迎界面欢迎界面- 7 - 2.登陆表单登陆表单- 8 - 3、主界面、主界面- 9 - 4.用户注册用户注册- 17 - 5.5.修改密码表单修改密码表单- 17 - 6.6.用户注销用户注销- 18 - 7.7.信息查询表单信息查询表单- 19 - 8.8.查询结果浏览表单查询结果浏览表单- 20 - 9.9.基本信息修改表单基本信息修改表单- 21 - 1010删除表单删除表单- 23 - 1111、商品增添表单、商品增添表单- 24 - 1212、会员注册表单、会员注册表单- 25 - 13.13.积分查询表单积分查询表单- 26 - 14.14.积分表单积分表单- 27 - 15.15.积分用户注销积分用户注销- 29 - 16.16.销售表单销售表单- 29 - 1717、关于表单、关于表单- 31 - 4.菜单设计菜单设计 - 32 - 五、设计体会五、设计体会- 33 - 六、参考文献六、参考文献- 34 - Visualfoxpro 课程设计 - 2 - 一、课题及任务一、课题及任务 1. 课题简介课题简介 根据化妆品店的实际需求，开发的一个运行良好，管理方便的，便于销售， 便于查询的管理系统。 2. 任务分派任务分派 刘钲： 建立资料表，积分表，天销售记录表，月销售记录表，年销售记录 表，登陆表单，欢迎表单，用户注销表单； 秦建雨：信息查询表单，信息修改表单，信息增添表单，信息删除表单 任高鹏：积分（注册，查询，增添，注销） 潘晓洋：建立数据库，销售系统（销售表单，记录的删除（天记录，月记 录，年记录）报表：天销售报表，月销售报表，年销售报表，关于表单，菜 单与表单的挂载，主程序，连编，调试，界面美化。 Visualfoxpro 课程设计 - 3 - 二、系统需求分析调查二、系统需求分析调查 1.系统需求分析 现在发展迅速的信息时代，古老的纸质文档管理机制已不能很好的满足各 大商家日常的管理与销售，一种有条理、简洁的管理系统迫切被需求。 2.系统功能简介 本系统具有基本的查询，增添，删除修改信息的功能，便捷易操作。在此 基础之上，还增添了积分功能，使得来本店购买化妆品的每一个顾客都有一个 记录，通过积分来促进销售，达到盈利倍增的目的。本系统支持多用户，可设 置多个用户进行相同的管理。销售界面上具有保存记录的功能，可以通过相对 应的菜单进行删除，使得管理更加人性化。通过本系统可以清晰地直观的看到 各个数据的相关信息，使得浏览速度更加快捷，使用起来更加方便 Visualfoxpro 课程设计 - 4 - 三、系统设计三、系统设计 1.1.系统总体设计系统总体设计 2.系统详细设计系统详细设计 系统管理模块：登录密码的修改，新管理员的密码账号的创建，管理员信息的 注销，退出系统； 数据更新维护模块：化妆品信息的基本查询，信息的修改，化妆品的删除，化 妆品的增添； 积分模块：积分用户的注册，积分的查询，积分值的添加，积分用户的注销； 销售模块：1.销售 3.数据库设计数据库设计 Visualfoxpro 课程设计 - 5 - 四、系统实施四、系统实施 1.数据资源数据资源 月销售记录 积分表 资料表 Visualfoxpro 课程设计 - 6 - 密码 天销售记录 年销售记录 Visualfoxpro 课程设计 - 7 - 2.主程序设计主程序设计 主程序：SET TALK OFF CLEAR ALL close all clear all _SCREEN.VISIBLE=.F. set sysmenu off set defa to sys(5)+sys(2003)+ do FORM 欢迎界面.scx read events RETURN QUIT 3.主要工作窗口主要工作窗口 1.欢迎界面欢迎界面 FormInit PUBLIC i as Integer i=1 timetimer i=i+1 Visualfoxpro 课程设计 - 8 - IF i=9 THEN thisform.Visible= .F. RELEASE thisform DO FORM 登录.scx ENDIF 2.登陆表单登陆表单 数据环境：密码.dbf Form1 Init PUBLIC count as Integer count=1 Combo1.rowsourcetype=6 Combo1.rowsource=密码.姓名 Oleboundcontrol1 控件： Recordsource=密码.头像 command1 click: count=count+1 loca for ALLTRIM(密码.姓名)=alltrim(bo1.value) IF thisform.text2.Value=“ MESSAGEbox(“输入不能为空！“) else if found()and ALLTRIM(密码.密码)=alltrim(thisform.text2.value) DO FORM 主窗体.scx release thisform else if count=thisform.text2.value and 单价 =thisform.text3.value into cursor temp endcase do form 查询结果浏览.scx command2click: release thisform 8.8.查询结果浏览表单查询结果浏览表单 Visualfoxpro 课程设计 - 20 - Form1init: Thisform.grid1.recordsourcr=temp Thisform.grid1.refresh 9.9.基本信息修改表单基本信息修改表单 数据环境：资料.dbf Form1init: thisform.text2.Enabled= .F. thisform.text3.Enabled= .F. thisform.text4.Enabled= .F. thisform.text5.Enabled= .F. thisform.text6.Enabled= .F. thisform.text2.readonly= .t. thisform.text3.readonly= .t. thisform.text4.readonly= .t. thisform.text5.readonly= .t. Visualfoxpro 课程设计 - 21 - thisform.text6.readonly= .t. Command1click: GO top LOCATE ALL FOR ALLTRIM(资料.编号)=ALLTRIM(thisform.text1.Value) IF thisform.text1.Value=“ MESSAGEBOX(“查询不能为空！“,48,“温馨提示“) else IF FOUND() thisform.text2.Value=编号 thisform.text3.Value=品名 thisform.text4.Value=单价 thisform.text5.Value=规格 thisform.text6.Value=数量 ELSE MESSAGEBOX(“无此记录“,48,“温馨提示“) endif endif command2click: DO CASE CASE thisform.check5.value=1 replace 编号 WITH ALLTRIM(thisform.text2.Value) CASE thisform.check1.Value=1 replace 品名 WITH ALLTRIM(thisform.text3.Value) CASE thisform.check2.Value=1 replace 单价 WITH thisform.text4.Value CASE thisform.check3.Value=1 replace 规格 WITH ALLTRIM(thisform.text5.Value) CASE thisform.check4.Value=1 replace 数量 WITH thisform.text6.Value ENDCASE MESSAGEBOX(“修改成功！“) Command3 thisform.text1.Value=“ thisform.text1.setfocus check1click: thisform.text3.Enabled= .t. Visualfoxpro 课程设计 - 22 - thisform.text3.readonly= .f. check2click: thisform.text4.Enabled= .t. thisform.text4.readonly= .f. check3click: thisform.text5.Enabled= .t. thisform.text5.readonly= .f. check4click: thisform.text6.Enabled= .t. thisform.text6.readonly= .f. check5click: thisform.text2.Enabled= .t. thisform.text2.readonly= .f. command4click: RELEASE thisform 1010删除表单删除表单 数据环境：资料.dbf Form1init: thisform.list1.Visible= .F. text1enteractivechange: thisform.list1.RowSource=”sele 品名 from 资料 where 品名 likeALLTRIM(thisform.text1.value)+% into cursor temp “ thisform.list1.Refresh list1click： thisform.text1.Value=thisform.list1.Value thisform.list1.Visible= .F. command1click: USE 资料.dbf EXCLUSIVE Visualfoxpro 课程设计 - 23 - GO top loca ALL FOR 品名=alltrim(thisform.text1.value) IF FOUND() DELETE ALL FOR 品名=alltrim(thisform.text1.value) PACK MESSAGEBOX(“success!“) ELSE MESSAGEBOX(“no record!“) endif 1111、商品增添表单、商品增添表单 数据环境：资料.dbf Command1click: SELECT 资料 IF thisform.text1.Value=“ OR ; thisform.text1.Value=“ OR thisform.text2.Value=“ MESSAGEBOX(“输入不能为空！“,48,“温馨提示“) ELSE APPEND blank replace 编号 WITH ALLTRIM(thisform.text1.value) replace 品名 WITH ALLTRIM(thisform.text2.value) replace 单价 WITH thisform.text3.value replace 规格 WITH ALLTRIM(thisform.text4.value) replace 数量 WITH thisform.text5.value MESSAGEBOX(“success!“) ENDIF Visualfoxpro 课程设计 - 24 - Command2click: thisform.text1.value=“ thisform.text2.value=“ thisform.text3.value=0 thisform.text4.value=“ thisform.text5.value=0 1212、会员注册表单、会员注册表单 数据环境：积分表.dbf Command1click: a=alltrim(thisform.text1.value) b=alltrim(thisform.text2.value) c=thisform.text3.value if a=“.or.b=“.or.c=0 messagebox(“输入不能为空！“,48,“温馨提示“) else append blank replace 姓名 with a replace 学号 with b replace 积分 with c messagebox(“注册成功！“) endif command2click: Visualfoxpro 课程设计 - 25 - thisform.text1.Value=“ thisform.text2.Value=“ thisform.text3.Value=0 13.13.积分查询表单积分查询表单 数据环境：积分比表.dbf Command1click: SELECT 积分表 GO top DO CASE CASE thisform.optiongroup1.value=1 IF thisform.text4.value=“ MESSAGEBOX(“输入不能为空！“,48,“温馨提示“) else LOCATE FOR 姓名=ALLTRIM(thisform.text4.Value ) IF EOF() MESSAGEBOX(“查询信息不存在！“,48,“温馨提示“) else thisform.text6.Value=积分 ENDIF ENDIF CASE thisform.optiongroup1.Value =2 IF thisform.text5.value=“ MESSAGEBOX(“输入不能为空！“,48,“温馨提示“) else Visualfoxpro 课程设计 - 26 - LOCATE FOR 学号=ALLTRIM(thisform.text5.Value ) IF EOF() MESSAGEBOX(“查询信息不存在！“,48,“温馨提示“) else thisform.text6.Value=积分 thisform.Refresh ENDIF ENDIF ENDCASE Command2click: thisform.text4.Value=“ thisform.text5.Value=“ 14.14.积分表单积分表单 数据环境：资料表.dbf Command1click: SELECT 积分表 GO top DO CASE CASE thisform.optiongroup1.value=1 IF thisform.text4.value=“ MESSAGEBOX(“输入不能为空！“,48,“温馨提示“) else LOCATE FOR ALLTRIM(积分表.姓名)=ALLTRIM(thisform.text4.Value ) IF EOF() Visualfoxpro 课程设计 - 27 - MESSAGEBOX(“查询信息不存在！“,48,“温馨提示“) else thisform.text6.Value=积分 ENDIF ENDIF CASE thisform.optiongroup1.Value =2 IF thisform.text5.value=“ MESSAGEBOX(“输入不能为空！“,48,“温馨提示“) else LOCATE FOR ALLTRIM(积分表.学号)=ALLTRIM(thisform.text5.Value ) IF EOF() MESSAGEBOX(“查询信息不存在！“,48,“温馨提示“) else thisform.text6.Value=积分 thisform.Refresh ENDIF ENDIF ENDCASE Command2click: thisform.text4.Value=“ thisform.text5.Value=“ Command3click: SELECT 积分表 DO CASE CASE thisform.optiongroup1.value=1 LOCATE ALL FOR 姓名=ALLTRIM(thisform.text4.value) replace 积分 WITH thisform.text6.value+thisform.text8.value MESSAGEBOX(“success！“) CASE thisform.optiongroup1.value=2 LOCATE ALL FOR 学号=ALLTRIM(thisform.text5.value) replace 积分 WITH thisform.text6.value+thisform.text8.value MESSAGEBOX(“success！“) ENDCASE Command4click: thisform.text6.Value=0 Visualfoxpro 课程设计 - 28 - thisform.text8.Value=0 15.15.积分用户注销积分用户注销 数据环境：积分表.dbf Command1click： CLOSE TABLES ALL USE 积分表.dbf EXCLUSIVE LOCATE ALL FOR 学号=ALLTRIM(thisform.text7.value) IF EOF() MESSAGEBOX(“注销用户不存在！“,48,“温馨提示“) ELSE IF thisform.text7.Value=“ MESSAGEBOX(“注销不能为空！“,48,“温馨提示“) else a=messagebox(“是否删除？“,4+32+0,“温馨提示“) if a=6 dele ALL FOR 学号=ALLTRIM(thisform.text7.value) pack messagebox(“删除成功！“) ENDIF ENDIF ENDIF thisform.Refresh 16.16.销售表单销售表单 Visualfoxpro 课程设计 - 29 - 数据环境：资料.dbf Command1click: IF thisform.text5.Value=0.0 thisform.text6.Value=thisform.text3.value*thisform.text4.Value ELSE thisform.text6.Value=thisform.text3.value*thisform.text4.Value*thisfo rm.text5.Value/10 ENDIF Command2click: CLOSE TABLES ALL USE 天销售记录 GO top APPEND blank replace 品名 WITH ALLTRIM(thisform.text1.value) replace 编号 WITH ALLTRIM(thisform.text2.value) replace 数量 WITH thisform.text4.Value replace 单价 WITH thisform.text6.value MESSAGEBOX(“写入成功！“) Command3click: CLOSE TABLES ALL USE 月销售记录 GO top APPEND blank Visualfoxpro 课程设计 - 30 - replace 品名 WITH ALLTRIM(thisform.text1.value) replace 编号 WITH ALLTRIM(thisform.text2.value) replace 数量 WITH thisform.text4.Value replace 单价 WITH thisform.text6.value MESSAGEBOX(“写入成功！“) Command4click: CLOSE TABLES ALL USE 年销售记录 GO top APPEND blank replace 品名 WITH ALLTRIM(thisform.text1.value) replace 编号 WITH ALLTRIM(thisform.text2.value) replace 数量 WITH thisform.text4.Value replace 单价 WITH thisform.text6.value MESSAGEBOX(“写入成功！“) Command5click: RELEASE thisform 1717、关于表单、关于表单 Forminit Thisform.label1.caption=”产品说明” Thisform。Label2.caption=”本品是 v1.0 版，版权所有，盗版必究！” Thisform。Label3.caption=”作者：洋雨钲鹏工作室” Thisform。Label4.caption=”qq：971137239” Thisform。Label5.caption=”E-mail：971137239” Thisform。Label6.caption=”电话住址：2 区 1#