vfp課程設(shè)計(jì)--- 學(xué)生成績(jī)管理系統(tǒng)

1、<p><b>　　課程設(shè)計(jì)報(bào)告書(shū)</b></p><p>　　題 目： 學(xué)生成績(jī)管理系統(tǒng) </p><p>　　系 部： 電子信息系 </p><p>　　專 業(yè)： 計(jì)算機(jī)應(yīng)用技術(shù) </p><p><b>　　目錄</b></p>

2、<p>　　第1章 系統(tǒng)簡(jiǎn)介……………………………………………………….4</p><p>　　第2章 系統(tǒng)可行性分析………………………………………………4</p><p>　　2.1 技術(shù)可行性……………………………………………………….4</p><p>　　2.2 實(shí)施可行性……………………………………………………….4<

3、/p><p>　　第3章 系統(tǒng)設(shè)計(jì)……………………………………………………….4</p><p>　　3.1 目標(biāo)設(shè)計(jì)………………………………………………………….4</p><p>　　3.2 開(kāi)發(fā)設(shè)計(jì)思想……………………………………………………...5</p><p>　　3.3 開(kāi)發(fā)和運(yùn)行環(huán)境選擇……………………………

4、…………………..5</p><p>　　3.4 系統(tǒng)結(jié)構(gòu)圖……………………………………………………….5</p><p>　　3.5 系統(tǒng)模塊功能介紹 ………………………………………………..7</p><p>　　3.5.1 系統(tǒng)主界面………………………………………………7</p><p>　　3.5.2 驗(yàn)證界面

5、………………………………………………..7</p><p>　　3.5.3 查詢模塊 ……………………………………………….7</p><p>　　3.5.4 維護(hù)模塊………………………………………………..7</p><p>　　3.5.5 報(bào)表模塊……………………………………………….7</p><p>　　3.5.6

6、 退出系統(tǒng)……………………………………………7</p><p>　　3.6 數(shù)據(jù)庫(kù)設(shè)計(jì)……………………………………………………..8</p><p>　　3.6.1 數(shù)據(jù)庫(kù)概念設(shè)計(jì)…………………………………………8</p><p>　　3.6.2 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)…………………………………………9</p><p>　　3.

7、6.3 數(shù)據(jù)庫(kù)物理設(shè)計(jì)…………………………………………9</p><p>　　3.6.4 建立索引和永久關(guān)系…………………………………….11</p><p>　　3.7 主要模塊的創(chuàng)建…………………………………………………12</p><p>　　3.7.1 開(kāi)始界面設(shè)計(jì)………………………………………….12</p><

8、p>　　3.7.2 退出界面設(shè)計(jì)………………………………………….13</p><p>　　3.7.3 驗(yàn)證界面設(shè)計(jì)………………………………………….15</p><p>　　3.7.4 學(xué)生成績(jī)查詢表單………………………………………17</p><p>　　3.7.5 瀏覽學(xué)生信息表單………………………………………18</p>

9、<p>　　3.7.6 瀏覽課程表表單………………………………………..19</p><p>　　3.7.7 學(xué)生查詢界面…………………………………………20</p><p>　　3.7.8 維護(hù)成績(jī)表界面……………………………………….22</p><p>　　3.7.9 菜單設(shè)計(jì)……………………………………………..23</p

10、><p>　　3.7.10 報(bào)表設(shè)計(jì)……………………………………………..24</p><p>　　3.7.11 主程序設(shè)計(jì)……………………………………………25</p><p>　　第4章 開(kāi)發(fā)中的難點(diǎn)與解決技巧………………………………27</p><p>　　附錄代碼.................................

11、..................................................................28</p><p>　　第1章 系統(tǒng)簡(jiǎn)介</p><p>　　隨著社會(huì)的發(fā)展,資訊的迅速發(fā)展便得我們從過(guò)去繁重的勞作中得以解脫，所以編寫(xiě)一個(gè)完善的學(xué)生成績(jī)管理系統(tǒng)的任務(wù)就顯得很必要了。學(xué)生成績(jī)管理系統(tǒng)解決了過(guò)去手記成績(jī)，現(xiàn)在它更快速的對(duì)學(xué)生成績(jī)進(jìn)行管理

