vfp源码

㈠ VFP源代码的网站

梅子论坛www.meizibbs.3322.org

㈡ vfp追加来源选项的源代码

从定义这个变量的地方查起，肯定是哪里错了！

㈢ vfp我下载了一个源代码文件，谁能告诉我它怎么用

vfp程序文件的扩展名是.prg
你可以用vfp打开后来运行，或者可以新建一个项目，再把这个文件添加进去，然后编译为.exe应用程序

㈣ 怎么查看VFP表单向导的源代码

这些按钮的代码比较多，就不一一贴上了，告诉你一个查看（复制）这些代码的方法。
运行VFP后，选择“文件”——“打开”——“文件类型”——“可视类库( *.VCX)”，到VFP安装目录下找到“Wizards”文件夹——“wizbtns.vcx”——选择左边的 “txtbtns”，就打开这些按钮的编辑方式，点击对应的按钮，属性中是对应的代码了。

㈤ 请教，vfp如何查看完全的表单的源代码

在表单的init事件里写：thisform.text1.value = “” &&初始化text1，让其输入的值为字符型

按钮事件：
cStr = alltirm(thisform.text1.value)
try
if val(cStr) < 100 &&将字符型转化成数值型并检测是否小于100
thisform.releas() &&小于100则退出表单
endif
CATCH &&如果字符包含了非法字符（val(cStr) 会抛出错误，则跳到此处）则退出表单
thisform.releas()
endtry
&&条件满足了赋值
with thisform
.textbox2.value = subst(cStr,1,1)
.textbox3.value = subst(cStr,2,1)
.textbox4.value = subst(cStr,3,1)
endwith

㈥ VFP文件管理系统的源码

你可以用Adir()试一下,把搜索到的文件名和路径保存到表里面，再从表里搜索你需的文件，如果是所需文件名，则打开。
呵呵，是不是简单了一点？如果有问题，可以E-mail联系我，我的主页上面有地址和QQ号。

以下是ADIR的帮助说明：
ADIR( ) 函数

将文件信息存放到数组中，然后返回文件个数。

语法

ADIR(ArrayName [, cFileSkeleton [, cAttribute [, cCreatorType]]])

参数
ArrayName

指定数组名。如果数组不存在，Visual FoxPro 将自动创建此数组。如果数组存在，但其大小不足以包含所有信息，则 Visual FoxPro 自动增加数组大小，使得数组能容纳所有信息。如果数组超过了所需大小，Visual FoxPro 将截掉多余部分。如果数组存在，并且 ADIR( ) 函数由于没找到匹配文件而返回 0，则数组保持不变。如果数组不存在，并且 ADIR( ) 函数返回零，则不创建数组。

下表说明了数组中每列的内容及其数据类型：

列 数组内容 数据类型
1 文件名 字符型
2 文件大小 数值型
3 文件最后修改日期 日期型
4 文件最后修改时间 字符型
5 文件属性 字符型

数组的最后一列包含匹配文件的文件属性。每个文件属性值由一个字母表示，一个文件可有多个属性。下表说明每个字母表示的文件属性含义：

字母 属性
A 档案文件 一 可读写
H 隐藏文件
R 只读文件
S 系统文件
D 目录或文件夹

cFileSkeleton

指定文件梗概，以便存储满足搜索条件的文件名或扩展名的文件信息。例如，条件可以是所有表、所有文本文件、所有文件名第一个字母为“A”的文件，等等。这些通配查询在 cFileSkeleton 中可以包含通配符 * 和 ?。其中问号代表单个字符，星号代表任意字符串。在文件梗概中，可在任意位置使用任意个数的通配符。
在 Visual FoxPro、FoxPro for Windows 和 FoxPro for MS-DOS 中，可以指定驱动器和目录名，程序将在此驱动器和目录下搜索匹配文件。如果不指定驱动器和目录名，将把当前目录下的文件信息存入数组中。

在 FoxPro for Macintosh 中，可以搜索匹配文件名的卷和文件夹。如果不指定卷和文件夹，
FoxPro for Macintosh 将当前文件夹中的文件信息存入数组中。

cAttribute

指定在返回内容中包含子目录或嵌套文件夹、隐藏或系统文件、或者卷名。
cAttribute 可以是 D、H 和 S 的任意组合。如果包含 D，除了返回匹配 cFileSkeleton 的文件名外，还将返回当前目录的子目录或当前文件夹的嵌套文件夹。如果包含 H，将返回与 cFileSkeleton 指定相匹配的隐藏文件信息。如果包含 S，将返回与 cFileSkeleton 指定通配文件名相匹配的系统文件信息。
如果 cFileSkeleton 为空字符串，仅返回子目录或嵌套文件夹名、隐藏或系统文件。

cAttribute 参数中包含字符 V，将返回当前驱动器的卷名。如果 V 和 D、H 或 S 一起包含在数组中，则只返回卷名。卷名存入数组的第一个元素中，并截去数组的其余部分。

cCreatorType

仅用于 FoxPro for Macintosh。
用指定的创建程序类型指定文件。如果参数 cFileSkeleton 为空字符串，则仅有匹配指定创建程序类型 cCreatorType 的文件放置到数组中去。如果在参数 cfileSkeleton 中有一个文件梗概，则匹配文件梗概且具有 cCreatorType 指定的创建程序类型的文件被放入数组中。
若要获取 FoxPro for Macintosh 所有的文件扩展名以及相关的创建程序类型，请参阅文件扩展名与文件类型。

返回值类型

数值型

说明

对于每一个文件，ADIR( ) 将文件名、大小、日期、时间和属性信息存入数组。

㈦ vfp源码 三范式

提问要说清楚点，不要只把题目COPY过来，要有语境的。

㈧ 求vfp编写的小写金额转换为大写金额的源码

借用别人的代码，已经在收费系统上运行一年多了，应该没问题了

FUNCTION rmbupper()
lParameters mmje &&输入变量：数字型，小于9万亿,大于-9万亿
Private dx,aa,i
dx=Iif(mmje<0,'负','')
aa=Round(Abs(mmje)*100,0)
For i=Len(Alltrim(Str(aa,15)))-1 To 0 Step -1
dx=dx+Subs('零壹贰叁肆伍陆柒捌玖',Int(Round(aa/10^i,10))*2+1,2)+Subs('分角元拾佰仟万拾佰仟亿拾佰仟万',i*2+1,2)
aa=Mod(aa,10^i)
Endf
dx=Strtran(Strtran(Strtran(Strtran(Strtran(dx,'零仟','零'),'零佰','零'),'零拾','零'),'零角','零'),'零分','整')
dx=Strtran(Strtran(Strtran(Strtran(Strtran(dx,'零零','零'),'零零','零'),'零亿','亿'),'零万','万'),'零元','元')
Return Iif(dx='整','零元整',Strtran(Strtran(dx,'亿万','亿'),'零整','整'))
ENDFUNC

㈨ 我在网上下了几个VFP的程序，请问如何在程序中找出源代码

如果是exe文件而且你确定是VFP编译的而且没有被加密，那么可以使用UnfoxAll或者FoxTools之类的反编软件进行反编译，如果你下载的就是源程序的话，用VFP打开源程序的工程文件就可以看见源代码了