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

1、鎮(zhèn)江高等專科學(xué)校課程設(shè)計(jì)報(bào)告書 題 目： 學(xué)生成績(jī)管理系統(tǒng) 系 部： 電子信息系 專 業(yè)： 計(jì)算機(jī)應(yīng)用技術(shù) 班 級(jí)： 微機(jī)D07 姓 名： 學(xué) 號(hào)： 2008年 12 月 24 日 目錄第1章 系統(tǒng)簡(jiǎn)介.4第2章 系統(tǒng)可行性分析4 2.1 技術(shù)可行性.4 2.2 實(shí)施可行性.4第3章 系統(tǒng)設(shè)計(jì).4 目標(biāo)設(shè)計(jì).4 開發(fā)設(shè)計(jì)思想.5 3.3 開發(fā)和運(yùn)行環(huán)境選擇.5 系統(tǒng)結(jié)構(gòu)圖.5 3.5 系統(tǒng)模塊功能介紹 .7 3.5.1 系統(tǒng)主界面7 3.5.2 驗(yàn)證界面.7 3.5.3 查詢模塊 .7 3.5.4 維護(hù)模塊.7 3.5.5 報(bào)表模塊.7 3.5.6 退出系統(tǒng)7 3.6 數(shù)據(jù)庫(kù)設(shè)計(jì).8 3.6.

2、1 數(shù)據(jù)庫(kù)概念設(shè)計(jì)8 3.6.2 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)9 3.6.3 數(shù)據(jù)庫(kù)物理設(shè)計(jì)9 3.6.4 建立索引和永久關(guān)系.11 3.7 主要模塊的創(chuàng)立12 3.7.1 開始界面設(shè)計(jì).12 退出界面設(shè)計(jì).13 3.7.3 驗(yàn)證界面設(shè)計(jì).15 3.7.4 學(xué)生成績(jī)查詢表單17 3.7.5 瀏覽學(xué)生信息表單18 3.7.6 瀏覽課程表表單.19 3.7.7 學(xué)生查詢界面20 3.7.8 維護(hù)成績(jī)表界面.22 3.7.9 菜單設(shè)計(jì).23 3.7.10 報(bào)表設(shè)計(jì).24 3.7.11 主程序設(shè)計(jì)25第4章 開發(fā)中的難點(diǎn)與解決技巧27附錄代碼.28第1章 系統(tǒng)簡(jiǎn)介 隨著社會(huì)的開展,資訊的迅速開展便得我們從過(guò)去繁重的

3、勞作中得以解脫，所以編寫一個(gè)完善的學(xué)生成績(jī)管理系統(tǒng)的任務(wù)就顯得很必要了。學(xué)生成績(jī)管理系統(tǒng)解決了過(guò)去手記成績(jī)，現(xiàn)在它更快速的對(duì)學(xué)生成績(jī)進(jìn)行管理，如查詢、修改、增加、刪除。第2章 系統(tǒng)可行性分析 數(shù)據(jù)庫(kù)軟件作為開發(fā)工具進(jìn)行開發(fā)，開發(fā)出的系統(tǒng)是一個(gè)數(shù)據(jù)庫(kù)應(yīng)用管理系統(tǒng)，該系統(tǒng)平安，可靠，穩(wěn)定，完全可以滿足任務(wù)要求。2.2實(shí)施可行性 該系統(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)化，極大的提高了工作效率。第3章 系統(tǒng)設(shè)計(jì) 目標(biāo)設(shè)計(jì)本章旨在拋磚

