求做一个简单vfp的程序代码
有如图DBF表。求一个vfp的程序代码（有1个文本框。二个命令按钮/1个查询/1个退出）
要求：得文本框输入文本。按下查询按钮.查询文本框中文本。对应该表中的Bh。并查询表中Sl中数大于1的。并输出所有合条件的数据为一个Excel表到桌面.
正确的增加悬赏100.
DELETE FILE myxls.xls
ENDIF
cbh=ALLTRIM(thisform.text1.Value)
IF !EMPTY(cbh)
SELECT * from book WHERE bh=cbh.and.sl>1 ORDER BY bh INTO CURSOR temp
SELECT temp
IF RECCOUNT()>0
oShell = CREATEOBJECT("WScript.Shell")
lcdesktop = oShell.SpecialFolders("Desktop")
COPY TO myxls.xls TYPE xl5
oLink = oShell.CreateShortcut(lcdesktop + "\myxls.lnk")
lcfile = SYS(5)+SYS(2003)+"\myxls.xls"
oLink.TargetPath = lcfile
oLink.IconLocation = lcfile
oLink.WorkingDirectory = JUSTPATH(lcfile)
oLink.WindowStyle = 3
oLink.Save()
MESSAGEBOX("已经成功转为电子表格到桌面",48,"系统提示")
thisform.release
ELSE
MESSAGEBOX("查无记录",48,"系统提示")
thisform.text1.Value=""
thisform.text1.SetFocus
ENDIF
ENDIF
求做一个简单vfp的程序代码
MESSAGEBOX("查无记录",48,"系统提示")thisform.text1.Value=""thisform.text1.SetFocus ENDIF ENDIF
求个VFP小程序编写
IF !EMPTY(A(i)) AND ATC(B, A(i)) > 0 && 判断A(i)是否包含变量B C(j) = A(i)j = j + 1 ENDIF ENDFOR IF j = 1 ? "未找到包含变量B的数组。"ELSE ? "包含变量B的数组有："FOR i = 1 TO j - 1 ? C(i)ENDFOR ENDIF 解释一下这个程序的过程：首先，定义了一个...
VFP常用的命令代码
1、CREATE 作用：建立一个新的表。格式：CREATE [<文件>|?]（注意，命令字符可取前面四个字符，后面可省略不写，即CREA ，下同；中括号表示其中的参数是可选的；|管道符号表示两个参数只能选择一个，不能同 时选择，下同。）说明：文件指建立以.dbf为扩展名的VFP数据库文件，在命令后面加上一个...
求一个简单的VFP程序,可以验证身份的……
一般而言一个完整的vfp程序如果没有编译时，是两个文件的：一个为scx后缀,另一个为sct后缀，在这可没法放上去。如果是一段语句，这样就行：IF 输入的名字 <> "XXXX"MESSAGEBOX("不正确，请重新认证！",0+48+0,"系统提示")RETURN ELSE 可以登录 ENDIF ...
关于VFP(Visual FoxPro)的程序文件,如何创建输入用户名和密码的程序文件...
建立一个简单的程序文件来实现输入用户名和密码功能：开始程序，提示用户输入用户名：accept "请输入用户名:" to name 接着提示用户输入密码：accept "请输入密码:" to pass 设定初始值n为1，开始执行循环：do while 。t 判断用户名是否为"张三"，密码是否为"1234"：if name="张三" and pass="...
求VFP程序代码
若已知a,b,夹角C,C的单位是度,则 c=sqrt(a^2+b^2-2*a*b*cos(C*pi()\/180))
跪求VFP程序
1.题程序 v_cnt=0 v_sum=0 for i=1 to 100 if mod(i,7)=0 then v_cnt=v_cnt+1 v_sum=v_sum+i endif endfor ?v_cnt,'个，和为',v_sum 2.题程序 input 'n=' to n ok=1 for i=2 to n-1 if mod(n,i)=0 then ok=0 endif endfor if ok=1 then ?n,'是素数'...
VFP的主程序如何编写
Set Talk Off &&关闭命令显示 Set Escape Off &&禁止运行的程序在按 Esc 键后被中断 Set Exclusive Off &&数据库表以共享方式打开 Set Deleted On &&过滤掉已带删除标记的记录 Set Safety Off &&指定在改写已有的文件时不显示对话框 Set Date Ansi &&设定日期的年份为 4 位数 S...
急求大神解答 vfp的代码
&&设置表单控件的有关属性值：text1的VALUE属性值为0，text2的VALUE属性值为""在转换按钮的CLICK事件里写以下代码：N10 =thisform.text1.value &&将需要转换的十进制数赋给变量N10C02='' &&保存二进制数字的串变量，开始为空do while N10>0 &&当输入的十进制数大于0时开始循环 N=mod...
求VFP一个程序,九九表
我不大懂VEP,所以附上Basic程序:FOR I=1 TO 9 FOR J=1 TO 9 A=I*J PRINT I;"*";J;PRINT USING"!!!";"=";A NEXT J PRINT NEXT I
