學(xué)籍管理系統(tǒng)說明書

1、西 華 大 學(xué)課 程 設(shè) 計(jì) 書 題目 學(xué)生學(xué)籍管理系統(tǒng)（數(shù)據(jù)庫設(shè)計(jì)） 專業(yè) 機(jī)械工程與自動(dòng)化學(xué)院 班級(jí) 07級(jí)機(jī)械電子工程 姓名 劉飛 指導(dǎo)教師 周利平 本系統(tǒng)全部由VF6.0設(shè)計(jì)完成并調(diào)試通過。l 一 系統(tǒng)功能與自由表設(shè)計(jì)本系統(tǒng)是針對(duì)成教學(xué)生設(shè)計(jì)的，其功能主要如下：1） 學(xué)生基本信息管理子系統(tǒng)基本的檔案管理系統(tǒng)，涉及學(xué)生的學(xué)號(hào)、姓名、性別、民族、籍貫、出生日期等，用戶可以按各種查詢條件（學(xué)號(hào)、姓名）查詢并打印學(xué)生的基本信息。2） 學(xué)生入學(xué)管理子系統(tǒng)在這個(gè)子系統(tǒng)中，包括錄取專業(yè)、培養(yǎng)方式、所學(xué)專業(yè)、學(xué)制、交費(fèi)年度。3） 學(xué)生學(xué)籍變動(dòng)管理子系統(tǒng)在這個(gè)子系統(tǒng)中，包括學(xué)生變動(dòng)情況輸入、學(xué)生變動(dòng)情況

2、查詢等。學(xué)生變動(dòng)主要包括：轉(zhuǎn)專業(yè)、培養(yǎng)方式變化、停學(xué)等。4） 學(xué)生畢業(yè)信息管理子系統(tǒng)在本系統(tǒng)中，包括學(xué)生畢業(yè)信息錄入、學(xué)位資格初審等。5） 系統(tǒng)設(shè)置管理子系統(tǒng)在這個(gè)系統(tǒng)中，包括設(shè)置用戶權(quán)限、修改密碼、用戶注銷、數(shù)據(jù)維護(hù)、退出系統(tǒng)。本系統(tǒng)全部采用自由表，共有Student和user兩個(gè)表，表的結(jié)構(gòu)設(shè)計(jì)如下：Student.dbf 字段說明字段名類型寬度索引字段名類型寬度索引姓名字符型8培養(yǎng)方式字符型8學(xué)號(hào)字符型8學(xué)制數(shù)值型4班級(jí)字符型10學(xué)歷層次字符型4性別字符型2交費(fèi)年度日期型6民族字符型4錄取專業(yè)字符型10出身日期日期型12轉(zhuǎn)專業(yè)時(shí)間日期型6籍貫字符型10停學(xué)種類字符型8取得學(xué)籍否邏輯型2停

3、學(xué)時(shí)間日期型6何時(shí)獲學(xué)籍日期型8方式變化字符型8所學(xué)專業(yè)字符型10變化時(shí)間日期型6User.dbf字段說明字段名類型寬度索引字段名類型寬度索引Name字符型10Password字符型10 l 二、 模塊設(shè)計(jì)與編碼首先用VF提供的項(xiàng)目管理器看看系統(tǒng)的文件構(gòu)成，如圖下圖： 下面我們來看看主要的模塊及其代碼 1、系統(tǒng)登錄表單(DL)設(shè)計(jì)由上圖可知，該表單就是系統(tǒng)首先要顯示的，即為系統(tǒng)主文件。界面運(yùn)行顯示如圖：登錄界面的初始化init過程代碼為：*設(shè)置保存輸入次數(shù)的變量PUBLIC NN=1*設(shè)置當(dāng)前的操作時(shí)間THISFORM.TEXT3.VALUE=DATE()THISFORM.TEXT3.ENAB

