使用伪代码开发数据表维护屏幕（续）

来源：FOXPRO网络工作室 作者：徐 萍 出处：综艺读书 2005-11-18 

关 键 词：设计  存储  os  foxpro  dos  

　　对于Form中的其它和数据表中的非关键字字段对应的控件都与字段名绑定。

　　其中m.oldkey用以存储主关键字的原值；

　　漫游过程my根据其中不同的"漫游代码"一般要化成好几个不同的漫游过程放入Form中不同的漫游按钮中，常见的漫游按钮有记录指针上移、下移、到顶、到底和各种查找记录定位按钮；

把if sc()
　　thisform.release
　else
　　thisform.refresh
　endif

　　嵌入Form中的删除按钮中；把dojs,thisform.release嵌入Form中的结束按钮中。

　　㈢新增+编辑模式

{伪代码开始}
priv m.stat,m.xzok
priv m.key,m.key1,m.key2,m.key3,m.KeyText,m.oldkey
m.stat=1
m.xzok=.f.
m.key=""
m.key1=""
m.key2=""
m.key3=""
m.oldkey=""
m.KeyText=""
{
　　open ....
}
scatter memvar blank

go top
if eof()
　　m.stat=1 && 新增
else
　　m.stat=2 && 编辑
endif

do case
case m.stat=1 && 新增
do ToAppe
case m.stat=2 && 编辑
do ToEdit
endcase
{
　　do form XXX.scx
}
pack
close data all
retu

*** 关键字输入确认
proc KeyOK
{
　m.key=f(m.key1,m.key2,m.key3)
　do case
　case m.stat=1 && 新增
　　if !theWorkStat.KeyExist(n,m.key,.t.)
　　　　m.FDkey=m.key
　　　　m.KeyText=f(m.key)
　　　　m.xzok=.t.
　　else
　　　　=messagebox(...)
　　endif
　case m.stat=2 && 编辑
　　if m.key==m.oldkey.or.!theWorkStat.KeyExist(n,m.key,.t.)
　　　　m.FDkey=m.key
　　　　m.KeyText=f(m.key)
　　else
　　　　=messagebox(...)
　　endif
　endcase
}
retu

*** 新增
proc sz
do case
case m.stat=1 && 新增
　if m.xzok
　　appe blank
　　gather memvar
　　do ToAppe
　endif
case m.stat=2 && 编辑
　gather memvar
　do ToAppe
endcase
retu

*** 删除
proc sc < do case
case m.stat=1 && 新增
　if eof()
　　if m.xzok
　　　do ToAppe
　　endif
　else
　　do ToEdit
　endif
case m.stat=2 && 编辑
dele
go top
　if eof()
　　do ToAppe
　else
　　do ToEdit
　endif
endcase
retu

*** 漫游
proc my
do case
case m.stat=1 && 新增
　if m.xzok
　　appe blank
　　gather memvar
　　m.stat=2
　else
　　if !eof()
　　　do ToEdit
　　endif
　endif
case m.stat=2 && 编辑
gather memvar
{
　漫游代码...
}
do ToEdit
endcase
retu

*** 结束
proc js
do case
case m.stat=1 && 新增
　if m.xzok
　　appe blank
　　gather memvar
　endif
case m.stat=2 && 编辑
　gather memvar
endcase
retu

*** 进人新增
proc ToAppe
scatter memvar blank
m.KeyText=f(m.key)=""
m.key="********"
{
　m.key1=...
　m.key2=...
　m.key3=...
　.....
}
m.stat=1
m.xzok=.f.
retu

*** 进人编辑
proc ToEdit
scatter memvar
{
　m.oldkey=m.FDkey
　m.key=m.oldkey
　m.KeyText=f(m.key)
　m.key1=f1(m.key)
　m.key2=f2(m.key)
　m.key3=f3(m.key)
}
m.stat=2
retu
{伪代码结束}

　　对于Form中的其它和数据表中的非关键字字段对应的控件都与m.字段名绑定。

　　把doKeyOK和thisform.refresh嵌入Form中的关键字输入确认按钮中；把do xz和thisform.refresh嵌入Form中的新增按钮中；

　　把dosc和thisform.refresh嵌入Form中的删除按钮中；把各个domy... 和thisform.refresh分别嵌入Form中的各个漫游按钮中；把dojs和thisform.release嵌入Form中的结束按钮中。

　　这样经过步骤1.-4.一个数据表维护屏幕设计的有关代码已基本上完成了。

　　结束语：可能有的读者会感到它还太麻烦，还想探索更为精简的代码。但最后笔者还想再强调一下，由于被数据表维护屏幕本身的复杂性所决定，其相应的代码不可能是简单的，以上由修改伪代码而成的代码虽不能说是最精简的，但也算是够精简的了；如果一个数据表维护屏幕的代码它真的非常简单，成么对于绝大多数的应用来说它是不会使用户满意的，甚至是不能使用的。

　　注：伪代码中可能需要修改的部分都用{}括进，其他部分一般不需修改。

参考文献：
　　1.ProgrammingVisualFoxpro3.0.WhilHentzen.电子工业出版社
　　2.VisualFoxpro系列丛书技术篇.周建成.人民邮电出版社

更多内容请看Wlan组网----家庭专题  计算机维护  系统维护手册专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：
较新的文章：Visual Foxpro 的一个BUG