學(xué)籍信息管理系統(tǒng)實(shí)習(xí)報(bào)告-VB+Access-有源代碼-可運(yùn)行小程序

MIS課程設(shè)計(jì)報(bào)告書(XX系統(tǒng)分析設(shè)計(jì))學(xué)院名稱：學(xué)生姓名：專業(yè)名稱：班 級：時間：2014年3月10日至2014年3月21日目錄1 引言32 系統(tǒng)分析32.1 系統(tǒng)需求分析32.2 系統(tǒng)的可行性研究32.2.1技術(shù)上的可行性32.2.2管理上的可行性32.2.3安全上的可行性32.3 系統(tǒng)分析32.3.1系統(tǒng)功能分析52.3.2業(yè)務(wù)流程分析62.3.3 數(shù)據(jù)流程分析72.4數(shù)據(jù)字典83 系統(tǒng)設(shè)計(jì)103.1數(shù)據(jù)庫的實(shí)現(xiàn)103.1.1數(shù)據(jù)庫需求分析103.1.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)103.2 界面的實(shí)現(xiàn)123.2.1登錄界面123.2.2 主界面123.2.3班級管理133.2.4 檔案管理133.2.5 課程管理143.2.6成績管理154 數(shù)據(jù)測試155 附錄 部分代碼如下：251 引言學(xué)籍管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)籍管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對學(xué)籍信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套學(xué)籍管理軟件成為很有必要的事情。2 系統(tǒng)分析2.1 系統(tǒng)需求分析伴隨社會的高速發(fā)展，全國各高校的學(xué)生數(shù)量一直在增加，在這樣的形式下，必須要求學(xué)校有一種高效有序的方法來管理學(xué)生的信息。通過調(diào)查,要求系統(tǒng)需要有以下功能: 由于操作人員的計(jì)算機(jī)知識普遍較差,要求有良好的人機(jī)界面; 由于該系統(tǒng)的使用對象多,要求有較好的權(quán)限管理; 原始數(shù)據(jù)修改簡單方便,支持多條件修 方便的數(shù)據(jù)查詢，支持多條件查詢; 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計(jì)算自動完成，盡量減少人工干預(yù);2.2 系統(tǒng)的可行性研究2.2.1技術(shù)上的可行性由于VB語言簡單、易學(xué)的優(yōu)點(diǎn)，又增強(qiáng)了可視化、數(shù)據(jù)庫及Internet編程功能，很容易就可以進(jìn)行系統(tǒng)開發(fā)。因此系統(tǒng)開發(fā)工具可以采用Visual Basic進(jìn)行開發(fā)。而對數(shù)據(jù)庫的建立，由于建立的數(shù)據(jù)庫主要是對光纖的信息進(jìn)行管理，所以可以采用微軟公司開發(fā)的Microsoft Access。該軟件簡單易懂，應(yīng)用廣泛，比較適合新手上路使用，而且建立的數(shù)據(jù)庫較為安全。2.2.2管理上的可行性因?yàn)橄到y(tǒng)主要應(yīng)用于學(xué)院內(nèi)部，而不具備網(wǎng)絡(luò)查找功能，因此在實(shí)現(xiàn)時可以做成單機(jī)版，對管理員賦予數(shù)據(jù)錄入、查詢、修改以及對數(shù)據(jù)庫的清零等功能。2.2.3安全上的可行性在建立數(shù)據(jù)庫時可以通過對數(shù)據(jù)庫的設(shè)計(jì)用戶名和密碼進(jìn)行保密，以及在建立數(shù)據(jù)庫以后可以對數(shù)據(jù)進(jìn)行壓縮等技術(shù)，保證數(shù)據(jù)的安全，使數(shù)據(jù)庫具有安全保障。2.3 系統(tǒng)分析 學(xué)生學(xué)籍管理系統(tǒng)主要功能是對經(jīng)濟(jì)管理學(xué)院學(xué)生進(jìn)行各種信息的管理，因此，該系統(tǒng)需要具備的功能如下：系統(tǒng)管理：包括用戶信息（用戶名、密碼等）的添加，更改、刪除和退出系統(tǒng)等功能。成績管理：包括學(xué)生成績管理（課程號、課程名、學(xué)號、成績）的添加、更改、刪除和查詢（按學(xué)號、班級和查詢?nèi)浚┑裙δ?。學(xué)生管理：包括學(xué)生基本信息管理。其中學(xué)生基本信息管理包括學(xué)生基本信息（學(xué)生編號、姓名、性別、生日、所在專業(yè)等）的添加、更改、刪除和查詢（按學(xué)號、班級、專業(yè)、院系）等功能。課程管理：包括課程信息（課程號、課程名稱和授課老師）的添加和刪除。打印報(bào)表：包括輸出學(xué)生自然狀況、學(xué)生的各科成績和補(bǔ)考學(xué)生報(bào)表2.3.1系統(tǒng)功能分析 權(quán)限功能：為用戶設(shè)置權(quán)限功能，用戶只能對授權(quán)范圍內(nèi)進(jìn)行相應(yīng)修改及刪除。錄入功能：，為用戶提供對所有信息的錄入功能。 查詢功能：為用戶提供查詢的功能，可查詢允許范圍內(nèi)的所有信息。 維護(hù)功能：為用戶提供查詢及相應(yīng)的修改，刪除功能。 打印功能：能打印全校學(xué)生的信息及積各班信息，科目成績等。 退出功能：結(jié)束并關(guān)閉系統(tǒng)對上述各功能進(jìn)行集中、分塊、按照結(jié)構(gòu)化程序設(shè)計(jì)的要求。學(xué)生信息管理系統(tǒng)學(xué)籍管理功能班級管理功能課程管理功能成績管理功能學(xué)籍添加學(xué)籍修改學(xué)籍查詢班級添加課程添加課程修改課程查詢成績添加成績修改成績查詢班級修改班級查詢圖4.1.1 系統(tǒng)功能模塊圖登錄成功選擇操作開始用戶管理學(xué)籍管理班級管理課程設(shè)置成績管理退出系統(tǒng)添加修改查詢結(jié)束NY圖4.1.2 .系統(tǒng)流程圖2.3.2業(yè)務(wù)流程分析圖1 學(xué)籍管理業(yè)務(wù)流程圖圖2 成績管理第二層業(yè)務(wù)流程圖2.3.3 數(shù)據(jù)流程分析教學(xué)部門學(xué)籍管理系統(tǒng)用人單位學(xué)籍信息畢業(yè)信息圖3 學(xué)籍管理系統(tǒng)頂層數(shù)據(jù)流圖圖4 學(xué)籍管理系統(tǒng)第一層數(shù)據(jù)流圖圖5 學(xué)籍管理系統(tǒng)第二層數(shù)據(jù)流圖“成績管理”圖6 學(xué)籍管理系統(tǒng)第三層數(shù)據(jù)流圖“成績分析”2.4數(shù)據(jù)字典數(shù)據(jù)字典條目：數(shù)據(jù)元素?cái)?shù)據(jù)元素系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號：條目名：學(xué)號 別名：屬于數(shù)據(jù)流： 個人信息 存儲處： 學(xué)籍表數(shù)據(jù)元素值： 代碼類型 取值范圍 意義 字符 代表一個學(xué)生簡要說明：每個學(xué)號代表了入學(xué)年份，學(xué)院，專業(yè)，班級，學(xué)號信息。 課程代碼代表了課程類型，學(xué)院，專業(yè)，課程編號。修改記錄：編寫：日期：審核：日期：注：其他數(shù)據(jù)元素略數(shù)據(jù)字典條目：數(shù)據(jù)流數(shù)據(jù)流系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號：條目名：學(xué)生信息 別名：來源： 教務(wù)處 去處： 學(xué)籍表數(shù)據(jù)流結(jié)構(gòu)： 學(xué)生檔案=學(xué)號+名字+性別+民族+專業(yè)+院系+地址+班級+父母姓名+出生年月+電話號碼+郵政編碼+備注 學(xué)生成績=課程號+課程名稱+學(xué)號+成績+備注 課程=課程號+課程名稱+授課老師簡要說明：包括了學(xué)生的個人信息修改記錄：編寫：日期：審核：日期： 注：其它數(shù)據(jù)流略數(shù)據(jù)字典條目：數(shù)據(jù)存儲數(shù)據(jù)存儲系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號：條目名：成績 別名：存儲組織： 二維表 記錄數(shù)： 主關(guān)鍵字： 成績記錄組成：課程號-課程名稱-學(xué)號-成績-備注項(xiàng)名：成績長度：（字節(jié)）成績最多三位數(shù)簡要說明：每個學(xué)生每門課程對應(yīng)著一個成績修改記錄：編寫：日期：審核：日期：注：其它數(shù)據(jù)存儲略數(shù)據(jù)字典條目：加工數(shù)據(jù)加工系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號：條目名：查詢 別名：輸入數(shù)據(jù)流：成績 輸出數(shù)據(jù)流：成績顯示結(jié)果加工邏輯： 按學(xué)號、班級或全部查詢出各人、各課程成績的具體情況簡要說明： 本處理提供各人、各課程的成績及個人信息的查詢修改記錄：編寫：日期：審核：日期：注：其它數(shù)據(jù)加工略3 系統(tǒng)設(shè)計(jì)3.1數(shù)據(jù)庫的實(shí)現(xiàn)3.1.1數(shù)據(jù)庫需求分析 用戶信息：包括的數(shù)據(jù)項(xiàng)有：用戶名、密碼、用戶描述。 學(xué)生基本信息：包括的數(shù)據(jù)項(xiàng)有：學(xué)生學(xué)號、學(xué)生姓名、性別、出生日期、班號、聯(lián)系電話、入校日期、家庭地址、備注等。 班級信息：包括的數(shù)據(jù)項(xiàng)有：班號、所在年級、班主任姓名、所在教室等。 課程基本信息：包括的數(shù)據(jù)項(xiàng)有：課程號、課程名稱、課程類別、課程描述等。 課程設(shè)置信息：包括的數(shù)據(jù)項(xiàng)有：年級信息、所學(xué)課程等。 學(xué)生成績信息：包括的數(shù)據(jù)項(xiàng)有：考試編號、所在班號、學(xué)生學(xué)號、學(xué)生姓名、所學(xué)課程、考試分?jǐn)?shù)等。3.1.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 學(xué)生基本信息班級成績課程圖1 學(xué)生實(shí)體ER圖 班級所在年級班主任所在教室班號圖2 班級實(shí)體ER圖 課程名稱編號描述類型 圖3 課程實(shí)體ER圖 年級包括班級設(shè)置課程課程圖4 年級實(shí)體ER圖 學(xué)生班級年級課程1nnnnmmnn111 圖5 實(shí)體之間關(guān)系ER圖現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為Access 數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。3.2 界面的實(shí)現(xiàn)3.2.1登錄界面第一個出現(xiàn)在用戶面前的就是這個界面，因此要求漂亮、簡潔。當(dāng)點(diǎn)擊立即登錄時校驗(yàn)數(shù)據(jù)庫中的用戶表中的數(shù)據(jù)是否和輸入的用戶名和密碼相對應(yīng)，庫中有相應(yīng)的信息才能進(jìn)入程序。3.2.2 主界面“主界面”包括菜單和經(jīng)過處理的圖片組成。在各個菜單中包含子菜單，各個菜單里添加顯示其功能的窗體的代碼，并且使“主界面”的enabled屬性為true（主界面可用）。在Form_Load()中根添加代碼，是登錄用的根據(jù)用戶的級別限制某些菜單可用或者不可用。UserType = True為超級用戶，否則為一般用戶。如果是一般用戶系統(tǒng)管理、信息錄入、打印報(bào)表菜單將不可用。在Form_QueryUnload添加代碼，就是退出的時候釋放掉所有窗口的資源免得造成內(nèi)存泄漏，cn.Close是關(guān)閉ADO連接，F(xiàn)or Each frm In Forms是銷毀所有窗口。 3.2.3班級管理此模塊包括添加班級和班級瀏覽兩個功能，分別實(shí)現(xiàn)班級的建立和班級的瀏覽查詢，在每年新生報(bào)到之前要先建立好班級這樣新生報(bào)到時就可以直接進(jìn)入班級。3.2.4 檔案管理此模塊包括檔案添加，瀏覽，查詢?nèi)齻€功能，此模塊和數(shù)據(jù)庫中的學(xué)生學(xué)籍表連接，通過登記注冊學(xué)籍，瀏覽學(xué)生檔案模塊通過一個動態(tài)的樹狀菜單動態(tài)和學(xué)籍表連接，方便用戶查詢和了解班級學(xué)生的信息。查詢功能可以實(shí)現(xiàn)多個字段的精確及模糊查詢，方便用戶查詢學(xué)生的信息。3.2.5 課程管理此模塊包括基本課程設(shè)置和班級課程設(shè)置，基本課程設(shè)置是確定學(xué)校里要開的所有課程，班級課程設(shè)置是從基本課程里選擇這學(xué)期要學(xué)的課程。3.2.6成績管理此模塊包括成績的錄入和查詢，其中錄入模塊通過選擇班級和課程給班級選本課的學(xué)生錄入成績，而且添加的校驗(yàn)功能可以實(shí)現(xiàn)及時顯示班級的成績狀態(tài)，成績的瀏覽查詢可以實(shí)現(xiàn)班級成績的信息，并實(shí)現(xiàn)了打印功能。并在其中實(shí)現(xiàn)了自動顯示其平均分，并且低于60分以下的成績用紅色顯示，使用戶更加方便的查詢班級的成績信息。4 數(shù)據(jù)測試進(jìn)行系統(tǒng)測試主要有兩種方法：靜態(tài)測試和動態(tài)測試，我們主要采用動態(tài)測試的方法。動態(tài)測試是通過運(yùn)行程序來檢驗(yàn)軟件的動態(tài)特性和運(yùn)行結(jié)果的正確性，并根據(jù)程序的運(yùn)行過程對程序進(jìn)行評價的過程。動態(tài)測試包括運(yùn)行、解釋和模擬。具體的測試方法有：黑盒子測試。一種以需求和功能規(guī)范及界面為基礎(chǔ)的測試方法。它無需了解軟件的內(nèi)容結(jié)構(gòu)。白盒子測試。一種以程序?yàn)榛A(chǔ)的或以程序和需求相結(jié)合為基礎(chǔ)的測試方法。它必須了解程序的結(jié)構(gòu)而不考慮程序的功能?；液凶訙y試。上述兩種測試方法的結(jié)合。通常先用黑盒子方法設(shè)計(jì)測試案例，然后盡可能多地用白盒子方法完成測試。采用以下數(shù)據(jù)測試軟件，對于測試過程中發(fā)現(xiàn)的問題，包括語法錯誤、邏輯錯誤等，通過分析，都進(jìn)行了一一的排除。最后系統(tǒng)能夠正確運(yùn)行。5 附錄 部分代碼如下：Module1 模塊Public modi As BooleanPublic classmodi As BooleanPublic txtsql As StringPublic find As BooleanPublic classfind As BooleanPublic username As StringPublic qxstr As StringPublic Function ExecuteSQL(ByVal sql As String) As ADODB.RecordsetDim mycon As ADODB.ConnectionDim rst As ADODB.RecordsetSet mycon = New ADODB.Connectionmycon.ConnectionString = connstringmycon.OpenDim stokens() As StringOn Error GoTo exectuesql_errorstokens = Split(sql)If InStr(INSER,DELETE,UPDATE, UCase(stokens(0) Then mycon.Execute sqlElse Set rst = New ADODB.Recordset rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rstEnd Ifexectuesql_exit: Set rst = Nothing Set mycon = Nothing Exit Functionexectuesql_error: Resume exectuesql_exitEnd FunctionPublic Function connstring() As Stringconnstring = provider=Microsoft.Jet.OLEDB.4.0;Data source = & App.Path & /xs.mdbEnd FunctionPublic Function Executeqx(ByVal txt As Integer) As StringDim sql As StringDim mycon As ADODB.ConnectionDim rst As ADODB.RecordsetSet mycon = New ADODB.Connectionmycon.ConnectionString = connstringmycon.Open Set rst = New ADODB.Recordset sql = select admin from use where username= & username & rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticIf rst.EOF = True Then MsgBox 非法用戶！, vbExclamation + vbOKOnly, 警告 Executeqx = nothing Exit FunctionEnd If If rst.Fields(0) = y Then Executeqx = admin Exit FunctionEnd Ifrst.Close sql = select readonly from use where username= & username & rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic If rst.Fields(0) = y Then Executeqx = readonly Exit FunctionEnd IfSelect Case txt Case 1 sql = select qx1 from use where username= & username & Case 2 sql = select qx2 from use where username= & username & Case 3 sql = select qx3 from use where username= & username & End SelectOn Error GoTo exectuesql_error Set rst = New ADODB.Recordset rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic If rst.Fields(0) = y Then Executeqx = true Else Executeqx = false End Ifexectuesql_exit: Set rst = Nothing Set mycon = Nothing Exit Functionexectuesql_error: Resume exectuesql_exitEnd Function登錄模塊Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = select username from use where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 用戶名錯誤！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Exit SubEnd Ifusername = mrc.Fields(0)txtsql = select username from use where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 密碼錯誤！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Exit SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub班級設(shè)置Dim classstr As StringPublic Sub classload()Dim mrc As ADODB.RecordsetIf classmodi Then 如果是修改狀態(tài) Me.Caption = 修改班級設(shè)置 classstr = select * from class where 班級= & Trim(Formclass2.MSF1.TextMatrix(Formclass2.MSF1.row, 2) & Set mrc = ExecuteSQL(classstr) mrc.MoveFirst For i = 0 To 4 Text1(i).Text = mrc.Fields(i) Next i mrc.CloseElse Me.Caption = 添加班級設(shè)置 For i = 0 To 4 Text1(i).Text = Next i End IfEnd SubPrivate Sub Command1_Click() For j = 0 To 3 If Text1(j) = Then ss = MsgBox(Label2(j).Caption & 不能為空！, vbExclamation + vbOKOnly, 警告) Text1(j).SetFocus Text1(j).SelStart = 0 Text1(j).SelLength = Len(Text1(j).Text) Exit Sub End IfNextDim mrc As ADODB.RecordsetIf classmodi = False Then classstr = select * from class where 班級= & Trim(Text1(1).Text) & Set mrc = ExecuteSQL(classstr) If mrc.EOF = False Then sss = MsgBox(已經(jīng)存在該班級的設(shè)置,不能重復(fù)！, vbonly, 警告) Text1(1).SetFocus Text1(1).SelStart = 0 Text1(1).SelLength = Len(Text1(1).Text) mrc.Close Exit Sub End If End If classstr = delete * from class where 班級= & Trim(Text1(1).Text) & Set mrc = ExecuteSQL(classstr)classstr = select * from class Set mrc = ExecuteSQL(classstr) mrc.AddNew For i = 0 To 4 If Text1(4).Text = Then Text1(4).Text = 無 End If mrc.Fields(i) = Text1(i).Text Next i mrc.UpdateIf classmodi Then Unload Me Formclass2.classshowtitle Formclass2.classshowdataElseFor j = 0 To 4 Text1(j) = Next MDIForm1.classbrowse_ClickEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd Sub瀏覽學(xué)生檔案Public printstr As StringPrivate Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPublic Sub showtitle() MSF1.clear Dim i As Integer With MSF1 .Cols = 14 .TextMatrix(0, 1) = 學(xué)號 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性別 .TextMatrix(0, 4) = 年級 .TextMatrix(0, 5) = 班級 .TextMatrix(0, 6) = 年制 .TextMatrix(0, 7) = 出生年月 .TextMatrix(0, 8) = 家庭住址 .TextMatrix(0, 9) = 郵政編碼 .TextMatrix(0, 10) = 聯(lián)系電話 .TextMatrix(0, 11) = 入學(xué)時間 .TextMatrix(0, 12) = 備注 .ColWidth(0) = 200 .ColWidth(1) = 500 .ColWidth(2) = 700 .ColWidth(3) = 500 .ColWidth(4) = 1000 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 800 .ColWidth(8) = 3000 .ColWidth(9) = 800 .ColWidth(10) = 1000 .ColWidth(11) = 800 .ColWidth(12) = 6000 .FixedRows = 1 For i = 1 To 13 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .row = 1 End WithEnd SubPrivate Sub Form_Activate()If find = True ThenForm4.ZOrderEnd IfIf find = True Then Exit SubElseIf modi = True Thenshowdata TreeView1_DblClick modi = FalseElse treeEnd IfEnd SubPublic Sub showdata()Dim j As IntegerDim i As IntegerDim mrc As ADODB.RecordsetSet mrc = New ADODB.Recordset Set mrc = ExecuteSQL(txtsql) If mrc.EOF = False Then mrc.MoveFirst With MSF1 .rows = 50 .row = 1 Do While Not mrc.EOF .rows = .rows + 1 For i = 1 To mrc.Fields.Count .TextMatrix(.row, i) = mrc.Fields(i - 1) Next i .row = .row + 1 mrc.MoveNext Loop End With Else If find = True Then Form3.Hide Form4.Show zzz = MsgBox(對不起，沒有此學(xué)生的檔案記錄！, vbOKOnly, 查詢) Form4.ZOrder (0) Form4.Text1(0).SetFocus End If End If Set mrc = NothingEnd SubPrivate Sub Form_Unload(Cancel As Integer)If find = True Then find = False Form4.Text1(0).SetFocusEnd IfEnd SubPublic Sub tree()TreeView1.Nodes.clearDim nodex As NodeDim mrc As ADODB.RecordsetDim mrc1 As ADODB.RecordsetDim str As StringDim a As Stringa = 年級TreeView1.LineStyle = tvwRootLinesstr = select distinct 年級 from class order by 年級Set mrc = ExecuteSQL(str)str = select distinct 年級,班級 from class order by 年級,班級Set mrc1 = ExecuteSQL(str)mrc.MoveFirstDo Until mrc.EOF mrc1.MoveFirst Set nodex = TreeView1.Nodes.add(, , a, mrc.Fields(0), 1, 1) Do While Not mrc1.EOF If mrc1.Fields(0) = mrc.Fields(0) Then Set nodex = TreeView1.Nodes.add(a, tvwChild, , mrc1.Fields(1), 2, 2) End If mrc1.MoveNext Loop a = a & 1 mrc.MoveNextLoop mrc1.Close mrc.Close Set mrc = Nothing Set mrc1 = NothingEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Tag Case find Form4.Show Case modi If Trim(Me.MSF1.TextMatrix(MSF1.row, 1) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If modi = True Form1.Show Form1.ZOrder 0 End If Case del Dim mrc As ADODB.Recordset Dim intcount As Integer If Trim(Me.MSF1.TextMatrix(MSF1.row, 1) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Else If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If MsgBox(確定要刪除學(xué)號為 & Trim(Me.MSF1.TextMatrix(MSF1.row, 1) & 的記錄嗎？ & Chr(10) & Chr(13) & 該操作會導(dǎo)致該學(xué)生交費(fèi)記錄和成績記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intcount = Me.MSF1.row txtsql = delete * from xj where 學(xué)號= & Trim(Me.MSF1.TextMatrix(MSF1.row, 1) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from cj where 學(xué)號= & Trim(Me.MSF1.TextMatrix(MSF1.row, 1) & Set mrc = ExecuteSQL(txtsql) TreeView1_DblClick End If End If Case print Form6.Show Form6.ZOrder 0End SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key Case dang If Trim(printstr) = Then sssss = MsgBox(沒有當(dāng)前記