12、，如查詢、修改、增加、刪除。</p><p>　　第2章 系統(tǒng)可行性分析</p><p><b>　　2.1技術(shù)可行性</b></p><p>　　該系統(tǒng)可以通過(guò)使用VFP6.0數(shù)據(jù)庫(kù)軟件作為開(kāi)發(fā)工具進(jìn)行開(kāi)發(fā)，開(kāi)發(fā)出的系統(tǒng)是一個(gè)數(shù)據(jù)庫(kù)應(yīng)用管理系統(tǒng)，該系統(tǒng)安全，可靠，穩(wěn)定，完全可以滿足任務(wù)要求。</p><p>&l

13、t;b>　　2.2實(shí)施可行性</b></p><p>　　該系統(tǒng)可以設(shè)計(jì)一系列便于操作的窗口界面，操作人員只需稍經(jīng)培訓(xùn)就可以進(jìn)入工作狀態(tài)。同時(shí)，可以對(duì)目前手工記錄學(xué)生成績(jī)，查詢，修改，編制報(bào)表等工作進(jìn)行徹底改革，使各項(xiàng)工作都能夠通過(guò)計(jì)算機(jī)來(lái)完成，使學(xué)生成績(jī)管理實(shí)現(xiàn)自動(dòng)化，極大的提高了工作效率。</p><p>　　第3章 系統(tǒng)設(shè)計(jì)</p><p&g

14、t;<b>　　3.1 目標(biāo)設(shè)計(jì)</b></p><p>　　本章旨在拋磚引玉，通過(guò)開(kāi)發(fā)一個(gè)簡(jiǎn)化的學(xué)生成績(jī)管理系統(tǒng)，展示Visual FoxPro的強(qiáng)大功能。同時(shí)，希望有興趣的可以在此基礎(chǔ)上設(shè)計(jì)開(kāi)發(fā)出功能更多更強(qiáng)大的學(xué)生成績(jī)管理系統(tǒng)。</p><p>　　3.2 開(kāi)發(fā)設(shè)計(jì)思想</p><p>　　本系統(tǒng)開(kāi)發(fā)設(shè)計(jì)思想：</p>&l

15、t;p>　　盡量采用學(xué)?，F(xiàn)有軟硬件環(huán)境，及先進(jìn)的管理系統(tǒng)開(kāi)發(fā)方案，從而達(dá)到充分利用學(xué)校現(xiàn)有的資源，提高系統(tǒng)開(kāi)發(fā)水平和應(yīng)用效果的目的。</p><p>　　系統(tǒng)應(yīng)符合學(xué)校學(xué)生成績(jī)管理的規(guī)定，滿足對(duì)學(xué)校學(xué)生日常管理的需要，并達(dá)到操作過(guò)程中的直觀、方便、實(shí)用、安全等要求。</p><p>　　系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開(kāi)發(fā)的技術(shù)維護(hù)人員補(bǔ)充、維

16、護(hù)。</p><p>　　系統(tǒng)應(yīng)具備數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、備份等操作。</p><p>　　3.3 開(kāi)發(fā)和運(yùn)行環(huán)境選擇</p><p>　　開(kāi)發(fā)工具：Visual FoxPro 6.0</p><p>　　運(yùn)行環(huán)境：Windows9x、Windows NT或Windows 2000操作系統(tǒng)。</p&

17、gt;<p><b>　　3.4 系統(tǒng)結(jié)構(gòu)圖</b></p><p>　　采用模塊化設(shè)計(jì)思想，可以大大提高設(shè)計(jì)的效率，并且可以最大限度地減少不必要的錯(cuò)誤。其系統(tǒng)結(jié)構(gòu)圖如下所示：</p><p>　　3.5 系統(tǒng)模塊功能介紹</p><p>　　本系統(tǒng)主要用于學(xué)校學(xué)生成績(jī)管理，主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生成績(jī)進(jìn)行日常管理，如查詢、修改、

18、增加、刪除。針對(duì)這些要求，設(shè)計(jì)了本學(xué)生成績(jī)管理系統(tǒng)。該系統(tǒng)主要進(jìn)行學(xué)生成績(jī)的查詢、瀏覽、維護(hù)。</p><p><b>　　系統(tǒng)主界面</b></p><p>　　該模塊是學(xué)生成績(jī)管理系統(tǒng)的主界面，是主系統(tǒng)的唯一入口和出口。該界面可調(diào)用各子模塊。實(shí)現(xiàn)對(duì)學(xué)生相關(guān)信息的瀏覽，查詢，修改和報(bào)表。</p><p><b>　　驗(yàn)證界面<

