发信人: 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.----------------- |
|