學(xué)籍管理系統(tǒng)文檔

學(xué)籍管理信息系統(tǒng)摘要：學(xué)校教務(wù)具有信息繁雜而且信息量大，相關(guān)制約因素很多的特點(diǎn)，因此實(shí)現(xiàn)起來比較困難。本系統(tǒng)設(shè)計(jì)了學(xué)籍管理系統(tǒng)中的五個(gè)模塊，這五個(gè)模塊是教師管理模塊，學(xué)生管理模塊，成績管理模塊，機(jī)構(gòu)管理模塊，教務(wù)管理模塊?？傊撓到y(tǒng)具有高效、易操作、易維護(hù)等特點(diǎn)，而且系統(tǒng)結(jié)構(gòu)清晰、界面友好，功能較齊全，能有效的協(xié)助學(xué)校學(xué)籍管理工作。關(guān)鍵字：學(xué)籍管理設(shè)計(jì)目錄：一、選題背景21、課題來源2、課題目的與意義3、需要解決的問題及技術(shù)要求4、設(shè)計(jì)指導(dǎo)思想二、可行性分析31、技術(shù)可行性2、經(jīng)濟(jì)可行性3、環(huán)境可行性4、進(jìn)度可行性三、系統(tǒng)需求分析31、組織結(jié)構(gòu)分析2、管理功能分析3、業(yè)務(wù)流程分析4、數(shù)據(jù)流程分析四、系統(tǒng)設(shè)計(jì)41、總體結(jié)構(gòu)設(shè)計(jì)2、輸入與輸出設(shè)計(jì)3、人機(jī)對話4、處理流程設(shè)計(jì)5、數(shù)據(jù)庫設(shè)計(jì)五、系統(tǒng)實(shí)現(xiàn)81、登陸界面2、查詢界面3、還書界面4、新書入庫界面5圖書資料查詢界面6圖書詳細(xì)信息查看界面7學(xué)生管理界面六、系統(tǒng)測試17七、系統(tǒng)評價(jià)18八、參考文獻(xiàn)一、選題背景現(xiàn)今高校的教務(wù)管理中，由于教師及學(xué)生人數(shù)眾多，有很多不便。為了降低教務(wù)管理人員的工作強(qiáng)度，提高工作效率，有效管理教師和學(xué)生的信息以及院系和班級設(shè)置情況的信息。需要開發(fā)一套信息管理系統(tǒng)以協(xié)助教務(wù)管理人員掌握學(xué)校老師、學(xué)生及學(xué)院的基本情況。系統(tǒng)的使用對象是教務(wù)處工作人員。二、可行性分析（一）技術(shù)可行性分析本系統(tǒng)是以VB6.0為應(yīng)用開發(fā)工具，Microsoftaccess為數(shù)據(jù)庫管理系統(tǒng)的信息管理系統(tǒng)。VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。MicrosoftAccess是微軟公司推出的給予Windows的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)（RDBMS），是Office系列應(yīng)用軟件之一。它是一個(gè)功能強(qiáng)大而且使用方便的數(shù)據(jù)庫管理系統(tǒng)，為中小型數(shù)據(jù)庫提供了良好的創(chuàng)建環(huán)境。另外，圖書管理系統(tǒng)越來越多地被應(yīng)用，便于開發(fā)時(shí)的借鑒。因此，本系統(tǒng)具有技術(shù)上的可行性。（二）經(jīng)濟(jì)可行性分析從成本的角度考慮，包括系統(tǒng)的初始成本（各種軟、硬件級輔助設(shè)備的購置和機(jī)房及附屬設(shè)施費(fèi)用），日常維護(hù)費(fèi)用（系統(tǒng)維護(hù)，人員費(fèi)用，運(yùn)行費(fèi)用等）但由于系統(tǒng)較簡單，面向?qū)ο髥我?，只有管理員和學(xué)生，較好管理，中間費(fèi)用消耗少；從收益角度考慮，主要考慮無形效益，通過系統(tǒng)的運(yùn)行，使學(xué)生更好更多地學(xué)到知識，使管理員的工作更加高效輕松，提高了整個(gè)圖書館的使用價(jià)值。因此，本系統(tǒng)具有經(jīng)濟(jì)上的可行性。（三）環(huán)境可行性分析現(xiàn)在社會(huì)是信息的時(shí)代，而信息的各種特點(diǎn)決定了需要有專門的信息系統(tǒng)對它加以管理才能更好地發(fā)揮作用，各種技術(shù)水平也發(fā)展到相應(yīng)程度，作為高等學(xué)府的西安財(cái)經(jīng)學(xué)院更是有必要和實(shí)力建立一個(gè)完善高效的圖書管理信息系統(tǒng)。因此，本系統(tǒng)具有環(huán)境可信性。（四）進(jìn)度可行性

