main.prg

来自「该软件是我用了3天的时间作的」· PRG 代码 · 共 17 行

set century on    &&设置世纪为可见
set date to ansi    &&设置日期格式
set escape off    &&设置Esc键作用为无效
set console off    &&设置不把屏幕或主窗口作为输出对象
set multilocks on    &&设置多记录锁定
set exact on        &&设置以精确方式进行字符串比较
*set help to 帮助文件名    &&设置帮助文件
set default to sys(5)+sys(2003)    &&设置默认路径
set path to sys(5)+sys(2003)+"\"    &&设置文件搜索路径
public myname,regicomp    &&定义全局变量
regicomp="盐城师范学院"        &&给全局变量赋值，一般用于应用系统的注册名等
use 口令            &&调用口令表找出口令值
myname=操作员        &&获得口令表中的操作员
use                &&关闭口令表
do form 主表单.scx    &&调用主表单，如进入系统时要先进行口令验证，则应调用口令验证表单
read events           &&启动事件循环