管理信息系統(tǒng)課題設計

1、設計課題：學籍管理系統(tǒng)設 計 者：劉麗佳（60%） 劉子奇（40%） 專 業(yè)： 工商管理學 號：2106140712051（劉麗佳） 2106140712071（劉子奇）指導老師： 陶慶 目 錄第一章 引言 （4） 1.1項目開發(fā)的目標（4） 1.2 項目提出的意義（4） 1.3 本系統(tǒng)使用語言的介紹 （4）第二章 系統(tǒng)分析 （6） 2.1用戶需求 （6） 2.2系統(tǒng)設計思想（6） 2.3系統(tǒng)設計分析（6） 2.4系統(tǒng)功能分析（7） 2.5組織結構調(diào)查（7） 2.6數(shù)據(jù)流程調(diào)查(8 ) 2.7數(shù)據(jù)字典（11） 第三章 系統(tǒng)設計（14） 3.1學籍管理中所涉及到的主要實體集及其屬性（14） 3.

2、2 功能模塊設計 （15）第四章 學生學籍管理系統(tǒng)的實現(xiàn)及編碼 （16） 4.1主程序及代碼（17） 4.2進入系統(tǒng)密碼校驗模塊（19） 4.3菜單設計 （19） 4.4信息錄入模塊 （23） 4.5修改密碼 （23） 4.6學生注冊查詢 （24） 4.7學生補考查詢 （24） 4.8學生注冊查詢（26） 4.9打印輸出-成績登記表 （27）系統(tǒng)評價（22）結束語（22）【摘要】本論文敘述了校計算機系學籍管理的現(xiàn)狀以及Visual Foxpro6.0語言的概況。重點介紹了學籍管理系統(tǒng)的實現(xiàn)過程：包括系統(tǒng)分析、系統(tǒng)調(diào)查、數(shù)據(jù)流程分析、功能設計、數(shù)據(jù)庫設計、系統(tǒng)實現(xiàn)。本系統(tǒng)主要功能有學生注冊、班級

3、信息錄入、學生信息錄入、班級課程錄入、學校專業(yè)信息錄入、課程信息錄入、學生成績錄入、補考成績錄入、數(shù)據(jù)查詢、打印輸出等功能?？偨Y了本系統(tǒng)的特點：操作方便、提高工作效率、節(jié)約學籍管理成本?！娟P鍵詞】計算機系、學籍管理系統(tǒng)、Visual Foxpro6.0、功能、特點 第一章 引 言1.1項目開發(fā)的目標建立計算機學籍管理系統(tǒng)，進一步提高辦學效益和現(xiàn)代化水平。幫助主管學籍的工作人員提高工作效率，實現(xiàn)學籍信息管理工作流程的系統(tǒng)化、規(guī)范化和自動化。1.2 項目提出的意義現(xiàn)在我國的大中專院校的檔案管理水平普遍不高，有的還停留在紙介質基礎上，這種管理手段已不能適應時代的發(fā)展，因為它浪費了許多的人力和物力。在

4、當今信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理系統(tǒng)所代替。1.3 本系統(tǒng)使用語言的介紹 Visual foxpro是microsoft公司推出的全新的pc平臺關系數(shù)據(jù)庫管理系統(tǒng)。它具有強大的性能、無與匹敵的速度、完整而豐富的工具、及其友好的圖形用戶界面、簡單得數(shù)據(jù)存取方式、良好的兼容性、獨一無二的跨平臺特性及真正的可編譯性，是系統(tǒng)成為目前最快、最完美的數(shù)據(jù)庫系統(tǒng)。不但兼容早期的dbase以及foxbase各種版本，同時還提供了許多基于windows的嶄新功能。Visual foxpro作為具有windows95兼容標志的應用軟件，具有快速開發(fā)應用程序、面向對象和客戶機/服務器的強大

5、功能，它是多年來出現(xiàn)在關系數(shù)據(jù)庫方面最重要的產(chǎn)品。 Microsoft visual foxpro是一個32位的數(shù)據(jù)庫開發(fā)系統(tǒng)，可運行于window98和windowsxp操作系統(tǒng)。Visual foxpro既具有visual系列的功能強大、直觀易用、面向對象等優(yōu)點，又兼具windows和foxpro的長處。提供了“向導”、“設計器”和“生成器”等工具，使的數(shù)據(jù)庫的管理工作變的容易。Visual foxpro的易用性使初學者和那些想避免涉及foxpro復雜命令的人能很快用它來管理自己的數(shù)據(jù)庫，制作各種報表、標簽等；增添的面向對象的編程方式等新特色，使它成為應用程序開發(fā)人員強有力的工具；正是由于

