请解释一段VFP程序代码，50分！
SELECT 2
USE data\dyzm.dbf
zap
APPEND FROM data\dyk1.dbf
SELECT 1
COUNT ALL TO a
GO top
j=1
do while not eof()
fzkzh=allt(zkzh)
*i=allt(sx)
i=ALLTRIM(STR(j))
fkch=allt(kch)
*fkaochang=allt(kaochang)
fkcmc=allt(kcmc)
fcj=allt(cj)
fxf=allt(xf)
sele 2
repla all kc&i with fkch,km&i with fkcmc,cj&i with fcj,xf&i with fxf for allt(zkzh)=fzkzh
sele 1
SKIP
j=j+1
enddo
SELECT 2
REPLACE ALL tgms WITH ALLTRIM(STR(a))
use
以上代码是一段VFP小程序的大部分内容，
请从"SELECT 1"开始解释一下，最好一句一句解释，说明每句的作用。
谢谢！
50分！
打开data目录下的dyzm.dbf表
删除dyzm表中所有记录
从data目录下的dyk1.dbf表中拷贝数据到dyzm表
打开工作表1
将总记录数赋值给a
记录指针指向首记录
给j赋值1
（开始循环）
将字段ZKZH左右空格去除后赋值给fzkzh
将j转换为字符型后去除左右空格，然后赋值给i
将kch左右空格去除后赋值给fkch
将kcmc左右空格去除后赋值给fkcmc
将cj左右空格去除后赋值给fcj
将xf左右空格去除后赋值给fxf
选择工作表2
将工作表2的ZKZH字段值等于fzkzh的所有记录的几个字段用对应值替换掉
选择工作表1
记录指针下移1个记录
将j值加1
（结束循环）
打开工作表2
将变量a转换为字符型后去除左右空格，将对应值替换掉tgms字段
关闭当前工作表
求做一个简单vfp的程序代码
MESSAGEBOX("查无记录",48,"系统提示")thisform.text1.Value=""thisform.text1.SetFocus ENDIF ENDIF
请VFP高手帮我解释下代码! 要答辩了 谢谢啊~~
go bottom && 将记录指针定位在表的最后一条记录上 insert into dbf\\ck.dbf values(ckrq,ckdh,ckckh,ckcxdh,ckcsys,ckcllx,ckbz,ckywy,ckzdr) && 插入一记录到 ck.dbf 表中 thisform.grdCk.refresh && 刷新 messagebox("出库成功！",48,"操作成功") && 显示一个 出库成功 else ...
急求大神解答 vfp的代码
&&设置表单控件的有关属性值：text1的VALUE属性值为0，text2的VALUE属性值为""在转换按钮的CLICK事件里写以下代码：N10 =thisform.text1.value &&将需要转换的十进制数赋给变量N10C02='' &&保存二进制数字的串变量，开始为空do while N10>0 &&当输入的十进制数大于0时开始循环 N=mod...
VFP常用的命令代码是什么?
1、CREATE 作用：建立一个新的表。格式：CREATE [<文件>|?]（注意，命令字符可取前面四个字符，后面可省略不写，即CREA ，下同；中括号表示其中的参数是可选的；|管道符号表示两个参数只能选择一个，不能同 时选择，下同。）说明：文件指建立以.dbf为扩展名的VFP数据库文件，在命令后面加上一个...
VFP成绩等级的代码怎么写?急急急
在text1控件的lostfocus过程中写下如下程序：t1=this.value do case case t1>=90 and t1<=100 thisform.text2.value="优"case t1>=70 and t1<=89 thisform.text2.value="良"case t1>=60 and t1<=69 thisform.text2.value="及格"other thisform.text2.value="不及格"endcase ...
vfp主程序
1、主程序直接调用denglu.scx就是 Do Form denglu.scx 2、调用菜单的语句放在主界面的Init事件中 Do 主菜单.mpr with this,.t.
请使用VFP编写一个登录界面的代码,并写出来
新建一个表单，添加一个文本框，添加一个命令按钮（其余的修饰控件自己解决）form1.init代码：public times,mima times=0 mima="a1b2c3"this.caption="登录"thisform.text1.passagewordmark="*"command1.click代码 if thisform.text1.value==mima messagebox("登录成功！")release mima thisform....
vfp程序代码 到底哪里错了?说有不能识别的谓语
对于此段代码来说，建议进行如下处理（仅给出方案）：my入档编号=ThisForm.cntData.txt入档编号.valuemy档案编号=ThisForm.cntData.txt档案编号.valuemy档案名称=ThisForm.cntData.txt档案名称.valuemy入档时间=ctod(ThisForm.cntData.txt入档时间.value)my经办人=ThisForm.cntData.txt经办人.valuemy...
关于vfp锁住和解锁数据表程序代码
myalias=alltrim(thisform.list1.value)select &myalias.if flock("&myalias")thisform.label1.caption="数据表被锁定！"else thisform.label1.caption="数据表锁定不成功！"endif endif Command2 Click if !empty(thisform.list1.value)myalias=alltrim(thisform.list1.value)unlock in &myalias. &&...
VFP里面登陆账号和密码的代码编写
PUBLIC CS,pa CS=0 &&定义全局变量，控制登录次数 pa=.f. && 登录是否成功 use pass “确定”的click:IF CS<3 locate 用户号=trim(text1.value)if found()text2.value=用户名 else messagebox('无此用户！',0+16)return endif if allt(密码)==allt(text3.value)pa=.t.else messag...
