【文章內(nèi)容簡(jiǎn)介】 學(xué)生成績(jī)管 理 do form printscore DEFINE POPUP 系統(tǒng)維護(hù) MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 系統(tǒng)維護(hù) PROMPT 用戶管理 DEFINE BAR 2 OF 系統(tǒng)維護(hù) PROMPT \ DEFINE BAR 3 OF 系統(tǒng)維護(hù) PROMPT 數(shù)據(jù)備份 DEFINE BAR 4 OF 系統(tǒng)維護(hù) PROMPT \ DEFINE BAR 5 OF 系統(tǒng)維護(hù) PROMPT 系統(tǒng)初始化 ON SELECTION BAR 1 OF 系統(tǒng)維護(hù) 。 DO _0vv0ilze6 。 IN LOCFILE(VFP 學(xué)生成績(jī)管理系統(tǒng) \MENU ,MPX。MPR|FXP。PRG ,WHERE is MENU?) ON SELECTION BAR 3 OF 系統(tǒng)維護(hù) 。 DO _0vv0ilze7 。 河北大學(xué)畢業(yè)論文 19 IN LOCFILE(VFP 學(xué)生成績(jī)管理系統(tǒng) \MENU ,MPX。MPR|FXP。PRG ,WHERE is MENU?) ON SELECTION BAR 5 OF 系統(tǒng)維護(hù) 。 DO _0vv0ilze8 。 IN LOCFILE(VFP 學(xué)生成績(jī)管理系統(tǒng) \MENU ,MPX。MPR|FXP。PRG ,WHERE is MENU?) * ********************************************************* * * * * _0VV0ILZDB ON SELECTION PAD * * * * Procedure Origin: * * * * From Menu: , Record: 30 * * Called By: ON SELECTION PAD * * Prompt: 退出 * * Snippet: 1 * * * ********************************************************* * PROCEDURE _0vv0ilzdb set sysmenu to default CLEAR EVENTS * ********************************************************* * * * * _0VV0ILZE1 ON SELECTION BAR 1 OF POPUP 基本數(shù)據(jù)管 理 * * * * Procedure Origin: * * * * From Menu: , Record: 5 * * Called By: ON SELECTION BAR 1 OF POPUP 基本數(shù)據(jù)管 理 * * Prompt: 設(shè)置專業(yè) * * Snippet: 2 河北大學(xué)畢業(yè)論文 20 * * * ********************************************************* * 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è)置班號(hào) * * 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é)生成績(jī)管 理 * * * * Procedure Origin: * * * * From Menu: , Record: 14 * * Called By: ON SELECTION BAR 1 OF POPUP 學(xué)生成績(jī)管 理 * * Prompt: 學(xué)生成績(jī)錄入