6、其易用性、先進性和廣泛性，使visual foxpro真正做到了面向各種水平的用戶。（1） 簡單，易學，易用快速完成應用任務 Visual Foxpro6.0提供了向導，生成器和設計器三種工具，這三種工具都使用圖形交互界面方式，使用戶能夠最簡單而又最快速地完成數(shù)據(jù)操作任務。 例如：此學籍管理系統(tǒng)中的各項數(shù)據(jù)輸入的表單就是用表單向導和生成器來制作的。使用方便的工具欄 象許多其他Microsoft產(chǎn)品一樣，Visual Foxpro6.0也給用戶提供了使用方便的工具欄，工具欄里有許多按鈕，他們代表著菜單里的某些選項。一般來說，用戶經(jīng)常執(zhí)行的操作或使用的對象多對應一個按鈕，用戶可以通過選擇這些按鈕方

7、便而迅速地完成操作，而不必通過菜單選項。不編程而建立應用程序界面 Visual Foxpro6.0提供的窗體設計器是一種功能強大的工具，用戶能夠不編程或使用很少的代碼來實現(xiàn)友好的交互式應用程序界面以及對界面的控制。例如；用戶可以用柵格控制很容易地建立一對多的窗體；用戶只需把一個數(shù)據(jù)表拖到一個窗體上就可以了。也可以利用頁格式控件來建立有標簽的對話框話或用戶自己的生成器界面。用項目管理器統(tǒng)一界面 Visual Foxpro6.0提供的另一高效易用的工具是項目管理器。通過項目管理器，用戶可以集中地管理數(shù)據(jù)，文檔，類庫，源代碼等各種資源。例如用戶可以建立和更新數(shù)據(jù)庫，設計或改變窗體和報表，定義或改變類

8、庫，生成或重新生成自己的應用程序。另外，用戶也可以在項目管理器中使用Visual Foxpro6.0提供的簡單而有效的其他工具，如向導，生成器，工具欄等。所有這些，使用戶能夠對工作進行集中管理而又簡單有效。（2）功能更強大 Visual Foxpro6.0比以前的數(shù)據(jù)庫管理系統(tǒng)具有更強大的功能。它通過使用快速查詢技術和對系統(tǒng)的優(yōu)化而使用戶最大限度地體會到Visual Foxpro6.0快速而又功能強大的優(yōu)點。具有面向對象編程的能力 Visual Foxpro6.0在支持標準的Xbase傳統(tǒng)編程方式的同時，也提供了完全的面向對象編程的能力。在Visual Foxpro6.0的對象模式下，用戶可以

9、利用所有的面向對象編程特性，這些特性包括繼承，封裝，多態(tài)性以及分類，他們都作為用戶所熟悉的Xbase編程語言的擴展集而實現(xiàn)。 最優(yōu)化系統(tǒng) Visual Foxpro6.0能通過優(yōu)化用戶的實際來提高自身的性能。在所有的優(yōu)化措施中，做有效的方法是盡可能多地增加用戶的擴展內(nèi)存或減少被其他程序所占用的內(nèi)存。其余的提高Visual Foxpro6.0性能的措施包括加快啟動速度和優(yōu)化設置指令。使用快速查詢技術 快速查詢技術是一種專用的數(shù)據(jù)查詢技術，他能夠迅速從數(shù)據(jù)庫中選擇出一組滿足用戶要求的記錄。使用這種即使能將數(shù)據(jù)查詢所需的時間大大縮短，這樣可以極大的提高數(shù)據(jù)查詢效率?？梢暬幊碳夹g Visual fo

