【正文】
錄 main 流程圖 其他略 pass Menus 基本數(shù)據(jù) 管理 系統(tǒng)維護 學(xué)生成績管理 其他 系統(tǒng)初始化 退出系統(tǒng) 進入系統(tǒng) 河北大學(xué)畢業(yè)論文 12 主程序流程圖 功能框圖 基本數(shù)據(jù)管量 Main程序 Pass* Menu 學(xué)生成績管理 系統(tǒng)維護 Sefprof* sreen* Setclass* usermcdn* przntsare* quscore* Setcore* Setcomse* databado* qustadent* Setstudent* fenksql* sefprofl* setcourfel* sefdassl* setseudentl* Setsfudenfz* setcorel* Fscore1報表 Fscore報表 Usemaninl Find* 河北大學(xué)畢業(yè)論文 13 注: 圖框中帶 *號者表示表單 第 六 章 實現(xiàn)過程 數(shù)據(jù)表設(shè)計 本系統(tǒng)使用的表均為自由表 ( 1) user 表 結(jié)構(gòu)如下 Field Fieldname Type Width Dec Index Nulls 1 usename C 10 NO 2 usepass C 6 NO 3 uselevelL C 10 N0 該表存儲系統(tǒng)用戶信息。 ( 6) score 表 score 表結(jié)構(gòu)如下: Field Fieldname Type width Dec Index Nulls 1 學(xué)號 C 5 N0 2 姓名 C 7 NO 3 課程 C 20 NO 4 分數(shù) N 3 NO 5 班號 C 5 NO 6 專業(yè) C 20 NO 該表按班號分類存放學(xué)生成績,另有一個臨時表 scorel,其結(jié)構(gòu)似同。amp。 AND scpass=ALLTRM IF FounD( ) ftay=.T. uleval=uselevel THISFORM:RELEASE ELSE =MESSAGEBOX(“ 口令不正確, 請 重新輸入 ” , 48, “ 信息提示 ”) THISFORM。 VALUE=“” n=n+1 ENDIF ENDIF ENDPROC PROCE RE RECEASE n,flag ENDPROL 程序代碼如下: SET SYSMENU TO 河北大學(xué)畢業(yè)論文 17 SET SYSMENU AUTOMATIC DEFINE PAD _0vv0ilzcv OF _MSYSMENU PROMPT 基本數(shù)據(jù)管理 COLOR SCHEME 3 DEFINE PAD _0vv0ilzd8 OF _MSYSMENU PROMPT 學(xué)生成績管理 COLOR SCHEME 3 DEFINE PAD _0vv0ilzd9 OF _MSYSMENU PROMPT 系統(tǒng)維護 COLOR SCHEME 3 DEFINE PAD _0vv0ilzda OF _MSYSMENU PROMPT 退出 COLOR SCHEME 3 ON PAD _0vv0ilzcv OF _MSYSMENU ACTIVATE POPUP 基本數(shù)據(jù)管 理 ON PAD _0vv0ilzd8 OF _MSYSMENU ACTIVATE POPUP 學(xué)生成績管 理 ON PAD _0vv0ilzd9 OF _MSYSMENU ACTIVATE POPUP 系統(tǒng)維護 ON SELECTION PAD _0vv0ilzda OF _MSYSMENU 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) DEFINE POPUP 基本數(shù)據(jù)管 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 基本數(shù)據(jù)管 理 PROMPT 設(shè)置專業(yè) DEFINE BAR 2 OF 基本數(shù)據(jù)管 理 PROMPT 設(shè)置班號 DEFINE BAR 3 OF 基本數(shù)據(jù)管 理 PROMPT 設(shè)置課程 DEFINE BAR 4 OF 基本數(shù)據(jù)管 理 PROMPT \ DEFINE BAR 5 OF 基本數(shù)據(jù)管 理 PROMPT 錄入學(xué)生 DEFINE BAR 6 OF 基本數(shù)據(jù)管 理 PROMPT 查詢學(xué)生 ON SELECTION BAR 1 OF 基本數(shù)據(jù)管 理 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 2 OF 基本數(shù)據(jù)管 理 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 3 OF 基本數(shù)據(jù)管 理 。 河北大學(xué)畢業(yè)論文 18 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 5 OF 基本數(shù)據(jù)管 理 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 6 OF 基本數(shù)據(jù)管 理 do form qustudent DEFINE POPUP 學(xué)生成績管 理 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 學(xué)生成績管 理 PROMPT 學(xué)生成績錄入 DEFINE BAR 2 OF 學(xué)生成績管 理 PROMPT \ DEFINE BAR 3 OF 學(xué)生成績管 理 PROMPT 學(xué)生成績查詢 DEFINE BAR 4 OF 學(xué)生成績管 理 PROMPT \ DEFINE BAR 5 OF 學(xué)生成績管 理 PROMPT 學(xué)生總成績 ON SELECTION BAR 1 OF 學(xué)生成績管 理 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 3 OF 學(xué)生成績管 理 do form quscore ON SELECTION BAR 5 OF 學(xué)生成績管 理 do form printscore DEFINE POPUP 系統(tǒng)維護 MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF 系統(tǒng)維護 PROMPT 用戶管理 DEFINE BAR 2 OF 系統(tǒng)維護 PROMPT \ DEFINE BAR 3 OF 系統(tǒng)維護 PROMPT 數(shù)據(jù)備份 DEFINE BAR 4 OF 系統(tǒng)維護 PROMPT \ DEFINE BAR 5 OF 系統(tǒng)維護 PROMPT 系統(tǒng)初始化 ON SELECTION BAR 1 OF 系統(tǒng)維護 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 3 OF 系統(tǒng)維護 。 河北大學(xué)畢業(yè)論文 19 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。PRG ,WHERE is MENU?) ON SELECTION BAR 5 OF 系統(tǒng)維護 。 IN LOCFILE(VFP 學(xué)生成績管理系統(tǒng) \MENU ,MPX。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 * * * ***********************************