【正文】 ********************** * PROCEDURE _0vv0ilze1 IF ulevel=系統(tǒng)管理員 do form setprof ELSE =MESSAGEBOX(您不是系統(tǒng)管理 員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF * ********************************************************* * * * * _0VV0ILZE2 ON SELECTION BAR 2 OF POPUP 基本數(shù)據(jù)管 理 * * * * Procedure Origin: * * * * From Menu: , Record: 6 * * Called By: ON SELECTION BAR 2 OF POPUP 基本數(shù)據(jù)管 理 * * Prompt: 設(shè)置班號 * * Snippet: 3 * * * ********************************************************* * PROCEDURE _0vv0ilze2 IF ulevel=系統(tǒng)管理員 do form setclass ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF * ********************************************************* * * * * _0VV0ILZE3 ON SELECTION BAR 3 OF POPUP 基本數(shù)據(jù)管 理 河北大學(xué)畢業(yè)論文 21 * * * * Procedure Origin: * * * * From Menu: , Record: 7 * * Called By: ON SELECTION BAR 3 OF POPUP 基本數(shù)據(jù)管 理 * * Prompt: 設(shè)置課程 * * Snippet: 4 * * * ********************************************************* * PROCEDURE _0vv0ilze3 IF ulevel=系統(tǒng)管理員 do form setcourse ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF * ********************************************************* * * * * _0VV0ILZE4 ON SELECTION BAR 5 OF POPUP 基本數(shù)據(jù)管 理 * * * * Procedure Origin: * * * * From Menu: , Record: 10 * * Called By: ON SELECTION BAR 5 OF POPUP 基本數(shù)據(jù)管 理 * * Prompt: 錄入學(xué)生 * * Snippet: 5 * * * ********************************************************* * PROCEDURE _0vv0ilze4 IF ulevel=系統(tǒng)管理員 do form setstudent 河北大學(xué)畢業(yè)論文 22 ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF * ********************************************************* * * * * _0VV0ILZE5 ON SELECTION BAR 1 OF POPUP 學(xué)生成績管 理 * * * * Procedure Origin: * * * * From Menu: , Record: 14 * * Called By: ON SELECTION BAR 1 OF POPUP 學(xué)生成績管 理 * * Prompt: 學(xué)生成績錄入 * * Snippet: 6 * * * ********************************************************* PROCEDURE _0vv0ilze5 IF ulevel=系統(tǒng)管理員 do form setscore ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF * ********************************************************* * * * * _0VV0ILZE6 ON SELECTION BAR 1 OF POPUP 系統(tǒng)維護(hù) * * * * Procedure Origin: * * * * From Menu: , Record: 23 * * Called By: ON SELECTION BAR 1 OF POPUP 系 統(tǒng)維護(hù) * * Prompt: 用戶管理 * * Snippet: 7 河北大學(xué)畢業(yè)論文 23 * * * ********************************************************* * PROCEDURE _0vv0ilze6 IF ulevel=系統(tǒng)管理員 do form usermain ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF * ********************************************************* * * * * _0VV0ILZE7 ON SELECTION BAR 3 OF POPUP 系統(tǒng)維護(hù) * * * * Procedure Origin: * * * * From Menu: , Record: 26 * * Called By: ON SELECTION BAR 3 OF POPUP 系統(tǒng)維護(hù) * * Prompt: 數(shù)據(jù)備份 * * Snippet: 8 * * * ********************************************************* * PROCEDURE _0vv0ilze7 IF ulevel=系統(tǒng)管理員 do form databack ELSE =MESSAGEBOX(您不是系統(tǒng)管理員 ,不能使用本項(xiàng)功能 ,16+0,信息提示) ENDIF 河北大學(xué)畢業(yè)論文 24 * ********************************