10、xpro用于visual c+、visual basic同樣的編程技術，這是他取名為Visual foxpro的原因?？梢暬幊碳夹g給人一種所見即所的的感受，在您編輯屏幕表單、報表、菜單時，可以直接運行，不必來回調(diào)試，極為方便。新增許多命令和函數(shù)，功能大大加強，sql語句更加豐富 增加了7種新的字段類型：整型、貨幣型、日期時間型、雙精度型、通用型、二進制型和二進制備注型。在結構化的復合索引中可以建立4種類型的索引：主索引、候選索引、普通索引和唯一索引。 允許在表中使用空值null，以保證與采用sql標準的數(shù)據(jù)庫管理系統(tǒng)的兼容和數(shù)據(jù)共享。用32位方式Visual foxpro使用32位方式，其運

11、算速度、存儲能力大大提高。第二章 系統(tǒng)分析2.1.用戶需求要設計一個性能良好的管理系統(tǒng)，明確用戶的應用環(huán)境對系統(tǒng)的要求是首要的和基本的。本系統(tǒng)從以下四個方面對用戶需求進行了分析：用戶的信息需求：能查詢班級信息、學生基本信息、課程信息、學生成績及補考信息。用戶的處理要求：要能錄入班級信息、學生基本信息、學生注冊登記、對專業(yè)或班級的課程設置、課程信息、學生成績錄入與修改查詢、補考成績錄入修改查詢等。對系統(tǒng)的適應性要求：要求系統(tǒng)能夠不受未來課程設置變化的影響及班級變動的影響，仍能照常使用。對系統(tǒng)的安全性要求，要求進入系統(tǒng)必須進行口令校驗。2.2系統(tǒng)設計思想1、 采用現(xiàn)有的資源，先進的管理系統(tǒng)開發(fā)方案

12、，充分利用學?，F(xiàn)有的資源，減少開發(fā)中的時間和財力、物力、提高系統(tǒng)開發(fā)的水平和應用效果。2、 系統(tǒng)就滿足學校的需求，例如學生信息的錄入、查詢、更新等。學生錄入與排名。3、 系統(tǒng)就具備數(shù)據(jù)庫維護功能，及時根據(jù)用戶需求進行數(shù)據(jù)添加、刪除、修改等操作。2.3系統(tǒng)設計分析 其功能主要分為四大類： 課程管理：用于對各學期課程的開設和修改。 成績管理：用于對成績的輸入、修改、匯總及排名。班級管理：用于對班級的錄入與修改。打印功能：用于打印所需數(shù)據(jù)。 本系統(tǒng)性能力求易于使用，具體有較高的擴展性和可維護性。2.4系統(tǒng)功能分析 錄入功能：為一般用戶提供相應的錄入功能，為超級用戶提供對所有信息的錄入功能。查詢功能：

13、為所有用戶提供查詢的功能，可查詢允許范圍內(nèi)的所有信息。維護功能：為一般用戶提供查詢及相應的修改，刪除功能，為用戶提供對所有信息的修改刪除功能。打印功能：能打印全校學生的信息及積各班信息，科目成績等。退出功能：結束并關閉系統(tǒng)。2.5組織結構調(diào)查 采用本學籍管理系統(tǒng)的青島濱海職業(yè)技術學院實行校長負責制，學校教務對日常教學、財務后勤、學生管理工作實施管理，向校長負責。學校共設教務科、學生科、財務科、辦公室等部門，各科室科長、主任分別對所屬部門進行管理。要求系統(tǒng)能夠對學校的教學計劃、教學安排、師資管理、成績管理、學生學籍管理等方面的信息提供存貯、更新、查詢、統(tǒng)計等功能。學校教務處學生科財務處辦公室2.

14、6 數(shù)據(jù)流程調(diào)查數(shù)據(jù)流程分析是把數(shù)據(jù)在組織內(nèi)部的流動情況抽象地獨立出來,舍去了具體的組織機構,信息載體,物質,材料等,以發(fā)現(xiàn)和解決數(shù)據(jù)流中的問題為目的,一個暢通的數(shù)據(jù)流程是目標系統(tǒng)實現(xiàn)業(yè)務處理過程的基礎。由招生辦將錄取的新生名單輸入學籍管理系統(tǒng)，進行學籍管理，生成相應的學生資料報表交于教育部進行督察，同時將畢業(yè)生的學籍資料轉給相應的用人單位，進行核查。對招生辦提供的學生名單進行相應的信息錄入管理，教師提供的學生成績單進行成績管理，并將成績進行信息錄入操作，生成的成績單存儲于學生學籍表中，并交給教務進行管理。教務對課程進行安排，安排的課程表單進行課程管理，并存入學籍表中，進行統(tǒng)一管理，學校領導對

