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

MIS課程設(shè)計(jì)報(bào)告書(shū)(XX系統(tǒng)分析設(shè)計(jì))學(xué)院名稱：學(xué)生姓名：專業(yè)名稱：班 級(jí)：時(shí)間：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ù)庫(kù)的實(shí)現(xiàn)103.1.1數(shù)據(jù)庫(kù)需求分析103.1.2數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)103.2 界面的實(shí)現(xiàn)123.2.1登錄界面123.2.2 主界面123.2.3班級(jí)管理133.2.4 檔案管理133.2.5 課程管理143.2.6成績(jī)管理154 數(shù)據(jù)測(cè)試155 附錄 部分代碼如下：251 引言學(xué)籍管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要,所以學(xué)籍管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以?lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)籍信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開(kāi)發(fā)這樣一套學(xué)籍管理軟件成為很有必要的事情。2 系統(tǒng)分析2.1 系統(tǒng)需求分析伴隨社會(huì)的高速發(fā)展，全國(guó)各高校的學(xué)生數(shù)量一直在增加，在這樣的形式下，必須要求學(xué)校有一種高效有序的方法來(lái)管理學(xué)生的信息。通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能: 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面; 由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理; 原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修 方便的數(shù)據(jù)查詢，支持多條件查詢; 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù);2.2 系統(tǒng)的可行性研究2.2.1技術(shù)上的可行性由于VB語(yǔ)言簡(jiǎn)單、易學(xué)的優(yōu)點(diǎn)，又增強(qiáng)了可視化、數(shù)據(jù)庫(kù)及Internet編程功能，很容易就可以進(jìn)行系統(tǒng)開(kāi)發(fā)。因此系統(tǒng)開(kāi)發(fā)工具可以采用Visual Basic進(jìn)行開(kāi)發(fā)。而對(duì)數(shù)據(jù)庫(kù)的建立，由于建立的數(shù)據(jù)庫(kù)主要是對(duì)光纖的信息進(jìn)行管理，所以可以采用微軟公司開(kāi)發(fā)的Microsoft Access。該軟件簡(jiǎn)單易懂，應(yīng)用廣泛，比較適合新手上路使用，而且建立的數(shù)據(jù)庫(kù)較為安全。2.2.2管理上的可行性因?yàn)橄到y(tǒng)主要應(yīng)用于學(xué)院內(nèi)部，而不具備網(wǎng)絡(luò)查找功能，因此在實(shí)現(xiàn)時(shí)可以做成單機(jī)版，對(duì)管理員賦予數(shù)據(jù)錄入、查詢、修改以及對(duì)數(shù)據(jù)庫(kù)的清零等功能。2.2.3安全上的可行性在建立數(shù)據(jù)庫(kù)時(shí)可以通過(guò)對(duì)數(shù)據(jù)庫(kù)的設(shè)計(jì)用戶名和密碼進(jìn)行保密，以及在建立數(shù)據(jù)庫(kù)以后可以對(duì)數(shù)據(jù)進(jìn)行壓縮等技術(shù)，保證數(shù)據(jù)的安全，使數(shù)據(jù)庫(kù)具有安全保障。2.3 系統(tǒng)分析 學(xué)生學(xué)籍管理系統(tǒng)主要功能是對(duì)經(jīng)濟(jì)管理學(xué)院學(xué)生進(jìn)行各種信息的管理，因此，該系統(tǒng)需要具備的功能如下：系統(tǒng)管理：包括用戶信息（用戶名、密碼等）的添加，更改、刪除和退出系統(tǒng)等功能。成績(jī)管理：包括學(xué)生成績(jī)管理（課程號(hào)、課程名、學(xué)號(hào)、成績(jī)）的添加、更改、刪除和查詢（按學(xué)號(hào)、班級(jí)和查詢?nèi)浚┑裙δ堋W(xué)生管理：包括學(xué)生基本信息管理。其中學(xué)生基本信息管理包括學(xué)生基本信息（學(xué)生編號(hào)、姓名、性別、生日、所在專業(yè)等）的添加、更改、刪除和查詢（按學(xué)號(hào)、班級(jí)、專業(yè)、院系）等功能。課程管理：包括課程信息（課程號(hào)、課程名稱和授課老師）的添加和刪除。打印報(bào)表：包括輸出學(xué)生自然狀況、學(xué)生的各科成績(jī)和補(bǔ)考學(xué)生報(bào)表2.3.1系統(tǒng)功能分析 權(quán)限功能：為用戶設(shè)置權(quán)限功能，用戶只能對(duì)授權(quán)范圍內(nèi)進(jìn)行相應(yīng)修改及刪除。錄入功能：，為用戶提供對(duì)所有信息的錄入功能。 查詢功能：為用戶提供查詢的功能，可查詢?cè)试S范圍內(nèi)的所有信息。 維護(hù)功能：為用戶提供查詢及相應(yīng)的修改，刪除功能。 打印功能：能打印全校學(xué)生的信息及積各班信息，科目成績(jī)等。 退出功能：結(jié)束并關(guān)閉系統(tǒng)對(duì)上述各功能進(jìn)行集中、分塊、按照結(jié)構(gòu)化程序設(shè)計(jì)的要求。學(xué)生信息管理系統(tǒng)學(xué)籍管理功能班級(jí)管理功能課程管理功能成績(jī)管理功能學(xué)籍添加學(xué)籍修改學(xué)籍查詢班級(jí)添加課程添加課程修改課程查詢成績(jī)添加成績(jī)修改成績(jī)查詢班級(jí)修改班級(jí)查詢圖4.1.1 系統(tǒng)功能模塊圖登錄成功選擇操作開(kāi)始用戶管理學(xué)籍管理班級(jí)管理課程設(shè)置成績(jī)管理退出系統(tǒng)添加修改查詢結(jié)束NY圖4.1.2 .系統(tǒng)流程圖2.3.2業(yè)務(wù)流程分析圖1 學(xué)籍管理業(yè)務(wù)流程圖圖2 成績(jī)管理第二層業(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ù)流圖“成績(jī)管理”圖6 學(xué)籍管理系統(tǒng)第三層數(shù)據(jù)流圖“成績(jī)分析”2.4數(shù)據(jù)字典數(shù)據(jù)字典條目：數(shù)據(jù)元素?cái)?shù)據(jù)元素系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號(hào)：條目名：學(xué)號(hào) 別名：屬于數(shù)據(jù)流： 個(gè)人信息 存儲(chǔ)處： 學(xué)籍表數(shù)據(jù)元素值： 代碼類型 取值范圍 意義 字符 代表一個(gè)學(xué)生簡(jiǎn)要說(shuō)明：每個(gè)學(xué)號(hào)代表了入學(xué)年份，學(xué)院，專業(yè)，班級(jí)，學(xué)號(hào)信息。 課程代碼代表了課程類型，學(xué)院，專業(yè)，課程編號(hào)。修改記錄：編寫：日期：審核：日期：注：其他數(shù)據(jù)元素略數(shù)據(jù)字典條目：數(shù)據(jù)流數(shù)據(jù)流系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號(hào)：條目名：學(xué)生信息 別名：來(lái)源： 教務(wù)處 去處： 學(xué)籍表數(shù)據(jù)流結(jié)構(gòu)： 學(xué)生檔案=學(xué)號(hào)+名字+性別+民族+專業(yè)+院系+地址+班級(jí)+父母姓名+出生年月+電話號(hào)碼+郵政編碼+備注 學(xué)生成績(jī)=課程號(hào)+課程名稱+學(xué)號(hào)+成績(jī)+備注 課程=課程號(hào)+課程名稱+授課老師簡(jiǎn)要說(shuō)明：包括了學(xué)生的個(gè)人信息修改記錄：編寫：日期：審核：日期： 注：其它數(shù)據(jù)流略數(shù)據(jù)字典條目：數(shù)據(jù)存儲(chǔ)數(shù)據(jù)存儲(chǔ)系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號(hào)：條目名：成績(jī) 別名：存儲(chǔ)組織： 二維表 記錄數(shù)： 主關(guān)鍵字： 成績(jī)記錄組成：課程號(hào)-課程名稱-學(xué)號(hào)-成績(jī)-備注項(xiàng)名：成績(jī)長(zhǎng)度：（字節(jié)）成績(jī)最多三位數(shù)簡(jiǎn)要說(shuō)明：每個(gè)學(xué)生每門課程對(duì)應(yīng)著一個(gè)成績(jī)修改記錄：編寫：日期：審核：日期：注：其它數(shù)據(jù)存儲(chǔ)略數(shù)據(jù)字典條目：加工數(shù)據(jù)加工系統(tǒng)名：學(xué)籍管理系統(tǒng) 編號(hào)：條目名：查詢 別名：輸入數(shù)據(jù)流：成績(jī) 輸出數(shù)據(jù)流：成績(jī)顯示結(jié)果加工邏輯： 按學(xué)號(hào)、班級(jí)或全部查詢出各人、各課程成績(jī)的具體情況簡(jiǎn)要說(shuō)明： 本處理提供各人、各課程的成績(jī)及個(gè)人信息的查詢修改記錄：編寫：日期：審核：日期：注：其它數(shù)據(jù)加工略3 系統(tǒng)設(shè)計(jì)3.1數(shù)據(jù)庫(kù)的實(shí)現(xiàn)3.1.1數(shù)據(jù)庫(kù)需求分析 用戶信息：包括的數(shù)據(jù)項(xiàng)有：用戶名、密碼、用戶描述。 學(xué)生基本信息：包括的數(shù)據(jù)項(xiàng)有：學(xué)生學(xué)號(hào)、學(xué)生姓名、性別、出生日期、班號(hào)、聯(lián)系電話、入校日期、家庭地址、備注等。 班級(jí)信息：包括的數(shù)據(jù)項(xiàng)有：班號(hào)、所在年級(jí)、班主任姓名、所在教室等。 課程基本信息：包括的數(shù)據(jù)項(xiàng)有：課程號(hào)、課程名稱、課程類別、課程描述等。 課程設(shè)置信息：包括的數(shù)據(jù)項(xiàng)有：年級(jí)信息、所學(xué)課程等。 學(xué)生成績(jī)信息：包括的數(shù)據(jù)項(xiàng)有：考試編號(hào)、所在班號(hào)、學(xué)生學(xué)號(hào)、學(xué)生姓名、所學(xué)課程、考試分?jǐn)?shù)等。3.1.2數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 學(xué)生基本信息班級(jí)成績(jī)課程圖1 學(xué)生實(shí)體ER圖 班級(jí)所在年級(jí)班主任所在教室班號(hào)圖2 班級(jí)實(shí)體ER圖 課程名稱編號(hào)描述類型 圖3 課程實(shí)體ER圖 年級(jí)包括班級(jí)設(shè)置課程課程圖4 年級(jí)實(shí)體ER圖 學(xué)生班級(jí)年級(jí)課程1nnnnmmnn111 圖5 實(shí)體之間關(guān)系ER圖現(xiàn)在需要將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為Access 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。3.2 界面的實(shí)現(xiàn)3.2.1登錄界面第一個(gè)出現(xiàn)在用戶面前的就是這個(gè)界面，因此要求漂亮、簡(jiǎn)潔。當(dāng)點(diǎn)擊立即登錄時(shí)校驗(yàn)數(shù)據(jù)庫(kù)中的用戶表中的數(shù)據(jù)是否和輸入的用戶名和密碼相對(duì)應(yīng)，庫(kù)中有相應(yīng)的信息才能進(jìn)入程序。3.2.2 主界面“主界面”包括菜單和經(jīng)過(guò)處理的圖片組成。在各個(gè)菜單中包含子菜單，各個(gè)菜單里添加顯示其功能的窗體的代碼，并且使“主界面”的enabled屬性為true（主界面可用）。在Form_Load()中根添加代碼，是登錄用的根據(jù)用戶的級(jí)別限制某些菜單可用或者不可用。UserType = True為超級(jí)用戶，否則為一般用戶。如果是一般用戶系統(tǒng)管理、信息錄入、打印報(bào)表菜單將不可用。在Form_QueryUnload添加代碼，就是退出的時(shí)候釋放掉所有窗口的資源免得造成內(nèi)存泄漏，cn.Close是關(guān)閉ADO連接，F(xiàn)or Each frm In Forms是銷毀所有窗口。 3.2.3班級(jí)管理此模塊包括添加班級(jí)和班級(jí)瀏覽兩個(gè)功能，分別實(shí)現(xiàn)班級(jí)的建立和班級(jí)的瀏覽查詢，在每年新生報(bào)到之前要先建立好班級(jí)這樣新生報(bào)到時(shí)就可以直接進(jìn)入班級(jí)。3.2.4 檔案管理此模塊包括檔案添加，瀏覽，查詢?nèi)齻€(gè)功能，此模塊和數(shù)據(jù)庫(kù)中的學(xué)生學(xué)籍表連接，通過(guò)登記注冊(cè)學(xué)籍，瀏覽學(xué)生檔案模塊通過(guò)一個(gè)動(dòng)態(tài)的樹(shù)狀菜單動(dòng)態(tài)和學(xué)籍表連接，方便用戶查詢和了解班級(jí)學(xué)生的信息。查詢功能可以實(shí)現(xiàn)多個(gè)字段的精確及模糊查詢，方便用戶查詢學(xué)生的信息。3.2.5 課程管理此模塊包括基本課程設(shè)置和班級(jí)課程設(shè)置，基本課程設(shè)置是確定學(xué)校里要開(kāi)的所有課程，班級(jí)課程設(shè)置是從基本課程里選擇這學(xué)期要學(xué)的課程。3.2.6成績(jī)管理此模塊包括成績(jī)的錄入和查詢，其中錄入模塊通過(guò)選擇班級(jí)和課程給班級(jí)選本課的學(xué)生錄入成績(jī)，而且添加的校驗(yàn)功能可以實(shí)現(xiàn)及時(shí)顯示班級(jí)的成績(jī)狀態(tài)，成績(jī)的瀏覽查詢可以實(shí)現(xiàn)班級(jí)成績(jī)的信息，并實(shí)現(xiàn)了打印功能。并在其中實(shí)現(xiàn)了自動(dòng)顯示其平均分，并且低于60分以下的成績(jī)用紅色顯示，使用戶更加方便的查詢班級(jí)的成績(jī)信息。4 數(shù)據(jù)測(cè)試進(jìn)行系統(tǒng)測(cè)試主要有兩種方法：靜態(tài)測(cè)試和動(dòng)態(tài)測(cè)試，我們主要采用動(dòng)態(tài)測(cè)試的方法。動(dòng)態(tài)測(cè)試是通過(guò)運(yùn)行程序來(lái)檢驗(yàn)軟件的動(dòng)態(tài)特性和運(yùn)行結(jié)果的正確性，并根據(jù)程序的運(yùn)行過(guò)程對(duì)程序進(jìn)行評(píng)價(jià)的過(guò)程。動(dòng)態(tài)測(cè)試包括運(yùn)行、解釋和模擬。具體的測(cè)試方法有：黑盒子測(cè)試。一種以需求和功能規(guī)范及界面為基礎(chǔ)的測(cè)試方法。它無(wú)需了解軟件的內(nèi)容結(jié)構(gòu)。白盒子測(cè)試。一種以程序?yàn)榛A(chǔ)的或以程序和需求相結(jié)合為基礎(chǔ)的測(cè)試方法。它必須了解程序的結(jié)構(gòu)而不考慮程序的功能?；液凶訙y(cè)試。上述兩種測(cè)試方法的結(jié)合。通常先用黑盒子方法設(shè)計(jì)測(cè)試案例，然后盡可能多地用白盒子方法完成測(cè)試。采用以下數(shù)據(jù)測(cè)試軟件，對(duì)于測(cè)試過(guò)程中發(fā)現(xiàn)的問(wèn)題，包括語(yǔ)法錯(cuò)誤、邏輯錯(cuò)誤等，通過(guò)分析，都進(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 用戶名錯(cuò)誤！, 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 密碼錯(cuò)誤！, 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班級(jí)設(shè)置Dim classstr As StringPublic Sub classload()Dim mrc As ADODB.RecordsetIf classmodi Then 如果是修改狀態(tài) Me.Caption = 修改班級(jí)設(shè)置 classstr = select * from class where 班級(jí)= & 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 = 添加班級(jí)設(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 班級(jí)= & Trim(Text1(1).Text) & Set mrc = ExecuteSQL(classstr) If mrc.EOF = False Then sss = MsgBox(已經(jīng)存在該班級(jí)的設(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 班級(jí)= & 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 = 無(wú) 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é)號(hào) .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性別 .TextMatrix(0, 4) = 年級(jí) .TextMatrix(0, 5) = 班級(jí) .TextMatrix(0, 6) = 年制 .TextMatrix(0, 7) = 出生年月 .TextMatrix(0, 8) = 家庭住址 .TextMatrix(0, 9) = 郵政編碼 .TextMatrix(0, 10) = 聯(lián)系電話 .TextMatrix(0, 11) = 入學(xué)時(shí)間 .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(對(duì)不起，沒(méi)有此學(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 = 年級(jí)TreeView1.LineStyle = tvwRootLinesstr = select distinct 年級(jí) from class order by 年級(jí)Set mrc = ExecuteSQL(str)str = select distinct 年級(jí),班級(jí) from class order by 年級(jí),班級(jí)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(你還沒(méi)有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能修改記錄，請(qǐng)與管理員聯(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(你還沒(méi)有選擇記錄！, vbOKOnly + vbExclamation, 警告) Else If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If MsgBox(確定要?jiǎng)h除學(xué)號(hào)為 & Trim(Me.MSF1.TextMatrix(MSF1.row, 1) & 的記錄嗎？ & Chr(10) & Chr(13) & 該操作會(huì)導(dǎo)致該學(xué)生交費(fèi)記錄和成績(jī)記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intcount = Me.MSF1.row txtsql = delete * from xj where 學(xué)號(hào)= & Trim(Me.MSF1.TextMatrix(MSF1.row, 1) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from cj where 學(xué)號(hào)= & 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(沒(méi)有當(dāng)前記