19、/b></p><p>　　驗(yàn)證界面是驗(yàn)證用戶名，只有當(dāng)使用者正確的輸入用戶名和密碼后才能進(jìn)入系統(tǒng)。</p><p><b>　　查詢模塊</b></p><p>　　本模塊的目的在于快速瀏覽學(xué)生信息，學(xué)生的成績(jī)和課程表。</p><p><b>　　維護(hù)模塊</b></p>&

20、lt;p>　　本模塊的目的在于對(duì)系統(tǒng)的各個(gè)數(shù)據(jù)庫(kù)進(jìn)行維護(hù)，對(duì)課程表、學(xué)生表、成績(jī)表進(jìn)行增加、刪除，以便及時(shí)更新數(shù)據(jù)進(jìn)行查詢。</p><p><b>　　報(bào)表模塊</b></p><p>　　本模塊的目的在于對(duì)學(xué)生表、課程表、成績(jī)表的報(bào)表瀏覽，能夠通過(guò)打印機(jī)將它們打印出來(lái)。</p><p><b>　　退出系統(tǒng)</b>

21、;</p><p>　　本模塊設(shè)計(jì)的目的是當(dāng)用戶退出系統(tǒng)時(shí)顯示感謝詞，畫(huà)面停留兩秒后自動(dòng)退出.</p><p><b>　　數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b>　　數(shù)據(jù)庫(kù)概念設(shè)計(jì)</b></p><p>　　E—R圖是E—R模型的圖形表示法，它是直接表示概念模型的有力工具。我們用E—R圖來(lái)說(shuō)

22、明學(xué)生成績(jī)管理系統(tǒng)的數(shù)據(jù)庫(kù)概念模式，如下圖所示。</p><p><b>　?。╝）</b></p><p><b>　　( b )</b></p><p><b>　　( c )</b></p><p><b>　　( d )</b></p>

23、<p><b>　　數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)</b></p><p>　　將以上E—R轉(zhuǎn)換成如下關(guān)系模式：</p><p>　　學(xué)生表（學(xué)號(hào)，姓名，性別，出生年月，班級(jí)）</p><p>　　課程表（課程名，課程編號(hào)，學(xué)分，任課教師）</p><p>　　成績(jī)表（學(xué)號(hào)，課程編號(hào)，分?jǐn)?shù)）</p><

24、p><b>　　數(shù)據(jù)庫(kù)物理設(shè)計(jì)</b></p><p>　　本系統(tǒng)中包括三個(gè)數(shù)據(jù)表：學(xué)生表、課程表、成績(jī)表，表結(jié)構(gòu)如下圖：</p><p><b>　　學(xué)生表結(jié)構(gòu)</b></p><p><b>　　課程表結(jié)構(gòu)</b></p><p><b>　　成績(jī)表結(jié)構(gòu)&l

25、t;/b></p><p><b>　　建立索引和永久關(guān)系</b></p><p><b>　　建立索引</b></p><p>　　建立學(xué)生表與成績(jī)表，課程表與成績(jī)表的關(guān)聯(lián)，關(guān)鍵字是分別是XH字段和KCH字段。</p><p><b>　　主要模塊的創(chuàng)建</b><

26、/p><p><b>　　開(kāi)始界面設(shè)計(jì)</b></p><p>　　設(shè)計(jì)該表單的主要功能是當(dāng)用戶啟動(dòng)使用“學(xué)生成績(jī)管理系統(tǒng)”時(shí)，顯示歡迎界面，開(kāi)始界面上的歡迎詞每個(gè)1秒閃爍一次。用戶按下鍵盤(pán)上任一鍵時(shí)，系統(tǒng)自動(dòng)進(jìn)入下一級(jí)表單。設(shè)計(jì)該模塊比較簡(jiǎn)單，利用一個(gè)表單就可實(shí)現(xiàn)其功能。以下是這一模塊的設(shè)計(jì)步驟。</p><p>　　首先新建一個(gè)表單，保存為“w

27、elcome”。將該表單的“Caption”屬性設(shè)為“歡迎界面”，“Desktop”屬性設(shè)置為“.T.-True”。為了給該表單添加一張圖片背景，設(shè)其“Picture”屬性為所要添加圖片的地址。然后為該表單添加一個(gè)“Timer1”控件和一個(gè)“Label1”控件。</p><p>　　修改“Timer1”控件的“Interval”的屬性為“1000”，這樣當(dāng)每間隔一秒鐘將觸發(fā)一次“Timer Event”事件。&l

