《VFP课程设计脚本范例.doc》由会员分享，可在线阅读，更多相关《VFP课程设计脚本范例.doc（19页珍藏版）》请在金锄头文库上搜索。
1、VFP课程设计脚本设计范例利用项目管理器组织、设计并连编一个学生成绩管理系统应用程序。要求如下：1. 系统由数据库、表单、报表、菜单和程序组成；2. 系统中有一个数据库，数据库中包括三个数据表：学生表、课程表、成绩表，学生表中包括4个班,每个班35名学生，课程表中包括4门课程，成绩表至少有20条记录；3. 系统能够通过菜单实现数据维护、浏览、查询、报表、退出等基本功能；可以自行设计使系统具有更强的功能；4. 要求应用程序主窗口拥有非VFP系统默认的标题和图标，进入系统时应设置具备口令检查功能的主界面，该口令在进入系统后可以通过菜单中的相关命令来修改；5. 项目中所有文件名均应冠以自己的姓名（中
2、文或拼音均可），以免与其他同学混淆。附： 数据库要求一览表（1）建立三张数据表，其要求如下表所示： 表名 字段名 字段类型与长度 字段规则与说明 默认值 标题 学生表 XH C(8) 81991001 学号 XM C(8) 姓名 XB C(2) 性别只能是男或女 女 性别 CSRQ D 年龄在18至22岁之间 出生年月 BJ C(10) 班级 课程表 KCH C(4) 课程编号 KCM C(14) 课程名称 XF N(3,1) 学分大于0 1 学分 JSC(8)任课教师 成绩表 XH C(8) 学号 KCHC(4) 课程号CJ N(5,1) 成绩大于0 60 成绩 （2）建立索引：数据表名称
3、索引名称 索引类型 索引表达式 学生表 No 主索引 XH Name 普通索引 XM 课程表 Sub_No 主索引 KCH Sub_name 普通索引 KCM 成绩表 Student 主索引 XH+KCH+STR(CJ,4,1) Mark 普通索引 CJ (3) 建立学生表与成绩表、课程表与成绩表的关联, 关键字是分别是XH字段和KCH字段。VFP课程设计指导VFP课程设计难点分析之一 主界面和退出表单的设计一. 主界面的设计1. 主界面的组成对象：（1）主表单：其主要属性的设置如下：Name = Form1Caption = 主界面Picture = sj128.bmpIcon = 大自然
4、.icoHeight = 454MaxButton = .F.WindowType = 0AutoCenter = .T.Width = 633MinButton = .F.WindowState = 0Closable = .F.（2） 命令按钮：共有三个命令按钮，其属性分别如下：Name = Command1Name = Command2Name = Command3Caption = 开 始Caption = 确 定Caption = 退 出Visible = .F.（3）文本框：1个，用来接受口令，其主要属性为：Name = Text1 PasswordChar = *（4）标签：共2
5、个，一个显示设计者，一个用来提示输入口令，其主要属性分别为：Name = Label1Name = Label2 Caption = Designed by Shi Jun Caption = 请输入口令：Visible = .F. （5）时钟控件：共3个，Timer1用来控制Image2和Image3的移动，另2个用来控制Lablel1的颜色变化。 Name = Timer1Name = Timer2Name = Timer3Interval = 200Interval = 1230Interval = 843（6）图象控件：共3个，Image1是图片显示的主标题，另2个是欢迎图片。Name
6、 = Image1Name = Image2Name = Image3Picture = 标题.bmpPicture = welcome.bmpPicture = welcome.bmp（7）多媒体控件：在主界面表单运行过程中用来播放背景音乐。 Name = SoundPlayer1 SoundFile=D:SJRVFP课程设计FIVE.MID2. 事件代码：command1的Click事件THISFORM.LABEL3.VISIBLE=.T. THISFORM.TEXT1.VISIBLE=.T. THISFORM.COMMAND1.VISIBLE=.F. THISFORM.COMMAND2.
7、VISIBLE=.T.command2的Click事件 IF UPPER(THISFORM.TEXT1.VALUE)=passwDO 主菜单.MPR THISFORM.RELEASE ELSEMessageBox(口令不对，您无权使用本系统！, 0+16+0, 设置口令)THISFORM.REFRESHENDIFcommand3的Click事件clear eventsset sysmenu to defaTHISFORM.RELEASEtimer1的Timer事件if thisform.image2.leftthisform.width-thisform.image3.widththisfor
8、m.image3.visible=.f. thisform.image2.visible=.t. thisform.image3.left=0thisform.image2.left=thisform.width-thisform.image2.width endifelse thisform.image2.left=thisform.image2.left-10endiftimer2的Timer事件thisform.label5.forecolor=rgb(255,0,0)timer3的Timer事件thisform.label5.forecolor=rgb(0,0,255)二. 退出表单的
9、设计1. 退出表单的组成对象：（1）表单：其主要属性的设置如下：Name = Form1Caption = 退出系统Picture = sj038.bmpIcon = 大自然 .icoHeight = 454MaxButton = .F.WindowType = 0AutoCenter = .T.Width = 633MinButton = .F.WindowState = 0Closable = .F.（2） 标签：共7个，属性如下：Name = Label1Label2Label3Label4Label5Label6Label7Caption =欢迎您再次使用Visible = .F.（3
10、）时钟控件：1个，控制标签的依次出现。 Name = Timer1Interval = 600（4）图象控件：1个，控制表单的退出，起退出按钮的作用。Name = Image1Picture = D:SJRVFP课程设计quitcmdr.bmp2. 事件代码：表单的Activate事件public i,ji=1Image1的Click事件nA=MessageBox(真想退出本系统吗?,4+32+0,退出系统)if nA=6clear eventsquitelsethisform.releaseendifLabel1的Click事件if i=8for k=1 to 7j=str(k,1)this
11、form.label&j.visible=.f.endfori=1elsej=str(i,1)thisform.label&j.visible=.t.do while i8i=i+1exitenddoendifTimer1的Timer事件thisform.label1.clickVFP课程设计难点分析之二浏览成绩表单的设计一. 表单的组成对象本表单由一个包含3个页面的页框组成，主要用来浏览成绩表中的统计信息。1. 表单 主要属性为：Name = browecjCaption = 浏览成绩情况Icon = 大自然 .icoAutoCenter = .T.2. 页框 主要属性为：Name = Pa
12、geframe1PageCount = 3 Page1.Name = Page1Page2.Name = Page2Page3.Name = Page3Page1.Caption = 学生成绩概况Page2.Caption = 按班级浏览Page3.Caption = 按课程浏览（1）页面1的组成：（2）页面2的组成（3）页面3的组成此页面中组合框的主要属性为：Name = Combo1RowSourceType = 1RowSource = 计算机,英语,体育,大学语文二. 事件代码页框pageframe1中Page1的Activate事件do sumcj.prg thisform.page
13、frame1.page1.text1.value=c1 thisform.pageframe1.page1.text2.value=c2 thisform.pageframe1.page1.text3.value=c3 thisform.pageframe1.page1.text4.value=c4 thisform.pageframe1.page1.text5.value=c5 thisform.pageframe1.page1.text6.value=c6 thisform.pageframe1.page1.text7.value=c7 page2中组合框combo1的InteractiveChange事件cc1=this.valuedo clacj.prg thisform.pageframe1.page2.text2.value=cc2 thisform.pageframe1.page2.text3.value=cc3 thisform.pageframe1.page2.text4.value=cc4