4、引玉，通過(guò)開發(fā)一個(gè)簡(jiǎn)化的學(xué)生成績(jī)管理系統(tǒng)，展示Visual FoxPro的強(qiáng)大功能。同時(shí)，希望有興趣的可以在此根底上設(shè)計(jì)開發(fā)出功能更多更強(qiáng)大的學(xué)生成績(jī)管理系統(tǒng)。3.2 開發(fā)設(shè)計(jì)思想本系統(tǒng)開發(fā)設(shè)計(jì)思想：u 盡量采用學(xué)?，F(xiàn)有軟硬件環(huán)境，及先進(jìn)的管理系統(tǒng)開發(fā)方案，從而到達(dá)充分利用學(xué)?，F(xiàn)有的資源，提高系統(tǒng)開發(fā)水平和應(yīng)用效果的目的。u 系統(tǒng)應(yīng)符合學(xué)校學(xué)生成績(jī)管理的規(guī)定，滿足對(duì)學(xué)校學(xué)生日常管理的需要，并到達(dá)操作過(guò)程中的直觀、方便、實(shí)用、平安等要求。u 系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術(shù)維護(hù)人員補(bǔ)充、維護(hù)。u 系統(tǒng)應(yīng)具備數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)

5、的添加、刪除、修改、備份等操作。3.3 開發(fā)和運(yùn)行環(huán)境選擇運(yùn)行環(huán)境：Windows9x、Windows NT或Windows 2000操作系統(tǒng)。3.4 系統(tǒng)結(jié)構(gòu)圖采用模塊化設(shè)計(jì)思想，可以大大提高設(shè)計(jì)的效率，并且可以最大限度地減少不必要的錯(cuò)誤。其系統(tǒng)結(jié)構(gòu)圖如下所示：開始界面驗(yàn)證用戶進(jìn)入主窗口界面退出系統(tǒng)是否合法學(xué)生成績(jī)管理系統(tǒng)報(bào)表 查詢 維護(hù)退出學(xué)生表瀏覽課程表瀏覽成績(jī)表瀏覽學(xué)生查詢成績(jī)查詢成績(jī)表維護(hù)菜單3.5 系統(tǒng)模塊功能介紹本系統(tǒng)主要用于學(xué)校學(xué)生成績(jī)管理，主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生成績(jī)進(jìn)行日常管理，如查詢、修改、增加、刪除。針對(duì)這些要求，設(shè)計(jì)了本學(xué)生成績(jī)管理系統(tǒng)。該系統(tǒng)主要進(jìn)行學(xué)生成績(jī)的查詢、

6、瀏覽、維護(hù)。l 系統(tǒng)主界面該模塊是學(xué)生成績(jī)管理系統(tǒng)的主界面，是主系統(tǒng)的唯一入口和出口。該界面可調(diào)用各子模塊。實(shí)現(xiàn)對(duì)學(xué)生相關(guān)信息的瀏覽，查詢，修改和報(bào)表。l 驗(yàn)證界面驗(yàn)證界面是驗(yàn)證用戶名，只有當(dāng)使用者正確的輸入用戶名和密碼后才能進(jìn)入系統(tǒng)。l 查詢模塊本模塊的目的在于快速瀏覽學(xué)生信息，學(xué)生的成績(jī)和課程表。l 維護(hù)模塊本模塊的目的在于對(duì)系統(tǒng)的各個(gè)數(shù)據(jù)庫(kù)進(jìn)行維護(hù)，對(duì)課程表、學(xué)生表、成績(jī)表進(jìn)行增加、刪除，以便及時(shí)更新數(shù)據(jù)進(jìn)行查詢。l 報(bào)表模塊本模塊的目的在于對(duì)學(xué)生表、課程表、成績(jī)表的報(bào)表瀏覽，能夠通過(guò)打印機(jī)將它們打印出來(lái)。l 退出系統(tǒng)本模塊設(shè)計(jì)的目的是當(dāng)用戶退出系統(tǒng)時(shí)顯示感謝詞，畫面停留兩秒后自動(dòng)退出.

