 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 1 樓
|
 發表於: 星期日 七月 17, 2005 12:38 am 文章主題: 請問在欄位驗證的預設值中，如何得知新增前的欄位值 |
 |
|
我是使用資料庫的菜鳥，我在資料庫設計工具中對某個資料表格開啟資料表格設計工具，
在「欄位」索引標籤之「欄位驗證」區塊的「預設值」項目中執行一個儲存式程序；
因為在 BROWSE 中新增一筆記錄時，該資料表格是已定位到該新增記錄位置後才會執行
「預設值」項目中的設定(也就執行我指定的儲存式程序)。
在這樣的情況下，在我的儲存式程序中若想引用未新增前的欄位值是要如何取得呢？
不知這個問題會不會很笨，但我已把我手邊的 18 本 VFP 書籍翻過了，都找不出方法來。
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
 |
小賴
註冊時間: 2004-12-27
文章: 476
第 2 樓
|
| 發表於: 星期日 七月 17, 2005 8:19 am 文章主題: |
|
|
| 引言回覆: |
在這樣的情況下，在我的儲存式程序中若想引用未新增前的欄位值是要如何取得呢？
|
朱兄：
很抱歉 ; 讀了幾遍還是不清楚您的問題.
「預設值」中的儲存式程序； 只在您新增資料時才觸發, 且只觸發這一次.
以後就不再觸發,"新增前的欄位值" ? 不懂 ? 既是新增前, 就是未新増, 既是
未新增, 何來欄位值 ?
如果您要問的是新增後; 「預設值」儲存式程序觸發前之欄位值; 那鐵定是
如 "", 0, .f., { / / }之類的初值(視資料型態而定), 不過您想了解的應不
是樣 ; 是否該把您的問題再整理一下? |
|
| 回頂端 |
|
|
bin1x
註冊時間: 2004-08-27
文章: 462
第 3 樓
|
| 發表於: 星期日 七月 17, 2005 12:31 pm 文章主題: |
|
|
儲存式程序
我只看過是這麼樣的
仿照資料庫裏第三正規化(不知對不對啦,反正書讀的很爛)
破除遞移性相關
一個主檔,一個代號檔(好像有點搞錯了,看的懂就好了,果然書讀的很爛)
形成1toN的父子關連,並且設定其中的相關,以資料庫來做
反正離開後,就形成了store procedure
產生了以下的code
| 代碼: |
**__RI_HEADER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_HEADER**
procedure RIDELETE
local llRetVal
llRetVal=.t.
IF (ISRLOCKED() and !deleted()) OR !RLOCK()
llRetVal=.F.
ELSE
IF !deleted()
DELETE
IF CURSORGETPROP('BUFFERING') > 1
=TABLEUPDATE()
ENDIF
llRetVal=pnerror=0
ENDIF not already deleted
ENDIF
UNLOCK RECORD (RECNO())
RETURN llRetVal
procedure RIUPDATE
lparameters tcFieldName,tcNewValue,tcCascadeParent
local llRetVal
llRetVal=.t.
IF ISRLOCKED() OR !RLOCK()
llRetVal=.F.
ELSE
IF EVAL(tcFieldName)<>tcNewValue
PRIVATE pcCascadeParent
pcCascadeParent=upper(iif(type("tcCascadeParent")<>"C","",tcCascadeParent))
REPLACE (tcFieldName) WITH tcNewValue
IF CURSORGETPROP('BUFFERING') > 1
=TABLEUPDATE()
ENDIF
llRetVal=pnerror=0
ENDIF values don't already match
ENDIF it's locked already, or I was able to lock it
UNLOCK RECORD (RECNO())
return llRetVal
procedure rierror
parameters tnErrNo,tcMessage,tcCode,tcProgram
local lnErrorRows,lnXX
lnErrorRows=alen(gaErrors,1)
if type('gaErrors[lnErrorRows,1]')<>"L"
dimension gaErrors[lnErrorRows+1,alen(gaErrors,2)]
lnErrorRows=lnErrorRows+1
endif
gaErrors[lnErrorRows,1]=tnErrNo
gaErrors[lnErrorRows,2]=tcMessage
gaErrors[lnErrorRows,3]=tcCode
gaErrors[lnErrorRows,4]=""
lnXX=1
do while !empty(program(lnXX))
gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;
program(lnXX)
lnXX=lnXX+1
enddo
gaErrors[lnErrorRows,5]=pcParentDBF
gaErrors[lnErrorRows,6]=pnParentRec
gaErrors[lnErrorRows,7]=pcParentID
gaErrors[lnErrorRows,8]=pcParentExpr
gaErrors[lnErrorRows,9]=pcChildDBF
gaErrors[lnErrorRows,10]=pnChildRec
gaErrors[lnErrorRows,11]=pcChildID
gaErrors[lnErrorRows,12]=pcChildExpr
return tnErrNo
PROCEDURE riopen
PARAMETERS tcTable,tcOrder
local lcCurWkArea,lcNewWkArea,lnInUseSpot
lnInUseSpot=atc(tcTable+"*",pcRIcursors)
IF lnInUseSpot=0
lcCurWkArea=select()
SELECT 0
lcNewWkArea=select()
IF NOT EMPTY(tcOrder)
USE (tcTable) AGAIN ORDER (tcOrder) ;
ALIAS ("__ri"+LTRIM(STR(SELECT()))) share
ELSE
USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) share
ENDIF
if pnerror=0
pcRIcursors=pcRIcursors+upper(tcTable)+"?"+STR(SELECT(),5)
else
lcNewWkArea=0
endif something bad happened while attempting to open the file
ELSE
lcNewWkArea=val(substr(pcRIcursors,lnInUseSpot+len(tcTable)+1,5))
pcRIcursors = strtran(pcRIcursors,upper(tcTable)+"*"+str(lcNewWkArea,5),;
upper(tcTable)+"?"+str(lcNewWkArea,5))
IF NOT EMPTY(tcOrder)
SET ORDER TO (tcOrder) IN (lcNewWkArea)
ENDIF sent an order
if pnerror<>0
lcNewWkArea=0
endif something bad happened while setting order
ENDIF
RETURN (lcNewWkArea)
PROCEDURE riend
PARAMETERS tlSuccess
local lnXX,lnSpot,lcWorkArea
IF tlSuccess
END TRANSACTION
ELSE
SET DELETED OFF
ROLLBACK
SET DELETED ON
ENDIF
IF EMPTY(pcRIolderror)
ON ERROR
ELSE
ON ERROR &pcRIolderror.
ENDIF
FOR lnXX=1 TO occurs("*",pcRIcursors)
lnSpot=atc("*",pcRIcursors,lnXX)+1
USE IN (VAL(substr(pcRIcursors,lnSpot,5)))
ENDFOR
IF pcOldCompat = "ON"
SET COMPATIBLE ON
ENDIF
IF pcOldDele="OFF"
SET DELETED OFF
ENDIF
IF pcOldExact="ON"
SET EXACT ON
ENDIF
IF pcOldTalk="ON"
SET TALK ON
ENDIF
do case
case empty(pcOldDBC)
set data to
case pcOldDBC<>DBC()
set data to (pcOldDBC)
endcase
RETURN .T.
PROCEDURE rireuse
* rireuse.prg
PARAMETERS tcTableName,tcWkArea
pcRIcursors = strtran(pcRIcursors,upper(tcTableName)+"?"+str(tcWkArea,5),;
upper(tcTableName)+"*"+str(tcWkArea,5))
RETURN .t.
********************************************************************************
procedure __RI_UPDATE_table3
** "參考完整性更新正反器" table3
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
pcOldTalk=SET("TALK")
SET TALK OFF
pcOldDele=SET("DELETED")
pcOldExact=SET("EXACT")
pcOldCompat=SET("COMPATIBLE")
SET COMPATIBLE OFF
SET DELETED ON
SET EXACT OFF
pcRIcursors=""
pcRIwkareas=""
pcRIolderror=ON("error")
pnerror=0
ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
IF TYPE('gaErrors(1)')<>"U"
release gaErrors
ENDIF
PUBLIC gaErrors(1,12)
pcOldDBC=DBC()
SET DATA TO ("TEST")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcChildWkArea=select()
IF _triggerlevel=1 or type("pccascadeparent")#"C" or (NOT pccascadeparent=="TABLE4")
SELECT (lcChildWkArea)
lcChildID=KEY1
lcOldChildID=oldval("KEY1")
pcChildDBF=dbf(lcChildWkArea)
pnChildRec=recno(lcChildWkArea)
pcChildID=lcOldChildID
pcChildExpr="KEY1"
IF lcChildID<>lcOldChildID
lcParentWkArea=riopen("table4","a")
IF lcParentWkArea<=0
IF _triggerlevel=1
DO riend WITH .F.
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN .F.
ENDIF not able to open the child work area
pcParentDBF=dbf(lcParentWkArea)
llRetVal=SEEK(lcChildID,lcParentWkArea)
pnParentRec=recno(lcParentWkArea)
=rireuse("table4",lcParentWkArea)
IF NOT llRetVal
DO rierror with -1,"違反新增限制規則。","",""
IF _triggerlevel=1
DO riend WITH llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
ENDIF no parent
ENDIF this value was changed
ENDIF not part of a cascade from "table4"
lcParentWkArea=lcChildWkArea
IF _triggerlevel=1
do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "結束參考完整性更新正反器" table3
********************************************************************************
********************************************************************************
** "參考完整性新增觸發式程序" table3
PROCEDURE __RI_INSERT_table3
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
pcOldTalk=SET("TALK")
SET TALK OFF
pcOldDele=SET("DELETED")
pcOldExact=SET("EXACT")
pcOldCompat=SET("COMPATIBLE")
SET COMPATIBLE OFF
SET DELETED ON
SET EXACT OFF
pcRIcursors=""
pcRIwkareas=""
pcRIolderror=ON("error")
pnerror=0
ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
IF TYPE('gaErrors(1)')<>"U"
release gaErrors
ENDIF
PUBLIC gaErrors(1,12)
pcOldDBC=DBC()
SET DATA TO ("TEST")
ENDIF first trigger
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcChildWkArea && child's work area
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcChildWkArea=SELECT()
SELECT (lcChildWkArea)
lcChildID=KEY1
pcChildDBF=dbf(lcChildWkArea)
pnChildRec=recno(lcChildWkArea)
pcChildID=lcChildID
pcChildExpr="KEY1"
lcParentWkArea=riopen("table4","a")
IF lcParentWkArea<=0
IF _triggerlevel=1
DO riend WITH .F.
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN .F.
ENDIF not able to open the child work area
pcParentDBF=dbf(lcParentWkArea)
llRetVal=SEEK(lcChildID,lcParentWkArea)
pnParentRec=recno(lcParentWkArea)
=rireuse("table4",lcParentWkArea)
IF NOT llRetVal
DO rierror with -1,"違反新增限制規則。","",""
IF _triggerlevel=1
DO riend WITH llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
IF _triggerlevel=1
do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "結束參考完整性新增觸發式程序" table3
********************************************************************************
********************************************************************************
procedure __RI_UPDATE_table4
** "參考完整性更新正反器" table4
LOCAL llRetVal
llRetVal = .t.
PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID
PRIVATE pcParentExpr,pcChildExpr
STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr
STORE 0 TO pnParentRec,pnChildRec
IF _triggerlevel=1
BEGIN TRANSACTION
PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;
pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC
pcOldTalk=SET("TALK")
SET TALK OFF
pcOldDele=SET("DELETED")
pcOldExact=SET("EXACT")
pcOldCompat=SET("COMPATIBLE")
SET COMPATIBLE OFF
SET DELETED ON
SET EXACT OFF
pcRIcursors=""
pcRIwkareas=""
pcRIolderror=ON("error")
pnerror=0
ON ERROR pnerror=rierror(ERROR(),message(),message(1),program())
IF TYPE('gaErrors(1)')<>"U"
release gaErrors
ENDIF
PUBLIC gaErrors(1,12)
pcOldDBC=DBC()
SET DATA TO ("TEST")
ENDIF first trigger
LOCAL lcParentID && parent's value to be sought in child
LOCAL lcOldParentID && previous parent id value
LOCAL lcChildWkArea && child work area handle returned by riopen
LOCAL lcChildID && child's value to be sought in parent
LOCAL lcOldChildID && old child id value
LOCAL lcParentWkArea && parentwork area handle returned by riopen
LOCAL lcStartArea
lcStartArea=select()
llRetVal=.t.
lcParentWkArea=select()
SELECT (lcParentWkArea)
pcParentDBF=dbf()
pnParentRec=recno()
lcOldParentID=OLDVAL("KEY1")
pcParentID=lcOldParentID
pcParentExpr="KEY1"
lcParentID=KEY1
IF lcParentID<>lcOldParentID
lcChildWkArea=riopen("table3")
IF lcChildWkArea<=0
IF _triggerlevel=1
DO riend WITH .F.
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN .F.
ENDIF not able to open the child work area
pcChildDBF=dbf(lcChildWkArea)
SELECT (lcChildWkArea)
SCAN FOR KEY1=lcOldParentID
pnChildRec=recno()
pcChildID=KEY1
pcChildExpr="KEY1"
IF NOT llRetVal
EXIT
ENDIF && not llretval
llRetVal=riupdate("KEY1",lcParentID,"TABLE4")
ENDSCAN get all of the table3 records
=rireuse("table3",lcChildWkArea)
IF NOT llRetVal
IF _triggerlevel=1
DO riend WITH llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
ENDIF
ENDIF this parent id changed
IF _triggerlevel=1
do riend with llRetVal
ENDIF at the end of the highest trigger level
SELECT (lcStartArea)
RETURN llRetVal
** "結束參考完整性更新正反器" table4
********************************************************************************
**__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER**
|
如果要上述的問題,所有預設值的形成是在form 形成的時候,init 一次
好像有過這麼一篇文章
進入到每個欄位時,又init 一次
如果寫在init裏頭,有點奇怪了
除非init 裏面的func 或是proc 是這麼寫的
priv cOLDVALUE
cOLDVALUE = THIS.VALUE 用來保留值
單一FORM 的以往寫法,應該來自INFORMIX(我覺得啦)
這個問題奇怪的是,如果想知道是否UPDATE的話
也有個UPDATE()的函數來判定(LKK寫法)
比如這樣的寫法
| 代碼: |
FUNC BROW_TMP2
PRIV acTABLE,acBOX,acPROC
PRIV cFIELD,cMSG,A1,A2,A3
PRIV cFILE,acVAR,acFVAR
PRIV cTITLE,cSCR,ACTFILE
PRIV aSWAP1,aSWAP2,aRETU1
DIME aRETU1[1]
aSWAP1 = "1、0、['aRETU1(1)']"
aSWAP2 = "1、0、['P_NUM']"
aSWAP3 = "1、0、['aRETU1(1)']"
aSWAP4 = "1、0、['OD_NO']"
acTABLE = "1、3、[['SALNO' 、'單 號'、1]]"
acPROC = "2、3、[['F10' 、'BRO_SEEK'、' ']、"+;
"['F6' 、'BRO_DETI'、' ']]"
acBOX = "4、0、[2、2、20、77]"
cFIELD =" SALDATE :H= '日 期':W=COMP2():R,"+;
" CUSSN :H= '客戶名稱':W=COMP2():R,"+;
" OD_NAME :H= '工地名稱':W=COMP2():R,"+;
" OD_SALNO :H= '業務代號':W=COMP2():V=TB_PER1PLUS(.F.,aSWAP1,aSWAP2),"+;
" COSTTYPE :H= '稅額型態(0:內含,1:外加)',"+;
" SALCOST :H= '稅額合計':W=COMP2(),"+;
" SALAMT :H= '含稅總價':W=COMP2()"
cMSG = '<F10> 查詢 ,<F8> 修改,<F6> 明細資料定單價↑↓ 上下筆,<ESC> 離開'
cSCR = ''
=SAVESTAT(@cSCR)
PUSH KEY CLEAR
cTITLE = WOUTPUT()
IF !EMPTY(cTITLE)
DEACTIVATE WINDOW &cTITLE
ENDIF
SELECT TMP2
SET ORDER TO TAG 1
GO TOP
=POP_INQ(acBOX,acTABLE,acPROC,cFIELD,cMSG,'O:出貨轉銷貨')
IF !EMPTY(cTITLE)
ACTIVATE WINDOW &cTITLE
ENDIF
POP KEY
=RESTSTAT(@cSCR)
RETU
FUNC CHANGE
PARA NIL
PRIV cTITLE,cSCR
=SAVESTAT(@cSCR)
IF cTRIG = '1'
cTRIG = '2'
PUSH KEY CLEAR
BROW FIELDS &cFIELD WINDOWS T001 TITLE 'W:個別選擇視窗1' NOWAIT;
COLOR "W+/N+,,R+/W+"
ON ESCAPE DO ESC_OFF
ON KEY LABEL F8 DO CHANGE
ON KEY LABEL ENTER DO TRIGGER
BROW FIELDS &cFIELD1 WINDOWS &cWIN1 TITLE 'W:個別選擇視窗2' ;
COLOR "W+/N+,,R+/W+"
=STATLINE('<F8>更換視窗,<ENTER>選擇 ↑↓上下筆<ESC>離開',4,22)
ON ESCAPE
ON KEY
POP KEY
ELSE
cTRIG = '1'
ACTIVATE WINDOWS T001
ENDIF
=RESTSTAT(@cSCR)
RETU
|
像是以上的寫法,寫到最後,捨棄change 不用了
想法很單純,我是從vfp 3.0學的
用當初人家從我的觀念,套用在2.5罷了
至於為何要寫change ,忘了
其實也用不到
但若是相較起來,browse 的w= 和 v=
在處理以上的問題,會來的容易點
不然grid beforerowcolchange,after.....XXXX
應該也不錯用
說菜鳥,騙人的
另外如果是預儲程序的話,處理這個問題,我完全不知道該如何下手? |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 4 樓
|
| 發表於: 星期日 七月 17, 2005 8:18 pm 文章主題: |
|
|
對不起，中午就看到各位的回答，但今天在家當煮夫，忙到現在才有空回話。
看樣子我表達的不精確，「未新增前的欄位值」的意思是假設
原本 5 筆 新增後變 6 筆
--------------- ---------------
市場別 股票類型 市場別 股票類型
------ -------- ------ --------
1 1 1 1
▲1 2 1 2
1 3 1 3
2 1 2 1
2 2 2 2
--------------- ▲1 4
---------------
目前在第二筆 按 Ctrl-Y (新增)後
其值由儲存式程序算
出為 1
我測試過，當預設值所執行的儲存式程序時，其記錄編號為第 6 筆(就是新增後的該筆記錄)，
此時市場別的欄位值為 NULL，我希望是帶入原本第二筆的市場別的欄位值；
OLDVAL() 是抓不到，因為記錄指標已移動過。
當然若是在自己設計的表單中來維護此資料表格，我可以解決；但我是要在
[資料庫設計工具]->[資料表格設計工具]->「欄位」索引標籤->「欄位驗證」區塊->「預設值」項目中
執行一個儲存式程序，在這個儲存式程序中我如何得知第二筆的市場別的欄位值？
事實上我要問的就是如 bin1x 所提的，是要在預儲程序中處理我要問的問題，謝謝，這樣不知有人能幫個忙嗎？
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期日 七月 17, 2005 8:46 pm 文章主題: |
|
|
我的看法同 小賴 兄一樣.
如果真要這樣做的話,
則必須作一個預存函式在記錄指標移動前或是離開目前記錄到新增記錄之前的事件,
保留目前的記錄內容.
或是在進入記錄時就先保留記錄內容到某個地方備用.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 6 樓
|
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 7 樓
|
| 發表於: 星期日 七月 17, 2005 8:51 pm 文章主題: |
|
|
這跟物件的設計有關.
若是DELPHI/BCB,因為TCustomDataset作了beforeEdit,beforeinsert,等等beforeXXXXX事件,
所以比較容易作到這樣的要求.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 8 樓
|
| 發表於: 星期日 七月 17, 2005 9:05 pm 文章主題: |
|
|
那麼在 VFP 的 [資料庫設計工具] 中有沒有類似的 beforeXXXXX 事件可以保留目前的記錄內容，我翻了書好像還沒找到
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
bin1x
註冊時間: 2004-08-27
文章: 462
第 9 樓
|
| 發表於: 星期日 七月 17, 2005 10:56 pm 文章主題: |
|
|
| 朱育興 寫到: | 對不起，中午就看到各位的回答，但今天在家當煮夫，忙到現在才有空回話。
看樣子我表達的不精確，「未新增前的欄位值」的意思是假設
原本 5 筆 新增後變 6 筆
--------------- ---------------
市場別 股票類型 市場別 股票類型
------ -------- ------ --------
1 1 1 1
▲1 2 1 2
1 3 1 3
2 1 2 1
2 2 2 2
--------------- ▲1 4
---------------
目前在第二筆 按 Ctrl-Y (新增)後
其值由儲存式程序算
出為 1
我測試過，當預設值所執行的儲存式程序時，其記錄編號為第 6 筆(就是新增後的該筆記錄)，
此時市場別的欄位值為 NULL，我希望是帶入原本第二筆的市場別的欄位值；
OLDVAL() 是抓不到，因為記錄指標已移動過。
當然若是在自己設計的表單中來維護此資料表格，我可以解決；但我是要在
[資料庫設計工具]->[資料表格設計工具]->「欄位」索引標籤->「欄位驗證」區塊->「預設值」項目中
執行一個儲存式程序，在這個儲存式程序中我如何得知第二筆的市場別的欄位值？
事實上我要問的就是如 bin1x 所提的，是要在預儲程序中處理我要問的問題，謝謝，這樣不知有人能幫個忙嗎？ |
如果真是這樣的話
用browse 寫就好了
事先定義control label
記錄指標寫在control label 的function 之中
用個變數recno() 記住,再go 回去就好了
若是預儲程式,還真不曉得寫在那邊
給它仔細看了一下,啊.......~~~~~啊!!!!
ri_insertXXXXX
用的變數把該記的記起來,應該可以吧,我還真沒用過預儲程式
比較起來,(我還是寧願用browse 來寫,簡單容易,維護也很容易
除非很強調分散式處理啦)
再給它套上以上的邏輯,不就搞定了
bin1x 在 星期日 七月 17, 2005 11:01 pm 作了第 1 次修改 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 10 樓
|
| 發表於: 星期日 七月 17, 2005 10:58 pm 文章主題: |
|
|
是否用SET CARRY ON就可達成您的要求了?
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 11 樓
|
| 發表於: 星期一 七月 18, 2005 2:13 am 文章主題: |
|
|
謝謝，SET CARRY 確實在新增記錄時會記住，不過它排在觸發「預設值」項目所指定的儲存式程序之後，這樣我的儲存式程序還是用不上，本來的用意是希望資料庫的儲存式程序能自行處理，這樣不管用什麼界面去觸發新增記錄時，它就自行處理好，不用去操心幫它在該界面處理預設值的事情。
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 12 樓
|
| 發表於: 星期一 七月 18, 2005 4:10 am 文章主題: |
|
|
我的問題解決了，擷取目前記錄的內容是在「資料記錄驗證」區塊的「規則」項目中寫儲存式程序，在裏面將我需要的欄位值做記錄，就可以供「欄位驗證」區塊的「預設值」項目所指定的儲存式程序使用。
謝謝各位提供的意見。
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
小賴
註冊時間: 2004-12-27
文章: 476
第 13 樓
|
| 發表於: 星期一 七月 18, 2005 8:20 am 文章主題: |
|
|
| 引言回覆: |
擷取目前記錄的內容是在「資料記錄驗證」區塊的「規則」項目中寫儲存式程序，在裏面將我需要的欄位值做記錄
|
請教擷取記錄的內容; 需如何暫存, 方可供「欄位驗證」區塊的「預設值」所指定的儲存式程序使用。 |
|
| 回頂端 |
|
|
bin1x
註冊時間: 2004-08-27
文章: 462
第 14 樓
|
| 發表於: 星期一 七月 18, 2005 8:36 am 文章主題: |
|
|
if
.....
ENDIF at the end of the highest trigger level
為何這樣的語法會過 |
|
| 回頂端 |
|
|
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 15 樓
|
| 發表於: 星期一 七月 18, 2005 1:35 pm 文章主題: |
|
|
| bin1x 寫到: | if
.....
ENDIF at the end of the highest trigger level
為何這樣的語法會過 |
如果您是指 ENDIF 後面接的 at the end of the highest trigger level 為什麼會過的話，那是 VFP 將它當做註解來看待，像 ENDCASE、ENDFOR、ENDDO 也是一樣
| 小賴 寫到: |
請教擷取記錄的內容; 需如何暫存, 方可供「欄位驗證」區塊的「預設值」所指定的儲存式程序使用。 |
用公用變數，而我是在 _SCREEN 中新增屬性來記錄擷取記錄的內容
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