28、t;/p><p>　　“Label1”控件的相關(guān)屬性的內(nèi)容如下表。</p><p>　　“Label1”控件中主要屬性</p><p>　　開(kāi)始界面的設(shè)計(jì)結(jié)果如下圖所示。</p><p><b>　　退出界面設(shè)計(jì)</b></p><p>　　當(dāng)用戶退出系統(tǒng)時(shí)顯示感謝詞，兩面停留兩秒后自動(dòng)退出。這一表單

29、也比較簡(jiǎn)單，利用一個(gè)表單就可實(shí)現(xiàn)其功能。</p><p>　　退出界面的設(shè)計(jì)方法同開(kāi)始界面的設(shè)計(jì)方法類(lèi)似。表單中所用的各控件屬性如下表所示。</p><p>　　“Form1”表單主要屬性</p><p>　　“Label1”控件中主要屬性</p><p>　　“Label2”控件中主要屬性</p><p>　　“Ti

30、mer1”控件中主要屬性</p><p>　　退出界面設(shè)計(jì)結(jié)果如下圖所示。</p><p><b>　　驗(yàn)證界面設(shè)計(jì)</b></p><p>　　為了確保數(shù)據(jù)庫(kù)的安全性設(shè)計(jì)的，只有合法的用戶才可以進(jìn)行登錄。如果用戶名或密碼輸入不正確，可以取消重新輸入。該表單包括兩個(gè)LABLE控件，兩個(gè)TEXT控件，和三個(gè)COMMAND控件。表單中的各控件屬性如

31、下表所示。</p><p>　　“Form1”表單主要屬性</p><p>　　“Label1”控件中主要屬性</p><p>　　“Label2”控件中主要屬性</p><p>　　Command 控件主要屬性</p><p>　　驗(yàn)證界面設(shè)計(jì)結(jié)果如下圖所示。</p><p><b>

32、;　　學(xué)生成績(jī)查詢表單</b></p><p>　　這一模塊實(shí)現(xiàn)了最基本而又很重要的功能，它讓用戶方便快捷、多角度地得知想要查詢的情況。該模塊是對(duì)學(xué)生成績(jī)的查詢，可以查詢所有學(xué)生的成績(jī)，也可以根據(jù)學(xué)號(hào)進(jìn)行查詢。這一模塊所包含的控件屬性所下表。</p><p>　　學(xué)生成績(jī)查詢?cè)O(shè)計(jì)結(jié)果如下圖所示。</p><p><b>　　瀏覽學(xué)生信息表單&l

33、t;/b></p><p>　　這一模塊設(shè)計(jì)的目的主要是迅速的瀏覽學(xué)生信息。表單中包含的控件屬性如下表。</p><p>　　學(xué)生信息瀏覽表單設(shè)計(jì)結(jié)果如下圖所示。</p><p><b>　　瀏覽課程表表單</b></p><p>　　這一模塊設(shè)計(jì)的目的主要是快速瀏覽課程表，表單中所包含的控件屬性如下表。</

34、p><p><b>　　學(xué)生查詢界面</b></p><p>　　本模塊的目的在于快速瀏覽學(xué)生的基本情況。目標(biāo)界面如下圖所示。</p><p>　　表單中所包含的控件屬性如下表。</p><p>　　控件Lable2、Lable3、Lable4、Lable5屬性設(shè)置同Lable1相同。</p><p>

35、;<b>　　維護(hù)成績(jī)表界面</b></p><p>　　本模塊的目的在于對(duì)系統(tǒng)的各個(gè)數(shù)據(jù)庫(kù)進(jìn)行維護(hù)，對(duì)成績(jī)表進(jìn)行增加、刪除，以便及時(shí)更新數(shù)據(jù)進(jìn)行查詢。表單中包含的所有控件的屬性設(shè)置如下表。</p><p>　　控件Lable3、Lable4屬性與Lable2屬性一置。在點(diǎn)擊“修改”命令按鈕時(shí)，會(huì)出現(xiàn)“是否確定要修改該記錄”。選擇“是”會(huì)出現(xiàn)下面圖。</p>

