畢業(yè)設(shè)計(jì)論文 --vf系統(tǒng)學(xué)生信息管理開(kāi)發(fā)

1、<p>　　第一章 系統(tǒng)開(kāi)發(fā)環(huán)境</p><p><b>　　1.1系統(tǒng)開(kāi)發(fā)環(huán)境</b></p><p>　　微型計(jì)算機(jī)的應(yīng)用給人們的生活和管理工作帶來(lái)了前所未有的快捷。它的使用在辦公方面起到了巨大的作用，使許多過(guò)去需要人工操作的工作，都由計(jì)算機(jī)處理。大大減輕了人們的負(fù)擔(dān)。在學(xué)校使用計(jì)算機(jī)來(lái)管理學(xué)生學(xué)籍，教師檔案，院系情況等是當(dāng)前各大院校教務(wù)管理的必然趨勢(shì)

2、。另外，當(dāng)前各個(gè)大學(xué)針對(duì)學(xué)生的愛(ài)好興趣設(shè)置課程，使學(xué)生能夠提高自己的學(xué)習(xí)興趣，在網(wǎng)上進(jìn)行選課為學(xué)生選課提供了方便，同時(shí)也為系里減輕了工作負(fù)擔(dān)。</p><p>　　應(yīng)內(nèi)蒙古工業(yè)大學(xué)教務(wù)處的要求，我制作了“學(xué)生信息管理系統(tǒng)”。該系統(tǒng)主要完成，學(xué)生信息，教師信息，課程信息，系信息的查詢(xún)，修改，添加等操作，同時(shí)該系統(tǒng)還包括學(xué)生選課模塊。</p><p><b>　　1.2系統(tǒng)運(yùn)行環(huán)境&

3、lt;/b></p><p>　　凡能運(yùn)行WIN98以上的環(huán)境，均能運(yùn)行本系統(tǒng)。</p><p><b>　　1.3系統(tǒng)安裝方法</b></p><p>　　首先安裝microsoft visual foxpro 6.0。然后把此軟件安裝到E盤(pán)。再把“畢業(yè)設(shè)計(jì)”文件夾復(fù)制到E盤(pán)即可。</p><p>　　第二章

4、學(xué)生信息管理的具體操作方法</p><p>　　2.1學(xué)生信息管理的方法：</p><p>　　首先在網(wǎng)上建立學(xué)生，教師，課程，成績(jī)等各項(xiàng)信息的檔案，通過(guò)計(jì)算機(jī)系統(tǒng)維護(hù)各項(xiàng)信息即可。</p><p>　　2.2 主要的表結(jié)構(gòu)</p><p><b>　　1．“學(xué)生”表</b></p><p>&l

5、t;b>　　2．“教師”表</b></p><p><b>　　3．“教務(wù)員”表</b></p><p><b>　　4．“班級(jí)”表</b></p><p><b>　　5．“課程”表</b></p><p><b>　　6．“系”表</b&g

6、t;</p><p><b>　　7．“學(xué)生登錄”表</b></p><p><b>　　8．“成績(jī)”表</b></p><p><b>　　第三章 系統(tǒng)分析</b></p><p>　　根據(jù)用戶(hù)的要求本系統(tǒng)共有四部分組成：1. 信息查詢(xún)2. 教務(wù)信息維護(hù)</p>

7、<p>　　3.學(xué)生選課4. 幫助5. 退出。</p><p><b>　　3.1系統(tǒng)組成</b></p><p>　　3.2“信息查詢(xún)”模塊功能及設(shè)計(jì)步驟</p><p>　　“信息查詢(xún)”模塊由6部分組成：1.學(xué)生信息2.教師信息3.班級(jí)信息4.課程信息5.系信息6.學(xué)生成績(jī)</p><p>　　“學(xué)生信

8、息”查詢(xún)模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 完成學(xué)生基本信息的查詢(xún)</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立九個(gè)標(biāo)簽框，六個(gè)文本框，一個(gè)組合框，一個(gè)表格，兩個(gè)按鈕。組合框用來(lái)選擇查詢(xún)依據(jù)，其中一個(gè)文本框用來(lái)輸入查詢(xún)條件，表格框用來(lái)顯示學(xué)生的信息。其他的標(biāo)簽，文本框也是

9、用來(lái)顯示所查學(xué)生的信息。</p><p>　　2）在查詢(xún)按鈕中輸入相關(guān)的代碼。在查找過(guò)程中，利用條件語(yǔ)句判斷，從學(xué)生表中選擇和查詢(xún)依據(jù)文本框中一致的記錄。顯示在表格和對(duì)應(yīng)的文本框中。</p><p>　　“教師信息”查詢(xún)模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能：完成教師基本信息的查詢(xún)</p><p><b>　　b.設(shè)計(jì)步

