主程序.prg

用vfp做的成绩管理系统查找并更换姓名学号籍贯等

SET TALK OFF
SET ECHO OFF
SET DOHISTORY OFF
SET EXACT ON
SET DELETE ON
SET DATE TO ANSI LONG
SET EXCL OFF
CLOSE DATABASE
SET SYSMENU AUTO
SET SYSMENU TO
SET SYSMENU OFF
SET STATUS OFF
SET STATUS BAR OFF
SET SAFE OFF
SET CENT ON
 _SCREEN.VISIBLE=.F.
*_SCREEN.WINDOWSTATE=2
*_SCREEN.PICTURE="PICTURE\BACKGROUND.BMP"
*_SCREEN.ICON="PICTUER\Network Neighbourhood.ico"
*cCaption="~~~~学生档案管理信息系统  ~~ ~~ ~  程序： 寇宏伟"
*DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
*IF FindWindow(0,cCaption)#0
*	_SCREEN.CAPTION=cCaption
*	=MESSAGEBOX("程序已经运行，请注意任务栏！",16,"程序：AYongSoft ^_^ ")
*	QUIT
*	RETURN .F.
*ENDIF
*_SCREEN.CAPTION=cCaption
DO FORM 身份验证
READ EVENTS