7、3.6 數(shù)據(jù)庫(kù)設(shè)計(jì)² 數(shù)據(jù)庫(kù)概念設(shè)計(jì)ER圖是ER模型的圖形表示法，它是直接表示概念模型的有力工具。我們用ER圖來(lái)說(shuō)明學(xué)生成績(jī)管理系統(tǒng)的數(shù)據(jù)庫(kù)概念模式，如以下圖所示。學(xué)生姓名性別出生年月班級(jí)學(xué)號(hào) a課程課程名課程編號(hào)學(xué)分任課老師 ( b ) 成績(jī)課程編號(hào)分?jǐn)?shù)學(xué)號(hào) ( c )成績(jī)學(xué)習(xí)課程考試學(xué)生 ( d )² 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)將以上ER轉(zhuǎn)換成如下關(guān)系模式： 學(xué)生表學(xué)號(hào)，姓名，性別，出生年月，班級(jí)課程表課程名，課程編號(hào)，學(xué)分，任課教師成績(jī)表學(xué)號(hào)，課程編號(hào)，分?jǐn)?shù)² 數(shù)據(jù)庫(kù)物理設(shè)計(jì)本系統(tǒng)中包括三個(gè)數(shù)據(jù)表：學(xué)生表、課程表、成績(jī)表，表結(jié)構(gòu)如以下圖：學(xué)生表結(jié)構(gòu)字段名字段類型與長(zhǎng)度字

8、段規(guī)那么與說(shuō)明默認(rèn)值標(biāo)題XHC8“81991001”學(xué)號(hào)XMC8姓名XBC2“性別只能是男或女“女性別CSRQD“年齡在18至22歲之間出生年月BJC10班級(jí) 課程表結(jié)構(gòu)字段名字段類型與長(zhǎng)度字段規(guī)那么與說(shuō)明默認(rèn)值標(biāo)題KCHC(4)課程編號(hào)KCMC(14)課程名JSC(8)任課教師XFN(3,1)“學(xué)分大于0"1學(xué)分 成績(jī)表結(jié)構(gòu)字段名字段類型與長(zhǎng)度字段規(guī)那么與說(shuō)明默認(rèn)值標(biāo)題XHC(8)學(xué)號(hào)KCHC(4)課程號(hào)CJN(5,1)“成績(jī)大于0”60成績(jī)² 建立索引和永久關(guān)系 建立索引數(shù)據(jù)表名稱索引名稱索引類型索引表達(dá)式學(xué)生表NO主索引XHNAME普通索引XM課程表SUB_NO主索引

9、KCHSUB_NAME普通索引KCM成績(jī)表STUDENT主索引XH+KCH+STR(CJ,4,1)MARK普通索引CJ建立學(xué)生表與成績(jī)表，課程表與成績(jī)表的關(guān)聯(lián)，關(guān)鍵字是分別是XH字段和KCH字段。3.7 主要模塊的創(chuàng)立Ø 開始界面設(shè)計(jì)設(shè)計(jì)該表單的主要功能是當(dāng)用戶啟動(dòng)使用“學(xué)生成績(jī)管理系統(tǒng)時(shí)，顯示歡迎界面，開始界面上的歡迎詞每個(gè)1秒閃爍一次。用戶按下鍵盤上任一鍵時(shí)，系統(tǒng)自動(dòng)進(jìn)入下一級(jí)表單。設(shè)計(jì)該模塊比較簡(jiǎn)單，利用一個(gè)表單就可實(shí)現(xiàn)其功能。以下是這一模塊的設(shè)計(jì)步驟。首先新建一個(gè)表單，保存為“welcome。將該表單的“Caption屬性設(shè)為“歡迎界面，“Desktop屬性設(shè)置為“。為了給該

10、表單添加一張圖片背景，設(shè)其“Picture屬性為所要添加圖片的地址。然后為該表單添加一個(gè)“Timer1控件和一個(gè)“Label1控件。修改“Timer1控件的“Interval的屬性為“1000，這樣當(dāng)每間隔一秒鐘將觸發(fā)一次“Timer Event事件。“Label1控件的相關(guān)屬性的內(nèi)容如下表。 “Label1控件中主要屬性屬性名稱屬性值Caption歡迎使用學(xué)生成績(jī)管理系統(tǒng)BackStyle0-TransparentFontBold.T.FontName隸書FontSize20ForeColor16711935開始界面的設(shè)計(jì)結(jié)果如以下圖所示。Ø 退出界面設(shè)計(jì)當(dāng)用戶退出系統(tǒng)時(shí)顯示感謝詞

