學(xué)生管理系統(tǒng)設(shè)計(jì)說(shuō)明書(shū)

1、05計(jì)專(zhuān)學(xué)生管理系統(tǒng)詳細(xì)設(shè)計(jì)說(shuō)明書(shū)一、 系統(tǒng)規(guī)劃說(shuō)明書(shū)在此次大作業(yè)之間，我們班級(jí)并沒(méi)有一套完善的學(xué)生管理系統(tǒng)。一直以來(lái)，班級(jí)管理工作主要是簡(jiǎn)單的WORD文檔的使用和ACESS數(shù)據(jù)庫(kù)的應(yīng)用。其操作方法簡(jiǎn)單但功能很不完善，簡(jiǎn)明性和實(shí)用性都較差。因此，我們第四小組決定利用此次大作業(yè)的機(jī)會(huì)，開(kāi)發(fā)一套專(zhuān)門(mén)用于班級(jí)管理工作的數(shù)據(jù)庫(kù)系統(tǒng)。經(jīng)過(guò)仔細(xì)研究分析，我們決定將系統(tǒng)分為三大菜單部分。分別為學(xué)生人事檔案管理，學(xué)生成績(jī)查詢(xún)，后臺(tái)操作管理三部分。為了便于指導(dǎo)員和學(xué)校領(lǐng)導(dǎo)對(duì)班級(jí)情況的了解管理，其中主要側(cè)重點(diǎn)在學(xué)生人事檔案管理方面。在學(xué)生人事檔案管理又分為學(xué)生人事維護(hù)打印和查詢(xún)打印兩個(gè)分支。學(xué)生成績(jī)菜單具有查詢(xún)打

2、印功能。系統(tǒng)管理分為操作員管理，密碼管理，數(shù)據(jù)備份等部分。三大菜單部分緊密結(jié)合聯(lián)系，共分為兩個(gè)數(shù)據(jù)庫(kù)，第一個(gè)數(shù)據(jù)庫(kù)包括學(xué)生管理維護(hù)表和成績(jī)查詢(xún)表，第二個(gè)數(shù)據(jù)庫(kù)包括系統(tǒng)管理表。如下圖所示(圖1)(圖1)二、 系統(tǒng)說(shuō)明書(shū)05計(jì)專(zhuān)學(xué)生管理系統(tǒng)基于FOXPRO 6.0中文版開(kāi)發(fā)。FOXPRO在數(shù)據(jù)庫(kù)開(kāi)發(fā)方面具有方面，實(shí)用，簡(jiǎn)單，直接等優(yōu)點(diǎn)。同時(shí)其也具有一定的局限性。本系統(tǒng)主要面向班級(jí)指導(dǎo)員和班級(jí)學(xué)生開(kāi)發(fā)使用，因此主要側(cè)重于系統(tǒng)的使用性和方便性。同時(shí)在安全性方面，我們也十分重視。特別是操作員級(jí)別的劃分等密碼管理，我們都做了仔細(xì)的分析研究。(一)、系統(tǒng)界面的設(shè)計(jì)，我們主要是本著實(shí)用簡(jiǎn)便的原則設(shè)計(jì)制作。在系

3、統(tǒng)界面被打開(kāi)時(shí)，會(huì)播放一段歡迎曲，界面包括本系統(tǒng)的系統(tǒng)名稱(chēng)，設(shè)計(jì)人員和所在小組。下面是系統(tǒng)的首界面(圖2)：(圖2)系統(tǒng)界面中有登陸系統(tǒng)按鈕，系統(tǒng)使用人員可以點(diǎn)擊進(jìn)入密碼驗(yàn)證頁(yè)，如果在一分鐘內(nèi)用戶(hù)沒(méi)有點(diǎn)擊此按鈕，系統(tǒng)會(huì)自動(dòng)跳到密碼驗(yàn)證頁(yè)。此程序的實(shí)現(xiàn)代碼會(huì)在詳細(xì)設(shè)計(jì)書(shū)中說(shuō)明。(二)、密碼驗(yàn)證作為系統(tǒng)最基本的安全管理步驟。用戶(hù)如果不輸入合法的用戶(hù)名和密碼，系統(tǒng)是不能進(jìn)入的。當(dāng)用戶(hù)輸入合法的用戶(hù)名和密碼時(shí)，系統(tǒng)管理會(huì)自動(dòng)判斷此用戶(hù)是什么級(jí)別的用戶(hù)，具有什么權(quán)限，使用戶(hù)的操作具有合法性。密碼驗(yàn)證頁(yè)包括操作員姓名和密碼兩個(gè)部分。具體的代碼實(shí)現(xiàn)也將在詳細(xì)設(shè)計(jì)書(shū)說(shuō)明。下面是密碼登陸頁(yè)的圖示(圖3)：(圖3

4、)當(dāng)操作員的名稱(chēng)和密碼均正確的時(shí)候，系統(tǒng)便會(huì)進(jìn)入系統(tǒng)使用主菜單。主菜單共分為三個(gè)分菜單項(xiàng)：學(xué)生信息管理，學(xué)生成績(jī)管理，系統(tǒng)管理。如圖(4)在學(xué)生信息管理中分為學(xué)生信息維護(hù)和學(xué)生信息查詢(xún)兩個(gè)菜單項(xiàng)，在學(xué)生成績(jī)管理中含有學(xué)生成績(jī)查詢(xún)打印菜單項(xiàng)，在系統(tǒng)管理中分為：操作員管理、口令設(shè)置、權(quán)限管理、系統(tǒng)日志、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、 退出系統(tǒng)七項(xiàng)。下面為本系統(tǒng)的使用數(shù)據(jù)流程圖：三、 詳細(xì)設(shè)計(jì)說(shuō)明書(shū)根據(jù)系統(tǒng)規(guī)劃和需要分析，把系統(tǒng)劃分為學(xué)生信息管理，學(xué)生成績(jī)查詢(xún)，系統(tǒng)管理三個(gè)模塊。本系統(tǒng)用到的主要有以下文件：主控程序main.prg、啟動(dòng)界面(封面)face.scx、系統(tǒng)登錄界面(口令驗(yàn)證窗口)pass.scx

5、、，主菜單main_menu.mpr。程序的調(diào)用關(guān)系如下：主控程序main.prg中調(diào)用界面表單face.scx，封面中調(diào)用“口令驗(yàn)證窗口”表單pass.scx，口令正確則調(diào)用系統(tǒng)菜單main_menu.mpr。各菜單項(xiàng)調(diào)用相對(duì)應(yīng)的表單。(一)、主控程序main.prg的代碼實(shí)現(xiàn)為：CLEAR &清屏CLEAR ALL &從內(nèi)存中釋放所有的內(nèi)存變量CLOSE ALL &關(guān)閉各種類(lèi)型的文件SET ESCAPE OFF &禁止運(yùn)行的程序和命令在按 Esc 鍵后被中斷SET SAFETY OFF &指定在改寫(xiě)已有文件時(shí)不顯示對(duì)話(huà)框SET DELETE ON &使用范圍子句處理記錄的命令忽略標(biāo)有刪除標(biāo)

6、記的記錄SET SYSMENU OFF &在程序執(zhí)行期間廢止 Visual FoxPro 主菜單欄RELEASE WINDOW 常用 &關(guān)閉常用工具欄SET CENTURY ON &年份以四位顯示SET DATE TO ymd &日期格式為年、月、日SET MARK TO - &指定日期分隔字符SET HOURS TO 24 &指定為 24-小時(shí)時(shí)間格式_SCREEN.Visible=.t._SCREEN.Caption=05計(jì)專(zhuān)學(xué)生管理系統(tǒng) &系統(tǒng)窗口標(biāo)題_SCREEN.Icon=.dod.ico &系統(tǒng)標(biāo)題欄圖標(biāo)*判斷顯示器當(dāng)前分辨率_SCREEN.Width=SYSMETRIC(1) _

7、SCREEN.Height=SYSMETRIC(2)*根據(jù)分辨率不同，為系統(tǒng)設(shè)置不同的背景圖片IF SYSMETRIC(1)=1024 _SCREEN.Picture=.imgbj.jpgELSE _SCREEN.Picture=.imgbj.jpgENDIFDO FORM .face.scx &調(diào)用登錄界面表單On ShutDown do OnShutdown &退出系統(tǒng)時(shí)調(diào)用函數(shù)onshutdown() READ EVENTS &建立事件循環(huán) On ShutDown &釋放當(dāng)前的On ShutDown命令*按菜單的“關(guān)閉”按鈕退出時(shí)，出現(xiàn)的提示框FUNCTION OnShutdown()