10、驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立八個(gè)標(biāo)簽框，五個(gè)文本框，一個(gè)組合框，一個(gè)表格，兩個(gè)按鈕。組合框用來(lái)選擇查詢(xún)依據(jù)，其中一個(gè)文本框用來(lái)輸入查詢(xún)條件，表格框用來(lái)顯示教師的信息。其他的標(biāo)簽，文本框也是用來(lái)顯示所查教師的信息。</p><p>　　2）在查詢(xún)按鈕中輸入相關(guān)的代碼。在查找過(guò)程中，利用條件語(yǔ)句判斷，從教師表中選擇和查詢(xún)依據(jù)文本框中一致的記錄。顯示

11、在表格和對(duì)應(yīng)的文本框中。</p><p>　　“班級(jí)信息”查詢(xún)模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能：完成班級(jí)基本信息的查詢(xún)</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立八個(gè)標(biāo)簽框，五個(gè)文本框，一個(gè)組合框，一個(gè)表格，兩個(gè)按鈕。組合框用來(lái)選擇查詢(xún)依據(jù)，其中

12、一個(gè)文本框用來(lái)輸入查詢(xún)條件，表格框用來(lái)顯示班級(jí)的信息。其他的標(biāo)簽，文本框也是用來(lái)顯示所查班級(jí)的信息。 </p><p>　　2）在查詢(xún)按鈕中輸入相關(guān)的代碼。在查找過(guò)程中，利用條件語(yǔ)句判斷，從班級(jí)表中選擇和查詢(xún)依據(jù)文本框中一致的記錄。顯示在表格和對(duì)應(yīng)的文本框中。</p><p>　　“課程信息”查詢(xún)模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能：完成課程基本信息的

13、查詢(xún)</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立十四個(gè)標(biāo)簽框，十一個(gè)文本框，一個(gè)組合框，一個(gè)表格，兩個(gè)按鈕。組合框用來(lái)選擇查詢(xún)依據(jù)，其中一個(gè)文本框用來(lái)輸入查詢(xún)條件，表格框用來(lái)顯示班級(jí)的信息。其他的標(biāo)簽，文本框也是用來(lái)顯示所查班級(jí)的信息。</p><p>　　2）在查詢(xún)按鈕中輸入相關(guān)的代碼

14、。在查找過(guò)程中，利用條件語(yǔ)句判斷，從課程表中選擇和查詢(xún)依據(jù)文本框中一致的記錄。顯示在表格和對(duì)應(yīng)的文本框中。</p><p>　　“系信息”查詢(xún)模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能：完成系基本信息的查詢(xún)</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立七個(gè)標(biāo)

15、簽框，四個(gè)文本框，一個(gè)組合框，一個(gè)表格，兩個(gè)按鈕。組合框用來(lái)選擇查詢(xún)依據(jù)，其中一個(gè)文本框用來(lái)輸入查詢(xún)條件，表格框用來(lái)顯示班級(jí)的信息。其他的標(biāo)簽，文本框也是用來(lái)顯示所查班級(jí)的信息。</p><p>　　2）在查詢(xún)按鈕中輸入相關(guān)的代碼。在查找過(guò)程中，利用條件語(yǔ)句判斷，從系表中選擇和查詢(xún)依據(jù)文本框中一致的記錄。顯示在表格和對(duì)應(yīng)的文本框中。</p><p>　　“成績(jī)信息”查詢(xún)模塊的功能及設(shè)計(jì)步驟

16、</p><p>　　a.功能：完成成績(jī)信息的查詢(xún)</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立1個(gè)表單，然后建立3個(gè)標(biāo)簽框，2個(gè)文本框，1個(gè)組合框，1個(gè)表格，2個(gè)按鈕。組合框用來(lái)選擇查詢(xún)依據(jù)，其中一個(gè)文本框用來(lái)輸入查詢(xún)條件，表格框用來(lái)顯示班級(jí)的信息。其他的標(biāo)簽，文本框也是用來(lái)顯示所查班級(jí)的信息。</

17、p><p>　　2）在查詢(xún)按鈕中輸入相關(guān)的代碼。在查找過(guò)程中，利用條件語(yǔ)句判斷，從系表中選擇和查詢(xún)依據(jù)文本框中一致的記錄。顯示在表格和對(duì)應(yīng)的文本框中。</p><p>　　3.3“教務(wù)信息維護(hù)”模塊功能及設(shè)計(jì)步驟</p><p>　　“教務(wù)員登錄”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 完成教務(wù)員登錄到教務(wù)信息維護(hù)模塊從而進(jìn)行各項(xiàng)信

18、息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立2個(gè)標(biāo)簽框，2個(gè)文本框，2個(gè)按鈕。兩個(gè)文本框分別用來(lái)輸入教務(wù)員的姓名和口令。兩個(gè)按鈕分別是“登錄”和“取消”</p><p>　　2）在“登錄”按鈕中輸入相關(guān)的代碼。點(diǎn)擊“登錄”時(shí)，程序運(yùn)行首先判斷2文本框中的內(nèi)容是否能在教務(wù)員表中找

19、到。如果能夠找到的話，則進(jìn)入教務(wù)員信息維護(hù)表單，否則屬于非法教務(wù)員，不能登錄。</p><p>　　“修改信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 顯示需要修改的各項(xiàng)信息。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后建立1個(gè)標(biāo)簽框，9個(gè)按鈕，1個(gè)圖片

