VFP 愛用者社區

BTKS · 註冊時間: 2007-09-09 文章: 2 第 1 樓

各位大大好~我是一位VFP的新手~剛開始學習有些問題不太懂，煩請各位大大幫忙解惑@@"
我現在想要試做一個小程式..
將輸入到多個textbox的多筆字串，藉由一個command button作為紀錄的按鈕，點下時會紀錄下所有textbox內的數值，再把它呈現在對應grid的欄位裡..

想請問一下當按下紀錄按鈕的時候，要如何把textbox的內容暫存進去??
那又要如何在grid的表單裡呈現出來呢?? 煩請各位大大了~~m(_ _)m

garfield · 發表於: 星期三十月 10, 2007 9:28 pm 文章主題:

grid 所顯示的內容一定要用 table
table 可以是 dbf 或 view 或 cursor
可以參考help 或書,
首先你點先學會如何建立 table
再學會用form 及其它物件,
當你再學會用 replace 欄位 with thisform.物件.value 時,
你的目標就快要達成了.

h580920 · 註冊時間: 2005-02-28 文章: 35 第 3 樓

* 給您一個範例, 請參考
* 請在該 command button 的 click 事件中撰寫下列程式碼

* 建立一個 grid 物件要用的 [暫存檔] (最好是在 form.load 中就建立)
SELECT 0
CREATE CURSOR TMPA (OBJNAME C(10), OBJVALUE C(20))

* 指定 grid 的資料來源 (最好是在 form.init 中指定, 或在設計階段中就設定好)
THISFORM.GRID1.RecordSourceType = 1
THISFORM.GRID1.RecordSource = "TMPA"

ZAP IN TMPA && 如果是在form.load 建立暫存檔, 則應該先刪除 [暫存檔] 中的所有資料再重新新增

* 寫入各個 text 中資料到暫存檔中
FOR M_I = 1 TO THISFORM.ControlCount
IF UPPER(THISFORM.Controls[M_I].CLASS) == "TEXTBOX"
INSERT INTO TMPA (OBJNAME, OBJVALUE) VALUES (THISFORM.Controls[M_I].NAME, THISFORM.Controls[M_I].VALUE)
ENDIF
ENDFOR

* 更新 grid 物件
THISFORM.GRID1.Refresh()

網頁測試 : http://www.qksort.com

BTKS · 註冊時間: 2007-09-09 文章: 2 第 4 樓

感謝以上兩位大大的答覆~~~目前正在初學階段~因為專題必須要用~XD
h580920~感謝您給的範例~已經有成功的匯入過了~就甘心ㄟ~
那想再請問一下~如果是使用以下這些函數的話~那該如何寫呢??
create cursor SQL
use
append
repalace
insert SQL

之前用這幾個下去嘗試的時候，是在append 跟repalace這兩個部分比較不清楚...可以麻煩各位大大再教一下嗎@@"
((這幾個函數是有人叫我們去留意的...也不知道用不用的上...如果問題太白痴請見諒@@"

KKKLYNN · 註冊時間: 2004-09-17 文章: 357 第 5 樓

APPEND是新增一筆資料
REPLACE是修改資料
APPEND通常是跟𤥢 BLANK
然後再將資料REPLACE
一般我的作法
資料的來源是某個物件如TEXTBOX
先APPNE BLANK
然後再REPLACE至各欄位
然而資料表格必須先釐清是獨立還是環衝模式
因為會影響多人使用的狀況
還有一些您需要一一測試
以上您要參考一下此園地一些歷史問題,比較容易入門

syntech · 發表於: 星期五十月 12, 2007 10:16 am 文章主題:

您需要的是對傳統xBASE語法的認識,
可以到網拍找些 dbase 或是 clipper 的舊書,
看一看就知道了