15、學校系統(tǒng)中存儲的信息進行查詢，學生所需的成績等單據(jù)可以通過學生處查詢并打印輸出。整個系統(tǒng)由管理員進行錄入，修改，查詢，管理。管理員學籍管理教育部用人單位招生辦管理員信息新生名單報表畢業(yè)生情況招生辦信息錄入管理教育部用人單位 P1成績管理 P2F1學籍表教師課程管理 P3教務處學生處打印輸出 P4管理員領導 數(shù)據(jù)查詢考試成績錄入管理員信息新生名單報表畢業(yè)生情況成績單成績單學籍注冊課程列表課程列表數(shù)據(jù)表數(shù)據(jù)表數(shù)據(jù)表數(shù)據(jù)表招生辦學生信息錄入P1.1F1學籍表班級信息錄入P1.2P1.3注冊登記P4領導新生名單報表學籍注冊班級信息表注冊信息學生情況表教師P2.1分析考試成績學生F1學籍表P2.2分析一

16、次補考成績P2.3分析二次補考成績P4成績修改P2.4領導考試成績考試成績單二次補考成績單單一次補考成績單教師P2.1分析考試成績學生F1學籍表P2.2分析一次補考成績P2.3分析二次補考成績P4成績修改P2.4領導考試成績考試成績單二次補考成績單單一次補考成績單領導P4.1學生注冊查詢P1P4.2成績查詢P4.3課程設置查詢P3P2學生處P5.1課程表打印P3P5.2通訊錄打印P5.3注冊名單打印P1P5.4成績單打印P2空白成績單打印P5.5課程列表學生情況表 注冊信息考試成績單空白成績單2.7數(shù)據(jù)字典表2-7-1數(shù)據(jù)項描述數(shù)據(jù)項名：學號別名：Student-No簡述：存儲每個學生不同科目

17、的考試成績簡要說明：本校學生編碼類型及長度：數(shù)字型，7位數(shù)據(jù)值類型：（連續(xù)/離散）離散 表 2-7-2數(shù)據(jù)結構描述 數(shù)據(jù)結構名：學籍表單簡述： 存儲學生學籍信息的表單數(shù)據(jù)結構組成：學號+姓名+出生日期+班級編號+入學時間+政治面貌+英語等級+身份證號稱+聯(lián)系電話+QQ+Email 表2-7-3數(shù)據(jù)處理描述處理邏輯名：注冊登記加工編號：1.3簡要描述：根據(jù)學生手冊進行注冊 輸入數(shù)據(jù)流: 有效注冊通知，學生手冊，招生計劃輸出數(shù)據(jù)流: 注冊學生加工名：學生信息錄入加工編號：1.1簡要描述：能夠對學生基本學籍信息進行記錄存儲輸入數(shù)據(jù)流：新生名單，學生學籍檔案輸出數(shù)據(jù)流:學生檔案 加工名：班級課程設置加

18、工編號：3.2簡要描述：班級課程的設置存儲輸入數(shù)據(jù)流:班級編號，學期輸出數(shù)據(jù)流:課程名稱，講授學時，上課學時，授課老師加工名：注冊名單打印加工編號：5.3簡要描述：對用戶所需的注冊名單進行打印輸入數(shù)據(jù)流:注冊信息輸出數(shù)據(jù)流:注冊名單表2-7-4數(shù)據(jù)存儲描述數(shù)據(jù)存儲名：一次補考成績簡述：存儲每個不及格學生不同科目的補考成績文件組成：編號，學期，課程名稱，補考原因 ，分數(shù)數(shù)據(jù)存儲名：二次補考成績簡述：存儲每個不及格學生不同科目的二次補考成成績文件組成：編號，學期，課程名稱，二次補考原因，分數(shù)表2-7-5數(shù)據(jù)流描述數(shù)據(jù)流名：考試成績單簡述：存儲每個學生不同科目的考試成績文件組成：編號，學期，課程名稱

