vfp课程设计脚本范例

《vfp课程设计脚本范例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VFP课程设计脚本设计范例利用项目管理器组织、设计并连编一个学生成绩管理系统应用程序。要求如下：1.系统由数据库、表单、报表、菜单和程序组成；2.系统中有一个数据库，数据库中包括三个数据表：学生表、课程表、成绩表，学生表中包括4个班,每个班3—5名学生，课程表中包括4门课程，成绩表至少有20条记录；3.系统能够通过菜单实现数据维护、浏览、查询、报表、退出等基本功能；可以自行设计使系统具有更强的功能；4.要求应用程序主窗口拥有非VFP系统默认的标题和图标，进入系统时应设置具备口令检查功能的主界面，该口令在进入系统后可以通过菜单中的相关命令来修改；5.项目中所有文件名均应冠以自己

2、的姓名（中文或拼音均可），以免与其他同学混淆。附：数据库要求一览表（1）建立三张数据表，其要求如下表所示：表名字段名字段类型与长度字段规则与说明默认值标题学生表XHC(8)　"81991001"学号XMC(8)　　姓名XBC(2)"性别只能是男或女""女"性别CSRQD"年龄在18至22岁之间"　出生年月BJC(10)  班级课程表KCHC(4)  　课程编号KCMC(14)　　课程名称XFN(3,1)"学分大于0"1学分JSC(8)  任课教师成绩表XHC(8)  学号KCHC(4)  课程号CJN(5,1)"成绩大于0"60成绩（2）建立索引：数据表名称索引名称索引类型索

3、引表达式学生表No主索引XHName普通索引XM课程表Sub_No主索引KCHSub_name普通索引KCM成绩表Student主索引XH+KCH+STR(CJ,4,1)Mark普通索引CJ(3)建立学生表与成绩表、课程表与成绩表的关联,关键字是分别是XH字段和KCH字段。VFP课程设计指导VFP课程设计难点分析之一——主界面和退出表单的设计一.主界面的设计1.主界面的组成对象：（1）主表单：其主要属性的设置如下：Name="Form1"Caption="主界面"Picture="sj128.bmp"Icon="大自然.ico"Height=454MaxButton=.F.W

4、indowType=0AutoCenter=.T.Width=633MinButton=.F.WindowState=0Closable=.F.（2）命令按钮：共有三个命令按钮，其属性分别如下：Name="Command1"Name="Command2"Name="Command3"Caption="开 始"Caption="确 定"Caption="退 出"  Visible=.F.  （3）文本框：1个，用来接受口令，其主要属性为：Name="Text1"PasswordChar="*"（4）标签：共2个，一个显示设计者，一个用来提示输入口令，其主要属性分别为：Name=

5、"Label1"Name="Label2"Caption="DesignedbyShiJun"Caption="请输入口令："Visible=.F.（5）时钟控件：共3个，Timer1用来控制Image2和Image3的移动，另2个用来控制Lablel1的颜色变化。Name="Timer1"Name="Timer2"Name="Timer3"Interval=200Interval=1230Interval=843（6）图象控件：共3个，Image1是图片显示的主标题，另2个是欢迎图片。Name="Image1"Name="Image2"Name="Image3"Pictur

6、e="标题.bmp"Picture="welcome.bmp"Picture="welcome.bmp"（7）多媒体控件：在主界面表单运行过程中用来播放背景音乐。Name="SoundPlayer1"SoundFile="D:SJRVFP课程设计FIVE.MID"2.事件代码：command1的Click事件THISFORM.LABEL3.VISIBLE=.T.THISFORM.TEXT1.VISIBLE=.T.THISFORM.COMMAND1.VISIBLE=.F.THISFORM.COMMAND2.VISIBLE=.T.command2的Click事件IFUPPE

7、R(THISFORM.TEXT1.VALUE)=passwDO主菜单.MPRTHISFORM.RELEASEELSEMessageBox("口令不对，您无权使用本系统！",0+16+0,"设置口令")THISFORM.REFRESHENDIFcommand3的Click事件cleareventssetsysmenutodefaTHISFORM.RELEASEtimer1的Timer事件ifthisform.image2.left<0thisform.image2.visible=.f.thisform.