VF计算机二级考试必看(细节讲解)

case k='1' &&当变量k的值等于1时
do a:\input &&计算机跳转到a:\input子程序
case k='2' &&当变量k的值等于2时
do a:\modify &&计算机跳转到a:\modify子程序
case k='3' &&当变量k的值等于3时
do while.t. &&当条件成立时计算机做下面的语句
hz1=substr(b1,x,29) &&取字符串b1从第1个字符到第29个字符赋给变量hz1
@25,51 say hz1 &&在第25行第51列显示字符串hz1
bb=inkey(0.6) &&将等待0.6秒击键的inkey 函数赋给bb
set fweek to 1
set mark to ‘.’
Set separator to ‘.”
Set point to ‘.’
环境还原
程序名称：RESET.PRG
set sysmenu to default
set sysmenu on
set talk on
set notify on
（一）设计思路：
（1）建立一个数据库：密码库，
（2）并创建表checker.dbf，
（3）其中字段公别为Cpassword（密码）、Name（合法用户名）、Rank（权限等级）。
（二）输入密码表单的设计：
<1>通过组合框(combo box)选择合法用户，并在其Interactivechange事件中编写代码令输入密码的文本框得到焦点（允许输入值了），该事件发生在当控件的value值改变时。
set palette off
set bell on set safety off
set escape on
set keycomp to windows
set carry on
set confirm on
set exact on
set near on
set ansi off
set lock on
1.学生单（XS.DBF）
字段名类型宽度字段名小数位数
学号C字符型4学号
姓名C字符型8姓名
性别C字符型2性别
出生年月D日期型8出生年月
是否党团员L逻辑型1是否党团员
电话C字符型16电话
通信地址C字符型30通信地址
邮编C字符型6邮编
总成绩N数值型6总成绩2
备注M备注型备注
set exclusive off
set multilocks on
set deleted on
set optimize on
set refresh to 0,5
set collate to ‘stroke’
set default to sys(5)+curdir()
set path to sys(5)+curdir()
endcase &&与do case选择语句相配对
2、环境配置
程序名称：SETTING.PRG
set sysmenu off
set sysmenu to
set status bar off
set talk off
set notify off
set clock status
do a:\search &&计算机跳转到a:\search子程序
case k='4' &&当变量k的值等于4时
do a:\total &&计算机跳转到a:\total子程序
case k='5' &&当变量k的值等于5时
do a:\dp &&计算机跳转到a:\dp子程序
case k='6' &&当变量k的值等于6时
@4,42,28,88 box space(9) &&从左上角第4行第42列到右下角第28行88列产生线框
@7,52 say'==学生学籍管理系统==' &&在第7行第52列显示学生学籍管理系统的字样
@8,50 say'-------------------------------' &&在第8行第50列显示分隔线条
1. 逻辑设计
设计从分析输入数据着手，输入数据中的某类相关数据可以归纳为一个表，对需要同时调用的若干表，应使它们符合关联要求。数据库设计好后，可以通过分析输出数据来验证其可用性，若发现有的输出数据不能从输入数据导出，须继续向用户征集数据。
本例根据学生信息表和课程基本信息表、教师信息表等输入单据中归纳出包括2个表的数据库，现将这些列出如下：
@17,57 say'==5.显示数据==' &&在第17行第57列显示5.打印数据字样
@19,57 say'==6.删除数据==' &&在第19行第57列显示6.退出数据字样
@21,57 say'==7.退 出==' &&在第21行第57列显示7.退出字样
x=1 &&设初值x=1
b1="◆欢迎您使用学生学籍管理系统，请按任意键继续◆重庆工学院吴天美、谭茂燕、袁瑶、王洪梅、曾玲研制。 &&将字符串赋给变量b1
endi &&与if条件判断语句相配对
endd &&与do while循环语句相配对
@27,51 say'请选择1--7：' &&在第27行51列显示请选择1-7：的字样
wait ' ' to k &&计算机等待用户从键盘输入一个字符给变量k
do case &&做选择语句
set exclusive on
set safety on
modity window screen
3.密码功能的设置
密码功能包括输入密码、修改密码、添加用户、删除用户。只有当用户正确输入本人的密码后才能进入系统，更改密码也只允许更改自己的密码。只有单位的主管人员才有权添加用户和删除用户。为此设置了用户等级，这也是由主管人员设定的。用户等级不同，权限就不同。如用户等级为4，仅能进行档案输出的操作。
图中用矩形框表示表，需要关联的两个表用线段连接，在线的一端标出了关联关键字，表明必须在这一端的表中建立索引。
老师
学时数课程
成绩学生
图1.1 表间关联的设计
① 同时调用不同表中的数据，须将它们关联，故而有时要在表中补充字段。
② 数据库设计须注意合理性。若将不同类的数据放进同一个表中，可能会产生数据余。表的分拆往往能减少数据余，但表的个数增多又会增加程序的复杂性，因为须在不同的工作区打开这些表，而且为了实现数据联用定要对表进行关联。
1、物理设计
下面列出学生学籍管理系统所有表的结构与必须的索引，以便于读者理解本例系统，顺便也列出表的部分记录，详细见xs, kc，js。
<2>在“确定”按钮的click事件中编程，先在表中寻找用户名（用locate for语句），再通过判断输入密码与数据库中相应值是否相等来判断密码是否正确。若错误可重新输入，但设置局部变量I来累计输入次数，可设定只能输入三次，当I大于3就释放该表单。并弹出消息框说明不能进入本系统。在主程序中设有全局变量yhdj，若输入密码正确则给yhdj赋值为用户等级字段。
set sysformats off
set seconds on
set century off
set currency left
set currency to ‘nt$’
set hours to12
set date to usa
set decimals to 2
set fdow to1
if bb<>0 &&变量bb不等于0，即有击键动作发生
exit &&那么，不显示字符串
endi &&与if条件判断语句相配对
x=x+2 &&将变量x的值加2赋给x
if x>83 &&如果变量x大于83个字符
x=1 &&那么，将1赋给变量x，即从头开始显示字符串
源程序：
set talk off &&关闭人机对话
set escape off &&设置ESC脱离键不起作用，即误按该键不会终止程序的执行
clear all &&清屏
set colo to 0/7,7/0 &&设置VFP系统的默认颜色
clear &&清屏
@4,42 clear to 30,92
do a:\del &&计算机跳转到a:\del子程序
case k='7' &&当变量k的值等于7时
set colo to 0/7,7/0 &&设置VFP系统的默认颜色
clear &&清屏
retu &&返回VFP主程序
@9,57 say'==1.录入数据==' &&在第9行第57列显示1.录入数据字样