免费vc++医药管理系统+论文

loSplash.Show()
ENDIF
ENDIF

#ENDIF

APP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB)

IF VARTYPE(APP_GLOBAL) = "O" ;
AND ACLASS(laCheck,APP_GLOBAL) > 0 AND ;
ASCAN(laCheck,UPPER(APP_SUPERCLASS)) > 0

APP_GLOBAL.cReference =[APP_GLOBAL]
APP_GLOBAL.cFormMediatorName = APP_MEDIATOR_NAME

   #IFDEF APP_CD
      APP_CD
   #ENDIF

   #IFDEF APP_PATH
      APP_PATH
   #ENDIF

   #IFDEF APP_INITIALIZE
       APP_INITIALIZE
   #ENDIF

   IF VARTYPE(loSplash) = "O"

      IF SECONDS() < lnSeconds + APP_SPLASHDELAY
         =INKEY(APP_SPLASHDELAY-(SECONDS()-lnSeconds),"MH")
      ENDIF

loSplash.Release()
loSplash = .NULL.

   ENDIF

   RELEASE laCheck, loSplash, lnSeconds

   IF NOT APP_GLOBAL.Show()

      IF TYPE([APP_GLOBAL.Name]) = "C"
         MESSAGEBOX(APP_CANNOT_RUN_LOC,16, ;
                 APP_GLOBAL.cCaption )
         APP_GLOBAL.Release()
      ELSE
         MESSAGEBOX(APP_CANNOT_RUN_LOC,16)
      ENDIF

   ELSE
      llAppRan = .T.
   ENDIF


   IF TYPE([APP_GLOBAL.lReadEvents]) = "L"

      IF APP_GLOBAL.lReadEvents
         * the Release() method was not used
         * but we've somehow gotten out of READ EVENTS...
         APP_GLOBAL.Release()
      ENDIF
   ELSE
      RELEASE APP_GLOBAL
   ENDIF

ELSE

MESSAGEBOX(APP_WRONG_SUPERCLASS_LOC,16)
RELEASE APP_GLOBAL

ENDIF

IF lcLastSetTalk=="ON"
SET TALK ON
ELSE
SET TALK OFF
ENDIF

IF TYPE([APP_GLOBAL]) = "O"
   * non-read events app
   RETURN APP_GLOBAL
ELSE
   RETURN llAppRan
ENDIF

inname=alltrim(thisform.pageframe1.page1.text1.value)
indate=alltrim(thisform.pageframe1.page1.text

首页上一页 1 2 3 4 5 6 7 下一页尾页 4/7/7

免费vc++医药管理系统+论文(四)