19、數(shù)據(jù)流名：學生名單簡述：對在校學生的姓名記錄組成：姓名+性別+民族+籍貫+出生日期+高考成績+新生類別+系+專業(yè)+年級+學制+政治面貌+聯(lián)系電話+家庭地址數(shù)據(jù)流名：課程表單簡述： 存儲了不同課程的表單文件組成：課程編號+課程名稱表2-7-6外部實體描述外部實體名：學生簡述： 接受教育的實體輸入數(shù)據(jù)流:成績單外部實體名：教務處簡述： 對于學校的教學計劃進行安排輸入數(shù)據(jù)流:教學計劃第三章：系統(tǒng)設計3.1學籍管理中所涉及到的主要實體集及其屬性1、班級班級編號，班級名稱，專業(yè)代碼，學制，收費金額，班主任姓名，入學時間；2、班級課程班級編號，學期，課程名稱，講授學時，上機學時，講授教師；3、補考學號，學

20、期，課程名稱，補考1，補考2，原因，未到原因；4、成績信息學號、學期、課程名稱、成績；5、學生基本信息學號，姓名，性別，出生日期，政治面貌，身份證號，班級編號，入學時間，QQ號碼、聯(lián)系電話、e_mail地址、英語等級6、教學計劃專業(yè)代碼，學期，課程編號；7、注冊學號、學年、注冊否；8、課程信息課程編號，課程名稱；9、專業(yè)信息專業(yè)代碼、專業(yè)名稱3.2 功能模塊設計軟件所實現(xiàn)的功能強弱是衡量一個軟件的最根本的標準。經(jīng)過對系統(tǒng)的分析、及數(shù)據(jù)庫設計后，確定了本子系統(tǒng)的功能模塊如圖所示。學籍管理系統(tǒng)登錄信息錄入課程管理成績管理數(shù)據(jù)查詢教學計劃設置班級課程設置專業(yè)名稱設置學生注冊查詢學生成績查詢課程設置查

21、詢學生基本情況學生注冊登記課程名稱設置班級課程表學生通訊錄學生注冊情況成績通知單退 出打印輸出 班級名單錄入補考成績查詢補考不及格查詢按學號查詢按班級查詢學生成績錄入第一次補考第二次補考學生成績修改第四章 學籍管理系統(tǒng)的實現(xiàn)及編碼4.1、主程序先建一個項目管理器，命名為“學籍管理.pjx”。按照前面幾章系統(tǒng)分析及設計的結果，建立一個名稱為“學籍庫.dbc”的數(shù)據(jù)庫并添加系統(tǒng)所涉及的各個表。然后根據(jù)功能模塊結構設計的結果建立一個菜單，并設置相應的菜單項的單擊事件。再建立一個主控程序，命名為“主程序.prg”。主界面密碼:yuping主程序.prg的代碼如下：_SCREEN.WINDOWSTATE

22、=2 _SCREEN.CAPTION=學籍管理系統(tǒng) _SCREEN.CONTROLBOX=.F. _SCREEN.BACKCOLOR=RGB(50,100,128) SET SYSMENU OFF SET TALK OFF SET SAFETY OFF SET STATUS BAR OFF DO FORM 封面 TO NUM IF NUM DO 菜單.mpx READ EVENT ENDIF4.2、系統(tǒng)密碼校驗模塊（即封面.scx）1、流程圖：開始提示 輸入密碼輸入 密碼密碼 正確嗎？進入學籍管理系統(tǒng)顯示錯誤錯誤超過3次N退出登錄YNY2、 程序界面設計：3、相關代碼如下：（確認按鈕）REST

23、OR FROM PASS1.MEM ADDI LOCAL MM1,MM2 MM1=PASS1MM2=THISFORM.TEXT1.VALUESET EXACT ON IF ALLT(MM1)=ALLT(MM2) THISFORM.CONT=.T. THISFORM.RELEASE CLEA ELSE THISFORM.CONT=.F. THISFORM.NO=THISFORM.NO+1 =MESSAGEBOX(密碼錯誤！,48+0+0,錯誤) IF THISFORM.NO=3 =MESSAGEBOX(三次密碼錯誤，將自動退出程序！,4+16+2,退出) THISFORM.COMMAND2.CL

