main.prg

来自「智能考勤管理系统是我学习别人的一个软件,我主要在搞工业自动化的编程,单片机,PL」· PRG 代码 · 共 61 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MAIN.PRG(主文件) <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 _SCREEN.VISIBLE = .F.
 CLOSE ALL
 CLEAR ALL
 RELEASE ALL
 SET SYSMENU TO
 SET TALK OFF
 SET RESOURCE ON
 SET DELETED ON
 SET SAFETY OFF
 SET ESCAPE OFF
 SET NOTIFY OFF
 SET STATUS BAR ON
 SET HOURS TO 24
 SET CENTURY ON
 SET DATE 'MDY'
 PUBLIC P_DEFASYSTITLE , P_DEFASYSBGIMG
 P_DEFASYSTITLE = '智能考勤管理系统'
 P_DEFASYSBGIMG = 'bgimg.jpg'
 DO changestru_1.prg
 DO createfile.prg
 DO changestru_2.prg
 DO changefile.prg
 DO app_option.prg
 WITH _SCREEN  
 .CAPTION = P_SYSTITLE
 .PICTURE = P_SYSBGIMG
 ENDWITH 
 IF FILE('hlp.scx')
    ON KEY LABEL F1 do form hlp
 ELSE 
    ON KEY LABEL F1 
 ENDIF 
 PUBLIC P_PASSOK
 P_PASSOK = .T.
 DO FORM login NAME LOGIN
 READ EVENTS 
 IF  .NOT. P_PASSOK
    QUIT 
 ENDIF 
 RELEASE P_PASSOK
 WITH _SCREEN  
 .WINDOWSTATE = 2
 .SHOWTIPS = .T.
  .NEWOBJECT('mtool','maintool','kqj')
 .MTOOL.LEFT = 1
 .MTOOL.TOP = 1
 .MTOOL.VISIBLE = .T.
  .NEWOBJECT('tgmsg1','trmsg','kqj')
 ENDWITH 
 ON SHUTDOWN DO quitkqjdb.prg
 DO appinit.prg
 _SCREEN.VISIBLE = .T.
 DO mainmenu.mpr
 READ EVENTS 
*