目录1．系统主要功能………………………………32．系统主菜单…………………………………43．数据库和表…………………………………54．主要输出与输入界面…………………………65．关键事件的代码……………………………86．课程设计人员分工…………………………107．附：参考书目……………………………111．系统主要功能(1)提供对所有参加抽奖人员信息准确入库的功能；(2)具有在抽奖前对抽奖程序初始化的功能(总人数、抽奖依据的关键字-身份证号或上手机号、中奖标志清为.F.等)(3)提供从现场人员信息中连续抽取幸运者而不致出现重复抽取中奖人的功能；(4)有保存整场晚会中所有中奖人员的相关信息的功能(以便事后寄发奖品)。2．系统主菜单：菜单的执行结果大多是使用“命令”，其中运行表单的命令格式是：DOFORMFORMS\表单名.scx运行报表命令格式是：REPORTFORMREPORTS\报表文件名.frx运行标签命令格式是：REPORTFORMREPORTS\标签文件名.lbx显示系统说明书是过程实现的，调用ie交显示.htm文件中的系统说明书的过程代码是：Myie=CREATEOBJECT(“InternetExplorer.Application”)Myie.Visible=.T.Myie.Navigate("D:\晚会幸运抽奖系统\Help\系统使用说明.htm")数据准备2．数数据录入数据备份数据恢复抽奖程序中奖结果系统初始化开始抽奖退出抽奖程序显示中将结果打印中奖结果打印中奖者标签关于系统系统使用说明退出系统帮助系统帮助3．数据库和表本系统创建以下多个数据表：（1）用户名和密码表，表名是管理员登录表.dbf字段字段名类型宽度小数位索引排序1姓名字符型82密码字符型6**总计**15(2)现场人员信息表,表名是现场人员信息表.dbf字段字段名类型宽度小数位1姓名字符型82性别字符型23单位字符型124身份证号字符型185手机号字符型116中奖标志逻辑型1**总计**53(3)中奖人员信息表,表名是中奖人员信息表.dbf字段字段名类型宽度小数位1序号字符型22姓名字符型83身份证号字符型184手机号字符型11**总计**404.主要输入输出界面如下：(1)管理员登录表单：(2)抽奖表单(初始界面)：(3)抽奖表单(抽奖时界面)：(4)中奖人员信息显示5.表单中关键事件中的代码：(1)幸运抽奖表单中的事件代码管理员登录表单：数据环境：管理员登录表.dbf[登录]按纽的ClickEventxm=Trim(thisform.text1.value)Locateforxm=Trim(姓名)Ifeof()=.f.Iftrim(thisform.text2.value)==trim(密码)Thisform.releaseDomenus\主菜单.mprElseMessagebox("输入密码不正确!"+chr(13)+"请重新输入",16,"登录失败")Endifthisform.text1.value=""thisform.text2.value=""Thisform.text1.setfocusENDIF[退出]按纽的ClickEventThisform.Release欢迎抽奖表单：数据环境：现场人员信息表.dbf、中奖人员信息表.dbfForm1的InitEventThisform.Timer1.Enabled=.F.Thisform.Timer2.Enabled=.F.Thisform.Label1.Visible=.F.Thisform.Label2.Visible=.F.Thisform.label2.fontsize=8Thisform.label2.left=180Thisform.label2.top=100[按键开始]按纽的ClickEventThisform.timer1.enabled=.T.Thisform.timer2.enabled=.F.Withthisform.Label1.Visible=.F..label2.fontsize=8.label2.left=180.label2.top=100.label2.visible=.F.Endwith[Timer1]的TimerEventSELECT现场人员信息表Zrs=reccount()Sjs=int(rand(-1)*zrs)+1GosjsIf中奖标志=.f.Sfzh=身份证号Fori=1to18Sz=substr(sfzh,i,1)J=str(i,iif(i<10,1,2))Thisform.text&j..value=szEndforEndif[抽奖]按纽的ClickEventWithThisform.timer1.enabled=.F..timer2.enabled=.T..Label1.Visible=.T..label2.caption=身份证号中奖标志=.T..label2.visible=.T.EndwithScattertoarrayfield姓名,手机号,身份证号Select中奖人员信息表AppendblankGatherfromarrayfield姓名,手机号,身份证号Replace序号WithStr(Recno(),2)[Timer2]的TimerEventWITHthisformIf.label2.fontsize<52.label2.fontsize=.label2.fontsize+2.label2.left=.label2.left-2.label2.top=.label2.top+8EndifEndwith6.课程设计人员分工：班级：2008级信管（1）班组别：第二组组长：解静选定设计课题：晚会幸运抽奖系统小组成员序号姓名具体分工1解静程序设计2马娟辅助程序设计3计文忻菜单设计4余永敏库与表5程利平表单6尹文君表单7耿俊东软件说明书编写8冯维维准备测试数据附录:参考书目VisualFoxPro6.0程序设计案例教程郭川军齐景嘉著VisualFoxPro6.0~9.0解决方案与范例大全张洪举著