📄 main.prg
字号:
public capp_currentuser &&用于保存当前用户用户名
public capp_currentpwd &&用于保存当前用户口令
public capp_currentpop &&用于保存当前用户权限代码
public lapp_Logon &&用于保存当前用户是否登录成功
*设置初始值
capp_currentuser=""
capp_currentpwd=""
capp_currentpop=""
lapp_Logon=.F.
application.visible=.F. &&隐藏Visual FoxPro主窗口
DO form forms\sysuserlog.scx &&显示登录表单
read events &&建立事件循环
if lapp_logon
DO form forms\SystemMain.scx &&显示系统主表单
read events &&建立事件循环
endif
quit &&关闭Visual FoxPro主窗口
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -