VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

Visual FoxPro 中的多用戶和資料緩存的問題

作者：Doug Hennig
譯者：RMH

--本文出自《天堂論壇》。若欲轉載敬請注明

概述
在 FoxPro 2.x 中, 開發者編輯記錄時, 先用 scatter memvar, 然後編輯記憶體變數, 最後用 gather memvar 將記憶體變數的值寫回到記錄. 這種間接編輯欄位的作用是用緩存來保護記錄. 在 Visual FoxPro 中, 資料緩存是內置的, 因此可以直接編輯欄位. 本文將討論資料緩存如何工作並探索選擇使用緩存機制的策略和如何處理多用戶衝突.

簡介
如果你使用過 Visual FoxPro&, 你可能已經學會了的第一件事是你可以按原來的方法來做你想做的事, Visual FoxPro 爲你做相同的事情提供了較好的方法. 如何編輯表單中的記錄是這樣的一個完美的例子.

以下是我所習慣的老的在資料登錄螢幕中編輯記錄的方法:

螢幕上用與表中的欄位同名的記憶體變數的 get 物件 (例如, M.CUST_ID 和 M.NAME).

當用戶定位到表中的特定記錄時 (例如, 用 "下一個" 按鈕), 用 scatter memvar 來讀取記錄到記憶體變數並 show gets 來刷新顯示在螢幕上的值. 用戶不能編輯變數 (它們是 disabled 或有一個值爲 .F. 的 when 子句) 因爲用戶當前是處於 "查看" 模式.

當舫選擇 "編輯" 按鈕時, 試著鎖定記錄; 如果鎖定失敗則顯示一條適當的資訊. 檢查相對於各記憶體變數的欄位值—如果它們不匹配, 必定是另一個用戶在我們顯示該記錄後編輯並保存了該記錄. 在此情況下, 顯示一條適當的資訊並用 scatter memvar 和再次使用 show gets, 這樣用戶可以看到記錄的當前內容.
如果欄位和記憶體變數匹配, enable get 物件或讓它們的 when 子句的值爲 .T. 這樣用戶可以編輯變數.

當用戶選擇 "保存" 按鈕時, 做一些驗證來確保輸入的所有內容都符合我們的規則, 然後 gather memvar 來從記憶體變數更新記錄並解鎖記錄. Disable get 物件或使它們的 when 子句的值爲 .F. 這樣用戶再進入 "查看" 模式.

注意在該方案中, 我們並沒有直接針對記錄進行直接 read. 相反, 我們允許用戶編輯記憶體變數並只在一切正確的情況下將記憶體變數寫回到欄位. 使用該方法的理由是保護表; 在通過所有規則前我們不允許任何資料保存到表中. 也請注意在用戶編輯記憶體變數時記錄是被鎖定的. 這避免另一個用戶在同一時間編輯相同的記錄. 但是, 這任然存在著 "外出午餐" 問題—如果用戶開始編輯, 然後外出午餐, 記錄任然是被鎖住的, 則其他用戶在此期間不能編輯該記錄.

當然, 這不是唯一編輯記錄的辦法. 你可以用在保存記錄前對它加鎖來代替開始編輯時對它加鎖. 這樣做使記錄被鎖的時間最小化了, 允許其他用戶訪問它. 這樣做也有它的缺點, 雖然: 如果用戶編輯變數並單擊 "保存", 如果有其他用戶此時也在編輯該記錄會發生什麽事情呢? 是複蓋他們的修改嗎? 是防止保存記錄嗎? 這是你必須逐個處理的基本設計問題.

這一切的努力都是爲了保護資料. 如果你正在寫一個永遠只是你使用的應用程式, 你可能會使它更爲簡單—只需直接 read 記錄中的欄位. 這使得螢幕的行動像是一個與瀏覽螢幕等同的表單, 因爲你輸入的每一樣東西直接進入到記錄中. 但是, 因爲我們不能確信那些麻煩的用戶知道哪些東西可以輸入而哪些東西不能輸入, 我們不得不在用戶和表之間生成一個 "防火牆" 來保護資料. 在 FoxPro 2.x 中創建這種 "防火牆" 需要大量的代碼.

