化妆品销售管理系统.doc

化妆品销售管理系统 课程名称 空间数据库基础 专 业 地理信息系统 班 级 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 2 34 一 课题及任务一 课题及任务 1 课题简介课题简介 根据化妆品店的实际需求 开发的一个运行良好 管理方便的 便于销售 便于查询的管理系统 2 任务分派任务分派 刘钲 建立资料表 积分表 天销售记录表 月销售记录表 年销售记录 表 登陆表单 欢迎表单 用户注销表单 秦建雨 信息查询表单 信息修改表单 信息增添表单 信息删除表单 任高鹏 积分 注册 查询 增添 注销 潘晓洋 建立数据库 销售系统 销售表单 记录的删除 天记录 月记 录 年记录 报表 天销售报表 月销售报表 年销售报表 关于表单 菜 单与表单的挂载 主程序 连编 调试 界面美化 3 34 二 系统需求分析调查二 系统需求分析调查 1 系统需求分析 现在发展迅速的信息时代 古老的纸质文档管理机制已不能很好的满足各 大商家日常的管理与销售 一种有条理 简洁的管理系统迫切被需求 2 系统功能简介 本系统具有基本的查询 增添 删除修改信息的功能 便捷易操作 在此 基础之上 还增添了积分功能 使得来本店购买化妆品的每一个顾客都有一个 记录 通过积分来促进销售 达到盈利倍增的目的 本系统支持多用户 可设 置多个用户进行相同的管理 销售界面上具有保存记录的功能 可以通过相对 应的菜单进行删除 使得管理更加人性化 通过本系统可以清晰地直观的看到 各个数据的相关信息 使得浏览速度更加快捷 使用起来更加方便 4 34 三 系统设计三 系统设计 1 1 系统总体设计系统总体设计 2 系统详细设计系统详细设计 系统管理模块 登录密码的修改 新管理员的密码账号的创建 管理员信息的 注销 退出系统 数据更新维护模块 化妆品信息的基本查询 信息的修改 化妆品的删除 化 妆品的增添 积分模块 积分用户的注册 积分的查询 积分值的添加 积分用户的注销 销售模块 1 销售 3 数据库设计数据库设计 5 34 四 系统实施四 系统实施 1 数据资源数据资源 月销售记录 积分表 资料表 6 34 密码 天销售记录 年销售记录 7 34 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 欢迎界面欢迎界面 Form Init PUBLIC i as Integer i 1 time timer i i 1 8 34 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 command2 click release thisform 8 8 查询结果浏览表单查询结果浏览表单 20 34 Form1 init Thisform grid1 recordsourcr temp Thisform grid1 refresh 9 9 基本信息修改表单基本信息修改表单 数据环境 资料 dbf Form1 init 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 21 34 thisform text6 readonly t Command1 click 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 command2 click 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 check1 click thisform text3 Enabled t 22 34 thisform text3 readonly f check2 click thisform text4 Enabled t thisform text4 readonly f check3 click thisform text5 Enabled t thisform text5 readonly f check4 click thisform text6 Enabled t thisform text6 readonly f check5 click thisform text2 Enabled t thisform text2 readonly f command4 click RELEASE thisform 1010 删除表单 删除表单 数据环境 资料 dbf Form1 init thisform list1 Visible F text1 enteractivechange thisform list1 RowSource sele 品名 from 资料 where 品名 likeALLTRIM thisform text1 value into cursor temp thisform list1 Refresh list1 click thisform text1 Value thisform list1 Value thisform list1 Visible F command1 click USE 资料 dbf EXCLUSIVE 23 34 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 Command1 click 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 24 34 Command2 click thisform text1 value thisform text2 value thisform text3 value 0 thisform text4 value thisform text5 value 0 1212 会员注册表单 会员注册表单 数据环境 积分表 dbf Command1 click 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 command2 click 25 34 thisform text1 Value thisform text2 Value thisform text3 Value 0 13 13 积分查询表单积分查询表单 数据环境 积分比表 dbf Command1 click 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 26 34 LOCATE FOR 学号 ALLTRIM thisform text5 Value IF EOF MESSAGEBOX 查询信息不存在 48 温馨提示 else thisform text6 Value 积分 thisform Refresh ENDIF ENDIF ENDCASE Command2 click thisform text4 Value thisform text5 Value 14 14 积分表单积分表单 数据环境 资料表 dbf Command1 click 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 27 34 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 Command2 click thisform text4 Value thisform text5 Value Command3 click 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 Command4 click thisform text6 Value 0 28 34 thisform text8 Value 0 15 15 积分用户注销积分用户注销 数据环境 积分表 dbf Command1 click 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 销售表单销售表单 29 34 数据环境 资料 dbf Command1 click 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 Command2 click 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 写入成功 Command3 click CLOSE TABLES ALL USE 月销售记录 GO top APPEND blank replace 品名 WITH ALLTRIM thisform text1 value 30 34 replace 编号 WITH ALLTRIM thisform text2 value replace 数量 WITH thisform text4 Value replace 单价 WITH thisform text6 value MESSAGEBOX 写入成功 Command4 click 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 写入成功 Command5 click RELEASE thisform 1717 关于表单 关于表单 Form init 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 118 4 菜单设计菜