由于系統(tǒng)較簡單且主要針對在校學(xué)生，相關(guān)信息的獲取渠道比較方便，所以系統(tǒng)能在合理期限內(nèi)完成，即具有進(jìn)度可行性。三、系統(tǒng)需求分析（一）組織結(jié)構(gòu)分析根據(jù)收集到的各種系統(tǒng)學(xué)生成績表、學(xué)生和教師基本信息資料表，通過向有關(guān)業(yè)務(wù)管理部門的訪問調(diào)查，系統(tǒng)分析結(jié)果如下：教務(wù)科教務(wù)科（二）管理功能分析教務(wù)科：學(xué)生、教師基本信息資料管理；課程編排；學(xué)生考試成績登錄、統(tǒng)計(jì)；學(xué)生獎(jiǎng)懲情況管理；安排教師教師教學(xué)任務(wù)及教學(xué)工作量。學(xué)籍管理科：組織在校學(xué)生轉(zhuǎn)專業(yè)，負(fù)責(zé)學(xué)生休、復(fù)、留等學(xué)籍異動(dòng)管理；學(xué)校綜合系統(tǒng)管理中學(xué)生學(xué)籍庫的維護(hù)。此外，還負(fù)責(zé)辦理建立新生學(xué)籍檔案；編制本、?？茖W(xué)生名冊；負(fù)責(zé)畢業(yè)生成績及有關(guān)材料歸檔；辦理出國人員學(xué)習(xí)成績等證明材料。（三）業(yè)務(wù)流程分析業(yè)務(wù)流程圖如圖所示：

學(xué)籍管理信息系統(tǒng)分析表5學(xué)生學(xué)籍信息變動(dòng)管理業(yè)務(wù)流程業(yè)務(wù)流程第5張/共8張圖例說明O業(yè)務(wù)處理單位描述業(yè)務(wù)處理_表格制作傳遞

