| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 692 人关注过本帖
标题:[求助]有些代码不懂了。。
只看楼主 加入收藏
fyqabc
Rank: 1
等 级:新手上路
帖 子:110
专家分:3
注 册:2006-3-4
结帖率:54.55%
收藏
 问题点数:0 回复次数:9 
[求助]有些代码不懂了。。

在form1的destroy事件中有以下代码:

if select ("textfile")>0 && select 后面的代码是什么意思?

use in textfile 这一整行都不明白。。。

endif


--------------------------------------------------------------------------------


在command1的click事件中有以下代码:

if select ("textfile")=0

create cursor textfile (filename c(60) mem m) &&create cursor 后面这些也不懂,mem m中间为什么有个空格?

append bland

endif

relpace textfile.filename with getfile("txt") &&text.filename是什么意思?getfile除了指打开相应的文件类型外,还有别的用法吗?

if empty(textfile.filename)

endif

select textfile

append memo mem from (textfile.filename) overwrite &&overwrite是什么意思?

this.parent.edit1.controlsource="textfile.mem" &&this.parent是什么意思?

this.parent.command2.enabled=.T.


--------------------------------------------------------------------------------


Local lc0ldsafe &&这一行代码超不明白。。。

if !empty(textfile.filename)

lc0ldsafe=set("safefy") &&这个也不懂。。。

set safety off &&这是不是设置文件保护的?

copy memo textfile.mem to (textfile.filename)

set safety on

endif

至此结束,知道的朋友,指点一二,谢谢。。

搜索更多相关主题的帖子: 代码 
2006-08-05 11:44
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 

if select ("textfile")>0 &&如果打开表TETXTFILE的工作区大于0
use in textfile &&在TEXTFILE的工作区打开表

endif


有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:32
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
create cursor textfile (filename c(60) mem m)  &&create cursor 创建一个表TEXTFILE,有两他字段,第一个FILENAME(文件名称) 字符型 六十长度  第二个字段 备注型,字段与类型之间要有空格

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:36
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
relpace textfile.filename with getfile("txt") &&text.filename是什么意思?
TEXTFILE.FILENAE是指明TEXTFILE表的FILENAME字段
getfile的用法参考帮助吧

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:37
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 

OVERWRITE

用文件的内容替换备注字段当前的内容


有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:38
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 

this.parent.edit1.controlsource="textfile.mem"
THIS.PARENT是指明表单上的控件,不过在COMMAND上用THIS只能指明COMMAND上的属性或者在COMMAND上的控件,(好像不太可能),一般情况下要在COMMAND上指明FROM上的控件时要用THISFROM.


有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:40
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 

Local lc0ldsafe &&这一行代码超不明白。。。 这义本地变量

if !empty(textfile.filename)

lc0ldsafe=set("safefy") &&这个也不懂。。。如果上面选择的文件为空,则变量等于SAFEFY

set safety off &&这是不是设置文件保护的? 这个意思是如果在同一目录下有相同文件,不提示是否覆盖


有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:41
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
楼主,我记得你好像在本版块当过版主吧,怎么会把这些基本的东西忘记了呢?

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-08-05 16:42
fyqabc
Rank: 1
等 级:新手上路
帖 子:110
专家分:3
注 册:2006-3-4
收藏
得分:0 
以下是引用fown在2006-8-5 16:36:07的发言:
create cursor textfile (filename c(60) mem m) &&create cursor 创建一个表TEXTFILE,有两他字段,第一个FILENAME(文件名称) 字符型 六十长度 第二个字段 备注型,字段与类型之间要有空格

HO,MY 嘎。。。我把它想复杂了。。。我把textfile看着是什么代码了。。。原来是SQL语言中表定义的语句。。。

平常用SQL定义表的时候,表名和字段名都是用的中文汉字,这儿只不过变了个样,一下子就不懂了,真是的!

谢谢,非常感谢!!!

[此贴子已经被作者于2006-8-6 21:05:31编辑过]


工欲善其事,必先利其器!
2006-08-06 21:01
fyqabc
Rank: 1
等 级:新手上路
帖 子:110
专家分:3
注 册:2006-3-4
收藏
得分:0 

呵呵。。。承谋厚爱。。

我哪里是什么版主哟。你才是真正的版主。。。


工欲善其事,必先利其器!
2006-08-06 21:02
快速回复:[求助]有些代码不懂了。。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017164 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved