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打開源程序的工程文件就可以看見源代碼了