4、LED=.F.命令按鈕“登錄”的“click”事件代碼如下：*核對(duì)用戶信息，只有合法的用戶才能夠使用該系統(tǒng)IF(N2)*輸入超過三次，系統(tǒng)拒絕進(jìn)入系統(tǒng)MESSAGEBOX(密碼輸入超過三次，不能使用本系統(tǒng)！)THISFORM.RELEASEELSE*打開用戶信息庫，把輸入的信息進(jìn)行核對(duì)USE USER.DBF*收集用戶的輸入信息TEMP1=ALLTRIM(THISFORM.TEXT1.VALUE)TEMP2=ALLTRIM(THISFORM.TEXT2.VALUE)LOCATE FOR ALLTRIM(NAME)=TEMP1.AND.ALLTRIM(PASSWORD)=TEMP2*如果是合法用

5、戶，允許進(jìn)入系統(tǒng)，否則提示用戶從新輸入IF FOUND()THISFORM.RELEASE*進(jìn)行系統(tǒng)DO FORM MAINELSE*提示用戶從新輸入MESSAGEBOX(密碼或用戶名輸入錯(cuò)誤，重新輸入！)THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=N=N+1THISFORM.TEXT1.SETFOCUSENDIFENDIF命令按鈕“退出”的“click”事件代碼如下：*退出系統(tǒng)THISFORM.RELEASE 2、系統(tǒng)初始化程序本系統(tǒng)單獨(dú)建立純代碼進(jìn)行整個(gè)系統(tǒng)的初始化工作（包括設(shè)置狀態(tài)、初始化變量、打開需要的自由表和調(diào)用登錄界面），其初始化代碼為：*系

6、統(tǒng)初始化CLEAR ALLCLOSE ALLSET SYSMENU OFFSET SYSMENU TOSET DATE ANSISET TALK OFFSET DELETED ONSET SAFETY OFF*設(shè)置窗口狀態(tài)_SCREEN.WINDOWSTATE=2*設(shè)置窗口名稱_SCREEN.CAPTION=學(xué)生學(xué)籍管理系統(tǒng)*清理用戶數(shù)據(jù)庫中的無用信息USE USER.DBFPACK*清理學(xué)生數(shù)據(jù)庫中的無用信息USE STUDENT.DBFPACKCLOSE ALL*調(diào)用登錄界面DO FORM DL 3、系統(tǒng)主界面及子界面登錄成功后，系統(tǒng)就進(jìn)入主界面，如圖主界面表單按子系統(tǒng)劃分分別采用四個(gè)按鈕

7、命令調(diào)用對(duì)應(yīng)的子系統(tǒng)。代碼依次為：*調(diào)用日常管理操作界面DO FORM SJGL*調(diào)用查詢操作界面DO FORM CHX*調(diào)用畢業(yè)管理模塊DO FORM BB*調(diào)用用戶管理界面DO FORM XTAQ下面將分別對(duì)我參與的子系統(tǒng)設(shè)計(jì)作說明： （1）數(shù)據(jù)管理界面(sjgl)圖示：界面的初始化init過程代碼為：*設(shè)置全局變量，用來傳遞數(shù)據(jù)PUBLIC XH,COM_BT*所要實(shí)現(xiàn)的按鈕COM_BT=*輸入的學(xué)號(hào)XH=命令按鈕“新生錄入”的“click”事件代碼如下：*將該表單中TEXT1控件設(shè)置為空THISFORM.TEXT1.VALUE=*設(shè)置在顯示的按鈕為增加按鈕COM_BT=APPEND_F

8、ORM*調(diào)用appe表單DO FORM APPE命令按鈕“刪除”的“click”事件代碼如下：THISFORM.TEXT1.ENABLED=.T.THISFORM.COMMAND1.ENABLED=.T.MESSAGEBOX(請(qǐng)輸入學(xué)生的學(xué)號(hào)！)COM_BT=DELETE_FORM命令按鈕“修改”的“click”事件代碼如下：*設(shè)置表單中的Text1和Command1為有效THISFORM.TEXT1.ENABLED=.T.THISFORM.COMMAND1.ENABLED=.T.MESSAGEBOX(請(qǐng)輸入學(xué)生的學(xué)號(hào)！)*設(shè)置顯示的按鈕為修改按鈕COM_BT=MODIFY_FORM命令按鈕“