8、sel=MESSAGEBOX(真的要退出嗎?,4+32+256,提示)IF sel=6 *SELECT 0 *USE .dbsystemLOG *GO BOTTOM *REPLACE 離開(kāi)時(shí)間 WITH DATETIME() &退出系統(tǒng)時(shí)記錄操作員退出時(shí)間 CLOSE ALL CLEAR EVENTS &退出事件循環(huán) QUIT &結(jié)束當(dāng)前 Visual FoxPro 工作期，并將控制權(quán)返回給操作系統(tǒng)ENDIFENDFUNC(二)、在運(yùn)行主程序后，系統(tǒng)調(diào)用登陸界面表單(圖4)主要事件代碼：FORM1的INIT事件代碼：SET BELL ONSET BELL TO .MUSICwelcome.wa

9、v,2?CHR(7)FORM1的UNLOAD事件代碼：SET BELL TO MUSICSILENT.WAV,2?CHR(7)此兩項(xiàng)功能分別為在打開(kāi)表單時(shí)調(diào)用的音樂(lè)文件和關(guān)閉表單時(shí)調(diào)用的音樂(lè)文件。Command1的mouseup事件代碼：LPARAMETERS nButton, nShift, nXCoord, nYCoordrelease thisformDO FORM .mainpass.scxTimer1的timer事件代碼：release thisformDO FORM .mainpass.scxTimer2的timer事件代碼：為了實(shí)現(xiàn)五角星的閃動(dòng)：IF THISFORM.label

10、5.visible thisform.label5.visible=.f. else thisform.label5.visible=.t.endifTimer3的timer事件代碼：為了實(shí)現(xiàn)五角星的閃動(dòng)：IF THISFORM.label5.visible thisform.label5.visible=.t. else thisform.label5.visible=.t.endifTimer4的timer事件代碼：為了實(shí)現(xiàn)五角星的閃動(dòng)：IF THISFORM.label5.visible thisform.label5.visible=.t else thisform.label5.vi

11、sible=.t.endif同時(shí)在每個(gè)五角星的顏色也做了設(shè)置。(三)系統(tǒng)登陸表單設(shè)計(jì)界面用戶(hù)在文本框輸入操作員及口令，若正確則調(diào)用系統(tǒng)主界面(菜單)。允許輸入三次，若三次均不正確剛自動(dòng)退出系統(tǒng)。若用戶(hù)輸入的操作員姓名及口令正確，要完成下列工作：(1) 設(shè)置一個(gè)全局變量operat,用于記錄登陸系統(tǒng)的操作員姓名，系統(tǒng)中有3個(gè)地方要用到操作員的姓名和代號(hào)：一是進(jìn)入主界面后在標(biāo)題欄顯示的操作員姓名；二是操作員在系統(tǒng)管理模塊的口令設(shè)置中更改自己的口令，系統(tǒng)要知道是哪個(gè)操作員；三是退出系統(tǒng)時(shí)系統(tǒng)日志中要記錄操作員的退出時(shí)間。(2) 在系統(tǒng)日志表log.dbf中增加一條記錄，并同時(shí)記錄此操作員的登錄系統(tǒng)的