36、;<p>　　這一模塊設(shè)計(jì)的結(jié)果如下圖。</p><p><b>　　菜單設(shè)計(jì)</b></p><p>　　菜單以橫向排列在主窗口頂部的標(biāo)題欄之下，它方便而快捷地完成了各項(xiàng)工作。要做菜單先要打開(kāi)菜單設(shè)計(jì)器，在菜單設(shè)計(jì)器中輸入菜單名稱，選擇“結(jié)果”。如需要編輯子菜單，進(jìn)入子菜單進(jìn)行編輯菜單名稱。下圖是該模塊的菜單設(shè)計(jì)器和該模塊結(jié)果設(shè)計(jì)。</p>

37、<p><b>　　報(bào)表設(shè)計(jì)</b></p><p>　　報(bào)表用于在打印文檔中顯示或總結(jié)數(shù)據(jù)。報(bào)表的數(shù)據(jù)源定義了報(bào)表中數(shù)據(jù)的來(lái)源，通常是表、視圖、查詢、臨時(shí)表等，報(bào)表的布局定義了報(bào)表的打印格式。</p><p>　　這一模塊是通過(guò)報(bào)表向?qū)?，選擇所做報(bào)表的字段， 選擇報(bào)表樣式為經(jīng)營(yíng)式，報(bào)表布局，和排序記錄為學(xué)號(hào)，最后保存為學(xué)生表。如下圖。</p>

38、;<p>　　下圖是學(xué)生報(bào)表的縮小圖。</p><p><b>　　主程序設(shè)計(jì)</b></p><p>　　系統(tǒng)要執(zhí)行，需要有一個(gè)主程序。由主程序設(shè)置系統(tǒng)的環(huán)境后，打開(kāi)程序主表單，等待使用者的操作。</p><p>　　主程序?qū)⒄{(diào)用應(yīng)用程序框架中的各個(gè)功能組件，然后由這些組件調(diào)用應(yīng)用程序的其他部分。主應(yīng)用程序?qū)ο蟊仨氉龅牡谝患戮?/p>

39、是對(duì)應(yīng)用程序的環(huán)境進(jìn)行初始化。在打開(kāi)VFP時(shí)，默認(rèn)得的VFP開(kāi)發(fā)環(huán)境將建立SET命令和系統(tǒng)變量的值。一個(gè)比較好的設(shè)計(jì)方法是將初始的環(huán)境設(shè)置保存起來(lái)，在啟動(dòng)代碼中為程序建立特定的環(huán)境設(shè)置。此外，在一個(gè)應(yīng)用程序特定的環(huán)境下，可能需要使用代碼一下操作。</p><p>　　在“項(xiàng)目管理器”中選擇“代碼”中的“程序”，點(diǎn)擊“新建”按鈕，為系統(tǒng)新建一個(gè)主程序。為主程序編寫(xiě)代碼，存儲(chǔ)為mainprg。</p>

40、<p>　　Clear screen</p><p>　　Clear events</p><p><b>　　*打開(kāi)數(shù)據(jù)庫(kù)</b></p><p>　　Open database database\salary</p><p><b>　　*執(zhí)行開(kāi)始表單</b></p>&

41、lt;p>　　Do form form\ksjm</p><p><b>　　設(shè)置系統(tǒng)環(huán)境配置</b></p><p>　　Do setting</p><p><b>　　*開(kāi)始響應(yīng)事件</b></p><p>　　Read events</p><p>　　*收到“

42、clear events”命令后關(guān)閉數(shù)據(jù)庫(kù)，還原系統(tǒng)環(huán)境配置</p><p>　　Close database</p><p><b>　　Do reset</b></p><p>　　將mainprg.prg程序設(shè)置為主文件,如下圖所示.</p><p>　　第四章 開(kāi)發(fā)中的難點(diǎn)與解決技巧</p>&

43、lt;p><b>　　報(bào)表的使用</b></p><p>　　在系統(tǒng)設(shè)計(jì)時(shí)發(fā)現(xiàn)，設(shè)計(jì)好報(bào)表后，有時(shí)無(wú)論怎么預(yù)覽都無(wú)法看到報(bào)表，像報(bào)表一預(yù)覽就消失一樣。經(jīng)過(guò)幾次調(diào)試才確定不是程序問(wèn)題。</p><p>　　后來(lái)發(fā)現(xiàn)，當(dāng)該報(bào)表數(shù)據(jù)環(huán)境中的表是一個(gè)空表時(shí)就會(huì)遇到無(wú)法預(yù)覽的情況。解決這個(gè)問(wèn)題一個(gè)方法就是在該表中輸入 幾個(gè)數(shù)據(jù)，這樣報(bào)表就可以預(yù)覽了。</p>