數(shù)據(jù)存儲(chǔ)（四）數(shù)據(jù)流程分析數(shù)據(jù)流程基本符號處理過程數(shù)據(jù)流?數(shù)據(jù)存儲(chǔ)頂層數(shù)據(jù)流程學(xué)籍管理人員數(shù)據(jù)流程教師、學(xué)生數(shù)據(jù)流程學(xué)生或教師學(xué)生基本信息學(xué)生基本信息查詢學(xué)生或教師學(xué)生基本信息學(xué)生基本信息查詢P2■學(xué)生獎(jiǎng)懲信息表*學(xué)生獎(jiǎng)懲信息查詢P3學(xué)生學(xué)籍4變動(dòng)信息學(xué)籍變動(dòng)信息表四、系統(tǒng)設(shè)計(jì)（一）總體結(jié)構(gòu)設(shè)計(jì)系統(tǒng)目標(biāo)設(shè)計(jì)1）方便的數(shù)據(jù)輸入功能，良好的人機(jī)對面，盡量避免漢字和長字符串的人工重復(fù)輸入（采用代碼詞組）。2）靈活的查詢功能，能快速實(shí)現(xiàn)學(xué)生信息和教師信息以及學(xué)院班級信息的查詢。3）考慮到學(xué)校的發(fā)展，對新數(shù)據(jù)也能給予處理。4）把“靜態(tài)”的學(xué)籍管理變?yōu)椤皠?dòng)態(tài)”管理，能隨時(shí)提供學(xué)校學(xué)生、教師、學(xué)院及班級的現(xiàn)狀信息。系統(tǒng)功能設(shè)計(jì)身份登錄：學(xué)籍管理人員及教師、學(xué)生都有自己的密碼，可以防止非系統(tǒng)人員進(jìn)入本系統(tǒng)；可以對圖書管理人員和教師、學(xué)生兩種不同的用戶類型，分別給予不同的操作權(quán)限。資料維護(hù)：本系統(tǒng)將對每一位教師、學(xué)生以及各個(gè)學(xué)院的基本信息進(jìn)行維護(hù)管理。系統(tǒng)維護(hù)管理包括對各種表記錄的添加、刪除、修改等操作。系統(tǒng)查詢：可以按照學(xué)號、教師號、學(xué)院編碼、班級編碼以及學(xué)生名、教師名等進(jìn)行相關(guān)信息的查詢系統(tǒng)維護(hù)：實(shí)現(xiàn)對操作員的管理和維護(hù)，包括操作員登錄密碼和用戶名的修改等。系統(tǒng)的功能模塊學(xué)籍管理系統(tǒng)需要實(shí)現(xiàn)的功能主要有四大塊：“日常工作管理”、“基本資料維護(hù)”、“查詢”和“系統(tǒng)管理”模塊1）“信息查詢”模塊：學(xué)生信息查詢：主要功能是用戶通過輸入需要查詢的學(xué)號或?qū)W生姓名，實(shí)現(xiàn)對學(xué)生基本信息資料的查詢、成績查詢、獎(jiǎng)懲情況查詢、學(xué)籍變動(dòng)查詢等。教師信息查詢：主要功能是用戶通過輸入要查查詢的教師號或教師姓名，實(shí)現(xiàn)對教師基本信息的查詢。學(xué)院信息查詢：主要功能是用戶通過移動(dòng)記錄指針，實(shí)現(xiàn)對各學(xué)院名稱、負(fù)責(zé)人、歷史等信息的查詢。班級信息查詢：主要功能是用戶通過移動(dòng)記錄指針，實(shí)現(xiàn)對各班級班級負(fù)責(zé)人、入學(xué)時(shí)間、班主任電話等信息的查詢。2）“信息管理”模塊學(xué)生基本資料管理：包括學(xué)生基本信息的添加、刪除、修改教師基本資料管理：包括教師基本信息的添加、刪除、修改學(xué)院信息管理：包括對各學(xué)院設(shè)置信息的添加、刪除、修改班級信息管理：包括對各班級設(shè)置信息的添加、刪除、修改3）“用戶維護(hù)”模塊用戶管理模塊：包括對系統(tǒng)用戶的添加管理功能模塊圖

（二）輸入輸出設(shè)計(jì)輸入設(shè)計(jì)簡列式，登陸界面即采用該形式，簡單又直觀表格式，對于基本信息資料以及成績、獎(jiǎng)懲情況的記錄，采用的是該形式，輸入教師、學(xué)生、學(xué)院、班級的相關(guān)信息輸出設(shè)計(jì)簡單組列式，用戶對于學(xué)生信息、教師信息、學(xué)院信息以及班級信息的查看界面就是這種形式，以DataGrid表格的形式給出（三）人機(jī)對話設(shè)計(jì)本系統(tǒng)中人機(jī)對話主要形式包括：菜單式，應(yīng)答式，填表式。（四）處理流程設(shè)計(jì)登錄流程