24、ICK ENDIF THISFORM.TEXT1.VALUE= THISFORM.TEXT1.SETFOCUS CLEA ENDIFSET EXACT OFF （取消按鈕）THISFORM.RELEASE CLOSE ALL 4.3、菜單設計運行結果如下：相關代碼如下：退出： ?CHR(7)RE=MESSAGEBOX(是否退出學籍管理系統(tǒng)?,4+32+256,信息窗口)IF RE=6CLEAR EVENT ENDIF班級名單錄入：DO FORM 班級信息 學生基本情況：DO FORM 基本情況 學生注冊登記：DO FORM 注冊 4.4、信息錄入模塊1、界面設計：2、相關代碼如下：（添加按鈕）

25、THIS.CAPTION=繼續(xù) Thisform.班級編號1.VALUE=SPACE(3) Thisform.班級名稱1.VALUE=SPACE(6) Thisform.專業(yè)代碼1.VALUE=07070 Thisform.學制1.VALUE=3 Thisform.收費金額1.VALUE=1800.00 Thisform.班主任名1.VALUE=SPACE(8) Thisform.入學時間1.VALUE=CTOD(/) Thisform.班級編號1.ENABLED=.T. Thisform.班級名稱1.ENABLED=.T. Thisform.專業(yè)代碼1.OPTION1.ENABLED=.T.

26、 Thisform.專業(yè)代碼1.OPTION2.ENABLED=.T. Thisform.專業(yè)代碼1.OPTION3.ENABLED=.T. Thisform.專業(yè)代碼1.OPTION4.ENABLED=.T. Thisform.專業(yè)代碼1.ENABLED=.T. Thisform.收費金額1.ENABLED=.T. Thisform.班主任名1.ENABLED=.T. Thisform.入學時間1.ENABLED=.T. THISFORM.班級編號1.SETFOCUS THIS.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. THISFORM.COMMAN

27、D3.ENABLED=.T. THISFORM.COMMAND4.ENABLED=.F. THISFORM.REFRESH （撤消按鈕）?CHR(7)RESULT=MESSAGEBOX(是否確認放棄添加？,4+48+256,信息窗口) IF RESULT=6Thisform.班級編號1.ENABLED=.F.Thisform.班級名稱1.ENABLED=.F.Thisform.專業(yè)代碼1.OPTION1.ENABLED=.F.Thisform.專業(yè)代碼1.OPTION2.ENABLED=.F.Thisform.專業(yè)代碼1.OPTION3.ENABLED=.F.Thisform.專業(yè)代碼1.OP

28、TION4.ENABLED=.F.Thisform.專業(yè)代碼1.ENABLED=.F.Thisform.學制1.ENABLED=.F. Thisform.收費金額1.ENABLED=.F.Thisform.班主任名1.ENABLED=.F.Thisform.入學時間1.ENABLED=.F. THIS.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND3.ENABLED=.F. THISFORM.COMMAND4.ENABLED=.T. THISFORM.REFRESH ENDIF (確認按鈕)IF EMPTY(THISFORM

29、.班級編號1.VALUE) =MESSAGEBOX(班級編號不能為空,請重新輸入!,48+0+0,警告) THISFORM.班級編號1.SETFOCUS ELSE IF EMPTY(THISFORM.班級名稱1.VALUE)=MESSAGEBOX(班級名稱不能為空,請重新輸入!,48+0+0,警告) THISFORM.班級名稱1.SETFOCUS ELSE IF EMPTY(THISFORM.入學時間1.VALUE) =MESSAGEBOX(入學時間不能為空,請重新輸入!,48+0+0,警告) THISFORM.入學時間1.SETFOCUS ELSE SELE BJ APPE BLAN REP

30、L BJ.班級編號 WITH THISFORM.班級編號1.VALUE REPL BJ.班級名稱 WITH THISFORM.班級名稱1.VALUE REPL BJ.專業(yè)代碼 WITH THISFORM.專業(yè)代碼1.VALUE REPL BJ.學制 WITH THISFORM.學制1.VALUE REPL BJ.收費金額 WITH THISFORM.收費金額1.VALUE REPL BJ.班主任名 WITH THISFORM.班主任名1.VALUE REPL BJ.入學時間 WITH THISFORM.入學時間1.VALUE Thisform.班級編號1.ENABLED=.F. Thisfor

