教学成绩评价系统.docVIP

教学成绩评价系统 Main函数: SET AUTOSAVE ON SET CONSOLE OFF SET HEADING OFF SET TALK OFF SET DELETED ON SET SAFETY OFF SET ESCAPE OFF SET NOTIFY OFF SET OPTIMIZE ON SET RESOURCE OFF SET STATUS OFF SET STATUS BAR OFF SET SYSMENU OFF DECLARE LONG FindWindow IN User32.DLL AS Find_Window STRING , STRING Windows API 声明 _SCREEN.Visible= .F. CLOSE ALL IF FIND_WINDOW(0,教学成绩评价系统) 0 = MESSAGEBOX( 教学成绩评价系统 + 不能多次启动 !,64,提 示) QUIT ENDIF thePath = ADDBS(JUSTPATH(SYS(16))) 定义文件目录 SET DEFAULT TO (thePath) OPEN DATABASE sysdatabase\ParameterSetDataBase.dbc USE sysdatabase\cours