k_main.prg

来自「科技信息管理系统」· PRG 代码 · 共 27 行

close all
clear all
*set excl off
set talk off
set esca off
set echo off
set debu off
set date ansi
set cent on
application.visible=.f.
publ path1
path1=SYS(5)+SYS(2003)
SET DEFAULT TO &path1
SET SYSMENU SAVE
SET SYSMENU TO
public data
clos data

on shutdown 
*open data k_djxt
do form k_main
read events
application.visible=.t.
set debug on
release all
clear all
quit