vf课程设计报告.doc

Vfp综合程序报告健身房管理系统东北大学秦皇岛分校姓名学号：指导教师：日期： 2009 年 6 月 24 日一、总体说明总体功能介绍本系统为使用Visual FoxPro 6.0设计的小型数据库系统，能够对健身房会员的数据进行一般的管理。具体功能如下：本系统通过管理员需要输入管理员账号和密码才能进入系统界面，从而对健身会员进行数据维护和管理。首先，管理员通过会员的账号和密码，可以对健身会员的各项数据进行管理，如会员选择健身项目的更改，会员的基本资料进行修改，增加或者删除（包括会员退会）。同时，系统提供对会员资料的浏览功能，方便管理员实施管理。可对会员身份进行验证，会员到健身房时，需要通过会员卡卡号或姓名，进行身份验证。验证通过，才能进入健身房锻炼。管理员可通过客户提供的资料，实施对新会员的注册;管理员可以对密码进行修改，以确保信息的安全性;管理员可利用本系统对会员的不同情况实行充值。二、功能模块结构图封面进入界面客户入场卡管理系统菜单客户出场验证消费记录基本资料完善办卡资料输出退出资料维护密码修改续费报表打印三、变量说明(公有、私有、本地变量)PUBLIC M_FLAG &该变量用以标记是否在检索数据M_JLH=RECN()x=thisform.text1.valuea=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.valuee=thisform.text5.valuef=thisform.text6.valueg=thisform.text7.valueh=thisform.text8.valuei=thisform.text9.value注：登录用户名为：123456 密码是1四、数据库、表的设计及描述1. 会员基本信息记录表：各个字段名分别为:学号(字符型),客户姓名(字符型),性别(字符型),生日(日期型),身份证号(字符型),手机号(字符型),入会日期(日期型), 用于记录会员的各项信息.2. 当前办卡表,其中字段名为:卡号(字符型),学号(字符型)，卡类型(字符型),是否是次卡(字符型)，剩余次数(数值型)，是否是时间卡(字符型)，有效开始时间(日期型)，有效结束时间(日期型)，现金收款(数值型)，用于对会员进行续费、修改等功能。3. 办卡档案表,其中字段名为:卡号(字符型),学号(字符型)，卡类型(字符型),是否是次卡(字符型)，剩余次数(数值型)，是否是时间卡(字符型)，有效开始时间(日期型)，有效结束时间(日期型)，现金收款(数值型)，用于对会员交费资料的存档、便于用户查询。4. 消费记录表，其中字段名为：卡号（字符型），入场时间（字符型），出场时间（字符型），日期（日期型），用来记录消费者的消费信息，便于消费者进行查询。5. 个人信息追踪表，其中字段名为：卡号（字符型），姓名（字符型），体重（数值型），胸围（数值型），腰围（数值型），臀围（数值型），颈围（数值型），用来保存消费者的各种参数以便了解个人锻炼情况。6. 卡表，其中字段名为：会员类型（字符型），价格（元）（数值型），备注（字符型），用来统计各种会员类型对应的价格及其备注情况。会员基本信息记录表卡表记录各种卡的资费等会员类型价格（元）备注次卡200元有效期6个月，25次月卡120季卡260学期卡340半年卡430年卡690当前办卡表个人追踪记录record定期记录会员的各种变化消费记录表记录每笔消费及时间五、操作说明进入登录界面以后首先通过用户名与密码的验证，进入主界面。在菜单栏里我们可以进行“系统维护”，其中又分为“个人基本信息维护”，在这里我们可以进行数据的添加、删除、修改与查询；“个人追踪记录维护”-对个人身体的各个指标有一个明确的记录，便于客户从宏观角度了解自己身体机能的变化；“消费信息”、“卡信息维护”、“管理员修改密码”等5个子菜单。单击“客户入场”我们可以根据卡号来查找该会员的信息，然后入场。如果没有就到“卡管理”进行新会员的办理。 单击界面的“卡管理”后，会进入“会员基本信息记录”的表单，在那里我们可以新增新用户、或者对老用户的会员信息进行修改或删除、然后单击“会员续费”的按钮后会进入“会员续费”的表单，在这里我们可以对会员进行充值，所进行的数据修改都将存入到“办卡档案表”中，我们也可以在那里进行对会员消费记录的查询。最后单击“客户退场”我们就可以完成全部操作。六、各模块代码及结果图我做了健身房管理系统的维护和输出。会员基本信息添加Command1的click事件tx=getpict()append general 会员基本信息记录表.照片 from &txthisform.oleboundcontrol1.refreshthisform.image1.picture=txcommand3的click事件 THISFORM.text1.ENABLED=.T. THISFORM.text2.ENABLED=.T. THISFORM.text3.ENABLED=.T. THISFORM.text4.ENABLED=.T. THISFORM.text5.ENABLED=.T. THISFORM.text6.ENABLED=.T. THISFORM.text7.ENABLED=.T.a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.valuee=thisform.text5.valuef=thisform.text6.valueg=thisform.text7.valueh=thisform.text8.valuei=thisform.text9.value THISFORM.text9.ENABLED=.T. THISFORM.text8.ENABLED=.T.append blankcommand4的click事件a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.valuee=thisform.text5.valuef=thisform.text6.valueg=thisform.text7.valueh=thisform.text8.valuei=thisform.text9.valuereplace 学号 with a,客户姓名 with b,性别 with c,生日 with ctod(d),身份证号 with e,手机号 with f,入会日期 with ctod(g),联系地址 with h,备注 with icommand5的click事件thisform.release thisform的activate事件 THISFORM.text1.ENABLED=.F. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text8.ENABLED=.F. THISFORM.text9.ENABLED=.F. 会员基本信息删除Command1的click事件set delete ondelethisform.grid1.recordsource=会员基本信息记录表thisform.grid1.refreshCommand2的click事件thisform.release会员基本信息修改Command1的click事件 THISFORM.text1.ENABLED=.T. THISFORM.text2.ENABLED=.T. THISFORM.text3.ENABLED=.T. THISFORM.text4.ENABLED=.T. THISFORM.text5.ENABLED=.T. THISFORM.text6.ENABLED=.T. THISFORM.text7.ENABLED=.T. THISFORM.text9.ENABLED=.T. THISFORM.text8.ENABLED=.T.a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.valuee=thisform.text5.valuef=thisform.text6.valueg=thisform.text7.valueh=thisform.text8.valuei=thisform.text9.valuereplace 学号 with a,客户姓名 with b,性别 with c,生日 with ctod(d),身份证号 with e,手机号 with f,入会日期 with ctod(g),联系地址 with h,备注 with imessagebox(修改数据成功,4+264,数据录入)Command2的click事件go topthisform.shuaxinCommand3的click事件skipthisform.shuaxinCommand4的click事件skip -1thisform.shuaxinCommand5的click事件go bottomthisform.shuaxinCommand6的click事件thisform.release自定义方法shuaxinthisform.text1.value=学号thisform.text2.value=客户姓名thisform.text3.value=性别thisform.text4.value=生日thisform.text5.value=身份证号thisform.text6.value=手机号thisform.text7.value=入会日期thisform.text8.value=联系地址thisform.text9.value=备注会员基本信息查询Command1的click事件x=thisform.text1.valueselect * from 会员基本信息记录表 where alltrim(学号)=x into cursor temp1thisform.grid1.recordsource=temp1thisform.refreshCommand2的click事件y=thisform.text2.valueselect * from 会员基本信息记录表 where alltrim(客户姓名)=y into cursor temp2thisform.grid1.recordsource=temp2thisform.refreshCommand3的click事件thisform.release个人追踪信息维护Thisform的init事件PUBLIC M_FLAG &该变量用以标记是否在检索数据 THISFORM.text1.ENABLED=.F. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text9.ENABLED=.F. THISFORM.text10.ENABLED=.F.Grid1的afterrowcolchange事件LPARAMETERS nColIndexSELE 个人信息追踪表 THISFORM.text1.VALUE=卡号 THISFORM.text2.VALUE=姓名 THISFORM.text3.VALUE=体重 THISFORM.text4.VALUE=测量日期 THISFORM.text5.VALUE=胸围 THISFORM.text6.VALUE=腰围 THISFORM.text7.VALUE=臀围 THISFORM.text9.VALUE=大腿 THISFORM.text10.VALUE=上臂THISFORM.REFRESHCommand1的click事件IF THIS.CAPTION=添加 &假如现在要新增记录 THISFORM.text1.VALUE= THISFORM.text2.VALUE= THISFORM.text3.VALUE= THISFORM.text4.VALUE= THISFORM.text5.VALUE= THISFORM.text6.VALUE= THISFORM.text7.VALUE= THISFORM.text9.VALUE= THISFORM.text10.VALUE= THISFORM.text1.ENABLED=.T. THISFORM.text2.ENABLED=.T. THISFORM.text3.ENABLED=.T. THISFORM.text4.ENABLED=.T. THISFORM.text5.ENABLED=.T. THISFORM.text6.ENABLED=.T. THISFORM.text7.ENABLED=.T. THISFORM.text9.ENABLED=.T. THISFORM.text10.ENABLED=.T. THISFORM.COMMAND1.CAPTION=保存 &更改换钮标题 THISFORM.COMMAND6.CAPTION=放弃 THISFORM.COMMAND2.ENABLED=.F. &在新增记录时禁止其他按钮可用 THISFORM.COMMAND3.ENABLED=.F. THISFORM.COMMAND4.ENABLED=.F. THISFORM.COMMAND5.ENABLED=.F. THISFORM.text1.SETFOCUS &让Ctext1获得焦点ELSE IF LEN(ALLT(THISFORM.text1.VALUE)#4 &判断卡号输入的规范性 =MESSAGEBOX(卡号应为4位数字！,0+48,提示) THISFORM.text1.SETFOCUS RETURN ENDIF IF LEN(ALLT(THISFORM.text2.VALUE)=0 &限制姓名必须要录入 =MESSAGEBOX(姓名必须要录入！,0+48,提示) THISFORM.text2.SETFOCUS RETURN ENDIF IF LEN(ALLT(THISFORM.text3.VALUE)=0 &限制日期必须要录入 =MESSAGEBOX(日期要录入！,0+48,提示) THISFORM.text3.SETFOCUS RETURN ENDIF APPE BLANK &添加新记录 REPL 卡号 WITH THISFORM.text1.VALUE,姓名 WITH ALLT(THISFORM.TEXT2.VALUE),体重 with val(thisform.text3.value),胸围 with val(thisform.text5.value),腰围 with val( thisform.text6.value),臀围 with val( thisform.text7.value),上臂 with val( thisform.text10.value),大腿 with val( thisform.text9.value),测量日期 with ctod( thisform.text4.value) THISFORM.text1.ENABLED=.F. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text9.ENABLED=.F. THISFORM.text10.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. THISFORM.COMMAND3.ENABLED=.T. THISFORM.COMMAND4.ENABLED=.T. THISFORM.COMMAND5.ENABLED=.T. THISFORM.COMMAND1.CAPTION=添加 &恢复按钮原先标题 THISFORM.COMMAND6.CAPTION=退出ENDIFTHISFORM.REFRESHCommand2的click事件IF THIS.CAPTION=修改 THIS.CAPTION=保存 THISFORM.COMMAND6.CAPTION=放弃 THISFORM.COMMAND1.ENABLED=.F. THISFORM.COMMAND3.ENABLED=.F. THISFORM.COMMAND4.ENABLED=.F. THISFORM.COMMAND5.ENABLED=.F. THISFORM.text1.ENABLED=.T. THISFORM.text2.ENABLED=.T. THISFORM.text3.ENABLED=.T. THISFORM.text4.ENABLED=.T. THISFORM.text5.ENABLED=.T. THISFORM.text6.ENABLED=.T. THISFORM.text7.ENABLED=.T. THISFORM.text9.ENABLED=.T. THISFORM.text10.ENABLED=.T. THISFORM.text1.SETFOCUSELSE IF LEN(ALLT(THISFORM.text1.VALUE)#4 &判断卡号输入的规范性 =MESSAGEBOX(卡号应为4位数字！,0+48,提示) THISFORM.text1.SETFOCUS RETURN ENDIF IF LEN(ALLT(THISFORM.text2.VALUE)=0 &限制姓名必须要录入 =MESSAGEBOX(姓名必须要录入！,0+48,提示) THISFORM.text2.SETFOCUS RETURN ENDIF REPL 卡号 WITH THISFORM.text1.VALUE,姓名 WITH ALLT(THISFORM.TEXT2.VALUE),体重 with thisform.text3.value,胸围 with thisform.text5.value,腰围 with thisform.text6.value,臀围 with thisform.text7.value,上臂 with thisform.text10.value,大腿 with thisform.text9.value,测量日期 with thisform.text4.value THISFORM.text1.ENABLED=.F. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text9.ENABLED=.F. THISFORM.text10.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND3.ENABLED=.T. THISFORM.COMMAND4.ENABLED=.T. THISFORM.COMMAND5.ENABLED=.T. THISFORM.COMMAND2.CAPTION=修改 &恢复按钮原先标题 THISFORM.COMMAND6.CAPTION=退出 ENDIFTHISFORM.REFRESH Command3的click事件Set dele ondelete thisform.grid1.recordsource=个人信息追踪表thisform.grid1.refreshCommand4的click事件IF THIS.CAPTION=查询 THISFORM.text1.VALUE= THISFORM.text2.VALUE= THISFORM.text3.VALUE= THISFORM.text4.VALUE= THISFORM.text5.VALUE= THISFORM.text6.VALUE= THISFORM.text7.VALUE= THISFORM.text9.VALUE= THISFORM.text10.VALUE= THISFORM.text1.ENABLED=.T. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text9.ENABLED=.F. THISFORM.text10.ENABLED=.F. THISFORM.COMMAND4.CAPTION=确定 &更改换钮标题 THISFORM.COMMAND6.CAPTION=放弃 THISFORM.COMMAND2.ENABLED=.F. &在新增记录时禁止其他按钮可用 THISFORM.COMMAND3.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.F. THISFORM.COMMAND5.ENABLED=.F. THISFORM.text1.SETFOCUS &让Ctext1获得焦点ELSE x=thisform.text1.value IF LEN(ALLT(THISFORM.text1.VALUE)#4 &判断卡号输入的规范性 =MESSAGEBOX(卡号应为4位数字！,0+48,提示) THISFORM.text1.SETFOCUS RETURN endifselect * from 个人信息追踪表 where alltrim(卡号)=x into cursor tmpthisform.grid1.recordsource=tmpthisform.refresh THISFORM.text1.ENABLED=.F. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text9.ENABLED=.F. THISFORM.text10.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. THISFORM.COMMAND3.ENABLED=.T. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND5.ENABLED=.T. THISFORM.COMMAND4.CAPTION=查询 &恢复按钮原先标题 THISFORM.COMMAND6.CAPTION=退出ENDIFTHISFORM.REFRESHCommand5的click事件Command6的click事件IF THISFORM.COMMAND6.CAPTION=退出 SELE 个人信息追踪表 USE RELE M_FLAG RELE THISFORMELSE SELE 个人信息追踪表 thisform.grid1.recordsource=个人信息追踪表 THISFORM.text1.value=卡号 THISFORM.text2.value=姓名 THISFORM.text3.value=体重 THISFORM.text4.value=测量日期 THISFORM.text5.value=胸围 THISFORM.text6.value=腰围 THISFORM.text7.value=臀围 THISFORM.text9.value=大腿 THISFORM.text10.value=上臂 THISFORM.COMMAND1.CAPTION=添加 THISFORM.COMMAND2.CAPTION=修改 THISFORM.COMMAND6.CAPTION=退出 THISFORM.COMMAND4.CAPTION=查询 THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.T. THISFORM.COMMAND3.ENABLED=.T. THISFORM.COMMAND4.ENABLED=.T. THISFORM.COMMAND5.ENABLED=.T. THISFORM.text1.ENABLED=.F. THISFORM.text2.ENABLED=.F. THISFORM.text3.ENABLED=.F. THISFORM.text4.ENABLED=.F. THISFORM.text5.ENABLED=.F. THISFORM.text6.ENABLED=.F. THISFORM.text7.ENABLED=.F. THISFORM.text9.ENABLED=.F. THISFORM.text10.ENABLED=.F.ENDIF卡资料维护Page1的command1的click事件IF THIS.CAPTION=查询 THISFORM.pageframe1.page1.Text1.VALUE= THISFORM.pageframe1.page1.Text2.VALUE= THISFORM.pageframe1.page1.Text3.VALUE= THISFORM.pageframe1.page1.Text1.ENABLED=.T. THISFORM.pageframe1.page1.Text2.ENABLED=.F. THISFORM.pageframe1.page1.Text3.ENABLED=.F. THISFORM.pageframe1.page1.COMMAND1.CAPTION=确定 &更改换钮标题 THISFORM.pageframe1.page1.text1.SETFOCUS &让Ctext1获得焦点ELSE SELE 卡表 LOCA FOR (ALLT(会员类型)=ALLT( THISFORM.pageframe1.page1.Text1.VALUE) ) IF EOF() &如果没有该类型,提示用户 =MESSAGEBOX(没发现该类型会员记录,请检查！,0+48,提示) THISFORM.pageframe1.page1.Text1.SETFOCUS RETURN ENDIF &因为没找到对应记录后,指针已指向库尾,现要将指针指向原记录.判断的标准是:如果记录数比记录号还小,则指针指向尾记录,否则指向原记录号 THISFORM.pageframe1.page1.Text1.VALUE=会员类型 THISFORM.pageframe1.page1.Text2.VALUE=价格 THISFORM.pageframe1.page1.Text3.value=备注 THISFORM.pageframe1.page1.COMMAND1.CAPTION=查询&恢复按钮原先标题 THISFORM.pageframe1.page1.Text2.ENABLED=.T. THISFORM.pageframe1.page1.Text3.ENABLED=.T.ENDIFTHISFORM.pageframe1.REFRESHPage1的grid1的cafterowcolchange事件LPARAMETERS nColIndexSELE 卡表THISFORM.pageframe1.page1.text1.VALUE=会员类型THISFORM.pageframe1.page1.text2.VALUE=价格THISFORM.pageframe1.page1.text3.VALUE=备注THISFORM.pageframe1.REFRESHPage2的command1的click事件IF THIS.CAPTION=修改 THISFORM.pageframe1.page2.Text1.VALUE=会员类型 THISFORM.pageframe1.page2.Text2.VALUE=价格 THISFORM.pageframe1.page2.Text3.value=备注 THISFORM.pageframe1.page2.COMMAND1.CAPTION=保存 &更改换钮标题 THISFORM.pageframe1.page2.text1.SETFOCUS &让Ctext1获得焦点ELSE SELE 卡表 M_JLH=RECN() LOCA FOR (ALLT(会员类型)=ALLT( THISFORM.pageframe1.page2.Text1.VALUE) ) AND RECN()#M_JLH IF !EOF() &如果有该类型,提示用户 =MESSAGEBOX(发现同类型会员记录,请检查！,0+48,提示) THISFORM.pageframe1.page2.Text1.SETFOCUS RETURN ENDIF IF RECC()M_JLH &因为没找到对应记录后,指针已指向库尾,现要将指针指向原记录.判断的标准是:如果记录数比记录号还小,则指针指向尾记录,否则指向原记录号 GO BOTTOM ELSE GO M_JLH ENDIF REPL 会员类型 WITH THISFORM.pageframe1.page2.Text1.value ,价格 WITH ALLT(THISFORM.pageframe1.page2.Text2.VALUE),备注 with (THISFORM.pageframe1.page2.Text3.value) THISFORM.pageframe1.page2.COMMAND1.CAPTION=修改&恢复按钮原先标题 ENDIFTHISFORM.pageframe1.REFRESHPage3的command3的click事件delete thisform.pageframe1.page3.grid1.refresh thisform.pageframe1.page3.grid1.recordsource=卡表page4的command4的click事件IF THIS.CAPTION=添加 THISFORM.pageframe1.page4.Text1.VALUE= THISFORM.pageframe1.page4.Text2.VALUE= THISFORM.pageframe1.page4.Text3.value= THISFORM.pagefra