main.prg

企业物货管理系统

CLOSE ALL
CLEAR ALL
SET CENTURY ON                           &&  显示四位年代
SET CURRENCY TO "￥"                     &&  货币符号为“￥”
PUBLIC cuser,mph,act,isadm,sertb,sertj   &&  声明全局全变量
_SCREEN.VISIBLE=.F.
DO FORM logon                            &&  执行logon表单
READ EVENTS