Visual FoxPro 提供的內置 "防火牆" 機制給予我們兩個最佳的世界: 直接 read 記錄並只在資料通過所有測試後才允許寫到文件. 這個機制就是緩存.

緩存
用記憶體變數來保存記錄的內容可以考慮爲像是創建一個資料緩存. 資料用 scatter memvar 把表中的記錄傳送到 "緩存" 並用 gather memvar 把資料從緩存寫到表中.

Visual FoxPro 不僅可以自動進行這種類型的單記錄緩存 (稱爲記錄或行緩存), 它還支援另一種類型的訪問多個記錄的緩存 (稱爲表緩存).

記錄緩存通常在當你想每次訪問或更新單個記錄時使用. 這上面描述的資料登錄機制是相同的: 用戶可以在表單上顯示或編輯單個記錄. 表緩存在一次更新多個記錄時選用. 該情況的一個通常示例是發票的頭-細螢幕. 對發票的細節表使用表緩存, 你可以允許用戶按他們的希望編輯細節行, 並可以一次保存或取消所有的細節記錄.

除兩種緩存機制外, 還有兩種鎖機制. 我在前面描述的 "老" 的方法可以認爲是保守式鎖方案—記錄在用戶選擇 "編輯" 時加鎖. 並保持鎖定狀態直到他們選擇 "保存" 或 "取消". 這可以確保在當前用戶編輯記錄時沒有別的用戶修改當前記錄, 取決於你的應用, 這可能是也可能不是一種好方法. 另一種方法是我先前描述的開放式鎖機制—記錄只在寫入時短時間的鎖定, 一但寫入立即解鎖. 這最大化了記錄的可用性 (就也是衆所周知的平行作業) 但意味著我們不得不處理兩個用戶同時編輯記錄時的資料衝突. 正我我們將很快看到的那樣, 這在 Visual FoxPro 中是很容易處理的, 因此開放式緩存將可能是許多應用程式選用的機制.

因爲記錄可以自動地緩存, 因此不再需要使用 "手動緩存" 機制. 換句話說, 現在我們可以直接 read 記錄中的欄位而不用擔心關於維護各欄位的記憶體變數的問題了. 要保存修改, 我們簡單地告訴 Visual FoxPro 將緩存寫入表中, 並且要取消修改, 則告訴它說不. 我們將很快看到如何這樣做.

Visual FoxPro 靠在打開表的同時創建一個 "游標" 來實現緩存. 游標用於定義表的屬性. 在使用本地表的情況下, 游標的唯一屬性是緩存如何執行; 視圖和遠端表有著超出本文討論範圍外的額外的屬性. 這些屬性用 cursorsetprop() 函數設置並用 cursorgetprop() 來讀取. 我們將很快看到如何使用這些函數.

表緩存有一個關於添加的記錄的有趣的實現: 當記錄被添加到緩存中時, 它們被指定一個負的記錄號. 對於第一個添加的記錄 recno() 返回 -1, 第二個添加的記錄爲 -2, 等等. 你可以用一個帶負號的 go 命令來定位到新添加到緩存中的適當的記錄. 這意味著處理記錄號的常式—對於檢查 between(lnRecno, 1, reccount()) 來確保 lnRecno 是一個可用的記錄號, 你現在不得不用 between(lnRecno, 1, reccount()) or lnRecno < 0 來代替它.

使用緩存
緩存在默認情況下是關閉的, 這樣 Visual FoxPro 的行爲就象 FoxPro 2.x 中把更新寫入表中一樣. 要使用緩存, 你必須明確的打開它. 自由表和和資料庫中的表都可使用緩存. 緩存要求你 set multilocks on 因爲在默認情況下它是 off 的; 如果你忘記了這樣做, 將會得到一條錯誤資訊. 你可以放入一條 multilocks = on 到你的 CONFIG.FPW 或在工具功能表中的選項對話方塊另進行設置並保存它爲預設值.

緩存用 cursorsetprop('Buffering', <n>, <Alias>) 來控制. 如果你是爲當前表設置緩存, 則你不必指定 <Alias>. 取決於你想使用的緩存和鎖記錄的方法, <n> 是以下一個值:

