行业应用

开发平台：

VFP

start.prg：源码内容

							TMPPA=SYS(5)+SYS(2003)
SET DEFA TO (TMPPA)
do 本系统私有期初始化
************************************
 PUBLIC OSTARTFORM
 SET TALK OFF
 SET ESCAPE OFF
 SET SAFETY OFF
 SET NOTIFY OFF
 SET DEBUG OFF
 SET ECHO OFF
 SET DELETED ON
 SET CENTURY ON
 SET DATE ansi
 SET HOURS TO 24
 ON SHUTDOWN do shutdown
 ON ERROR DO errhand WITH ERROR( ), MESSAGE( )
 DO FORM start NAME OSTARTFORM
 PUBLIC SOFTNAME
 SOFTNAME = '餐厅收银'
 CCAPTION = SOFTNAME + ' - 红狐工作室'
 DECLARE INTEGER FindWindow IN win32api STRING , STRING 
 IF FINDWINDOW(0,CCAPTION) <> 0
    _SCREEN.CAPTION = CCAPTION
     =messagebox("&SoftName.程序已经运行，请查看任务栏！",16,"系统资源省着点用哦！ ^_^ ")
    DO SHUTDOWN
    RETURN .F.
 ENDIF 
 _SCREEN.CAPTION = CCAPTION
 OSTARTFORM.MSG.CAPTION = '正在初始化系统变量...'
 DO SYS_INI
 OSTARTFORM.MSG.CAPTION = '正在进行文件检查...'
 DO FILE_INI
 OSTARTFORM.MSG.CAPTION = '正在初始化菜单...'
 DO sysmenu.mpr
 SET MARK OF BAR 1 OF 查看V TO .T.
 SET MARK OF BAR 2 OF 查看V TO .T.
 SET MARK OF BAR 3 OF 查看V TO .T.
 OSTARTFORM.MSG.CAPTION = '正在初始化工具条...'
  OTOOLSBAR.SHOW
  OEDITTOOLSBAR.SHOW
  OTOOLSBAR.SETALL('enabled',.F.)
 _SCREEN.AUTOCENTER = .T.
 _SCREEN.WINDOWSTATE = 2
 OSTARTFORM.MSG.CAPTION = '系统初始化完毕'
  OSTARTFORM.RELEASE
 RELEASE OSTARTFORM
  _SCREEN.SHOW
 DO SHOWFORM WITH '登录' , 'oF31'
 DO REFRESHTOOLSBAR
  set message to "&softname 就绪"
 READ EVENTS 
*

						