来自「电话卡管理软件」· 代码 · 共 20 行

set talk off    &&关闭对话模式
set safe off
set stat off   
set dele on     
set cent on
SET EXCLUSIVE on
close all
RELEASE WINDOW "常用" 
_SCREEN.visible=.f.
_SCREEN.backcolor=rgb(80,180,150)
MODIFY WINDOW SCREEN TITLE "电话卡管理系统 "
deactivate window "项目管理器"
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to data;form;pic
open database 电话卡

do form logo

read events