|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期四 五月 08, 2003 9:29 pm 文章主題: 將圖檔存入DBF(轉貼) |
|
|
程式碼 說明
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
LOCAL lcData
定義輸入符號和 Tab 鍵。
SELECT date, close;
FROM Stock WHERE BETWEEN(date, ;
DATE(),DATE() - 30) ;
ORDER BY date INTO CURSOR wtemp
選定想用來更新圖表的資料,在這裡是日期和最後 30 天的股票收盤價格。
SELECT wtemp
lcData = " " + ;
TAB + "Closing Price" + CRLF
SCAN
lcData = lcData + DTOC(date)
lcData = lcData + TAB
lcData = lcData + ;
ALLTRIM(STR(close)) + CRLF
ENDSCAN
從暫存資料表格的資料中產生一個文字串 (lcData) 來更新圖表。
[Closing Price],作為直欄標題,是在圖表的圖例中預設顯示的文字。
SELECT graph
APPEND GENERAL msgraph DATA lcData
將新值透過 APPEND GENERAL 命令的 DATA 子句傳輸到 graph。
USE IN wtemp
關閉暫存資料表格。 |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 2 樓
|
發表於: 星期四 五月 08, 2003 9:33 pm 文章主題: |
|
|
另一個範例示範存入Word
道理相同,
CREATE TABLE oletable (name c(24), worddoc g)
CD GETDIR()
nFiles = ADIR(aWordFiles, "*.doc")
IF nFiles > 0
FOR i = 1 to nFiles
APPEND BLANK
REPLACE Oletable.Name WITH aWordFiles(i,1)
APPEND GENERAL WordDoc FROM aWordFiles(i,1)
ENDFOR
ELSE
MESSAGEBOX("No Word files found.")
ENDIF _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 3 樓
|
發表於: 星期四 五月 08, 2003 11:04 pm 文章主題: |
|
|
你道我是如何將WORD存入DBF中又不會讓一般人利用browse 就可以將資料轉出的嗎?
repl mywordfile with garable( filetostr('wordfilename.doc'),1)
* mywordfile 只是一般的MEMO欄位, garable( ) 是自己寫的加密程式, 也可以使用mydll.dll 其中的加密程式也可以. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|