20、框。9個(gè)按鈕分別是用來(lái)跳入各項(xiàng)修改信息表單的。圖片框是為了美觀而設(shè)置的。</p><p>　　2）在9個(gè)按鈕中分別輸入相關(guān)代碼實(shí)現(xiàn)跳入對(duì)應(yīng)的信息修改表單。</p><p>　　“修改學(xué)生信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)學(xué)生信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b>&l

21、t;/p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“學(xué)生”表。</p><p>　　“修改教師信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)教師信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“教師

22、”表。</p><p>　　“修改班級(jí)信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)班級(jí)信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“班級(jí)”表。</p><p>　　“修改系信息”模塊的功能及設(shè)計(jì)步驟

23、</p><p>　　a.功能： 實(shí)現(xiàn)系信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“系”表。</p><p>　　“修改課程信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)課程信息的修改。</p

24、><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“課程”表。</p><p>　　“修改成績(jī)信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)成績(jī)信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b>

25、</p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“成績(jī)”表。</p><p>　　“修改教務(wù)員信息”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)教務(wù)員信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表

26、為“教務(wù)員”表。</p><p>　　“學(xué)生注冊(cè)表管理”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)學(xué)生注冊(cè)表信息的修改。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　利用表單設(shè)計(jì)器創(chuàng)建該表單，所用到的表為“學(xué)生登錄”表。</p><p>　　3.4 “學(xué)

27、生選課”模塊功能及設(shè)計(jì)步驟</p><p>　　“學(xué)生登錄”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)學(xué)生登錄到選課模塊，另外實(shí)現(xiàn)學(xué)生注冊(cè)，沒(méi)有注冊(cè)的學(xué)生不能實(shí)現(xiàn)選課。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后添加2個(gè)標(biāo)簽框，3個(gè)按鈕，2文本框。2個(gè)

28、文本框分別是用來(lái)輸入學(xué)生的用戶(hù)名和密碼。3個(gè)按鈕分別是登錄，取消，注冊(cè)。</p><p>　　2）在3個(gè)按鈕中分別輸入相關(guān)代碼實(shí)現(xiàn)跳入對(duì)應(yīng)的表單。點(diǎn)擊登錄則進(jìn)入選課表單，點(diǎn)擊注冊(cè)則進(jìn)入學(xué)生注冊(cè)表單。</p><p>　　“學(xué)生注冊(cè)表單”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)學(xué)生注冊(cè)，從而學(xué)生能夠在學(xué)生注冊(cè)表中建立自己的用戶(hù)名和密碼，這樣學(xué)生就能夠

29、實(shí)現(xiàn)選課和退課等操作了。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后添加4個(gè)標(biāo)簽框，2個(gè)按鈕，4文本框。4個(gè)文本框分別是用來(lái)輸入學(xué)生的學(xué)號(hào)，姓名，用戶(hù)名，密碼。2個(gè)按鈕分別是確定和取消。確定即實(shí)現(xiàn)注冊(cè)，取消既退出注冊(cè)。</p><p>　　2）在“確定”中輸入相關(guān)的代碼，實(shí)現(xiàn)在“學(xué)生注冊(cè)”表

30、中添加新的記錄。</p><p>　　“學(xué)生選課”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 實(shí)現(xiàn)學(xué)生選課，在該模塊中學(xué)生可以查看院系的課程安排，然后選擇自己需要的課。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后添加4個(gè)標(biāo)簽框，6個(gè)按鈕，13文本框。1個(gè)列表

31、框。4個(gè)標(biāo)簽框分別是用來(lái)顯示一些表單信息及顯示信息。13個(gè)文本框主要用來(lái)顯示有關(guān)課程的基本信息。列表框用來(lái)顯示課程的備注信息。6個(gè)按鈕分別實(shí)現(xiàn)選課，退課，顯示可選課程，查看課表等。</p><p>　　2）在各個(gè)按鈕中輸入相關(guān)的代碼，實(shí)現(xiàn)在相關(guān)的功能。</p><p>　　1 “可選課程”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 可以查詢(xún)各系的可以選擇的

32、課程。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后添加2個(gè)標(biāo)簽框，1個(gè)組合框，1個(gè)文本框。1個(gè)表格2個(gè)按鈕。組合框用來(lái)輸入要查找的條件，是“系編號(hào)”或者“課程編號(hào)”“課程名稱(chēng)”等。文本框用來(lái)輸入條件。兩個(gè)按鈕其中一個(gè)用來(lái)查看課程信息，另一個(gè)用來(lái)實(shí)現(xiàn)退出。</p><p>　　2）在查看按鈕中

33、輸入相關(guān)的代碼，實(shí)現(xiàn)查看課程信息。</p><p>　　2 “學(xué)生課表”模塊的功能及設(shè)計(jì)步驟</p><p>　　a.功能： 可以查詢(xún)學(xué)生已經(jīng)選過(guò)的課程。</p><p><b>　　b.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后添加3個(gè)標(biāo)簽框，1個(gè)組合框，1個(gè)文本框。1個(gè)表格和2個(gè)按鈕。組合框用來(lái)