緩存/鎖方法 <n>
無緩存 1
記錄, 保守式 2
記錄, 開放式 3
表, 保守式 4
表, 開放式 5

例如, 要啓用開放式記錄緩存, 用 cursorsetprop('Buffering', 3). 要檢查表當前使用的緩存方式, 用 cursorgetprop('Buffering').
要在表單中啓用緩存, 你可以在表單的 LOAD 事件中爲每一個表指定 cursorsetprop(), 但首選的方法設置表單的 BufferMode 屬性爲保守式或開放式 (默認爲 "無"). 這樣表單將自動對表格使用的表使用表緩存而對其他所有表使用行緩存. 如果你的表單使用了資料環境, 你可以對特定的表按需要設置它的 BufferModeOverride 來複蓋表單的 BufferMode.

當用戶修改了緩存記錄中的資料時 (它們是正處理編輯中的記錄), 你必須不僅訪問他們在欄位中輸入的值, 也要訪問各欄位的填充值和它的當前值 (磁片上的實際值). VFP 中新添加的兩個函數 oldval() 和 curval(), 用於這種處理. 以下是你如何獲取適當的值:

要獲取: 用:
用戶輸入值 (緩存中的值) <fieldname> 或 <alias.fieldname>
用戶修改前的值 oldval('<fieldname>')
記錄中的當前值 curval('<fieldname>')

curval() 和 oldval() 只可用於開放式緩存.

你可能對爲什麽 curval() 返回的值會與 oldval() 返回的值不同感到奇怪. 在單個用戶運行程式時顯然不會發生這種情況情況. 但是, 在使用開放式鎖的網路環境中, 在用戶開始編輯記錄後有可能, 另一個用戶編輯相同的記錄並保存了他們的修改. 以下是示例:

Fbilo 定位到 CONTACTS.DBF 表的第二條記錄並單擊 "編輯" 按鈕:

欄位值 oldval() curval()
LAST_NAME Jones Jones Jones
FIRST_NAME Bill Bill Bill

Fbilo 修改 first name 的值爲 Sam 但還沒有保存記錄:

欄位值 oldval() curval()
LAST_NAME Jones Jones Jones
FIRST_NAME Sam Bill Bill

RMH 在另一台電腦上定位到 CONTACTS.DBF 表的第二條記錄, 單擊 "編輯" 按鈕, 修改 first name 欄位的值爲 Eric, 並保存. 在 Bugs 的機器上:

欄位值 oldval() curval()
LAST_NAME Jones Jones Jones
FIRST_NAME Sam Bill Eric

注意 FIRST_NAME, oldval('FIRST_NAME') 和 curval('FIRST_NAME') 都返回了不同的值. 訪問記錄中各欄位的原值, 緩存的值和當前值, 你可以:

比較緩存的值和源值來檢查用戶修改了哪些欄位; 並比較原值和當前值來檢查是否網路中的其他用戶在開始編輯後修改了相同的記錄.

如果你不關心原值和當前值而只想檢查是否一個欄位被其他用戶修改了, 可以用 getfldstate(). 這個新函數返回一個數值型的值來指明是否當前記錄中的某些東西被修改了. getfldstate() 調用方法如下:

getfldstate(<FieldName> | <FieldNumber> [, <Alias> | <WorkArea>])

並返回以下一個值:

值說明
1 未改變
2 欄位已被修改記錄的刪除狀態被改變
3 記錄被添加但未修改且刪除狀態未改變.
4 記錄被添加欄位已修改或刪除狀態已改變.

改變刪除狀態意思是刪除或 recall 了記錄. 注意刪除後立即 recall 記錄將造成返回 2 或 4, 雖然這樣對記錄並沒有實際的影響.

如果你沒有指定別名或工作區, getfldstate() 在當前表上操作. 指定 <FieldNumber> 爲 0 來返回當前記錄的添加或刪除狀態. 如果你指定 <FieldNumber> 的值爲 -1, 函數將返回一個字串, 串的第一個數位代表表的狀態和各欄位一個數位的欄位狀態.