9、返回”的“click”事件代碼如下：*退出系統(tǒng)THISFORM.RELEASE命令按鈕“確定”的“click”事件代碼如下：*設(shè)置Text1和Command1狀態(tài)為不可以用THISFORM.TEXT1.ENABLED=.F.THISFORM.COMMAND1.ENABLED=.F.*保存輸入的學(xué)號(hào)XH=ALLTRIM(THISFORM.TEXT1.VALUE)*調(diào)用APPE表單DO FORM APPE下面將說明調(diào)用頻繁的APPE表單 即數(shù)據(jù)管理窗口的界面設(shè)計(jì)和功能實(shí)現(xiàn)設(shè)計(jì)時(shí)界面：代碼：首先看其Init Event :*如果輸入的學(xué)籍為空，則表示增加新的學(xué)籍IF EMPTY(XH)*將表單設(shè)置成

10、為增加新新記錄的表單THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=THISFORM.TEXT4.VALUE=THISFORM.TEXT5.VALUE=THISFORM.TEXT6.VALUE=THISFORM.COMBO1.VALUE=THISFORM.COMBO2.VALUE=THISFORM.TEXT7.VALUE=THISFORM.COMBO4.VALUE=ELSE*查找輸入學(xué)號(hào)的記錄USE STUDENT.DBFLOCATE FOR ALLTRIM(學(xué)號(hào))=ALLTRIM(XH)IF FOUND()*如果找

11、到將信息在表單中顯示THISFORM.TEXT1.VALUE=ALLTRIM(姓名)THISFORM.TEXT1.ENABLED=.F.THISFORM.COMBO1.VALUE=ALLTRIM(性別)THISFORM.COMBO1.ENABLED=.F.THISFORM.COMBO2.VALUE=ALLTRIM(民族)THISFORM.COMBO2.ENABLED=.F.THISFORM.TEXT2.VALUE=出生日期THISFORM.TEXT2.ENABLED=.F.THISFORM.TEXT3.VALUE=ALLTRIM(班級(jí))THISFORM.TEXT3.ENABLED=.F.THI

12、SFORM.TEXT4.VALUE=ALLTRIM(學(xué)號(hào))THISFORM.TEXT4.ENABLED=.F.THISFORM.TEXT7.VALUE=ALLTRIM(籍貫)THISFORM.TEXT7.ENABLED=.F.THISFORM.TEXT5.VALUE=ALLTRIM(何時(shí)獲學(xué)籍)THISFORM.TEXT5.ENABLED=.F.THISFORM.TEXT6.VALUE=ALLTRIM(所學(xué)專業(yè))THISFORM.TEXT6.ENABLED=.F.THISFORM.COMBO3.VALUE=取得學(xué)籍否THISFORM.COMBO3.ENABLED=.F.THISFORM.COM

13、BO4.VALUE=培養(yǎng)方式THISFORM.COMBO4.ENABLED=.F.ELSE*沒有找到提示沒有此人MESSAGEBOX(沒有找到此人！)ENDIFTHISFORM.COMMAND1.ENABLED=.F.ENDIF*將功能按鈕狀態(tài)設(shè)置為不可用THISFORM.COMMAND1.VISIBLE=.F.THISFORM.COMMAND2.VISIBLE=.F.THISFORM.COMMAND3.VISIBLE=.F.THISFORM.COMMAND4.VISIBLE=.F.*根據(jù)用戶的選擇來顯示相應(yīng)的按鈕DO CASECASE COM_BT=APPEND_FORM*增加功能 THIS

