vf编写程序

①创建表单，添加两个标签、两个文本框和一个命令钮。

②设置标签和命令钮caption (用户名,口令,确认)，命令钮Default设为.T.

③设text2的InputMask为：999或=“999”•

④设Text2的PasswordChar值•

⑤从“表单”中选“新建属性”，添加新属性num，并设默认0 。

⑥设置命令钮的click事件代码：（验证用户名abc,口令123456，是则显示欢迎使用并关闭；否则显示重输，三次不正确显示登录失败，关闭表单）

if thisform.text2.value="123456"

wait "欢迎进入 本系统…" wind time 2

thisform.releaseelse

thisform.num=thisform.num+1

if thisform.num=3

wait"你无权进入本系统!" wind time 2

thisform.release

else

wait "口令不正确，请重输!" wind timeout 2

endif

endif

vf中的程序的编写题目：编写程序exercise2.prg，要求从“course.dbf”中，根据输入的课程号，查找该课程的课程名、学时数、学分等信息，查找结果显示在屏幕上，如果找不到则输出“XX课程不存在！”(XX是输入的课程号)。

我是这样写的

set default to e:\20138566

set exact on

use course

accept "请输入课程号：" to rm

locate for 课程号=rm

if found() then

display

else

?rm+"课程号不存在！"

endif

use

return

步骤一、表一创建：set status on

set talk on

cd E:\my   //*选路径*//

create 表一（按回车）然后进入表的编辑 输入字段，完成保存

步骤二、表二的创建 与表一完全相同 略.步骤三  update 表一  set 表一.成绩=表二.数学成绩+表二.语文成绩 where 表一.姓名=表二.姓名

---