44、<p><b>　　常見(jiàn)的代碼錯(cuò)誤</b></p><p>　　當(dāng)編寫(xiě)VFP應(yīng)用程序時(shí)可能產(chǎn)生許多個(gè)錯(cuò)誤，至少它會(huì)爆出許多出錯(cuò)信息。有些錯(cuò)誤比較常見(jiàn)，而有些錯(cuò)誤則相當(dāng)神秘。許多錯(cuò)誤與句法相關(guān)，而且往往是簡(jiǎn)單的錄入錯(cuò)誤造成的。所以我們要在編寫(xiě)程序時(shí)一定要注意錄入，避免錯(cuò)誤。</p><p><b>　　附錄代碼</b></p>

45、;<p><b>　　歡迎界面</b></p><p>　　計(jì)時(shí)器timer1的代碼：</p><p>　　if nTime=0</p><p>　　thisform.Label1.visible=.t.</p><p><b>　　nTime=1</b></p><

46、;p><b>　　else</b></p><p>　　thisform.Label1.visible=.f.</p><p><b>　　nTime=0</b></p><p><b>　　endif </b></p><p><b>　　退出界面</b

47、></p><p>　　計(jì)時(shí)器timer1的代碼：</p><p>　　thisform.release</p><p>　　CLEAR EVENT</p><p>　　*釋放表單并停止由READ EVENT 開(kāi)始的事件處理</p><p>　　*令程序從READ EVENT的下一條程序行繼</p>