14、FORM.COMMAND1.VISIBLE=.T.CASE COM_BT=DELETE_FORM*刪除功能 THISFORM.COMMAND3.VISIBLE=.T.CASE COM_BT=MODIFY_FORM*修改功能 THISFORM.COMMAND2.VISIBLE=.T. THISFORM.COMMAND4.VISIBLE=.T.ENDCASE學(xué)號(hào)“添加”按鈕的“click”事件代碼如下：*追加一條新記錄APPEND BLANK*將表單中輸入的信息保存到學(xué)籍信息庫中REPLACE 姓名 WITH THISFORM.TEXT1.VALUEREPLACE 性別 WITH THISFORM

15、.COMBO1.VALUEREPLACE 民族 WITH THISFORM.COMBO2.VALUEREPLACE 出生日期 WITH THISFORM.TEXT2.VALUEREPLACE 班級(jí) WITH THISFORM.TEXT3.VALUEREPLACE 學(xué)號(hào) WITH THISFORM.TEXT4.VALUEREPLACE 籍貫 WITH THISFORM.TEXT7.VALUEREPLACE 何時(shí)獲學(xué)籍 WITH THISFORM.TEXT5.VALUEREPLACE 所學(xué)專業(yè) WITH THISFORM.TEXT6.VALUEREPLACE 培養(yǎng)方式 WITH THISFORM.

16、COMBO4.VALUEREPLACE 取得學(xué)籍否 WITH THISFORM.COMBO3.VALUEMESSAGEBOX(添加完成！)學(xué)號(hào)“修改”按鈕的“click”事件代碼如下：THISFORM.TEXT1.ENABLED=.T.THISFORM.COMBO1.ENABLED=.T.THISFORM.COMBO2.ENABLED=.T.THISFORM.TEXT2.ENABLED=.T.THISFORM.TEXT3.ENABLED=.T.THISFORM.TEXT4.ENABLED=.T.THISFORM.TEXT5.ENABLED=.T.THISFORM.TEXT6.ENABLED=.

17、T.THISFORM.COMBO3.ENABLED=.T.THISFORM.COMBO4.ENABLED=.T.學(xué)號(hào)“刪除”按鈕的“click”事件代碼如下：*刪除查找到的記錄DELETE PACKMESSAGEBOX(刪除成功！)學(xué)號(hào)“確定”按鈕的“click”事件代碼如下：*保存修改的結(jié)果REPLACE 姓名 WITH THISFORM.TEXT1.VALUEREPLACE 性別 WITH THISFORM.COMBO1.VALUEREPLACE 民族 WITH THISFORM.COMBO2.VALUEREPLACE 出生日期 WITH THISFORM.TEXT2.VALUEREPLA

18、CE 班級(jí) WITH THISFORM.TEXT3.VALUEREPLACE 學(xué)號(hào) WITH THISFORM.TEXT4.VALUEREPLACE 籍貫 WITH THISFORM.TEXT7.VALUEREPLACE 何時(shí)獲學(xué)籍 WITH THISFORM.TEXT5.VALUEREPLACE 所學(xué)專業(yè) WITH THISFORM.TEXT6.VALUEREPLACE 培養(yǎng)方式 WITH THISFORM.COMBO4.VALUEREPLACE 取得學(xué)籍否 WITH THISFORM.COMBO3.VALUEMESSAGEBOX(你已經(jīng)修改成功！) （2）系統(tǒng)安全界面(xtaq)設(shè)計(jì)時(shí)圖示

19、：運(yùn)行時(shí)圖示：代碼：界面的init event 代碼：*對(duì)系統(tǒng)進(jìn)行初始化，將所有控件的狀態(tài)設(shè)置為不可用THISFORM.TEXT1.ENABLED=.F.THISFORM.TEXT2.ENABLED=.F.THISFORM.LABEL2.ENABLED=.F.THISFORM.LABEL3.ENABLED=.F.THISFORM.COMMAND1.ENABLED=.F.THISFORM.COMMAND2.ENABLED=.F.THISFORM.COMMAND3.ENABLED=.F.THISFORM.COMMAND1.VISIBLE=.F.THISFORM.COMMAND2.VISIBLE=.