學(xué)籍管理人員流程（五）數(shù)據(jù)庫設(shè)計(jì)1.概念結(jié)構(gòu)設(shè)計(jì)——E-R模型設(shè)計(jì)邏輯結(jié)構(gòu)設(shè)計(jì)邏輯結(jié)構(gòu)設(shè)計(jì)的主要任務(wù)是把概念結(jié)構(gòu)設(shè)計(jì)階段建立的E-R圖，按選定的數(shù)據(jù)庫管理軟件所支持的數(shù)據(jù)模型（層次型、網(wǎng)狀型、關(guān)系型），轉(zhuǎn)化成相應(yīng)的邏輯模型。由于MicrosoftAccess支持的是關(guān)系數(shù)據(jù)模型，所以邏輯設(shè)計(jì)的首要工作就是把建立的E-R圖轉(zhuǎn)化成為關(guān)系模型，再做進(jìn)一步的數(shù)據(jù)模型的優(yōu)化。E-R圖一?關(guān)系模式：教師（教師號，索引號，教師名稱，性別，年齡，所屬學(xué)院，研究方向，辦公電話）學(xué)生（學(xué)號，學(xué)生姓名，所屬學(xué)院，所屬年級，班主任）學(xué)院（學(xué)院編號，學(xué)院名稱，負(fù)責(zé)人姓名，辦公電話，說明）班級（班級編號，班級名稱，入學(xué)時(shí)間，班主任姓名，班主任電話，說明）物理結(jié)構(gòu)設(shè)計(jì)物理結(jié)構(gòu)設(shè)計(jì)的主要任務(wù)是確定數(shù)據(jù)庫在物理設(shè)備上的存儲(chǔ)結(jié)構(gòu)和存取方法，在本系統(tǒng)中就是利用MicrosoftAccess提供的命令，語句等將邏輯模型在計(jì)算所上實(shí)現(xiàn)的過程，包括建立了6張表，確定各表的索引關(guān)鍵字以及各表之間的關(guān)系等。以學(xué)生信息表為例簡單說明設(shè)計(jì)過程：字段名數(shù)據(jù)類型是否必填字段說明*snum文本是學(xué)號Sname文本是學(xué)生姓名Ssex文本是性別born文本是出生日期home文本是籍貫字段是表中的列，每一列用什么來命名，即為字段名稱，字段的數(shù)據(jù)類型是對某字段要輸入的值的約束或定義，在該表中均為文本型，說明則是為了設(shè)計(jì)者和其他人方便知道字段的含義?！眘num”是主鍵，不允許NULL值的存在且字段值必須唯一。給予不同的學(xué)生不同的索引號，用于唯一標(biāo)識表中的每條記錄。數(shù)據(jù)庫的規(guī)范化過程關(guān)系規(guī)范化處理主要是對初步設(shè)計(jì)出來的關(guān)系進(jìn)行分析，并進(jìn)行分解或合并，消除其中的插入異常，刪除異常，數(shù)據(jù)冗余，數(shù)據(jù)不一致等，從而獲得更好的關(guān)系模式。在本系統(tǒng)中通過規(guī)范化處理，關(guān)系中的各字段不可再分，無重復(fù)屬性，滿足第一范式1NF，且數(shù)據(jù)間不存在部分依賴，滿足第二范式2NF的要求。但由于在某些查詢中經(jīng)常涉及多個(gè)關(guān)系間的聯(lián)接運(yùn)算，這種聯(lián)接運(yùn)算的代價(jià)是相當(dāng)高的，所以從實(shí)際考慮有些關(guān)系并不能滿足3NF。五、系統(tǒng)實(shí)現(xiàn)（一）登陸界面1.登錄該界面是同時(shí)面向圖書管理員和學(xué)生的，根據(jù)輸入的用戶名和密碼，系統(tǒng)判斷用戶類型進(jìn)入不同頁面，使用不同功能。主要代碼如下：2.注冊該界面用于新用戶的注冊，添加。代碼為:DimconnAsNewADODB.ConnectionDimadAsNewADODB.RecordsetPrivateSubCommand1_Click()DimsqlAsNewADODB.Recordsetsql.CursorLocation=adUseClientsql.Open"select*fromuserswhereid='〃&textl.Text&〃'〃，conn,adOpenDynamic,adLockOptimisticIftextl.Text=〃〃ThenMsgBox〃用戶名不能為空，請重新輸入!〃ExitSubForm4.ShowEndIfIftext2.Text=〃〃ThenMsgBox〃密碼不能為空，請重新輸入!〃ExitSubForm4.ShowEndIfIfText3.Text=〃〃ThenMsgBox〃確認(rèn)密碼不能為空，請重新輸入!〃ExitSubForm4.ShowEndIfIfsql.RecordCount>0ThenMsgBox〃這個(gè)用戶名已經(jīng)被占用，請您選用其它的用戶名！"textl.Text=""textl.SetFocussql.CloseEndIfIfTrim(text2.Text)<>Trim(Text3.Text)ThenMsgBox〃您兩次輸入的密碼不同，請重新輸入〃text2.Text=""Text3.Text=""text2.SetFocusExitSubEndIfad.AddNewad.Fields("id")=Trim(textl.Text)ad.Fields("password")=Trim(text2.Text)ad.Updatead.CloseMsgBox”注冊成功！請登錄！"Form4.HideEndSubPrivateSubCommand2_Click()textl.Text=""text2.Text=""Text3.Text=""EndSubPrivateSubCommand3_Click()Form4.HideEndSubPrivateSubForm_Load()conn.Open"driver=microsoftaccessdriver(*.mdb);dbq="&App.Path&"\admin.mdb;"ad.CursorLocation=adUseClientad.Open"select*fromusers",conn,adOpenDynamic,adLockOptimisticEndSub(二)學(xué)籍管理人員管理界面1.教師信息查詢本界面用于教師基本信息的查詢，可以按教師號進(jìn)行查詢，也可以按教師姓名進(jìn)行。代碼如下：DimconnAsNewADODB.ConnectionDimsqlAsStringDimstudentlAsNewADODB.RecordsetPrivateSubCommand1_Click()Command2.Enabled=Falsec2=InputBox("請輸入需查詢的教師號：〃，〃查詢條件〃)Ifc2<>""Thentsql="select*fromtinforwheretnum='"&c2&"'”studentl.CursorLocation=adUseClientstudentl.CursorType=adOpenDynamicstudentl.Opentsql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGridl.DataSource=studentlIfstudentl.RecordCount=0ThenMsgBox”沒有該教師的信息"ElseMsgBox"你沒有輸入需查詢的教師號！"EndIfEndSubPrivateSubCommand2_Click()Commandl.Enabled=Falsec2=InputBox("請輸入需查詢的教師姓名：","查詢條件”)Ifc2<>""Thentsql="select*fromtinforwheretname='"&c2&"'”studentl.CursorLocation=adUseClientstudentl.CursorType=adOpenDynamicstudentl.Opentsql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGrid1.DataSource=student1Ifstudent1.RecordCount=0ThenMsgBox”沒有該教師的信息"ElseMsgBox〃你沒有輸入需查詢的教師姓名！"EndIfEndSubPrivateSubCommand3_Click()Form10.HideForm2.ShowEndSubPrivateSubForm_Load()Withconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\courseware\課件'管理信息系統(tǒng)'大作業(yè)\admin.mdb”.ConnectionTimeout=30.OpenEndWithtsql="select*fromtinfor"student1.CursorLocation=adUseClientstudent1.CursorType=adOpenDynamicstudent1.Opentsql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGrid1.DataSource=student1EndSub2學(xué)生信息查詢

本界面用于對學(xué)生信息的查詢，輸入學(xué)生學(xué)號，即可顯示所查詢學(xué)生的相關(guān)信息。窗體下半部分用sstab設(shè)置的分組格式可以同時(shí)顯示學(xué)生的學(xué)籍變更信息和獎(jiǎng)懲管理信息。設(shè)置代碼如下：DimconnAsNewADODB.ConnectionDimsqlAsStringDimstudentlAsNewADODB.RecordsetDimsql2AsStringDimstudent2AsNewADODB.RecordsetPrivateSubCommand1_Click()Form5.Hidestudent1.Closestudent2.CloseForm2.ShowEndSubPrivateSubCommand2_Click()WithAdodcl.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\courseware\課件'管理信息系統(tǒng)'大作業(yè)\admin.mdb”.CommandType=adCmdText.ConnectionTimeout=30EndWithIfText1.Text<>""Thensql="select*fromppwheresnum='"&Textl.Text&"'”studentl.CursorLocation=adUseClientstudent1.CursorType=adOpenDynamicstudentl.Opensql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGrid2.DataSource=studentlsql2="select*fromxuejiwheresnum='"&Textl.Text&"'”student2.CursorLocation=adUseClientstudent2.CursorType=adOpenDynamicstudent2.Opensql2,conn,adOpenDynamic,adLockBatchOptimisticSetDataGridl.DataSource=student2sqll="selectsinfor.*,class,head,scollegeFromsinfor,sclass,scollegeWheresinfor.snum=sclass.snumandsclass.snum=scollege.snumandsinfor.snum=''&Textl.Text&"'"Adodcl.CursorLocation=adUseClientAdodcl.CursorType=adOpenDynamicAdodcl.RecordSource=sqllAdodcl.RefreshIfAdodcl.Recordset.RecordCount<>0ThenTextl.Text=""Textl.SetFocusElse:MsgBox〃沒有該學(xué)生的信息〃EndIfElseMsgBox〃你沒有輸入需查詢的學(xué)號！"Textl.SetFocusEndIfEndSubPrivateSubForm_Load()Withconn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\courseware\課件'管理信息系統(tǒng)'大作業(yè)\admin.mdb”.ConnectionTimeout=30.OpenEndWithEndSub3.學(xué)生信息管理界面DimcnnAsADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubcmdadd_Click()Fori=0To5Text1(i).Enabled=TrueText1(i).Text=""Nextirs.AddNewText1(0).SetFocuscmdadd.Enabled=Falsecmddelete.Enabled=Falsecmdedit.Enabled=Falsecmdsave.Enabled=Truecmdcancel.Enabled=Truecmdmove(0).Enabled=Falsecmdmove(1).Enabled=Falsecmdmove(2).Enabled=Falsecmdmove(3).Enabled=FalseEndSubPrivateSubCmdcancel_Click()rs.CancelUpdateIfrs.BOFAndrs.EOFThenMsgBox〃數(shù)據(jù)表中無記錄，請?zhí)砑佑涗浕蛲顺觥╟mdadd.Enabled=Truecmdsave.Enabled=Falsecmdcancel.Enabled=FalseElseCallviewdataFori=0To5Text1(i).Enabled=FalseNexticmdadd.Enabled=Truecmddelete.Enabled=Truecmdedit.Enabled=Truecmdsave.Enabled=Falsecmdcancel.Enabled=FalseEndIfEndSubPrivateSubcmddelete_Click()DimmyvalAsStringmyval=MsgBox("是否要?jiǎng)h除這個(gè)紀(jì)錄？"，vbYesNo)Ifmyval=vbYesThenrs.Deleters.MoveNextIfrs.RecordCount=0ThenMsgBox〃數(shù)據(jù)表中無記錄，請?zhí)砑佑涗浕蛲顺觥‵ori=0To5Text1(i)=""Nexticmdadd.Enabled=Falsecmddelete.Enabled=Falsecmdedit.Enabled=Falsecmdsave.Enabled=Falsecmdcancel.Enabled=FalseElsers.MoveNextIfrs.EOFThenrs.MoveLastCallviewdataFori=0To5Text1(i).Enabled=FalseNextiEndIfCallviewdataEndIfEndIfEndSubPrivateSubcmdedit_Click()Ifrs.RecordCount<>0ThenFori=1To5Text1(i).Enabled=TrueNexticmdadd.Enabled=Falsecmddelete.Enabled=Falsecmdedit.Enabled=Falsecmdsave.Enabled=Truecmdcancel.Enabled=Truecmdmove(0).Enabled=Falsecmdmove(1).Enabled=Falsecmdmove(2).Enabled=Falsecmdmove(3).Enabled=FalseElseMsgBox("沒有要修改的記錄")EndIfEndSubPrivateSubcmdexit_Click()EndEndSubPrivateSubcmdmove_Click(IndexAsInteger)SelectCaseIndexCase0rs.MoveFirstcmdmove(0).Enabled=Falsecmdmove(1).Enabled=Falsecmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueCase1rs.MovePreviousIfrs.BOFThenrs.MoveFirstcmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueCase2rs.MoveFirstIfrs.EOFThenrs.MoveLastcmdmove(0).Enabled=Truecmdmove(1).Enabled=TrueCase3rs.MoveLastcmdmove(0).Enabled=Truecmdmove(1).Enabled=Truecmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueEndSelectCallviewdataEndSubPrivateSubcmdsave_Click()IfText1(1)=""ThenMsgBox〃該學(xué)生號不能為空〃Text1(1).SetFocusExitSubEndIfrs.Fields("class")=Text1(0).Textrs.Fields("snum")=Text1(1).Textrs.Fields("sname")=Text1(2).Textrs.Fields("ssex")=Text1(3).Textrs.Fields("born")=Text1(4).Textrs.Fields("home")=Text1(5).Textrs.UpdateFori=0To5Text1(i).Enabled=FalseNexticmdadd.Enabled=Truecmddelete.Enabled=Truecmdedit.Enabled=Truecmdsave.Enabled=Falsecmdcancel.Enabled=Falsecmdmove(0).Enabled=Truecmdmove(1).Enabled=Truecmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubForm_Load()Setcnn=NewADODB.Connectioncnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\