12、時(shí)間。(3) 從權(quán)限表menuright.dbf中讀出此操作員對(duì)應(yīng)各菜單項(xiàng)的權(quán)限，并賦值給數(shù)組。(4) 調(diào)用菜單文件，顯示系統(tǒng)主界面。事件代碼：Form1的init事件代碼：SET EXACT ON &精確比較PUBLIC ARRAY rr18 &數(shù)組用于實(shí)現(xiàn)菜單項(xiàng)權(quán)限PUBLIC i &i用于記錄用戶(hù)名及口令輸入次數(shù)PUBLIC operat &operat用于保存操作員姓名 i=0THISFORM.Text1.Setfocus“確定”按鈕(COMMAND1)CLICK事件代碼：*判斷密碼是否正確i=i+1SELECT operatorLOCATE FOR 操作員姓名=ALLTRIM(THI

13、SFORM.Text1.Value)DO CASE CASE i=3 AND FOUND() AND THISFORM.Text2.Value=operator.口令 &輸入次數(shù)未超過(guò)3次且用戶(hù)名正確、口令正確 operat=THISFORM.Text1.Value INSERT INTO log(操作員代號(hào),操作員姓名,登錄時(shí)間) VALUES(operator.操作員代號(hào),operator.操作員姓名,DATETIME() _SCREEN.Caption=05計(jì)專(zhuān)學(xué)生管理系統(tǒng)+SPACE(40)+DTOC(DATE()+SPACE(40)+操作員：+operat SELECT 權(quán)限 FRO

14、M menuright INTO ARRAY rr WHERE 操作員代號(hào)=operator.操作員代號(hào) ORDER BY 菜單項(xiàng)編號(hào) RELEASE THISFORM DO .mainmain_menu.mpr CASE i=3 AND FOUND() AND THISFORM.Text2.Value!=operator.口令 &輸入次數(shù)未超過(guò)3次且用戶(hù)名正確、口令不正確 MESSAGEBOX(密碼錯(cuò)誤,請(qǐng)重輸!,警告) THISFORM.Text2.Value= THISFORM.Text2.Setfocus CASE i3 &輸入次數(shù)超過(guò)3次 MESSAGEBOX(禁止進(jìn)入系統(tǒng)!,警告)

15、 THISFORM.ReleaseENDCASE 退出按鈕(COMMAND2)CLICK事件代碼：RELEASE THISFORMCLEAR EVENTS(四)系統(tǒng)菜單設(shè)計(jì)1、 學(xué)生信息管理系統(tǒng)的菜單在應(yīng)用系統(tǒng)中，各個(gè)了模塊是通過(guò)菜單組織在一起的。通過(guò)對(duì)人事工資管理系統(tǒng)功能模塊的設(shè)計(jì)，可以交系統(tǒng)劃分為3大模塊：學(xué)生信息管理、學(xué)生成績(jī)查詢(xún)、系統(tǒng)管理，具體的菜單設(shè)計(jì)見(jiàn)下表：學(xué)生信息管理學(xué)生成績(jī)管理系統(tǒng)管理學(xué)生信息維護(hù)學(xué)生成績(jī)查詢(xún)操作員管理口令設(shè)置學(xué)生信息查詢(xún)權(quán)限管理系統(tǒng)日志數(shù)據(jù)備份數(shù)據(jù)恢復(fù)退出系統(tǒng)2、 在菜單設(shè)計(jì)器中實(shí)現(xiàn)權(quán)限設(shè)置在菜單項(xiàng)設(shè)計(jì)器中，通過(guò)提示選項(xiàng)對(duì)話(huà)框設(shè)置菜單項(xiàng)的跳過(guò)條件可以實(shí)現(xiàn)用戶(hù)權(quán)

16、限。每個(gè)操作員對(duì)每個(gè)菜單項(xiàng)有兩種權(quán)限：0或1。“0”表示此操作員對(duì)該菜單項(xiàng)沒(méi)有操作權(quán)，系統(tǒng)運(yùn)行后，該菜單項(xiàng)為灰色。不能打開(kāi)對(duì)應(yīng)的表單，“1”代表該操作員對(duì)該菜單項(xiàng)具有操作權(quán)，系統(tǒng)運(yùn)行后，該菜單項(xiàng)可用，鼠標(biāo)單擊菜單項(xiàng)能打開(kāi)對(duì)應(yīng)的表單。操作員對(duì)各菜單項(xiàng)的權(quán)限保存在表文件menuright.dbf中，在登錄系統(tǒng)時(shí)讀出該操作員對(duì)應(yīng)各菜單項(xiàng)的權(quán)限，并賦值給一個(gè)數(shù)組RR。本系統(tǒng)共10個(gè)菜單項(xiàng)，所以定義的數(shù)組也包含10個(gè)元素。3、 學(xué)生信息維護(hù)表單包換下列功能：數(shù)據(jù)錄入、修改、刪除、查詢(xún)、瀏覽、保存、打印等。本表單左邊是瀏覽窗口，便于用戶(hù)瀏覽數(shù)據(jù)；右邊是編輯窗口，主要用于輸入修改數(shù)據(jù)。4、 在表單數(shù)據(jù)環(huán)境中

17、添加表：rsb.dbf、cjb、dbf。學(xué)生人事表和成績(jī)表的結(jié)構(gòu)請(qǐng)打開(kāi)數(shù)據(jù)庫(kù)表查看。在表單數(shù)據(jù)環(huán)境的BRFOREOPENTABLES事件中添加代碼：this.cursor1.exclusive=.t.5、 事件代碼：FORM1的INIT事件代碼：THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.T.THISFORM

18、.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDFIND.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.T.THISFORM.TEXT1.READONLY=.T.THISFORM.TEXT2.READONLY=.T.

19、THISFORM.OPTIONGROUP1.ENABLED=.F.THISFORM.TEXT3.READONLY=.T.THISFORM.TEXT4.READONLY=.T.THISFORM.TEXT5.READONLY=.T.THISFORM.TEXT6.READONLY=.T.THISFORM.CHECK1.READONLY=.T.THISFORM.EDIT1.READONLY=.T.THISFORM.GRID1.READONLY=.T.THISFORM.COMMAND1.visible=.T.THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visib

20、le=.F.FORM1的CLICK事件代碼：THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F. GRID1的afterrowclochange事件代碼：LPARAMETERS nColIndexthis.setall(dynamicbackcolor,IIF(This.activerowrecno(),rgb(255,255,255),rgb(0,255,0),column)select rsbthisform.refresh 此代碼實(shí)現(xiàn)不現(xiàn)顏色顯示選中的GRID對(duì)象的行及列。“第一個(gè)“按鈕的CLICK事件代碼：select rsbgo

21、 mandgroup1.cmdtop.enabled=.mandgroup1.cmdprev.enabled=.f.if not eof()mandgroup1.cmdnext.enabled=.mandgroup1.cmdbottom.enabled=.t.endifthisform.refresh“前一個(gè)“按鈕的CLICK事件代碼：select rsbskip -1if bof()go mandgroup1.cmdtop.enabled=.f.this

22、mandgroup1.cmdprev.enabled=.f.endifif not eof()mandgroup1.cmdnext.enabled=.mandgroup1.cmdbottom.enabled=.t.endifthisform.refresh“下一個(gè)“按鈕的CLICK事件代碼：select rsbskipif eof()go mandgroup1.cmdnext.enabled=.mandgroup1.cmdbottom.enabled=.f.end

23、ifif not bof()mandgroup1.cmdtop.enabled=.mandgroup1.cmdprev.enabled=.t.endifthisform.refresh“最后一個(gè)“按鈕的CLICK事件代碼：select rsbgo mandgroup1.cmdnext.enabled=.mandgroup1.cmdbottom.enabled=.f.if not bof()mandgroup1.cmdtop.enabled=.t.thisf

24、mandgroup1.cmdprev.enabled=.t.endifthisform.refresh“增加“按鈕的CLICK事件代碼：if this.caption=增加this.caption=保存THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.F.THISFORM.COMMANDGROUP1.

25、CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDFIND.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.F.THISFORM.TEXT1.READONLY=.F.THISFORM.TEXT2.READONLY=.F.THISFORM.OPTION

26、GROUP1.ENABLED=.T.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.READONLY=.F.THISFORM.TEXT5.READONLY=.F.THISFORM.TEXT6.READONLY=.F.THISFORM.CHECK1.READONLY=.F.THISFORM.EDIT1.READONLY=.F.THISFORM.COMMAND1.VISIBLE=.F.SELECT RSBAPPEND BLANKGO BOTTOMTHISFORM.TEXT1.SETFOCUS()THISFORM.REFRESHELSETHIS.CAPTION=增

27、加THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDBOTTOM.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDEDIT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.t.THI

28、SFORM.COMMANDGROUP1.CMDFIND.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDPRINT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.t.THISFORM.TEXT1.READONLY=.t.THISFORM.TEXT2.READONLY=.t.THISFORM.OPTIONGROUP1.ENABLED=.f.THISFORM.TEXT3.READONLY=.t.THISFORM.TEXT4.READONLY=.t.THISFORM.TEXT5.READONLY=.t.THISFORM

29、.TEXT6.READONLY=.t.THISFORM.CHECK1.READONLY=.t.THISFORM.EDIT1.READONLY=.mand1.visible=.t.endif“刪除“按鈕的CLICK事件代碼：SELECT RSBXH=RSB.學(xué)號(hào)sel=messagebox(該記錄學(xué)號(hào)為：+XH+chr(13)+真的要?jiǎng)h除嗎?,4+32+256,提示)if sel=6deleteendif“查找“按鈕的CLICK事件代碼：thisform.label11.visible=.t.thisform.text7.visible=.t.thisform.tex

30、t7.value=thisform.text7.setfocus()“打印“按鈕的CLICK事件代碼：report form .menu1rsb_bb1.frx preview for rsb.學(xué)號(hào)=alltrim(thisform.text1.value)“退出“按鈕的CLICK事件代碼：select rsbpackthisform.release“TEXT7”的valid事件代碼為：select rsbset filter to 學(xué)號(hào)=alltrim(thisform.text7.value) or 學(xué)生姓名=alltrim(thisform.text7.value)locate for

31、學(xué)號(hào)=alltrim(thisform.text7.value) or 學(xué)生姓名=alltrim(thisform.text7.value)thisform.refreshset filter to6、運(yùn)行界面：(如圖5)(圖5)7、學(xué)生信息查詢(xún)菜單的設(shè)計(jì)學(xué)生人事信息的查詢(xún)是基于RSB.dbf表，菜單提供學(xué)號(hào)，姓名，全體查詢(xún)。分別利用不同的命令代碼方式實(shí)現(xiàn)查詢(xún)打印功能。功能是便于指導(dǎo)員和老師，學(xué)生用戶(hù)的檢索查詢(xún)。各事件的代碼如下：FORM1的INIT事件代碼：*輸入編號(hào)、姓名提示標(biāo)簽及文本框THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F

32、.THISFORM.Text1.Setfocus()*輸入起始日期、截止日期提示標(biāo)簽及文本框不可見(jiàn)THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFORM.Command4.Visible=.F.*表格數(shù)據(jù)不可修改THISFORM.Grid1.Readonly=.T.Optiongroup1的CLICK事件代碼：*選定查詢(xún)類(lèi)別后，設(shè)置各控件是否可見(jiàn)DO CASE CASE THIS.Value=1 &按學(xué)號(hào)查詢(xún) THISFO

33、RM.Label2.Visible=.T. THISFORM.Text1.Visible=.T. THISFORM.Label4.Visible=.F. THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFORM.Command4.Visible=.F. THISFORM.Label2.Caption=請(qǐng)輸入要查詢(xún)的學(xué)號(hào)： THISFORM.Text1.Value= THISFORM.Text1.Setfocus CASE THIS.Value=2 &按姓名查詢(xún) THISFORM

34、.Label2.Visible=.T. THISFORM.Text1.Visible=.T. THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFORM.Command4.Visible=.F. THISFORM.Label2.Caption=請(qǐng)輸入學(xué)生姓名： THISFORM.Text1.Value= THISFORM.Text1.Setfocus() CASE THIS.Value=3 &按出生日期查詢(xún) THISFORM.

35、Label2.Visible=.F. THISFORM.Text1.Visible=.F. THISFORM.Label4.Visible=.T. THISFORM.Label5.Visible=.T. THISFORM.Text2.Visible=.T. THISFORM.Text3.Visible=.T. THISFORM.Command4.Visible=.T. THISFORM.Text2.Setfocus CASE THIS.Value=4 &顯示全體記錄 THISFORM.Label2.Visible=.F. THISFORM.Text1.Visible=.F. THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFORM.Command4.Visible=.F. SET FILTER TO GO TOP THISFORM.Grid1.RefreshENDCASEGRID1的數(shù)據(jù)連接連接RSB表。一一對(duì)應(yīng)該對(duì)應(yīng)的數(shù)據(jù)項(xiàng)，COMMAND4(查詢(xún))的CLICK事件代碼：*按輸入的日期條件在表格中顯示查