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

《vf超市会员管理系统实验报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Vf课程设计实验报告综合性程序设计报告设计题目：超市会员购物系统设计时间:2012年6月22日12Vf课程设计实验报告一、题目描述超市会员购物系统是用来管理会员的，主要是会员购物后的积分以及等级的变化。在里面实现会员的加入，删除，修改，查询，打印，会员购物后的各种变化，还有商品表的插入，删除，修改，查询。二、功能模块分解及说明封面在主表单frmcover.scx登录表单frmlogin.scx主表单frmmain.Scx更改密码frmuser.scx会员表修改inputhuiyuan.scx商品表修改inputspb.scx会员表更新updatehuiyuan

2、.scx购物表更新updategwb.scx商品表查询spb.scx会员表查询hybcx1.scx报表1.prx12Vf课程设计实验报告说明：主表单调用主菜单，主菜单里面分为系统设置，数据维护，查询，打印。系统设置里面包含：更改密码，退出。数据维护包含：会员表修改，会员表更新，商品表修改，购物表更新。查询：商品表查询，会员表查询。打印：会员表单的打印。会员表修改，商品表修改包含：编辑，添加，删除，退出。会员表更新：主要是购物后会员积分和等级的更新。购物表更新：购物记录的增加。一、数据库设计及说明先建立一个超市会员购物项目，在项目中建立超市会员购物系统，在系统中

3、建立如下四个表格。1、会员表（hyb.dbf）字段字段名类型宽度小数位1会员编号字符型122会员名字符型123会员类别字符型124地址字符型155电话号码字符型116积分双精度827备注备注42、商品表（spb.dbf）字段字段名类型宽度小数位1商品编号字符型42商品名称字符型203商品种类字符型64批发价数值型825零售价数值型826积分双精度型8212Vf课程设计实验报告3、购物表（gwb.dbf）字段字段名类型宽度小数位1会员编号字符型102商品编号字符型83零售价数值型824购物数量整型45商品积分数值型824、用户表（users.dbf）字段字段名类

4、型宽度小数位1用户代码字符型122密码字符型145、建立索引如图四、代码清单及注释1、登录表单（frmlogin.scx）(1)表单里的initPUBLICuid&&定义用户代码全局变量PUBLICii=0&&定义密码输入次数变量SELECT0&&选择最小的工作区USEusers&&打开用户表(2)表单里的unloadSELECTusers&&选择users表工作区12Vf课程设计实验报告USE&&关闭打开的表(3)确定里面的clicki=i+1&&每运行一次次数加1uid=ALLTRIM(Thisform.text1.Value)&&将用户代码文本框赋予变量

5、pwd=ALLTRIM(thisform.text2.Value)&&将密码文本框赋予变量LOCAtefor用户代码=uid&&查找该用户&&判断用户是否合法IFNOTFOUND()&&如果未找到用户MESSAGEBOX("无此用户",0,"超市会员管理系统")thisform.text1.selstart=0&&选定文本起点位置thisform.text2.SelLength=LEN(thisform.text1.text)&&选定文本的实际长度thisform.text1.SetFocus&&设置焦点return&&返回ENDIFIFALLTRIM(密码)

6、==pwd&&密码准确thisform.Release&&关闭当前表单DOFORMfrmmain.scx&&调用主界面表单ELSE&&密码输入不正确IFi>3&&三次输入密码不正确MESSAGEBOX("三次密码输入不正确,系统将退出！")thisform.Release&&退出ENDIFMESSAGEBOX("密码不正确，请重新输入！"+"你还有"+ALLTRIM(STR(3-i))+"次机会。")thisform.text2.SelStart=0thisform.text2.SelLength=LEN(thisform.text2.Text)&&选定文本的

7、长度为文本框的实际长度thisform.text2.setfocus&&设置焦点ENDIF（4）取消里面的代码quit&&退出vf2、主表单（frmmain.scx）表单中的initDOmnumain.mprWITHthis,.t.&&加载菜单mnumain.mpr3、密码更改表单（frmuser.scx）（1）确定按钮USEusers&&打开用户表oldpass=thisform.text1.Valuenewpass1=thisform.text2.Valuenewpass2=thisform.text3.Value&&LOCATEFOR用户代码=uidIF

8、oldpass<>密码&&判断是否与原