精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VFP>>〖开发心得〗>>系统主程序2

主题:系统主程序2
发信人: pig2609(肥猪)
整理人: foxzz(2003-04-04 08:43:56), 站内信件
以前的如下, 目前正在全面 "对象化"


*- 1. 全局变量及一般设置 --------------------------------------------
SET PATH TO SYSTEM;source
SET PROC TO gProc,pProc,pKMProc
SET CLASSLIB TO gClass
pv设置SET选项() 
ON SHUTDOWN pv退出前的处理()
DO FORM sp_splash

*---
PUBLIC gc程序ID,gc程序内部序列号,gl已注册,gc注册码检查和,gt进入程序时间
PUBLIC gc注册表路径,gcIni文件名,gc操作员代号,gc操作员名,gc操作员权限
PUBLIC guTag,go静态变量,go文本转字符串 
PUBLIC gc科目结构,gd期间开始日期,gd期间结束日期
PUBLIC gc开始使用年月份,gc最后结帐年月份,gc当前操作年月份,gl已结帐

gc程序ID='粤信MIS'
gc程序内部序列号='0001'
gc注册表路径="SOFTWARE\粤信软件\"+gc程序ID
gcIni文件名=FULL(CURDIR())+'config.ini'
gt进入程序时间=DATETIME()
gc注册码检查和=SYS(2007,gcU2C(gl已注册)+gcU2C(gt进入程序时间))
gc操作员权限=''

*-
WITH _SCREEN
    .CAPTION=gc程序ID
    .ICON='logo.ico'
    .BACKCOLOR=RGB(128,128,128)
    .WINDOWSTATE=2
    .FONTNAME='MS Serif'
    .FONTSIZE=9
    .MOUSEICON='busy.ani'
     .VISIBLE=.T.
ENDWITH
pv其他设置()
pv设置CNNT() 
glSetForeGroundWindow(_SCREEN.CAPTION)
*-EOF---1. 全局变量及一般设置 --------------------------------------


*- 2. 取参数->登录->设SCREEN标题->加墙纸->菜单->权限处理->导航器 -----
pv取系统参数() &&不成功则退出
DO FORM sp_登录 TO guTag
IF guTag<0
QUIT
ENDIF
pv设置Screen标题()
_SCREEN.ADDOBJECT('底图','background')
DO MAIN.mpr
gv据权限修改菜单项()

READ EVENT
*-EOF 2.-----------------

[关闭][返回]