中国电脑教育报1998年第49期

编辑备注型字段的灵活方法

翁元祥

　　在数据库操作中，对备注型字段的内容进行编辑是一件经常性的工作，如修改添加记录等，但实际操作中对备注型字段的编辑并不十分方便，虽然FoxPro的备注文件本身是十分灵活的，一个字段最高可达64k，而且事先不必定义其大小，可以在编辑或处理时自由调节，为此本人编写了以下这个小程序，可解决以数据库中的任一字段为索引，对该记录的备注型字段随意编辑，作为实例，程序采用一个试题库的题号做成一个弹出式菜单，使用时只要根据题号任意选择相应的试题，对其试题内容进行修改。本程序十分实用，可用在各种场合。附源程序如下，程序在VFP 3.0, 5.0 FoxPro 2.5 For Windows,以及在486/66,16M内存的机器上运行通过。

　　SET TALK OFF

　　CLEAR ALL

　　CLEAR

　　DEFINE WINDOW main AT 6.083,60.875 SIZE 15.385,31.800;

　　TITLE “备注字段浏览" FONT “MS Sans Serif",8 ;

　　FLOAT NOCLOSE MINiMIZE SYSTEM

　　DEFINE WINDOW editwin AT 05,09 SIZE 14,38 FONT“Aria1",11

　　USE STK

　　DEFINE POPUP mypop PROMPT FIELD stk.bh SCROLL ＆＆用bh定义弹式菜单

　　IF WVISIBLE("main")

　　 ACTIVATE WINDOW main SAME

　　ELSE

　　 ACTIVATE WINDOW main NOSHOW

　　ENDIF

　　@ 0.077,4.200 GET m.choice PICTURE “@＆N" POPUP mypop;

　　 SIZE 11.176,22.714 DEFAULT “ ";

　　 FONT “Aria1",11 STYLE “" when showole()

　　＊COLOR RGB(,,,255,255,255),RGB(,,,255,255,255)

　　IF NOT WVISIBLE(“main")

　　ACTIVATE WINDOW main

　　ENDIF

　　READ CYCLE

　　RELEASE WINDOWs main

　　RELEASE WINDOWs editwin

　　USE

　　FUNCTION showole ＆＆m.choice when

　　＃REGION 1

　　IF MEMLINES(st)=0

　　 WAIT“此备注字段是空的!!" WINDOW NOWAIT

　　 retu

　　 endif

　　 MODIFY memo st ＆＆显示内容

　　 return