VFP 愛用者社區

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

在VFP中用偽代碼開發資料表維護螢幕
http://www.ithome-cn.net/technology/fox/fox15.htm
上海市交警總隊科研所　徐萍
　　為了保證資料表中存儲資料的準確與及時，並提供正確和及時的查詢，必須對資料表進行人工維護（包括資料錄入），因此必須開發資料表維護螢幕作為人機對話的介面。而資料表維護螢幕要求有新增（增加新記錄）、編輯（記錄修改）、刪除（記錄刪除）以及漫遊（指記錄指標上移、下移、到頂、到底和各種查找記錄定位）功能。同時必須對用戶輸入的資料進行合法性檢查，特別是對輸入關鍵字的合法性檢查。這些需求給開發資料表維護螢幕增加了複雜性，為此筆者使用偽代碼來解決上述問題。資料表維護螢幕的代碼雖然比較複雜，但它們都有很強的共性，可以預先編寫一套可被各種不同的資料表維護螢幕套用的偽代碼，以後編寫資料表維護螢幕代碼時就不必從零開始，而是從偽代碼開始。偽代碼雖然不能被直接編譯運行，但大部分開發人員都能把偽代碼改寫成正式代碼。
　　下面介紹在VisualFoxpro中使用偽代碼開發資料表維護螢幕的方法。偽代碼由一個Custom類和一些Procdure構成。為了方便套用偽代碼，盡可能地把Form中的嵌入代碼外移，在嵌入代碼中使用do...下面的偽代碼在使用時絕大部分無需修改，僅是需修改一小部分，而這一小部分又非常簡單。下面是使用偽代碼設計資料表維護螢幕的具體步驟。
　　準備工作
　　1.先建立如下一個工作面表格
編號工作面名稱主索引名稱注釋
1 　　　
2 　　　
3 　　　
4 　　　
.
.
. 　　　
16 　　　
　　這個表格適用于整個應用程式。這裏所說的工作面與平時所說的有些不一樣，它把處於同一工作面但不同主索引的情況也作為不同的工作面，使用不同的編號。2.根據工作面表格改寫以下偽代碼，使之成為可以編譯與運行的正式代碼。
{偽代碼開始}
　
public theWorkStat

theWorkStat=CreateObject(“WorkStat”)

＊＊== 以下是工作狀態類== ＊＊

define class WorkStat as custom

curWS=1

declare Ai[16],Or[16]

＊＊以下是工作狀態定義

＊＊1

{

Ai[1]=“A1” ＆＆工作面

Or[1]=“O1” ＆＆ORDER 序

Ai[2]=“A2” ＆＆工作面

Or[2]=“” ＆＆自然序，無主索引

...

＊＊16

Ai[16〗=“A16”

Or[16〗=“O16”

}

func Get

retu curWS

endfunc

proc Set

para p

sele (Ai[p])

set order to (Or[p])

curWS=p

endproc

func KeyExist

para pws,pk

local n,y,rec

set exact on

n=this.Get();

this.Set(pws)

if eof().or.bof()

rec= －1

else

rec=recno()

endif

seek pk

if found()

y=.t.

else

y=.f.

endif

if rec!= －1

go rec

endif

this.Set(n)

retu y

endfunc

func Find

para pws,pk,IsExact

local n,y,rec

if IsExact

set Exact on

else

set Exact off

endif

n=this.Get();

this.Set(pws)

if eof().or.bof()

rec= －1

else

rec=recno()

endif

seek pk

if found()

y=.t.

else

y=.f.

if rec!= －1

go rec

endif

this.Set(n)

endif

retu y

endfunc

endfine

{ 偽代碼結束}
　　在程式的適當入口處運行這段代碼，運行之後，當要用的資料表被打開時就可以調用以下物件：
　　x=theWorkStat.Get()取得當前工作面號；
　　theWorkStat.Set(n)把當前工作面設置成n號；
　　x=theWorkStat.KeyExist(n,key)測試在n號工作面中是否存在關鍵字key，存在回送T；不存在回送F，此函數不改變現狀；
　　x=theWorkStat.Find(n,key,IsExact)在n號工作面中查找關鍵字key。查到則定位之並回送T；查不到則不改變現狀並回送F；IsExact為T或F決定是否按精確匹配方式查找。
　　以上這些物件方法在以後的偽代碼中也可以由用戶根據需要使用。
　　判定資料表維護螢幕模式
　　筆者把資料表維護螢幕分為以下三種模式：
　　1.新增模式
　　在該模式下只有新增（增加新記錄）功能，主要用於資料錄入（也有不少資料錄入要求對已錄入的內容有返回修改的功能，這就必須使用新增＋編輯模式）。
　　2.編輯模式
　　在該模式下只有編輯、刪除與漫遊功能而無新增功能。
　　3.新增＋編輯模式
　　在該模式下有新增、編輯、刪除與漫遊功能，可以說是全功能的。這種模式使用面最廣，占所有資料表維護螢幕的一半以上。
　　改寫偽代碼
　　根據選定的模式改寫偽代碼，使之成為可以編譯與運行的正式代碼。
　　經過上述步驟，一個資料表維護螢幕設計的有關代碼就基本完成。
　　編者注：偽代碼的程式發表在本報WWW站點上，地址是：http：//www.computerworld.com.cn/98/skill/default.htm。歡迎訪問。