在先前提及的示例中, 在 RMH 編輯了第二條記錄, getfldstate(-1) 將返回 "112". 第一個 1 說明記錄沒有添加或刪除, 第二個 1 說明第一個欄位沒有被修改, 第三個 2 說明第二個欄位被修改了.

將緩存資料寫入記錄
繼續先前的示例, 現在 RMH 單擊 "保存" 按鈕. 我們如何告訴 Visual FoxPro 將緩存中的資料寫到記錄中? 在使用記錄緩存時, 表在你移動記錄指標或發佈一條新的 tableupdate() 命令時更新. 在使用表緩存時, 移動記錄指標不會更新表 (由於整個表的緩存的指標是指向多個記錄), 因此通常的方法是發佈一條 tableupdate(). 即使是使用記錄緩存, 最好還是使用 tableupdate(), 因爲這樣做使你有更多的控制.

如果緩存被成功地寫到了記錄中 tableupdate() 返回 .T.. 如果記錄緩存沒有修改 (用戶沒有編輯任何欄位, 添加記錄, 或改變記錄的刪除狀態), tableupdate() 返回 .T. 但實際上什麽也沒有做.

tableupdate() 使用少量可選參數:

tableupdate(<AllRows>, <Forced>, <Alias> | <Workarea>)

第一個參數指明要更新什麽記錄: .F. 告訴它只更新當前記錄, .T. 意思是更新所有記錄 (僅在使用表緩存時有效). 如果第二個參數是 .T., 所有其他用戶對記錄的修改將被當前用戶的修改值複蓋. 除非指定了第三個參數, tableupdate() 將更新當前工作區中的表.

如何取消用戶對記錄的修改? 使用記憶體變數的方法時, 你只需再次 scatter memvar 來恢復記憶體變數到它們在磁片上的原始值. 在使用緩存時, 使用 tablerevert() 函數來完成相同的工作.
處理錯誤
繼續前面的 "Fbilo 和 RMH" 示例, Fbilo 單擊 "保存" 按鈕時執行的代碼使用 tableupdate() 函數來試圖寫緩存到記錄. 記住 RMH 在 Fbilo 編輯該記錄時也編輯了該記錄並保存他的修改. 當 Fbilo 單擊 "保存" 時, tableupdate() 將返回 .F., 意思是它不能寫緩存. 爲什麽會這樣?

Visual FoxPro 在以下條件下不會寫緩存到記錄:

� � 當該用戶編輯該記錄時, 另一個用戶修改並保存了該記錄 (就象發生該例中的情況). Visual FoxPro 自動比較每一個欄位的 oldval() 和 curval(). 如果它檢查到任何不同, 則發生了資料衝突.
� � 用戶輸入了重復的主關鍵或候選關鍵字值.
� � 違犯了欄位或表規則, 或不支援 null 的欄位的值爲 null.
� � 觸發器失敗.
� � 另一個用戶鎖住了記錄. 這可以用 rlock() 手動地鎖記錄和在所有表單和訪問它的程式中對表使用相同的緩存鎖機制來最小化.
� � 另一個用戶刪除了記錄.

當 tableupdate() 失敗時你必須決定怎麽做. 另外, 如果你的程式允許用戶在編輯一個記錄時單擊 "下一條" 或 "上一條" 按鈕, 而在這些按鈕的代碼中又沒有使用 tableupdate(), 你必須處理試圖自動存檔時將發生的錯誤. 處理以上兩種情況中的錯誤的合適的地方是在錯誤捕捉常式中.

錯誤處理已在 Visual FoxPro 中得到改進. 原來的辦法是用 on error 命令來指定一個錯誤發生時要執行的程式來設置錯誤陷阱 (你仍可用於 isual FoxPro 中). 該錯誤常式將典型地查看 error() 和 message() 以檢查發生了什麽問題, 並採取適當的措施.

Visual FoxPro 現在提供了一種自動錯誤處理機制: Error 方法. 如果一個表單或物件的 Error 方法存在, 則錯誤發生時它將自動執行而不必手動地設置陷阱. aerror() 是一個新的幫助指出錯誤原因的函數. 你傳遞給它一個陣列名稱它會用以下元素創建或更新陣列: