main.prg

查字典背单词系统

set talk off  &&取消交互显示
set safe off   &&关闭安全提示
set delete on  &&设置加了删除标记的记录不作统计
close all  
clear all
modi window screen title "英语单词学习系统" 
zoom window screen max  
on shutdown quit  &&使用户单击窗口的关闭按钮，可直接关闭系统
publ bzbl   &&定义bzbl为公共变量
*do form begin
*read event
do form hqpass  &&调用获取口令的表单
read event   &&开始事件的进程
do learndc.mpr  &&调用主菜单
read event