34、輸入要查找的條件（學(xué)號(hào)），文本框用來(lái)輸入具體的學(xué)號(hào)。兩個(gè)按鈕其中一個(gè)用來(lái)查看學(xué)生課表，另一個(gè)用來(lái)實(shí)現(xiàn)退出。</p><p>　　2）在查看按鈕中輸入相關(guān)的代碼，實(shí)現(xiàn)查看學(xué)生課表。</p><p>　　3.5 “系統(tǒng)使用幫助”模塊功能及設(shè)計(jì)步驟</p><p>　　a.功能： 介紹該系統(tǒng)的具體使用方法。</p><p><b>　　b

35、.設(shè)計(jì)步驟：</b></p><p>　　1）先建立一個(gè)表單，然后添加一個(gè)頁(yè)框。</p><p>　　2）在頁(yè)框的各個(gè)部分中分別輸入相關(guān)的操作內(nèi)容。</p><p>　　第四章 系統(tǒng)詳細(xì)設(shè)計(jì)</p><p><b>　　4.1 設(shè)計(jì)數(shù)據(jù)庫(kù)</b></p><p>　　新建一個(gè)項(xiàng)目，名

36、為“學(xué)生信息管理系統(tǒng)”。然后在項(xiàng)目中添加一個(gè)數(shù)據(jù)庫(kù)，名為“學(xué)生信息”，保存路徑為e:\學(xué)生信息管理系統(tǒng)。</p><p><b>　　“學(xué)生”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“學(xué)生”表，字段設(shè)置如圖4.1所示。</p><p>　　圖 4.1“學(xué)生”表的字段設(shè)置</p><p>　　切換到i

37、ndexes選項(xiàng)卡，如圖4.2所示設(shè)置索引。</p><p>　　圖 4.2 設(shè)置索引</p><p>　　將表命名為“學(xué)生”，保存路徑為e:\學(xué)生信息管理系統(tǒng)。然后在表中添加一些記錄，如圖4.3所示。</p><p>　　圖 4.3 在“學(xué)生”表中添加記錄</p><p><b>　　“班級(jí)”表</b></p

38、><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“班級(jí)”表，字段設(shè)置如圖4.4所示。</p><p>　　圖 4.4 “班級(jí)”表的字段設(shè)置</p><p>　　切換到indexes選項(xiàng)卡，如圖4.5所示設(shè)置索引。</p><p>　　圖 4.5 設(shè)置索引</p><p>　　將表命名為“班級(jí)”，保存路徑同“學(xué)生”表，然后在

39、表中添加一些記錄，如下圖所示：</p><p>　　圖 4.6 在“班級(jí)”表中添加記錄</p><p><b>　　“系”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“系”表，字段設(shè)置如圖4.6所示。切換到indexes選項(xiàng)卡，如圖4.7所示設(shè)置索引。</p><p>　　將表命名為“系”，保存路徑同“

40、學(xué)生”表。在表中添加一些記錄，如圖4.8所示。</p><p>　　圖 4.6 “系”表的字段設(shè)置</p><p>　　圖 4.7 設(shè)置索引</p><p>　　圖 4.8 在“系”表中添加記錄</p><p><b>　　“教師”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建

41、一個(gè)“教師”表，字段設(shè)置如圖4.9所示。切換到indexes選項(xiàng)卡，如圖4.10所示設(shè)置索引。</p><p>　　將表命名為“教師”，保存路徑同“學(xué)生”表。在表中添加一些記錄，如圖4.11所示。</p><p>　　圖 4.9 “教師”表的字段設(shè)置</p><p>　　圖 4.10 設(shè)置索引</p><p>　　圖 4.11 在“教師

42、”表中添加記錄</p><p><b>　　“課程”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“課程”表，字段設(shè)置如圖4.12所示。切換到indexes選項(xiàng)卡，如圖4.13所示設(shè)置索引。</p><p>　　將表命名為“課程”，保存路徑同“學(xué)生”表。在表中添加一些記錄，如圖4.14所示。</p><p&g

43、t;　　圖 4.12 “課程”表的字段設(shè)置</p><p>　　圖 4.13 設(shè)置索引</p><p>　　圖 4.14 在“課程”表中添加記錄</p><p><b>　　“成績(jī)”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“成績(jī)”表，字段設(shè)置如圖4.15所示。切換到indexes選項(xiàng)卡，

44、如圖4.16所示設(shè)置索引。</p><p>　　將表命名為“成績(jī)”，保存路徑同“學(xué)生”表。在表中添加一些記錄，如圖4.17所示。</p><p>　　圖 4.15 “成績(jī)”表的字段設(shè)置</p><p>　　圖 4.16 “成績(jī)”表的索引設(shè)置</p><p>　　圖 4.17 在“成績(jī)”表中添加記錄</p><p

45、><b>　　“學(xué)生登錄”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“學(xué)生登錄”表，字段設(shè)置如圖4.18所示。切換到indexes選項(xiàng)卡，如圖4.19所示設(shè)置索引。</p><p>　　將表命名為“學(xué)生登錄”，保存路徑同“學(xué)生”表。</p><p>　　圖 4.18 “學(xué)生登錄”表的字段設(shè)置</p>