11、，兩面停留兩秒后自動(dòng)退出。這一表單也比較簡(jiǎn)單，利用一個(gè)表單就可實(shí)現(xiàn)其功能。退出界面的設(shè)計(jì)方法同開始界面的設(shè)計(jì)方法類似。表單中所用的各控件屬性如下表所示。 “Form1表單主要屬性屬性名稱屬性值Caption退出界面Desktop.T.Picture “Label1控件中主要屬性屬性名稱屬性值Caption歡迎使用BackStyle0-TransparentFontBold.T.FontName隸書FontSize32ForeColor “Label2控件中主要屬性屬性名稱屬性值Caption謝謝您的支持BackStyle0-TransparentFontBold.T.FontName隸書Fon

12、tSize30FontColor “Timer1控件中主要屬性屬性名稱屬性值Interval2000退出界面設(shè)計(jì)結(jié)果如以下圖所示。 Ø 驗(yàn)證界面設(shè)計(jì) 為了確保數(shù)據(jù)庫(kù)的平安性設(shè)計(jì)的，只有合法的用戶才可以進(jìn)行登錄。如果用戶名或密碼輸入不正確，可以取消重新輸入。該表單包括兩個(gè)LABLE控件，兩個(gè)TEXT控件，和三個(gè)COMMAND控件。表單中的各控件屬性如下表所示。 “Form1表單主要屬性屬性名稱屬性值Caption驗(yàn)證界面Desktop.T.Picture “Label1控件中主要屬性屬性名稱屬性值Caption用戶名BackStyle0-TransparentFontBold.T.Fo

13、ntName宋體FontSize20 “Label2控件中主要屬性 屬性名稱屬性值Caption密碼BackStyle0-TransparentFontBold.T.FontName宋體FontSize20 Command 控件主要屬性控件名稱屬性名稱屬性值Command1Caption確定Command2Caption取消Command3Caption退出驗(yàn)證界面設(shè)計(jì)結(jié)果如以下圖所示。Ø 學(xué)生成績(jī)查詢表單這一模塊實(shí)現(xiàn)了最根本而又很重要的功能，它讓用戶方便快捷、多角度地得知想要查詢的情況。該模塊是對(duì)學(xué)生成績(jī)的查詢，可以查詢所有學(xué)生的成績(jī)，也可以根據(jù)學(xué)號(hào)進(jìn)行查詢。這一模塊所包含的控件屬

14、性所下表?？丶Q屬性屬性值Form1Caption成績(jī)查詢Lable1Caption學(xué)號(hào)FontName楷體FontBold.T.Fontsize20Backstyle0 - 透明Command 1Caption查詢FontSize12ForeColor(0,0,255)FontName楷體Command2Caption退出ForeColor(0,0,255)FontName楷體FontSize12 學(xué)生成績(jī)查詢?cè)O(shè)計(jì)結(jié)果如以下圖所示。 Ø 瀏覽學(xué)生信息表單這一模塊設(shè)計(jì)的目的主要是迅速的瀏覽學(xué)生信息。表單中包含的控件屬性如下表?？丶Q屬性屬性值Form1Caption學(xué)生信息瀏覽L

15、able1Caption學(xué)生信息表FontBold.T.FontName楷體FontSize25ForeColor(0,255,0)BackStyle0 - 透明 學(xué)生信息瀏覽表單設(shè)計(jì)結(jié)果如以下圖所示。 Ø 瀏覽課程表表單這一模塊設(shè)計(jì)的目的主要是快速瀏覽課程表，表單中所包含的控件屬性如下表。控件名稱屬性屬性值Form1Caption學(xué)生課程瀏覽Lable1Caption學(xué)生課程表FontName楷體FontBold.T.Fontsize28ForeColor(255,0,128)Backstyle0 - 透明Ø 學(xué)生查詢界面本模塊的目的在于快速瀏覽學(xué)生的根本情況。目標(biāo)界面如

