【正文】
路是預先設置一個全局變量 Pword,并設置一個初值,然后使用 save to 命令保存為 文件,然后每次啟動時,全局變量 Pword 都先讀取 中的密碼,當用戶在登錄窗口中輸入的密碼與 Pword 相同時,允許登錄。因此在設計時在 Text2 的lostfocus 事件中加入如下代碼: if empty() messagebox(學號不能為空,請重新輸入! ,0+48+0,警告 ) retu endif if len(allt())8 messagebox(學號應為 8 位,請重新輸入! ,0+48+0,警告 ) retu =space(8) endif tempno=reo() sele xsda go top loca for allt(xh)=allt() if eof()=.f. and tempnoreo() messagebox(該學號已經存在,請重新輸入! ,0+48+0,警告 ) retu =space(8) endif goto tempno 學生成績輸入表單如下: 設計原理與代碼與檔案輸入表單基本相似,其中 bo1 的 Ctrolsoure 屬性為空,不會自動改變,其中的取值作為學期的默認輸入,但在 text3 中可以更改。右下腳有一個起主要作用的命令按鈕組。 三、輸入維護模塊的設計 學生檔案輸入維護表單以及學生成績輸入維護表單的設計思路基本相同,下面主要使用學生檔案輸入維護表單介紹程序設計的思路,表單如下圖所示: 表單中設計了若干文本框和一個單選按鈕組作為數據的輸入與修改,各控件的 Ctrolsoure 屬性分別與 中的字段相對應。 班級成績統(tǒng)計:調用班級成績統(tǒng)計表單,實現(xiàn)學校各班級各學期,各門課程優(yōu)秀人數,良好人數,及格人數,須努力人數,以及優(yōu)秀率,及格率的統(tǒng)計和輸出。 個人成績查詢:調用學生個人成績查詢表單,查詢各學生各學期學習成績情況。 查詢統(tǒng)計: 個人檔案查詢:調用學生個人情況查詢表單。其中 的代碼為: Clear event close table all close database set sysmenu to default set sysmenu on set dele off set safety on quit 輸入維護: 檔案輸入維護:通過命令調用檔案輸入維護表單。其過程代碼是: use data\ copy to backup\ use use data\ copy to backup\ use messagebox(數據已成功備份 ,0+48+0,提示 ) 數據恢復:將 backup 目錄下的數據恢復到數據庫,并刪除原有數據庫中的所有內容。讀取密碼值 DO form forms\Login read events 系統(tǒng)初始密碼為: 123456 二、系統(tǒng)主菜單設計 系統(tǒng)的主菜單是系統(tǒng)的一個核心內容,通過它將各個程序聯(lián)系在一起,只有通過系統(tǒng)菜單才能調用系統(tǒng)的各個功能模塊。增加一個標簽 =rgb(64,128,128) =.t. =14 =楷書 _GB2312 =指導教師:張?zhí)K =(()*10+20)/2 =240 =rgb(0,128,0) =.t. =0 ******調用登錄表單 ********* restore from pmem amp。增加一個標簽 =rgb(64,128,128) =.t. =14 =楷書 _GB2312 =軟件設計:鄭海明 魯躍杰 吳勝 =(()*10+20)/2 =200 =rgb(0,128,0) =.t. =0 (lbl4,label) amp。增加另一個標簽以顯示立體效果 =rgb(64,128,128) =28 =.t. =楷書 _GB2312 =allt(systit) =((systit)*1618)/22 =139 =0 =rgb(0,128,0) =.t. (lbl3,label) amp。增加一個標簽 =rgb(64,128,128) =.t. =28 =楷書 _GB2312 =allt(systit) =((systit)*1620)/2 =140 =rgb(72,183,108) =.t. =0 (lbl2,label) amp。設計窗口的狀態(tài)和基本環(huán)境 =.t. =0 =.t. =graphics\ =graphics\ =.t. =.f. =.f. =430 =636 (lbll,label) amp。 set exclusive off set talk off set safety off ***********定義全局變量 ********** public cPword store 8888 to Pword ***********設置系統(tǒng)主界面 ******** systit=學籍管理系統(tǒng) =systit amp。 set point to 39。 set separator to 39。 嚴格字符串比較 set carry on set deleted on set optimize on set refresh to 0,5 set odometer to 100 set blocksize to 64 set default to sys(5)+curdir() set seconds on set century on set hours to 12 set date to ansi set sysformats off set decimals to 2 set fdow to 1 set fweek to 1 set mark to 39。 關閉 ESC 退出鍵功能 set exac off amp。其程序內容如下: ******運行環(huán)境設置 ******** clear all close all set sysmenu off set clock off set escape off amp。 四、詳細設計 前面的各部分內容由我們小組的所有成員 —— 鄭海明(本人)、吳勝、魯躍杰三人在指導教師的幫助下 共同完成,詳細設計部分由大家分工合作完成,本人主要完成主程序設計、下面詳細敘述這些部分的設計要點,并給出相關代碼。 為了成績統(tǒng)計的方便,另外設計一張自由表 ,其結構如下: 班級成績統(tǒng)計表 字段名 字段類型 字段寬度 小數點 說明 Kcm 字符型 8 課程名稱 Yxs 數值型 2 優(yōu)秀人數 Lhs 數值型 2 良好人數 Jgs 數值型 2 及格人數 Xmls 數值型 2 需努力人數 Yxl 數值型 6 2 優(yōu)秀率 Jgl 數值型 6 2 及格率 四、文件設計 軟件所在目錄為 \xjgl1,項目文件、密碼文件直接放在 \xjgl1 下,該目錄下設置了七個子目錄: Data 存放數據庫、數據表文件 Forms 存放表單文件 Tabl 存放報表文件 Pr