46、<p>　　圖 4.19 “學(xué)生登錄”表的索引設(shè)置</p><p><b>　　“教務(wù)員”表</b></p><p>　　在“學(xué)生信息”數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)“教務(wù)員”表，字段設(shè)置如圖4.21所示。切換到indexes選項(xiàng)卡，如圖4.22所示設(shè)置索引。</p><p>　　將表命名為“教務(wù)員”，保存路徑同“學(xué)生”表。在表中添加一些記錄，

47、如圖4.23所示。</p><p>　　圖 4.21 “教務(wù)員”表字段設(shè)置</p><p>　　圖 4.22 “教務(wù)員”表索引設(shè)置</p><p>　　圖 4.23 在“教務(wù)員”表中添加記錄</p><p>　　4.2 創(chuàng)建表之間的關(guān)系</p><p>　　圖 4.24 表之間的關(guān)系</p>&

48、lt;p>　　在項(xiàng)目管理器中選中數(shù)據(jù)庫(kù)“學(xué)生信息”，然后單擊“修改”按鈕，在打開(kāi)的窗口中設(shè)置各表之間的關(guān)系，如圖4.24所示。</p><p>　　表之間的關(guān)系，說(shuō)明如下：</p><p>　　1）“學(xué)生”表和“班級(jí)”表之間是多對(duì)一的關(guān)系，通過(guò)索引“班級(jí)編號(hào)”關(guān)聯(lián)。</p><p>　　2）“學(xué)生”表和“成績(jī)”表之間是一對(duì)多的關(guān)系，通過(guò)索引“學(xué)號(hào)”關(guān)聯(lián)。<

49、;/p><p>　　3）“系”表和“班級(jí)”表之間是一對(duì)多的關(guān)系，通過(guò)索引“系編號(hào)”關(guān)聯(lián)。</p><p>　　4）“系”表和“課程”表之間是一對(duì)多的關(guān)系，通過(guò)索引“系編號(hào)”關(guān)聯(lián)。 </p><p>　　5）“系”表和“教師”表之間是一對(duì)多的關(guān)系，通過(guò)索引“系編號(hào)”關(guān)聯(lián)。</p><p>　　6）“教師”表和“課程”表之間是一對(duì)多的關(guān)系，通過(guò)索引“

50、教師編號(hào)”關(guān)聯(lián)。</p><p>　　7）“課程”表和“成績(jī)”表之間是一對(duì)多的關(guān)系，通過(guò)索引“課程編號(hào)”關(guān)聯(lián)。</p><p><b>　　4.3 設(shè)計(jì)菜單</b></p><p>　　在項(xiàng)目中添加一個(gè)菜單，名為“主菜單”，設(shè)置如圖4.25所示</p><p>　　圖 4.25 項(xiàng)目菜單</p><

51、p><b>　　“信息查詢(xún)”菜單</b></p><p>　　在主菜單中選中“信息查詢(xún)”菜單項(xiàng)，單擊該行的“編輯”按鈕。然后設(shè)置子菜單項(xiàng)，如圖4.26所示。</p><p>　　圖 4.26 “信息查詢(xún)”菜單的各個(gè)子菜單</p><p>　　設(shè)置各子菜單后，為其輸入命令。</p><p>　　“學(xué)生信息”子菜單執(zhí)

52、行的命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\個(gè)人信息.scx"</p><p>　　“教師信息”子菜單執(zhí)行的命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\教師信息.scx"</p><p>　　“班級(jí)信息”子菜單的執(zhí)行命令為：</p>

53、<p>　　do form "e:\學(xué)生信息管理系統(tǒng)\班級(jí)信息.scx"</p><p>　　“課程信息”子菜單執(zhí)行的命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\課程信息.scx"</p><p>　　“系信息”子菜單執(zhí)行的命令為：</p><p>　　do f

54、orm "e:\學(xué)生信息管理系統(tǒng)\系信息.scx"</p><p>　　“學(xué)生成績(jī)”子菜單執(zhí)行的命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\學(xué)生成績(jī).scx" </p><p>　　“教務(wù)信息維護(hù)”菜單</p><p>　　“教務(wù)信息維護(hù)”菜單執(zhí)行的命令為： <

55、/p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\教務(wù)員登錄.scx"</p><p><b>　　“學(xué)生選課”菜單</b></p><p>　　“學(xué)生選課”菜單執(zhí)行的過(guò)程命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\學(xué)生登錄表單.scx"</

56、p><p><b>　　“退出”菜單</b></p><p>　　“退出”菜單執(zhí)行的過(guò)程命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\退出.scx"</p><p><b>　　“幫助”菜單</b></p><p>　　“幫助”菜單執(zhí)

