vf这几个命令怎么写啊··

vf这几个命令怎么写啊··,第1张

use 表名
x=recno()
list all for x>=2 and x<=5
go 3
insert blank
replace
delete record 3
go bottom
delete
pack

在VF中所有的代码并不像VB那样集中显示,如果是毕业论文的附录需要代码,没别的办法,只能一段一段地复制,再粘贴到WORD之类的文字处理软件中。
thisformtimerinterval="时间间隔"
101800207asx
1、题库,可以是两个字段,一个题,一个答案。
2、表单:在text的valid事件中加入判断,是否下移

首先,新建一个表单后,点保存,输入名称后会出现一个路径,选择你的U盘,保存在里面就好了,Visual FoxPro一个表单由两个文件组成: SCX 和 SCT~
而其实真正把每个表单集或表单保存在以扩展名为SCX的表中,同时每个表单的SCX文件都有个以SCT为扩展名的同名备注文件~下次你打开VFP后,把那个SCX文件拉到命令窗口就可以打开~~~
在U盘里面,可以设置默认目录,set default to 比如说F:\

这是一个主程序,具体使用如下
建立一个程序文件
输入以上代码
将该程序添加到相应的项目中
设置该程序为主程序<辅涪滇皇鄄郝殿酮东捆br />点击项目管理器中的连编,vf会自动生成一个exe文件
至于各个语句的含义,上面的程序中注释了不少,理解应该没多大困难

将该项目所包含的文件和vf的运行库一起放在一个文件夹内,就是一个绿色版的软件,可以在没有安装vf的机器上使用(用生成的exe文件启动)

你写的代码表里的指针只针向第一条的缘故
这里有个例子可以参考:
——精确比较
SET EXACT ON
——用户名不能为空
IF EMPTY(ALLTRIM(THISFORMtxt用户名VALUE))
MESSAGEBOX("请输入用户名", 48, "图书管理系统")
THISFORMtxt用户名SETFOCUS
RETURN
ENDIF
——密码不能为空
IF EMPTY(ALLTRIM(THISFORMtxt密码VALUE))
MESSAGEBOX("请输入密码", 48, "图书管理系统")
THISFORMtxt密码SETFOCUS
RETURN
ENDIF
——登录次数加1
THISFORMi = THISFORMi + 1
——获取用户与密码
UserName = ALLTRIM(THISFORMtxt用户名VALUE)
UserPass = ALLTRIM(THISFORMtxt密码VALUE)
——登录类型
ValidUser = F
errType = ""
SELECT UserInfo
——查找匹配的用户名与密码
LOCATE FOR UserInfo用户名 = UserName
IF FOUND()
IF UserInfo密码 = UserPass
ValidUser = T
PUserName = UserName
THISFORMRELEASE
DO FORM FORMS/MainForm
ELSE
errType = "wrongpass"
ENDIF
ELSE
errType = "wronguser"
ENDIF
——如果用户登录不成功
IF ValidUser = F
——检查是滞已经试图登录3次
IF THISFORMi >= 3
MESSAGEBOX("试图登录次数达到规定次数", 48, "图书管理系统")
THISFORMRELEASE
CLEAR EVENT
ELSE
——如果没有
——根据错误代码d出对话框
IF ErrType = "wronguser"
MESSAGEBOX("用户不存在", 48, "图书管理系统")
THISFORMtxt用户名VALUE = ""
THISFORMtxt用户名SETFOCUS
RETURN
ELSE
MESSAGEBOX("密码错误", 48, "图书管理系统")
THISFORMtxt密码VALUE = ""
THISFORMtxt密码SETFOCUS
RETURN
ENDIF
ENDIF
ENDIF

保存时vfp会检查一些非逻辑错误, 比如 写了if没写endif 这时根据错误提示检查,如果是在查不出来,就忽略错误,继续保存

老师阅卷时当然不可能仅仅运行下程序,ok的就满分,不ok的就0分
肯定要看代码的,有错误就扣除部分分数


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/12900089.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-28
下一篇 2023-05-28

发表评论

登录后才能评论

评论列表(0条)

保存