48、<p><b>　　驗(yàn)證界面</b></p><p>　　“確定”按鈕的代碼：</p><p>　　sele adminer</p><p>　　use student\database\adminer</p><p>　　*此為管理員信息數(shù)據(jù)表的(adminer）的相對(duì)路徑</p><p

49、>　　cx=alltrim(thisform.text1.value)</p><p>　　cy=alltrim(thisform.text2.value)</p><p>　　*獲得文本框1、2的輸入信息</p><p>　　set order to 用戶名</p><p><b>　　seek cx</b>&l

50、t;/p><p><b>　　*查找輸入的信息</b></p><p>　　if alltrim(adminer.用戶名）!=cx</p><p>　　cMessageTitle='設(shè)備管理系統(tǒng)'</p><p>　　cMessageText='用戶名錯(cuò)誤，請(qǐng)重新輸入'</p>

51、<p>　　nDialogType=4+32</p><p>　　nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b></p><p>　　case nAnswer=6</p><p>　　thi

52、sform.text1.value=''</p><p>　　thisform.text1.setfocus</p><p>　　*選擇“是”時(shí)的操作</p><p>　　case nAnswer=7</p><p>　　cMessageTitle='設(shè)備管理系統(tǒng)'</p><p>　　

53、cMessageText='不要亂來(lái)'</p><p>　　messagebox(cMessageText,nDialogType,cMessageTitle)</p><p>　　thisform.release</p><p>　　*選擇“否”時(shí)的操作</p><p><b>　　endcase</b>

54、;</p><p><b>　　else</b></p><p>　　if alltrim(adminer.密碼)!=cy</p><p>　　*判斷輸入的信息是否與密碼符合</p><p>　　cMessageTitle='設(shè)備管理系統(tǒng)'</p><p>　　cMessageTe

55、xt='密碼錯(cuò)誤,請(qǐng)重新輸入'</p><p>　　nDialogType=4+32</p><p>　　nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)</p><p><b>　　do case</b></p><p>　　case

56、nAnswer=6</p><p>　　thisform.text2.value=''</p><p>　　thisform.text2.setfocus</p><p><b>　　擇“是”時(shí)的操作</b></p><p>　　case nAnswer=7</p><p>　　c

57、MessageTitle='設(shè)備管理系統(tǒng)'</p><p>　　cMessageText='不要亂來(lái)'</p><p>　　messagebox(cMessageText,nDialogType,cMessageTitle)</p><p>　　thisform.release</p><p>　　*選擇“否”

58、時(shí)的操作</p><p><b>　　endcase</b></p><p><b>　　else</b></p><p>　　thisform.release</p><p><b>　　do case</b></p><p>　　case table

59、sc=1</p><p>　　do form student\form\deptstu</p><p>　　*根據(jù)變量不同打開(kāi)不同的表單</p><p>　　case tablesc=2</p><p>　　do form student\form\weihu</p><p><b>　　endcase&

60、lt;/b></p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　“取消”按鈕的代碼：</p><p>　　thisform.text1.value=''</p><p>　　thisfor

61、m.text2.value=''</p><p><b>　　*清空文本框的內(nèi)容</b></p><p>　　thisform.text1.setfocus</p><p>　　“退出”按鈕的代碼：</p><p>　　thisform.release</p><p><b&

62、gt;　　*釋放本表單</b></p><p><b>　　成績(jī)表維護(hù)界面</b></p><p>　　“前一條”按鈕的代碼：</p><p>　　if reccount()>0</p><p><b>　　skip -1</b></p><p><b

63、>　　if bof()</b></p><p><b>　　go top</b></p><p><b>　　endif</b></p><p>　　thisform.refresh</p><p>　　if recno()=1</p><p>　　this

64、form.command1.enabled=.f.</p><p>　　thisform.command2.enabled=.t.</p><p><b>　　else</b></p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command2.enab

65、led=.t.</p><p><b>　　endif</b></p><p><b>　　endif</b></p><p>　　“下一條”按鈕的代碼：</p><p><b>　　ttt=1</b></p><p>　　if reccount()&g

66、t;0</p><p><b>　　skip</b></p><p><b>　　if eof()</b></p><p><b>　　go bottom</b></p><p>　　ttt=recn()</p><p><b>　　endif

67、</b></p><p>　　thisform.refresh</p><p>　　if recno()=ttt</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command2.enabled=.f.</p><p><b>

68、　　else</b></p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command2.enabled=.t.</p><p><b>　　endif</b></p><p><b>　　endif</b></p

69、><p>　　“修改”按鈕的代碼：</p><p>　　set multilocks on</p><p>　　cursorsetprop("buffering",2)</p><p>　　tableupdate(.f.)</p><p>　　ys=messagebox("是否確定要修改該記錄

70、",4+32,"學(xué)生成績(jī)管理系統(tǒng)!!")</p><p><b>　　if ys=6</b></p><p>　　=messagebox("記錄已經(jīng)修改",48,"通知")</p><p><b>　　endif</b></p><p

71、>　　thisform.refresh</p><p>　　“取消”按鈕的代碼：</p><p>　　thisform.release</p><p><b>　　學(xué)生成績(jī)查詢界面</b></p><p>　　“查詢”按鈕的代碼：</p><p>　　if empty(alltrim(thi

72、sform.text1.value))</p><p>　　messagebox("請(qǐng)輸入學(xué)生學(xué)號(hào)!",48,"學(xué)生成績(jī)管理系統(tǒng)")</p><p>　　thisform.text1.setfocus</p><p><b>　　else </b></p><p>　　locate

73、 for alltrim(xh)==alltrim(thisform.text1.value)</p><p>　　if found()</p><p>　　set filter to </p><p>　　set filter to xh=alltrim(thisform.text1.value)</p><p>　　thisform.re

74、fresh</p><p><b>　　else </b></p><p>　　messagebox("查無(wú)此人!",48,"學(xué)生成績(jī)管理系統(tǒng)")</p><p><b>　　endif</b></p><p><b>　　endif</b&g

75、t;</p><p>　　“退出”按鈕的代碼：</p><p>　　thisform.release</p><p><b>　　學(xué)生查詢界面</b></p><p>　　“查詢”按鈕的代碼：</p><p>　　if empty(alltrim(thisform.text1.value))<

76、;/p><p>　　messagebox("請(qǐng)輸入學(xué)生學(xué)號(hào)!",48,"學(xué)生成績(jī)管理系統(tǒng)")</p><p>　　thisform.text1.setfocus</p><p><b>　　else </b></p><p>　　use 學(xué)生表.dbf</p><p

77、>　　locate for alltrim(xh)==alltrim(thisform.text1.value)</p><p>　　if found()</p><p>　　thisform.text2.value=xh</p><p>　　thisform.text3.value=xm</p><p>　　thisform.text

78、4.value=xb</p><p>　　thisform.text5.value=bj</p><p>　　thisform.text6.value=csrq</p><p><b>　　else </b></p><p>　　messagebox("查無(wú)此人!",48,"學(xué)生成績(jī)管理系統(tǒng)