20、F.THISFORM.COMMAND3.VISIBLE=.F.THISFORM.COMMAND4.VISIBLE=.F.命令按鈕“增加新用戶”的“click”事件代碼如下：*將界面設(shè)置成為添加新用戶THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=*設(shè)置按鈕狀態(tài)THISFORM.COMMAND1.ENABLED=.T.THISFORM.COMMAND1.VISIBLE=.T.*設(shè)置標(biāo)簽狀態(tài)THISFORM.LABEL2.ENABLED=.T.THISFORM.LABEL3.ENABLED=.T.*設(shè)置文本框狀況THISFORM.TEXT1.ENABLED=.T

21、.THISFORM.TEXT2.ENABLED=.T.*設(shè)Text1為輸入框THISFORM.TEXT1.SETFOCUS點(diǎn)擊“增加新用戶”按鈕后將出現(xiàn)“確定”按鈕，輸入新用戶用戶名和密碼后點(diǎn)擊“確定”按鈕的“click”事件代碼如下：*完成添加功能USE USER.DBF*插入新記錄APPEND BLANK*將用戶的輸入信息保存到用戶信息庫中REPLACE NAME WITH ALLTRIM(THISFORM.TEXT1.VALUE)REPLACE PASSWORD WITH ALLTRIM(THISFORM.TEXT2.VALUE)USE*將表單設(shè)置成初始狀態(tài)THISFORM.TEXT1.

22、VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT1.ENABLED=.F.THISFORM.TEXT2.ENABLED=.F.THISFORM.COMMAND1.VISIBLE=.F.THISFORM.LABEL2.ENABLED=.F.THISFORM.LABEL3.ENABLED=.F.命令按鈕“查找”的“click”事件代碼如下：*將表單設(shè)置成為查找界面*將兩個(gè)Lable控件狀態(tài)設(shè)置成可用THISFORM.LABEL1.ENABLED=.T.THISFORM.LABEL2.ENABLED=.T.*將Text1控件設(shè)置成可用THISFORM.TEXT1.EN

23、ABLED=.T.THISFORM.TEXT1.SETFOCUS*將查找按鈕設(shè)置成可用和可見THISFORM.COMMAND2.VISIBLE=.T.THISFORM.COMMAND2.ENABLED=.T.*將兩個(gè)Text控件的值設(shè)置為空值THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=點(diǎn)擊“查找”按鈕后將出現(xiàn)另一個(gè)“查找”按鈕，輸入要查找的信息后，點(diǎn)擊將執(zhí)行以下代碼：*查找功能USE USER.DBF*查找用戶輸入的信息LOCATE FOR ALLTRIM(NAME)=ALLTRIM(THISFORM.TEXT1.VALUE)IF FOUND()*如果找

24、到在表單中顯示THISFORM.TEXT1.VALUE=NAMETHISFORM.TEXT2.VALUE=PASSWORDELSE*如果沒有找到提示用戶MESSAGEBOX(查無此用戶！)THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=ENDIFUSE*恢復(fù)表單的初始化狀態(tài)THISFORM.TEXT1.ENABLED=.F.THISFORM.TEXT2.ENABLED=.F.THISFORM.LABEL2.ENABLED=.F.THISFORM.LABEL3.ENABLED=.F.THISFORM.COMMAND2.VISIBLE=.F.命令按鈕“修改”的“click”事件代碼如下：*將表單設(shè)置成修改界面*將將兩個(gè)Lable控件的狀態(tài)設(shè)置成可用THISFORM.TEXT1.ENABLED=.T.THISFORM.TEXT2.ENABLED=.T.*將Command3的狀態(tài)設(shè)置