16、以下圖所示。 表單中所包含的控件屬性如下表。 控件名稱屬性屬性值Form1Caption學(xué)生查詢Lable1Caption學(xué)號(hào)Fontsize16FontBold.T.Backstyle0 - 透明Command 1Caption查詢Command2Caption取消 控件Lable2、Lable3、Lable4、Lable5屬性設(shè)置同Lable1相同。Ø 維護(hù)成績(jī)表界面 本模塊的目的在于對(duì)系統(tǒng)的各個(gè)數(shù)據(jù)庫(kù)進(jìn)行維護(hù)，對(duì)成績(jī)表進(jìn)行增加、刪除，以便及時(shí)更新數(shù)據(jù)進(jìn)行查詢。表單中包含的所有控件的屬性設(shè)置如下表。 控件名稱屬性屬性取值Form1Caption成績(jī)表維護(hù)Lable1Caption

17、成績(jī)表FontBold.T.Fontsize30Backstyle0 - 透明Lable2Caption學(xué)號(hào)Backstyle0 - 透明Fontsize15Command 1Caption前一條Command 2Caption下一條Command 3Caption修改Command 4Caption取消 控件Lable3、Lable4屬性與Lable2屬性一置。在點(diǎn)擊“修改命令按鈕時(shí)，會(huì)出現(xiàn)“是否確定要修改該記錄。選擇“是會(huì)出現(xiàn)下面圖。 這一模塊設(shè)計(jì)的結(jié)果如以下圖。Ø 菜單設(shè)計(jì)菜單以橫向排列在主窗口頂部的標(biāo)題欄之下，它方便而快捷地完成了各項(xiàng)工作。要做菜單先要翻開菜單設(shè)計(jì)器，在菜單設(shè)

18、計(jì)器中輸入菜單名稱，選擇“結(jié)果。如需要編輯子菜單，進(jìn)入子菜單進(jìn)行編輯菜單名稱。以下圖是該模塊的菜單設(shè)計(jì)器和該模塊結(jié)果設(shè)計(jì)。Ø 報(bào)表設(shè)計(jì)報(bào)表用于在打印文檔中顯示或總結(jié)數(shù)據(jù)。報(bào)表的數(shù)據(jù)源定義了報(bào)表中數(shù)據(jù)的來(lái)源，通常是表、視圖、查詢、臨時(shí)表等，報(bào)表的布局定義了報(bào)表的打印格式。這一模塊是通過(guò)報(bào)表向?qū)?，選擇所做報(bào)表的字段， 選擇報(bào)表樣式為經(jīng)營(yíng)式，報(bào)表布局，和排序記錄為學(xué)號(hào)，最后保存為學(xué)生表。如以下圖。以下圖是學(xué)生報(bào)表的縮小圖。Ø 主程序設(shè)計(jì)系統(tǒng)要執(zhí)行，需要有一個(gè)主程序。由主程序設(shè)置系統(tǒng)的環(huán)境后，翻開程序主表單，等待使用者的操作。主程序?qū)⒄{(diào)用應(yīng)用程序框架中的各個(gè)功能組件，然后由這些組件

19、調(diào)用應(yīng)用程序的其他局部。主應(yīng)用程序?qū)ο蟊仨氉龅牡谝患戮褪菍?duì)應(yīng)用程序的環(huán)境進(jìn)行初始化。在翻開VFP時(shí)，默認(rèn)得的VFP開發(fā)環(huán)境將建立SET命令和系統(tǒng)變量的值。一個(gè)比較好的設(shè)計(jì)方法是將初始的環(huán)境設(shè)置保存起來(lái)，在啟動(dòng)代碼中為程序建立特定的環(huán)境設(shè)置。此外，在一個(gè)應(yīng)用程序特定的環(huán)境下，可能需要使用代碼一下操作。在“工程管理器中選擇“代碼中的“程序，點(diǎn)擊“新建按鈕，為系統(tǒng)新建一個(gè)主程序。為主程序編寫代碼，存儲(chǔ)為mainprg。Clear screenClear events*翻開數(shù)據(jù)庫(kù)Open database databasesalary*執(zhí)行開始表單Do form formksjm設(shè)置系統(tǒng)環(huán)境配置Do

