kl.prg

来自「一个有关电力系统收费的管理软件」· PRG 代码 · 共 12 行

set status bar off
public qbz
qbz=1
do form kl name kl
close database
if qbz=0
	do jm with 'password',1
	on shutdown quit
	_screen.visible=.f.
	quit
endif
set status bar on