智能考勤管理系统是我学习别人的一个软件,我主要在搞工业自动化的编程,单片机,PLC等的编程,若有同行可以留言

				* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
				*  文件名: MAIN.PRG(主文件) 				* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
				
				
				 _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 
				*