main.prg

VFP的五金仓库进、销、存管理系统

CLEAR ALL
SET TALK OFF
set bell on
_screen.windowstate=2
do form 背景图
PUBLIC S_DO
S_DO=""
public man_no,man_name,man_work
man_no=''
man_name=''
man_work=''
S_DO=.t.
DO MENU.MPR
DO FORM 关于系统
wait "按任意键进入用户登录表单！" window timeout 4
S_DO=.t.
DO FORM 用户登录表单
READ events
quit