31、m.班級名稱1.ENABLED=.F. Thisform.專業(yè)代碼1.OPTION1.ENABLED=.F. Thisform.專業(yè)代碼1.OPTION2.ENABLED=.F. Thisform.專業(yè)代碼1.OPTION3.ENABLED=.F. Thisform.專業(yè)代碼1.OPTION4.ENABLED=.F. Thisform.專業(yè)代碼1.ENABLED=.F. Thisform.學制1.ENABLED=.F. Thisform.收費金額1.ENABLED=.F. Thisform.班主任名1.ENABLED=.F. Thisform.入學時間1.ENABLED=.F. THIS.EN

32、ABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. THISFORM.COMMAND4.ENABLED=.T. THISFORM.REFRESH ENDIF ENDIFENDIF（退出按鈕）?CHR(7)RESULT=MESSAGEBOX(是否退出?,4+32+256,信息) IF RESULT=6 THISFORM.RELEASE ENDIF4.5、修改密碼（代碼）（確認按鈕）RESTO FROM PASS1.MEM ADDI LOCAL MM1,MM2 MM1=PASS1MM2=THISFORM.TEX

33、T1.VALUESET EXACT ON IF ALLT(MM1)ALLT(MM2) THISFORM.NO=THISFORM.NO+1 =MESSAGEBOX(原密碼錯誤！,48+0+0,錯誤) IF THISFORM.NO=3 =MESSAGEBOX(三次密碼錯誤，將自動退出修改！,4+16+2,退出) THISFORM.COMMAND2.CLICK ENDIF THISFORM.TEXT1.VALUE= THISFORM.TEXT2.VALUE= THISFORM.TEXT1.SETFOCUS ELSE PASS1=THISFORM.TEXT2.VALUE SAVE TO PASS1.M

34、EM ALL LIKE PASS1 =MESSAGEBOX(密碼修改成功！,48+0+0,恭喜) THISFORM.RELEASE ENDIFSET EXACT OFF 4.6、學生注冊查詢1、界面設計：2、相關代碼：（開始查詢按鈕）THIS.CAPTION=繼續(xù)查詢THISFORM.COMBO1.VALUE=THISFORM.COMBO2.VALUE=THISFORM.TEXT1.VALUE=0THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0THISFORM.TEXT4.VALUE=0THISFORM.LIST1.ROWSOURCE=THISFORM.

35、COMBO1.ENABLED=.T.THISFORM.COMBO2.ENABLED=.T.THISFORM.COMBO1.SETFOCUSTHISFORM.REFRESH4.7、學生補考查詢1、界面設計：2、相關代碼：（開始查詢按鈕）IF EMPTY(THISFORM.COMBO1.VALUE) =MESSAGEBOX(請輸入班級編號!,48+0+0,信息窗口) THISFORM.COMMAND2.CLICKELSE IF EMPTY(THISFORM.COMBO2.VALUE) =MESSAGEBOX(請輸入學期!,48+0+0,信息窗口) THISFORM.COMMAND2.CLICK E

36、LSE SELE 補考成績 SET FILT TO ALLT(LEFT(學號,2)+SUBS(學號,4,1)=ALLT(BJBH).AND.ALLT(學期)=ALLT(XQ) GO TOP IF EOF() =MESSAGEBOX(沒有參加補考的學生信息!,48+0+0,信息) THISFORM.COMMAND2.CLICK ELSE THISFORM.GRID1.REFRESH THISFORM.REFRESH *IF EMPTY(THISFORM.GRID1.COLUMN4.TEXT1.VALUE) * =MESSAGEBOX(有未錄入的補考成績!,48+0+0,信息) *ENDIF TH

37、IS.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. ENDIF ENDIFENDIF4.8、打印輸出-學期課程表1、界面設計：2、相關代碼：（開始按鈕）THIS.CAPTION=繼續(xù)THISFORM.BJBH.VALUE=THISFORM.BJBH.ENABLED=.T.THISFORM.BJBH.SETFOCUS（預覽按鈕）IF EMPTY(THISFORM.BJBH.VALUE) =MESSAGEBOX(請輸入班級編號！,48+0+0,信息) THISFORM.COMMAND6.CLICKELSE SELE 班級學期課程表 SET FILT TO 班級編號=BJBH GO TOP IF EOF() =MESSAGEBOX(相關信息不存在,請先設置課程信息!,48+0+0,信息) ELS