vf超市会员管理系统实验报告.docVIP

综合性程序设计报告 设计题目：超市会员购物系统 设计时间: 2012 年 6 月 22 日 题目描述 超市会员购物系统是用来管理会员的，主要是会员购物后的积分以及等级的变化。在里面实现会员的加入，删除，修改，查询，打印，会员购物后的各种变化，还有商品表的插入，删除，修改，查询。 功能模块分解及说明 说明：主表单调用主菜单，主菜单里面分为系统设置，数据维护，查询，打印。 系统设置里面包含：更改密码，退出。 数据维护包含：会员表修改，会员表更新，商品表修改，购物表更新。 查询：商品表查询，会员表查询。 打印：会员表单的打印。 会员表修改，商品表修改包含：编辑，添加，删除，退出。 会员表更新：主要是购物后会员积分和等级的更新。 购物表更新：购物记录的增加。 数据库设计及说明 先建立一个超市会员购物项目，在项目中建立超市会员购物系统，在系统中建立如下四个表格。 1、会员表（hyb.dbf） 字段 字段名 类型 宽度 小数位 1 会员编号 字符型 12 2 会员名 字符型 12 3 会员类别 字符型 12 4 地址 字符型 15 5 电话号码 字符型 11 6 积分 双精度 8 2 7 备注 备注 4 2、商品表（spb.dbf）））PUBLIC uid 定义用户代码全局变量 PUBLIC i i=0定义密码输入次数变量 SELECT 0 选择最小的工作区 USE users 打开用户表 (2)表单里的unload SELECT users选择users表工作区 USE 关闭打开的表 (3)确定里面的click i=i+1每运行一次次数加1 uid=ALLTRIM(Thisform.text1.Value)将用户代码文本框赋予变量 pwd=ALLTRIM(thisform.text2.Value)将密码文本框赋予变量 LOCAte for 用户代码=uid查找该用户 判断用户是否合法 IF NOT FOUND()如果未找到用户 MESSAGEBOX(无此用户,0,超市会员管理系统) thisform.text1.selstart=0选定文本起点位置 thisform.text2.SelLength=LEN(thisform.text1.text)选定文本的实际长度 thisform.text1.SetFocus设置焦点 return返回 ENDIF IF ALLTRIM(密码)==pwd密码准确 thisform.Release关闭当前表单 DO FORM frmmain.scx调用主界面表单 ELSE 密码输入不正确 IF i3三次输入密码不正确 MESSAGEBOX(三次密码输入不正确,系统将退出！) thisform.Release退出 ENDIF MESSAGEBOX(密码不正确，请重新输入！+你还有+ALLTRIM(STR(3-i))+次机会。) thisform.text2.SelStart=0 thisform.text2.SelLength=LEN(thisform.text2.Text)选定文本的长度为文本框的实际长度 thisform.text2.setfocus设置焦点 ENDIF （4）取消里面的代码 quit退出vf 2、主表单（frmmain.scx） 表单中的init DO mnumain.mpr WITH this, .t. 加载菜单mnumain.mpr 3、密码更改表单（frmuser.scx） （1）确定按钮 USE users打开用户表 oldpass=thisform.text1.Value newpass1=thisform.text2.Value newpass2=thisform.text3.Value LOCATE FOR 用户代码=uid IF oldpass密码判断是否与原来密码一致 MESSAGEBOX(原密码不对，请重新输入) thisform.text1.SetFocus USE关闭表 ENDIF IF newpass1newpass2判断两次输入的新密码是否一致 MESSAGE(新密码两次输入不一致！) thisform.text3.SetFocus USE关闭表 ENDIF replace 密码 WITH newpass1 MESSAGEBOX(密码修改完毕) use关闭表 （2）返回按钮 thisform.Release退出该表单 4、会员表修改 （inputhuiyuan.scx） （1）编辑按钮 当处于编辑的时候不是只读的，只读的时候不允许编辑 IF this.Caption=编辑 thisform.grid1.ReadOnly= .F. this.Caption=只读 ELSE thisform.grid1.ReadO