1. VFP 提取資料庫中數據的命令
假設有一個學籍表,有一個欄位名入學成績,要輸出入學成績最大值。程序如下:
clear
use
學籍
max=入學成績
do
while
not
eof()
if
max<入學成績
max=入學成績
endif
skip
enddo
?"入學成績最大值是:",max
use
return
或者用scan結構去寫:
clear
use
學籍
max=入學成績
scan
if
max<入學成績
max=入學成績
endif
endscan
?"入學成績最大值是:",max
use
return
2. vfp中parameter作用
以買股票為例具體說明一下:
一個【提交程序】給定了4個參數:
1、買(或賣) && .T.就是買,.F.就是賣
2、股票代碼 && 代碼
3、數量 && 1=100,2=200......
4、價格 && 單價/股
【提交程序】這樣寫:
para mm,dm,sl,jg
*如果(mm不是邏輯型T/F則報錯。所有參數可以通過這種方法校驗一下
if type('MM')#'L'
messagebox('第一個參數:買賣必須是邏輯型')
retu
endif
if MM
語句:買入=dm,股數=SL*100,單價=JG
else
語句:賣出=dm,股數=SL*100,單價=JG
endif
return
調用方法多種,下面是【提交程序】作為自定義函數調用方法:
?提交程序(.T.,'600020',2,10) &&計劃買入10元買入600020股票200股。
3. 如何用vfp提取excel表格中的數據
excel導入到VFP中,使用import命令,如:
IMPORT FROM 表1.xls TYPE xl8
將表1.xls導入為表1.dbf
---------------------------------------------------------------
用VFP導入
點擊「文件」->導入->
類型選擇:「Microsoft Excel 5.0 和 97 (XLS)」
來源於選擇:你要導入的Excel文件
工作表:默認為Sheet1,如是你要把Excel文件中Sheet2中內容導過來,就選擇「Sheet2」
->最後點擊導入即可。
******************************************************************
*如果導入時出現提示:致命錯誤:異常代碼=C0000005
*可以把Microsoft Excel 在保存時存為Microsoft Excel 5.0/95 格式或4.0格式。這樣就能導入了。
******************************************************************
以上操作相當於如下命令操作:
IMPORT FROM 你的表.xls TYPE XL8 SHEET "Sheet2"
有時需要把Excel表另存為「Microsoft Excel 5.0 和 97 (XLS)」 格式後,再用以上命令進行導入。
如果VFP表已存在,並且EXCEL表格式與VFP表格式一樣,也可以用以下:
use VFP表名
APPEND FROM Excel表.xls TYPE xl5
----------------------------建議---------------------------
導出
to 1.xls type xl5
導入
import from 1.lxs type xl8
或
import from 1.lxs type xl5
或
如果VFP表已存在,並且EXCEL表格式與VFP表格式一樣,也可以用以下:
USE 表.DBF
APPEND FROM GETFILE('XLS', '','', 0, '選擇一個EXCEL文件') TYPE XL5 &&或XL8
如果VFP表不存在,導入時直接創建(名字自定義),且導入後存放的位置不定:
IMPORT FROM (GETFILE('XLS', '','', 0, '選擇一個EXCEL表,然後另存為DBF表')) TYPE XL5 &&或XL8
COPY TO PUTFILE('', '', 'DBF')
lcTmpTable=DBF()
CLOSE DATABASES
DELETE FILE (lcTmpTable)
4. vfp如何實現從網頁抓取數據
首先,物理刪除必須獨占打開表,然後delete之後運行PACK命令進行物理刪除。但是為什麼要物理刪除再添加呢?直接用UPDATE更新不就行了嗎?要知道獨占打開表在多用戶環境下會出大問題的。
5. vfp的題。幫個忙
1.「計算」 選「過程」
代碼:open database <資料庫名>
use stock_sl
select 0
use stock_fk
select 股票代碼,(買入價-現價)*持有數量 浮虧金額 ;
from stock_sl where 現價<買入價 into array abc
delete from stock_fk
pack
insert into stock_fk from array abc
select sum(浮虧金額) from stock_fk into array k
create table stock_z (浮虧金額 N(11,2))
insert into stock_z from array k
2.「退出」 選「命令」
代碼:
set sysmenu to default
3.「菜單」 菜單 選 「生成」
輸入菜單名「menu_lin」
6. 可以用vfp程序獲取分析實時股票數據嗎
用vfp系統只能調用vfp系統的文件dbf ,也可以從其它文件調入數據, 因VFP系統屬於小型單單機資料庫,許多股票數據基本上網路大型資料庫 如ms sql 資料庫系統互相不兼容,數據不識別。
7. 用vfp如何獲取雙色球彩票數據
這個問題很有趣。你是否要做一個模擬雙色球搖獎的程序?我可以做哦
clea
public myjh
?rand(-1)
=messagebox("搖號開始",0+48+0)
yjh=1
myjh=''
for i=1 to 6
do while .t.
yjh=int(rand()*100)
if yjh<10
syjh='0'+str(yjh,1)
else
syjh=str(yjh,2)
endif
if yjh>33 or yjh=0 or at(syjh,myjh)<>0
loop
else
exit
endif
enddo
if yjh<10
syjh='0'+str(yjh,1)
else
syjh=str(yjh,2)
endif
myjh=myjh+syjh+spac(2)
endfor
do whil .t.
yjh=int(rand()*100)
if yjh>16 or yjh=0
loop
else
exit
endif
enddo
if yjh<10
syjh='0'+str(yjh,1)
else
syjh=str(yjh,2)
endif
myjh=myjh+"+"+syjh
=messagebox("搖號結果如下:"+chr(13)++myjh,0+48+0)
這個程序很簡易,可以搖出一組號碼,還可以完善一下,比如,輸入幾組幸運數字,或者排除最近n期的數字,等等。有興趣的可以探討。