20、 setting*開始響應(yīng)事件Read events*收到“clear events命令后關(guān)閉數(shù)據(jù)庫(kù)，復(fù)原系統(tǒng)環(huán)境配置Close databaseDo reset將mainprg.prg程序設(shè)置為主文件,如以下圖所示. 第四章 開發(fā)中的難點(diǎn)與解決技巧ü 報(bào)表的使用在系統(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)題。后來(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ù)覽了。ü 常見的代碼錯(cuò)誤當(dāng)編寫VFP應(yīng)用程序時(shí)可能產(chǎn)生許多個(gè)錯(cuò)誤

21、，至少它會(huì)爆出許多出錯(cuò)信息。有些錯(cuò)誤比較常見，而有些錯(cuò)誤那么相當(dāng)神秘。許多錯(cuò)誤與句法相關(guān)，而且往往是簡(jiǎn)單的錄入錯(cuò)誤造成的。所以我們要在編寫程序時(shí)一定要注意錄入，防止錯(cuò)誤。附錄代碼 歡迎界面計(jì)時(shí)器timer1的代碼：if nTime=0 thisform.Label1.visible=.t. nTime=1else thisform.Label1.visible=.f. nTime=0endif 退出界面計(jì)時(shí)器timer1的代碼：CLEAR EVENT*釋放表單并停止由READ EVENT 開始的事件處理*令程序從READ EVENT的下一條程序行繼驗(yàn)證界面 “確定按鈕的代碼： sele adm

22、ineruse studentdatabaseadminer*此為管理員信息數(shù)據(jù)表的(adminer的相對(duì)路徑cx=alltrim(thisform.text1.value)cy=alltrim(thisform.text2.value)*獲得文本框1、2的輸入信息set order to 用戶名seek cx*查找輸入的信息if alltrim(adminer.用戶名!=cxcMessageTitle='設(shè)備管理系統(tǒng)' cMessageText='用戶名錯(cuò)誤，請(qǐng)重新輸入' nDialogType=4+32 nAnswer=messagebox(cMessage

23、Text,nDialogType,cMessageTitle) do case case nAnswer=6 thisform.text1.value=''*選擇“是時(shí)的操作 case nAnswer=7 cMessageTitle='設(shè)備管理系統(tǒng)' cMessageText='不要亂來(lái)' messagebox(cMessageText,nDialogType,cMessageTitle) *選擇“否時(shí)的操作 endcase else if alltrim(adminer.密碼)!=cy *判斷輸入的信息是否與密碼符合 cMessageTitle

24、='設(shè)備管理系統(tǒng)' cMessageText='密碼錯(cuò)誤,請(qǐng)重新輸入' nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 thisform.text2.value='' 擇“是時(shí)的操作 case nAnswer=7 cMessageTitle='設(shè)備管理系統(tǒng)' cMessageText='不要亂來(lái)' messagebox(cMessageText,nDialogType

25、,cMessageTitle) *選擇“否時(shí)的操作 endcase else do case case tablesc=1 do form studentformdeptstu *根據(jù)變量不同翻開不同的表單 case tablesc=2 do form studentformweihu endcase endif endif“取消按鈕的代碼： thisform.text1.value=''thisform.text2.value=''*清空文本框的內(nèi)容“退出按鈕的代碼： *釋放本表單成績(jī)表維護(hù)界面“前一條按鈕的代碼：if reccount()>0skip

26、-1if bof()go topendifif recno()=1thisform mand1.enabled=.f.thisform mand2.enabled=.t.elsethisform mand1.enabled=.t.thisform mand2.enabled=.t.endifendif“下一條按鈕的代碼： ttt=1if reccount()>0skipif eof()go bottomttt=recn()endifif recno()=tttthisform mand1.enabled=.t.thisform mand2.enabled=.f.elsethisform mand1.enabled=.t.thisform mand2.enabled=.t.endifendif“修改按鈕的代碼：set multilocks