精华区文章阅读

发信人: fzx (化石), 信区: Database
标题: Fox编程技巧六则
发信站: 紫丁香 (Tue Sep 8 13:31:58 1998), 转信

Fox编程技巧六则
□河北张其雪
本人长期使用FoxBASE编制数据库应用程序，积累了许多
实用的编程经验。现采撷几则与爱好者交流。
编写可改写密码程序
一般来说，在FoxBASE应用程序中设密码只有在编写程序
时设定，程序编译后即不可修改。本人经试验，很容易
地实现了FoxBASE应用程序密码的任意修改，并可在程序
运行时实现动态修改。
具体做法是，将预设密码写在一个单独的文本文件内，如
MIMA.INI，其内容只有一行，如MIMA=′YH000′(引号内
字符为密码字)。主程序中，将内存变量MIMA设定为全局
变量。在程序中进行密码比较之前，调用这个密码文件
MIMA.INI(因为扩展名不是FoxBASE默认扩展名.PRG,调用
时不可省略扩展名，即必须写为MIMA.INI)。而编译程序
时，让这个密码文件不参与编译，只以文本文件形式保
留。当要修改密码时，用EDIT、WPS、CCED等软件对
MIMA.INI文件中的预设密码字进行任意修改，然后再以
文本文件形式存盘即可。
如需在程序运行时进行动态修改，关键在于将修改后的内
存变量MIMA写回MIMA.INI文件，如下程序可以实现这一目的：
ans=′ ′
@24,0 say ″按Y修改密码，其它键不修改：″ get ans
read
if upper(ans)=′Y′牋牋＆＆输入′Y′则修改密码
@24,0 say ″输入新密码：″get mima
＆＆提示输入新密码并等待输入
read
set device to print牋牋＆＆把@..SAY内容输出到打印机
set print to mima.ini牋� ＆＆把打印机定向到文件mima.ini
@0,0 say ″MIMA=′ ″＋mima＋″ ′ ″牋�
＆＆输出内容MIMA=′mima′
set device to screen＆＆把@...SAY的内容输出到屏幕
endif
使用这种技巧，可以把内存变量的内容存到文本文件中去。所以，
在编写应用程序时，可以预设一些环境变量让用户在使用中去选择，
就像Windows中动态修改WIN.INI、SYSTEM.INI文件一样，这样可增
加程序在应用中的灵活性、趣味性和适应性。
密码隐蔽显示
在输入密码时，我们不希望密码在屏幕上显示，但又希望在屏幕上
显示所输入的密码位数，这就用到密码的隐蔽显示。当键盘逐个输
入密码时，屏幕上相应地显示′′或其它与密码无关字符，并不
把输入的字符送到屏幕显示。这就是在输入一个字符时，不但要接
收这个信息，还要将另一个字符信息送到屏幕显示。下列程序，就
是这样的一个例子。
@13，10 SAY′请输入密码：′
m=′　′
mm=′′
SET COLO TO W/B
@13，21 CLEA TO 13，27 ＆＆设定显示区域
pj=1 ＆＆循环参数，预设为1
DO WHILE pj<=6 ＆＆设定密码字为6个
WAIT TO m ＆＆等待输入并将输入的字符赋予内存变量m
STORE mm＋m TO mm
＆＆将m与mm累加，再赋于mm
xa=20＋pj
xs=′@13,′＋str(xa)＋′ say ′
＆xs. ′′ ＆＆在相应位置上显示′′
ENDDO
调试中的输出重定向
编写应用程序时，经常遇到将某些内容输出到软盘，或由打印机打
印，但调试时往往很繁琐。我们可以将输出重定向到其它目标上，
如本欲将内容输出到A盘，则可以将此定向到虚拟盘(如果已设置虚
拟盘)；又如，欲从打印机输出，则可将输出定向到某文件。当程
序调试完成再将输出改为本来的输出方向。
这种重定向有两种实现方法。一是由DOS命令来实现。如要将A盘定
向到其它盘，则可用DOS的SUBST命令；如欲将打印输出定向到某文
件，也同样有许多DOS软件来实现。这种方法，只是改变了FoxBASE
的运行环境，不需修改FoxBASE命令。另一方法是通过FoxBASE命令
来实现。如本欲指向A盘，使用set defa to A:命令，因调试时频
繁使用A驱不方便，则定向到D盘(虚拟盘)，可使用set defa to D:
令。如欲将输出到打印机改为输出到某文件，则可使用set printer
to ?文件名?命令。当调试完成后，再恢复到以前的设置。

--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: gaea.hit.edu.cn]

Database 版 (精华区)