57、行的命令為：</p><p>　　do form "e:\學(xué)生信息管理系統(tǒng)\系統(tǒng)使用幫助.scx"</p><p>　　4．3．6 設(shè)置初始化代碼過(guò)程</p><p>　　在設(shè)計(jì)主菜單的過(guò)程中執(zhí)行“顯示”“常規(guī)選項(xiàng)”命令，打開(kāi)“常規(guī)選項(xiàng)”對(duì)話框，如圖4.27所示</p><p>　　圖 4.27 常規(guī)選項(xiàng)</p&

58、gt;<p>　　在“設(shè)置”復(fù)選框中，單擊“確定”按忸，然后在代碼編輯窗口中輸入如下代碼：</p><p>　　set talk off</p><p>　　set debug off</p><p>　　if !file("e:\學(xué)生信息管理系統(tǒng)\學(xué)生信息.dbc")</p><p>　　messagebo

59、x("打開(kāi)數(shù)據(jù)庫(kù)失?。。。?quot;)</p><p><b>　　else</b></p><p>　　open database"e:\學(xué)生信息管理系統(tǒng)\學(xué)生信息.dbc"</p><p><b>　　endif </b></p><p>　　至此，學(xué)生信息

60、管理系統(tǒng)的菜單設(shè)計(jì)完畢，點(diǎn)擊“預(yù)覽”便可以看該菜單。</p><p>　　4.4 “信息查詢(xún)”模塊</p><p>　　在本節(jié)將創(chuàng)建“信息查詢(xún)”主菜單項(xiàng)中運(yùn)行的各表單。</p><p><b>　　“個(gè)人信息”表單</b></p><p>　　在項(xiàng)目中新建一個(gè)表單，在表單設(shè)計(jì)窗口中右擊，在快捷菜單中執(zhí)行“數(shù)據(jù)環(huán)境”命令，

61、添加“學(xué)生”表。</p><p>　　在表單設(shè)計(jì)區(qū)域添加控件，設(shè)計(jì)完成“個(gè)人信息”表單如圖4.28</p><p>　　圖 4.28 設(shè)計(jì)“個(gè)人信息”表單</p><p>　　表單及表單上控件的屬性設(shè)置見(jiàn)表 4.1</p><p><b>　　表 4.1</b></p><p><b>

62、;　　添加響應(yīng)代碼：</b></p><p>　　1）表單的初始化（INIT）代碼：</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("學(xué)號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("姓名")</p><p>　　thisf

63、orm.combo1查詢(xún)依據(jù).additem("班級(jí)編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).value=1</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　2）“查詢(xún)”按鈕的單擊事件：</p><p>　　if empty(thisform.co

64、mbo1查詢(xún)依據(jù).value)</p><p>　　set filter to</p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="學(xué)號(hào)"</p><p>　　locate for 學(xué)生.學(xué)號(hào)=alltrim(thisform.t

65、ext1查詢(xún)依據(jù).value)</p><p><b>　　if eof()</b></p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p><b>　　else </b></p><p>

66、　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt學(xué)號(hào).setfocus</p><p>　　thisform.txt姓名.setfocus</p><p>　　thisform.txt性別.setfocus</p><p&

67、gt;　　thisform.txt班級(jí)編號(hào).setfocus</p><p>　　thisform.txt籍貫.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　go top</b></p><p><b>　　endif </b

68、></p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="姓名"</p><p>　　locate for 學(xué)生.姓名=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p><b>　　

69、if eof()</b></p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　else </b></p><p&

70、gt;　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt學(xué)號(hào).setfocus</p><p>　　thisform.txt姓名.setfocus</p><p>　　thisform.txt性別.setfocus</p><

71、;p>　　thisform.txt班級(jí)編號(hào).setfocus</p><p>　　thisform.txt籍貫.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　go top</b></p><p><b>　　endif <

72、;/b></p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="班級(jí)編號(hào)"</p><p>　　set filter to 學(xué)生.班級(jí)編號(hào)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　

73、　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt學(xué)號(hào).setfocus</p><p>　　thisform.txt姓名.setfocus</p><p>　　thisform.txt性別.setfocus</p><p&g

74、t;　　thisform.txt班級(jí)編號(hào).setfocus</p><p>　　thisform.txt籍貫.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　set filter to</p><p>　　else </p><p>

75、　　set filter to</p><p>　　endif </p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　endif </p><p>　　3）“退出”按

76、鈕的代碼：</p><p>　　thisform.release</p><p>　　4）表單運(yùn)行情況： 如圖4.29所示</p><p>　　圖 4.29 “學(xué)生表單”運(yùn)行結(jié)果</p><p><b>　　“教師信息”表單</b></p><p>　　在項(xiàng)目中新建一個(gè)表單，在表單設(shè)計(jì)器中右

77、擊，在快捷菜單中執(zhí)行“數(shù)據(jù)環(huán)境”命令，添加“教師”表。</p><p>　　在表單設(shè)計(jì)區(qū)域添加控件，設(shè)置屬性，表單如圖4.30</p><p>　　圖 4.30 “教師信息”表單</p><p>　　表單及表單上控件的屬性設(shè)置見(jiàn)表 4.2</p><p><b>　　表 4.2</b></p><

78、;p><b>　　添加響應(yīng)代碼：</b></p><p>　　1）表單的初始化（INIT）代碼：</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("教師編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("姓名")</p>

79、<p>　　thisform.combo1查詢(xún)依據(jù).additem("系編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).value=1</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　2）“查詢(xún)”按鈕的單擊事件：</p><p>　　if em

80、pty(thisform.combo1查詢(xún)依據(jù).value)</p><p>　　set filter to</p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="教師編號(hào)"</p><p>　　locate for 教師.教師編號(hào)

81、=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　　if .not.eof() </p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt教師編號(hào).setfocus</p>

82、<p>　　thisform.txt姓名.setfocus</p><p>　　thisform.txt性別.setfocus</p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　go top</

83、b></p><p><b>　　else </b></p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　endif

84、</p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="姓名"</p><p>　　locate for 教師.姓名=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　　if .not.eof()

85、 </p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt教師編號(hào).setfocus</p><p>　　thisform.txt姓名.setfocus</p><p>　　thisform.txt性

86、別.setfocus</p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　go top</b></p><p><b>　　else </b></p><p&

87、gt;　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　endif </p><p><b>　　else</b></p><p>　　i

88、f thisform.combo1查詢(xún)依據(jù).text="系編號(hào)"</p><p>　　set filter to 教師.系編號(hào)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><

89、p>　　thisform.txt教師編號(hào).setfocus</p><p>　　thisform.txt姓名.setfocus</p><p>　　thisform.txt性別.setfocus</p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocu

90、s</p><p><b>　　go top</b></p><p>　　set filter to</p><p><b>　　else </b></p><p>　　set filter to</p><p><b>　　endif</b>&l

91、t;/p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　endif </p><p>　　3）“退出”按鈕的代碼：</p><p>　　thisform.release</p

92、><p>　　4）表單運(yùn)行情況：如圖4.31所示</p><p>　　圖 4.31 “教師信息”表單運(yùn)行結(jié)果</p><p><b>　　“課程信息”表單</b></p><p>　　在項(xiàng)目中新建一個(gè)表單，在表單設(shè)計(jì)器中右擊，在快捷菜單中執(zhí)行“數(shù)據(jù)環(huán)境”命令，添加“課程”表。</p><p>　　在

93、表單設(shè)計(jì)區(qū)域添加控件，設(shè)置屬性，表單如圖4.32</p><p>　　圖 4.32 “課程信息”表單</p><p>　　表單及表單上控件的屬性設(shè)置見(jiàn)表 4.3</p><p>　　表 4.3 “課程信息”表單屬性設(shè)置</p><p><b>　　添加響應(yīng)代碼：</b></p><p>　　1

94、）表單的初始化（INIT）代碼：</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("課程編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("課程名稱(chēng)")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("系編號(hào)")&

95、lt;/p><p>　　thisform.combo1查詢(xún)依據(jù).value=1</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　2）“查詢(xún)”按鈕的單擊事件：</p><p>　　if empty(thisform.combo1查詢(xún)依據(jù).value)</p><p>　　set

96、 filter to</p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="課程編號(hào)"</p><p>　　locate for 課程.課程編號(hào)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　

97、　if .not.eof()</p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt課程編號(hào).setfocus</p><p>　　thisform.txt課程名稱(chēng).setfocus</p><p>　　th

98、isform.txt系編號(hào).setfocus</p><p>　　thisform.txt教師編號(hào).setfocus</p><p>　　thisform.txt課時(shí).setfocus</p><p>　　thisform.txt上課地點(diǎn).setfocus</p><p>　　thisform.txt學(xué)分.setfocus</p>

99、<p>　　thisform.txt學(xué)年.setfocus</p><p>　　thisform.txt學(xué)期.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　else </b></p><p>　　messagebox("沒(méi)

100、有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)") </p><p>　　thisform.text1查詢(xún)依據(jù).setfocus </p><p><b>　　endif</b></p><p><b>　　else</b></p><p>　　if thi

101、sform.combo1查詢(xún)依據(jù).text="課程名稱(chēng)"</p><p>　　locate for 課程.課程名稱(chēng)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　　if .not.eof()</p><p>　　thisform.refresh</p><p>　　thisform.

102、grid1.setfocus</p><p>　　thisform.txt課程編號(hào).setfocus</p><p>　　thisform.txt課程名稱(chēng).setfocus</p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt教師編號(hào).setfocus</p><

103、;p>　　thisform.txt課時(shí).setfocus</p><p>　　thisform.txt上課地點(diǎn).setfocus</p><p>　　thisform.txt學(xué)分.setfocus</p><p>　　thisform.txt學(xué)年.setfocus</p><p>　　thisform.txt學(xué)期.setfocus<

104、;/p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　else </b></p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)") </p><p>　　thisform.tex

105、t1查詢(xún)依據(jù).setfocus </p><p><b>　　endif</b></p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="系編號(hào)"</p><p>　　set filter to 課程.系編號(hào)=a

106、lltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt課程編號(hào).setfocus</p><p>　　thisform.txt課程名稱(chēng).setfocus</p&

107、gt;<p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt教師編號(hào).setfocus</p><p>　　thisform.txt課時(shí).setfocus</p><p>　　thisform.txt上課地點(diǎn).setfocus</p><p>　　thisform.txt學(xué)分.

108、setfocus</p><p>　　thisform.txt學(xué)年.setfocus</p><p>　　thisform.txt學(xué)期.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　　set filter to </p><p><b>　　e

109、lse</b></p><p>　　set filter to</p><p><b>　　endif </b></p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　end

110、if </p><p>　　3）“退出”按鈕的代碼：</p><p>　　thisform.release</p><p><b>　　4）表單運(yùn)行情況：</b></p><p><b>　　如圖4.33所示</b></p><p>　　

111、圖 4.33 “課程表單”運(yùn)行結(jié)果</p><p>　　“班級(jí)信息”表單，“系信息”表單，“學(xué)生成績(jī)”表單的制作</p><p>　　制作這3個(gè)表單的方法同上面“課程信息”表單的制作過(guò)程：</p><p>　　圖 4.34 “班級(jí)信息”表單</p><p>　　圖 4.35 “系信息”表單</p><p>　　

112、圖 4.36 “學(xué)生成績(jī)”表單</p><p>　　“班級(jí)信息”按鈕代碼：</p><p>　?。?）表單初始化代碼（INIT事件）</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("班級(jí)編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("班級(jí)名稱(chēng)

113、")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("系編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).value=1</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　?。?）“查詢(xún)”按鈕代碼如下：</p>

114、;<p>　　if empty(thisform.combo1查詢(xún)依據(jù).value)</p><p>　　set filter to</p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="班級(jí)編號(hào)"</p><p>　

115、　locate for 班級(jí).班級(jí)編號(hào)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p><b>　　if eof()</b></p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p><b>　　

116、else </b></p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform.txt班級(jí)編號(hào).setfocus</p><p>　　thisform.txt班級(jí)名稱(chēng).setfocus</p><p>　

117、　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt輔導(dǎo)員.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　go top</b></p><p><b>　　endif </b>

118、</p><p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="班級(jí)名稱(chēng)"</p><p>　　locate for 班級(jí).班級(jí)名稱(chēng)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p><b>　　

119、if eof()</b></p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p><b>　　else </b></p><p>　　thisform.refresh</p><p>　　thisfo

120、rm.grid1.setfocus</p><p>　　thisform.txt班級(jí)編號(hào).setfocus</p><p>　　thisform.txt班級(jí)名稱(chēng).setfocus</p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt輔導(dǎo)員.setfocus</p>&

121、lt;p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p><b>　　go top</b></p><p><b>　　endif </b></p><p><b>　　else</b></p><p>　　if thisform.comb

122、o1查詢(xún)依據(jù).text="系編號(hào)"</p><p>　　set filter to 班級(jí).系編號(hào)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>　　thisform

123、.txt班級(jí)編號(hào).setfocus</p><p>　　thisform.txt班級(jí)名稱(chēng).setfocus</p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt輔導(dǎo)員.setfocus</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p>

124、<p>　　set filter to</p><p><b>　　go top</b></p><p><b>　　else </b></p><p>　　set filter to</p><p><b>　　endif </b></p>

125、<p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　endif </p><p>　?。?）“退出”按鈕代碼如下：</p><p>　　thisform.release</p>&

126、lt;p>　　“系信息”按鈕代碼：</p><p>　　（1）表單初始化代碼（INIT事件）</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("系編號(hào)")</p><p>　　thisform.combo1查詢(xún)依據(jù).additem("系主任")</p><p>　　th

127、isform.combo1查詢(xún)依據(jù).value=1</p><p>　　thisform.text1查詢(xún)依據(jù).setfocus</p><p>　?。?）“查詢(xún)”按鈕代碼如下：</p><p>　　if empty(thisform.combo1查詢(xún)依據(jù).value)</p><p>　　set filter to</p>&l

128、t;p><b>　　else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="系編號(hào)"</p><p>　　locate for 系.系編號(hào)=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p><b>　　if eof()</b>

129、;</p><p>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p><b>　　else</b></p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus<

130、;/p><p>　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt系主任.setfocus</p><p>　　thisform.txt系名稱(chēng).setfocus</p><p><b>　　endif </b></p><p><b>　　

131、else</b></p><p>　　if thisform.combo1查詢(xún)依據(jù).text="系主任"</p><p>　　locate for 系.系主任=alltrim(thisform.text1查詢(xún)依據(jù).value)</p><p><b>　　if eof()</b></p><p

132、>　　messagebox("沒(méi)有找到，請(qǐng)確定后重新輸入！",4+48+0,"查詢(xún)出錯(cuò)")</p><p><b>　　else</b></p><p>　　thisform.refresh</p><p>　　thisform.grid1.setfocus</p><p>

133、　　thisform.txt系編號(hào).setfocus</p><p>　　thisform.txt系主任.setfocus</p><p>　　thisform.txt系名稱(chēng).setfocus</p><p><b>　　endif </b></p><p><b>　　else</b><