畢業(yè)設(shè)計(jì)（論文）-基于VB的學(xué)生管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)設(shè)計(jì).doc

題 目 基于vb的學(xué)生管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)目錄【內(nèi)容摘要】【關(guān)鍵詞】 第一章 概述 1.1 開發(fā)背景. 1.2 開發(fā)環(huán)境第二章 系統(tǒng)分析和設(shè)計(jì) 2.1 系統(tǒng)業(yè)務(wù)流程圖. 2.2 系統(tǒng)邏輯模型的提出. 2.3 總提模塊的劃分. 2.4各個(gè)模塊的功能 2.5數(shù)據(jù)庫(kù)的設(shè)計(jì).第三章 系統(tǒng)實(shí)現(xiàn)3.1公共模塊.3.2登陸系統(tǒng).3.3系統(tǒng)管理.3.4學(xué)生檔案管理.3.5班級(jí)管理.3.6課程管理.3.7成績(jī)管理.第四章總結(jié).第五章參考文獻(xiàn)【內(nèi)容摘要】無(wú)論學(xué)校大小，每個(gè)學(xué)校手里總是會(huì)有很多很多的學(xué)生檔案，而且隨著一年一年的累積，學(xué)校規(guī)模的逐漸擴(kuò)大，學(xué)生檔案信息是越來(lái)越多。現(xiàn)在隨著中國(guó)加入了wto，很多的企業(yè)為了能夠加強(qiáng)自己的競(jìng)爭(zhēng)力，都不約而同的在工作效率和管理的規(guī)范性方面下功夫?，F(xiàn)在計(jì)算機(jī)化管理已經(jīng)不知不覺中滲透到了各行各業(yè)，并且提高了這些行業(yè)的效率。學(xué)校雖然不算是一個(gè)純粹的企業(yè)，但是學(xué)校的管理一樣需要信息化，而且現(xiàn)在的學(xué)校逐漸的往大規(guī)模的方向發(fā)展，信息化對(duì)于學(xué)校就顯的更加的重要了。以前的手工管理,已經(jīng)越來(lái)越不適應(yīng)學(xué)校的發(fā)展要求了。針對(duì)這種情況下，我設(shè)計(jì)了這么一個(gè)簡(jiǎn)單的學(xué)生檔案管理系統(tǒng)，雖然很小，但是呢，還是有一定的使用價(jià)值的?！娟P(guān)鍵詞】學(xué)生檔案管理系統(tǒng) vb6.0 管理信息系統(tǒng)第一章 概述11開發(fā)背景現(xiàn)在的社會(huì)日新月異，發(fā)展的非?？?。學(xué)校的發(fā)展也是非常的快了，而且每年都有不同的要求。學(xué)生的量也非常的大，資料可能經(jīng)常性的發(fā)生更換，原來(lái)手工的管理模式就顯的不怎么的合適了。而且手工的數(shù)據(jù)是存放在多處的，沒有使用統(tǒng)一管理的模式，數(shù)據(jù)整理非常的麻煩，統(tǒng)計(jì)也困難,很多的情況下，老師都是在重復(fù)一些相同的工作。做一些相似的報(bào)表，這樣不但降低了工作效率，而且非常的容易出錯(cuò)。在這種條件下，使用微機(jī)管理就顯的非常的合適了。只要你正確的錄入，統(tǒng)計(jì)，報(bào)表輸出一點(diǎn)問題都沒有的。學(xué)生做為學(xué)校的最主要的管理對(duì)象，學(xué)生檔案管理系統(tǒng)就成了學(xué)校信息化管理系統(tǒng)中中不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的管理者說都至關(guān)重要。但一直以來(lái)人們使用傳統(tǒng)人工的方式進(jìn)行學(xué)生的檔案管理，這種管理方式存在著許多缺點(diǎn),如:效率低,容易出錯(cuò)，格式不規(guī)范。另外時(shí)間一長(zhǎng)，不容易進(jìn)行統(tǒng)計(jì)和分析。隨著科學(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é)校學(xué)生檔案管理的效率。因此，開發(fā)這樣一套管理軟件成為很有必要的事情。而且只要軟件的設(shè)計(jì)合理，可以為學(xué)校提供合理的管理模式。12開發(fā)運(yùn)行環(huán)境在操作系統(tǒng)方面，雖然現(xiàn)在linux的發(fā)展速度非常的快，但是對(duì)于大多數(shù)的使用者來(lái)說，操作顯然沒有微軟的windows那么的流行和傻瓜化。而且現(xiàn)在計(jì)算機(jī)的運(yùn)算速度已經(jīng)不能和以前相提并論了，而且硬件的價(jià)格也一天天的在下降了，所以也不用為了節(jié)省整體的造價(jià)而改用硬件要求很低的dos系統(tǒng)了。所以我們決定該檔案管理系統(tǒng)將運(yùn)行在強(qiáng)大的工具來(lái)協(xié)助管理人員輕松地進(jìn)行與數(shù)據(jù)庫(kù)的連接和管理。綜上所述，我們選擇了visual basic+sql來(lái)開發(fā)整個(gè)系統(tǒng)。第二章 系統(tǒng)分析和設(shè)計(jì)21系統(tǒng)業(yè)務(wù)流程圖詳細(xì)調(diào)查的重點(diǎn)是對(duì)管理業(yè)務(wù)的流程進(jìn)行描述，通過采用系統(tǒng)流程圖中部分圖形工具來(lái)描述管理活動(dòng)，進(jìn)行規(guī)范化說明。業(yè)務(wù)流程圖的符號(hào)說明如圖21所示：1、 2、 3、 4、 5、系統(tǒng)中人員 實(shí)體或單據(jù) 實(shí)物或信息流 處理 數(shù)據(jù)存儲(chǔ)圖21 業(yè)務(wù)流程圖圖例詳細(xì)調(diào)查之后，繪制出的學(xué)生檔案管理系統(tǒng)的管理業(yè)務(wù)流程圖如圖22所示。每學(xué)年9月份各班學(xué)生名單各班學(xué)生名單(空白，供填寫學(xué)生成績(jī)）學(xué)生檔案處理報(bào)表教導(dǎo)處存檔校領(lǐng)導(dǎo)各班主任各年級(jí)主任各班學(xué)生名單微機(jī)室教導(dǎo)處轉(zhuǎn)退復(fù)留學(xué)生名單錄入有關(guān)信息打印各班名單學(xué)生檔案處理學(xué)生檔案處理報(bào)表學(xué)生檔案處理報(bào)表年級(jí)主任 圖22 學(xué)生檔案管理系統(tǒng)業(yè)務(wù)流程圖2.2系統(tǒng)邏輯模型的提出系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在對(duì)學(xué)生成績(jī)管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對(duì)象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來(lái)勾畫系統(tǒng)的概貌。2.2.1數(shù)據(jù)流圖（簡(jiǎn)稱為dfd）數(shù)據(jù)流圖是組織中信息運(yùn)動(dòng)的抽象。是在調(diào)研的基礎(chǔ)上，從系統(tǒng)的科學(xué)性、管理的合理性、實(shí)際運(yùn)動(dòng)的可行性角度出發(fā)。將信息處理功能和彼此之間的聯(lián)系自頂向下，逐層分解，從邏輯上精確地描述系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲(chǔ)及數(shù)據(jù)來(lái)源和去向（外部實(shí)體）等項(xiàng)目。首先，分析學(xué)生檔案管理的總體情況，劃分系統(tǒng)邊界，識(shí)別系統(tǒng)的數(shù)據(jù)來(lái)源和去處，確定外部實(shí)體，得出系統(tǒng)的頂層數(shù)據(jù)流程圖；然后劃分出幾個(gè)主要的信息管理功能，并明確各功能之間的聯(lián)系，繪制出數(shù)據(jù)流程圖。數(shù)據(jù)流程圖的符號(hào)說明如圖23所示。學(xué)生檔案管理系統(tǒng)的頂層數(shù)據(jù)流程圖如圖24所示。學(xué)生檔案管理系統(tǒng)的數(shù)據(jù)流程圖如圖25所示 外部實(shí)體 處理 數(shù)據(jù)流 數(shù)據(jù)存儲(chǔ) 圖23 數(shù)據(jù)流程圖的符號(hào)學(xué)生簡(jiǎn)明情況p學(xué)生檔案處理 用戶 校領(lǐng)導(dǎo)學(xué)生檔案報(bào)表d1 圖24 學(xué)生檔案處理的頂層數(shù)據(jù)流程圖 222數(shù)據(jù)字典（簡(jiǎn)稱為dd）繪制dfd,只是對(duì)數(shù)據(jù)處理和彼此之間的聯(lián)系進(jìn)行了說明。為進(jìn)一步明確數(shù)據(jù)的詳細(xì)內(nèi)。述清楚,以便于此后系統(tǒng)設(shè)計(jì)的進(jìn)行。這就需要開發(fā)人員編寫詳細(xì)的數(shù)據(jù)字典。據(jù)項(xiàng)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)、加工處理和數(shù)據(jù)結(jié)構(gòu)的數(shù)據(jù)字典。23 總體模塊劃分學(xué)生信息管理是一項(xiàng)非常重要的工作，它負(fù)責(zé)整個(gè)學(xué)校的檔案管理，學(xué)生資料管理成績(jī)管理等，教務(wù)工作者急切希望計(jì)算機(jī)提高工作效率。在各大中小學(xué)校中，用計(jì)算機(jī)管理學(xué)校的信息已經(jīng)越來(lái)有越普遍了。采用學(xué)生信息管理系統(tǒng)不僅可以節(jié)省人力物力，而且增強(qiáng)學(xué)校資料的安全性，提高了學(xué)校的管理能力在第一章的開發(fā)背景中已經(jīng)說明了本學(xué)生檔案管理系統(tǒng)的流程了,于是在下面的這個(gè)功能設(shè)計(jì)中，我們將針對(duì)這里的流程進(jìn)行設(shè)計(jì)。我們把系統(tǒng)功能分為如下圖。學(xué)生檔案管理系統(tǒng)班級(jí)管理學(xué)生檔案管理課程管理成績(jī)管理系統(tǒng)管理231、登陸系統(tǒng)對(duì)于這類系統(tǒng)如果誰(shuí)都能登陸到本系統(tǒng)的話，系統(tǒng)里面的數(shù)據(jù)將非常的危險(xiǎn)和有可能會(huì)受到蓄意破壞者的攻擊了。考慮到數(shù)據(jù)的安全性，用戶必須擁有密碼才能夠登陸到本系統(tǒng)的主頁(yè)面。232、主頁(yè)面有5個(gè)菜單。分別為。系統(tǒng)管理，學(xué)生檔案管理，班級(jí)管理，課程管理，成績(jī)管理。對(duì)于這個(gè)主頁(yè)面。我們可以完成所有對(duì)學(xué)生檔案的管理，修改，查詢。方便登陸的用戶進(jìn)行一系列的操作，提供了方便。24各個(gè)模塊的功能系統(tǒng)管理：系統(tǒng)菜單包括有兩個(gè)功能添加用戶對(duì)于一個(gè)系統(tǒng)來(lái)說，永遠(yuǎn)不可能只是存在一個(gè)用戶，用戶的添加體現(xiàn)了這個(gè)系統(tǒng)的方便靈活性，適合多人來(lái)使用。所有設(shè)計(jì)了這個(gè)功能是理所當(dāng)然的。學(xué)生檔案管理：包括添加檔案菜單，檔案瀏覽菜單。檔案添加正如一個(gè)添加用戶一樣。永遠(yuǎn)不可能只是存在一個(gè)學(xué)生的學(xué)籍信息，學(xué)生畢業(yè)后會(huì)有新的學(xué)生進(jìn)來(lái)，自然要添加新的學(xué)生學(xué)籍信息。這個(gè)菜單恰好提供這個(gè)功能，檔案瀏覽當(dāng)我們將學(xué)生的學(xué)籍信息存放在數(shù)據(jù)庫(kù)中，最大的方便就是我們有需要知道學(xué)生的學(xué)籍信息時(shí)能夠及時(shí)查詢到。因?yàn)槿说挠洃浻邢?，不可能記得住所有學(xué)生的學(xué)籍信息以及相關(guān)的一系列資料，所以就要靠查詢學(xué)籍信息來(lái)實(shí)現(xiàn)了。這個(gè)菜單的功能最大的優(yōu)點(diǎn)就是方便。班級(jí)管理單：包括班級(jí)瀏覽菜單，班級(jí)添加菜單 班級(jí)添加菜單 每一年，學(xué)校都會(huì)增見新的年級(jí)，因此就會(huì)有新的班級(jí)信息添加。 班級(jí)瀏覽菜單可以方便學(xué)校統(tǒng)一瀏覽班級(jí)的信息課程管理菜單：包括基本課程設(shè)置，基本課程設(shè)置 可以對(duì)課程的信息進(jìn)行修改增加班級(jí)課程設(shè)置 可以選擇班級(jí)相應(yīng)的課程。成績(jī)管理菜單：包括添加添加成績(jī)，修改成就，查詢成績(jī)?？荚囶愋驮O(shè)置不同的功課自然有不同的成績(jī)。我們針對(duì)這個(gè)提前對(duì)考試類型做下設(shè)置。方便學(xué)校同學(xué)老師查成績(jī)。 成績(jī)添加 現(xiàn)今的教育 ，學(xué)生的成績(jī)是體現(xiàn)學(xué)生在學(xué)校的表現(xiàn)之一。也可以作為對(duì)學(xué)生評(píng)價(jià)的準(zhǔn)則之一。因次添加學(xué)生的成績(jī)是比較重要的一個(gè)功能。成績(jī)?yōu)g覽一個(gè)完成的學(xué)生管理系統(tǒng)，自然要提供學(xué)生的查詢，方便學(xué)生和老師25 數(shù)據(jù)庫(kù)設(shè)計(jì)251數(shù)據(jù)庫(kù)表的建立系統(tǒng)數(shù)據(jù)庫(kù)名稱為studengmis。其中包括allkechengcjclassclasskechengkaoshileixinguserinfoxj第三章 系統(tǒng)實(shí)現(xiàn)3.1公共模塊 module1模塊主要三個(gè)函數(shù)組成，函數(shù)executesql用于執(zhí)行響應(yīng)的sql命令，函數(shù)connstring用于連接字符串，函數(shù)executeqx用于檢查權(quán)限。代碼如下：public modi as booleanpublic classmodi as booleanpublic xuefeimodi as booleanpublic txtsql as stringpublic find as booleanpublic classfind as booleanpublic xuefeifind as booleanpublic username as stringpublic qxstr as string執(zhí)行相應(yīng)的sql命令public function executesql(byval sql as string) as adodb.recordset dim mycon as adodb.connection dim rst as adodb.recordset set mycon = new adodb.connection mycon.connectionstring = connstring mycon.open dim stokens() as string on error goto exectuesql_error stokens = split(sql) if instr(inser,delete,update, ucase(stokens(0) then mycon.execute sql else set rst = new adodb.recordset rst.open trim(sql), mycon, adopenkeyset, adlockoptimistic set executesql = rst end ifexectuesql_exit: set rst = nothing set mycon = nothing exit functionexectuesql_error: resume exectuesql_exitend function連接字符串，用戶可以根據(jù)自己的數(shù)據(jù)庫(kù)進(jìn)行修改相應(yīng)參數(shù)public function connstring() as string connstring = provider=sqloledb.1;persist security info=false;uid=sa;pwd=12345;initial catalog=studentmis;data source=(local)end function檢查用戶的權(quán)限public function executeqx(byval txt as integer) as string dim sql as string dim mycon as adodb.connection dim rst as adodb.recordset set mycon = new adodb.connection mycon.connectionstring = connstring mycon.open set rst = new adodb.recordset sql = select admin from userinfo where username= & username & rst.open trim(sql), mycon, adopenkeyset, adlockoptimistic if rst.eof = true then msgbox 非法用戶！, vbexclamation + vbokonly, 警告 executeqx = nothing exit function end if if rst.fields(0) = y then executeqx = admin exit function end if rst.close sql = select readonly from userinfo where username= & username & rst.open trim(sql), mycon, adopenkeyset, adlockoptimistic if rst.fields(0) = y then executeqx = readonly exit function end if select case txt case 1 sql = select qx1 from userinfo where username= & username & case 2 sql = select qx2 from userinfo where username= & username & case 3 sql = select qx3 from userinfo where username= & username & end select on 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 function32登陸系統(tǒng) 這個(gè)模塊主要有確定跟取消組成。確定按紐的主要功能是檢查用戶名和用戶密碼是否正確。以及確定權(quán)限。取消按紐則是退出該功能。代碼如下private sub command1_click() dim mrc as adodb.recordset txtsql = select username from userinfo where username= & trim(text1.text) & set mrc = executesql(txtsql) if mrc.eof = true then msgbox 用戶名錯(cuò)誤！, vbexclamation + vbokonly, 警告 text1.setfocus text1.selstart = 0 text1.sellength = len(text1.text) exit sub end if username = mrc.fields(0) txtsql = select username from userinfo where password= & trim(text2.text) & set mrc = executesql(txtsql) if mrc.eof = true then msgbox 密碼錯(cuò)誤！, vbexclamation + vbokonly, 警告 text2.setfocus text2.selstart = 0 text2.sellength = len(text2.text) exit sub end if mdiform1.show unload meend subprivate sub command2_click() unload meend subprivate sub text1_keypress(keyascii as integer) if keyascii = 13 then text2.setfocus end ifend subprivate sub text2_keypress(keyascii as integer) if keyascii = 13 then command1.setfocus end ifend sub33系統(tǒng)管理 這個(gè)模塊的功能主要是添加用戶。并且設(shè)置權(quán)限。代碼如下private sub command1_click()if trim(text1(0).text) = then msgbox 用戶名不能為空！, vbexclamation + vbokonly, 警告 text1(0).setfocus exit subend ifif trim(text1(1).text) = then msgbox 密碼不能為空！, vbexclamation + vbokonly, 警告 text1(1).setfocus exit subend ifif trim(text1(2).text) = then msgbox 確認(rèn)密碼不能為空！, vbexclamation + vbokonly, 警告 text1(2).setfocus exit subend ifif trim(text1(1).text) trim(text1(2).text) then msgbox 確認(rèn)密碼不正確！, vbexclamation + vbokonly, 警告 text1(2).setfocus exit subend ifdim aa as integeraa = 0if option1(2).value = true then for i = 0 to 3 if check1(i).value = 1 then aa = 1 exit for end ifnext iif aa = 0 then msgbox 普通用戶至少要有一項(xiàng)權(quán)限！, vbexclamation + vbokonly, 警告exit subend ifend ifdim mrc as adodb.recordsettxtsql = select * from userinfo where username= & trim(text1(0).text) & set mrc = executesql(txtsql)if mrc.eof = false then msgbox 已存在該用戶！, vbexclamation + vbokonly, 警告 text1(0).setfocus text1(0).selstart = 0 text1(0).sellength = len(text1(0).text) exit subend iftxtsql = select * from userinfoset mrc = executesql(txtsql)mrc.addnew mrc.fields(0) = trim(text1(0).text) mrc.fields(1) = trim(text1(1).text)for i = 0 to 2 if option1(i).value = true then select case i case 0 mrc.fields(admin) = y case 1 mrc.fields(readonly) = y case 2 for j = 0 to 2 if check1(j).value = 1 then select case j case 0 mrc.fields(qx1) = y case 1 mrc.fields(qx2) = y case 2 mrc.fields(qx3) = y end select end if next j end select end if next i mrc.update msgbox 用戶添加成功！, vbexclamation + vbokonly, 警告 text1(0).text = text1(1).text = text1(2).text = end subprivate sub command2_click()unload meend subprivate sub form_load()option1(2).value = trueend subprivate sub form_resize()text1(0).setfocusend subprivate sub option1_click(index as integer)if index 2 thenfor i = 0 to 2 check1(i).enabled = falsenext ielsefor i = 0 to 2 check1(i).enabled = truenext iend ifend sub34學(xué)生檔案管理 檔案添加窗體的主要功能是錄入學(xué)生的基本檔案。代碼如下dim txtsql1 as stringprivate sub combo1_click(index as integer) dim mrc as adodb.recordset txtsql1 = select 專業(yè),年制 from class where 班級(jí)= & trim(combo1(1).text) & set mrc = executesql(txtsql1) mrc.closeend subprivate sub combo1_keypress(index as integer, keyascii as integer) if keyascii = 13 then sendkeys tab end ifend subprivate sub command1_click() for j = 0 to 7 if text1(j) = then ss = msgbox(label1(j).caption & 不能為空！, vbexclamation + vbokonly, 警告) text1(j).setfocus text1(j).selstart = 0 text1(j).sellength = len(text1(j).text) exit sub end if next dim mrc as adodb.recordset txtsql1 = select * from xj where 學(xué)號(hào)= & trim(text1(0).text) & set mrc = executesql(txtsql1) if modi = false then if mrc.eof = false then sss = msgbox(已經(jīng)存在該學(xué)號(hào)的記錄,學(xué)號(hào)不能重復(fù)！, vbexclamation + vbokonly, 警告) text1(0).setfocus text1(0).selstart = 0 text1(0).sellength = len(text1(0).text) mrc.close exit sub end if end if if not isdate(text1(2).text) then 判斷是否日期格式 ssss = msgbox(應(yīng)輸入日期 mm-dd-yy, vbinformation + vbokonly, 警告) text1(2).setfocus text1(2).selstart = 0 text1(2).sellength = len(text1(2).text) exit sub end if if not isdate(text1(6).text) then ssss = msgbox(應(yīng)輸入日期 mm-dd-yy, vbinformation + vbokonly, 警告) text1(6).setfocus text1(6).selstart = 0 text1(6).sellength = len(text1(6).text) exit sub end if if modi = true then txtsql1 = update xj set 學(xué)號(hào)= & trim(text1(0).text) & ,姓名= & trim(text1(1).text) & ,性別= & trim(combo1(0).text) & ,班級(jí)= & trim(combo1(1).text) & ,出生年月= & trim(text1(2).text) & ,家庭住址= & trim(text1(3).text) & ,郵政編碼= & trim(text1(4).text) & ,聯(lián)系電話= & trim(text1(5).text) & ,入學(xué)時(shí)間= & trim(text1(6).text) & ,備注= & trim(text1(7).text) & where 學(xué)號(hào)= & trim(form3.msf1.textmatrix(form3.msf1.row, 1) & set mrc = executesql(txtsql1) txtsql1 = update cj set 學(xué)號(hào)= & trim(text1(0).text) & where 學(xué)號(hào)= & trim(form3.msf1.textmatrix(form3.msf1.row, 1) & set mrc = executesql(txtsql1) txtsql1 = update jf set 學(xué)號(hào)= & trim(text1(0).text) & where 學(xué)號(hào)= & trim(form3.msf1.textmatrix(form3.msf1.row, 1) & set mrc = executesql(txtsql1) unload me exit sub end if txtsql1 = select * from xj set mrc = executesql(txtsql1) mrc.addnew for i = 4 to 9 mrc.fields(i) = text1(i - 2).text next i mrc.fields(0) = trim(text1(0).text) mrc.fields(1) = trim(text1(1).text) mrc.fields(2) = trim(combo1(0).text) mrc.fields(3) = trim(combo1(1).text) mrc.update set mrc = nothing for j = 0 to 7 text1(j) = nextend subprivate sub command2_click() unload meend subprivate sub form_activate() text1(0).setfocus form1.load1end subpublic sub load1() dim mrc as adodb.recordset txtsql1 = select distinct 班級(jí) from class order by 班級(jí) set mrc = executesql(txtsql1) if mrc.eof then ddd = msgbox(請(qǐng)先設(shè)置班級(jí)部署！, 警告) mrc.close exit sub end if combo1(1).clear mrc.movefirst do while not mrc.eof combo1(1).additem mrc.fields(0) mrc.movenext loop combo1(1).listindex = 0 combo1(0).listindex = 0 if modi then 如果是修改狀態(tài) me.caption = 修改 txtsql1 = select * from xj where 學(xué)號(hào)= & trim(form3.msf1.textmatrix(form3.msf1.row, 1) & set mrc = executesql(txtsql1) mrc.movefirst for i = 4 to 9 text1(i - 2).text = mrc.fields(i) next i text1(0).text = mrc.fields(0) text1(1).text = mrc.fields(1) combo1(0).text = mrc.fields(2) combo1(1).text = mrc.fields(3) mrc.close else me.caption = 登記 for i = 2 to 7 text1(i).text = next i text1(6).text = date text1(0).text = text1(1).text = end ifend subprivate sub text1_gotfocus(index as integer) if index = 6 then text1(6).selstart = 0 text1(6).sellength = len(text1(6).text) end ifend subprivate sub text1_keypress(index as integer, keyascii as integer) if keyascii = 13 then sendkeys tab end ifend 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) = 專業(yè) .textmatrix(0, 7) = 年制 .textmatrix(0, 8) = 出生年月 .textmatrix(0, 9) = 家庭住址 .textmatrix(0, 10) = 郵政編碼 .textmatrix(0, 11) = 聯(lián)系電話 .textmatrix(0, 12) = 入學(xué)時(shí)間 .textmatrix(0, 13) = 備注 .colwidth(0) = 200 .colwidth(1) = 500 .colwidth(2) = 700 .colwidth(3) = 500 .colwidth(4) = 1000 .colwidth(5) = 800 .colwidth(6) = 700 .colwidth(7) = 800 .colwidth(8) = 800 .colwidth(9) = 3000 .colwidth(10) = 800 .colwidth(11) = 1000 .colwidth(12) = 800 .colwidth(13) = 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ì)不起，沒有此學(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.recordsetdi