基于vb的學(xué)生管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)設(shè)計

上傳人：奔*** IP屬地：河北更新時間：2024-03-02 格式：docx 頁數(shù)：52 大?。?9.94KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩51頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　題目基于VB的學(xué)生管理系統(tǒng)設(shè)計與實現(xiàn)　　目錄　　【內(nèi)容摘要】…………………………………………………　　【關(guān)鍵詞】 …………………………………………………　　第一章概述

2、;　　1.1 開發(fā)背景…………………………………………….　　1.2 開發(fā)環(huán)境……………………………………………　　第二章系統(tǒng)分析和設(shè)計　　2.1 系統(tǒng)業(yè)務(wù)流程圖…………………………………..　　2.2 系統(tǒng)邏輯模型的提出………

3、……………………..　　2.3 總提模塊的劃分……………………………..　　2.4各個模塊的功能……………………………………　　2.5數(shù)據(jù)庫的設(shè)計……………………………….　　第三章系統(tǒng)實現(xiàn)　　3.1公共模塊……………………

4、…………………………..　　3.2登陸系統(tǒng)……………………………………………….　　3.3系統(tǒng)管理……………………………………………..　　3.4學(xué)生檔案管理………………………………………..　　3.5班級管理………………………………………………..

5、　　3.6課程管理………………………………………………..　　3.7成績管理……………………………………………….　　第四章總結(jié)………………………………………………….　　第五章參考文獻………………………………………………　　【內(nèi)容摘

6、要】　　無論學(xué)校大小，每個學(xué)校手里總是會有很多很多的學(xué)生檔案，而且隨著一年一年的累積，學(xué)校規(guī)模的逐漸擴大，學(xué)生檔案信息是越來越多?，F(xiàn)在隨著中國加入了WTO，很多的企業(yè)為了能夠加強自己的競爭力，都不約而同的在工作效率和管理的規(guī)范性方面下功夫?，F(xiàn)在計算機化管理已經(jīng)不知不覺中滲透到了各行各業(yè)，并且提高了這些行業(yè)的效率。學(xué)校雖然不算是一個純粹的企業(yè)，但是學(xué)校的管理一樣需要信息化，而且

7、現(xiàn)在的學(xué)校逐漸的往大規(guī)模的方向發(fā)展，信息化對于學(xué)校就顯的更加的重要了。以前的手工管理,已經(jīng)越來越不適應(yīng)學(xué)校的發(fā)展要求了。針對這種情況下，我設(shè)計了這么一個簡單的學(xué)生檔案管理系統(tǒng)，雖然很小，但是呢，還是有一定的使用價值的。　　【關(guān)鍵詞】學(xué)生檔案管理系統(tǒng) VB6.0 管理信息系統(tǒng)　　第一章概述

8、　　1．1 開發(fā)背景　　現(xiàn)在的社會日新月異，發(fā)展的非?？臁W(xué)校的發(fā)展也是非常的快了，而且每年都有不同的要求。學(xué)生的量也非常的大，資料可能經(jīng)常性的發(fā)生更換，原來手工的管理模式就顯的不怎么的合適了。而且手工的數(shù)據(jù)是存放在多處的，沒有使用統(tǒng)一管理的模式，數(shù)據(jù)整理非常的麻煩，統(tǒng)計也困難,很多的情況下，老師都是在重復(fù)一些相同的工

9、作。做一些相似的報表，這樣不但降低了工作效率，而且非常的容易出錯。在這種條件下，使用微機管理就顯的非常的合適了。只要你正確的錄入，統(tǒng)計，報表輸出一點問題都沒有的。　　學(xué)生做為學(xué)校的最主要的管理對象，學(xué)生檔案管理系統(tǒng)就成了學(xué)校信息化管理系統(tǒng)中中不可缺少的部分，它的內(nèi)容對于學(xué)校的管理者說都至關(guān)重要。但一直以來人們使用傳統(tǒng)人工的方式進行學(xué)生的檔案管理，這種管理方式存在著許多缺點,如:效率低,容易出錯，

10、格式不規(guī)范。另外時間一長，不容易進行統(tǒng)計和分析。　　隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟，其強大的功能已為人們深刻認(rèn)識，它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分，使用計算機對學(xué)生檔案進行管理，具有手工管理所無法比擬的優(yōu)點。例如:檢索迅速、查找方便、可靠性高、存儲量大、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)校學(xué)生檔案管理的效率。因此，開發(fā)這樣一套管理軟件

11、成為很有必要的事情。而且只要軟件的設(shè)計合理，可以為學(xué)校提供合理的管理模式。　　1．2 開發(fā)運行環(huán)境　　在操作系統(tǒng)方面，雖然現(xiàn)在Linux的發(fā)展速度非常的快，但是對于大多數(shù)的使用者來說，操作顯然沒有微軟的WINDOWS那么的流行和傻瓜化。而且現(xiàn)在計算機的運算速度已經(jīng)不能和以前相提并論了，而且硬件的價格也一天天的在下降了，所以也不用為

12、了節(jié)省整體的造價而改用硬件要求很低的DOS系統(tǒng)了。所以我們決定該檔案管理系統(tǒng)將運行在強大的工具來協(xié)助管理人員輕松地進行與數(shù)據(jù)庫的連接和管理。　　綜上所述，我們選擇了Visual Basic+SQL來開發(fā)整個系統(tǒng)。　　第二章系統(tǒng)分析和設(shè)計　　2．1系統(tǒng)業(yè)務(wù)流程圖　　詳細調(diào)

13、查的重點是對管理業(yè)務(wù)的流程進行描述，通過采用系統(tǒng)流程圖中部分圖形工具來描述管理活動，進行規(guī)范化說明。業(yè)務(wù)流程圖的符號說明如圖2－1所示：　　1、 2、 3、 4、 5、　　系統(tǒng)中人員實體或單據(jù) 實物或信息流處理數(shù)據(jù)存儲

14、;　　圖2－1 業(yè)務(wù)流程圖圖例　　詳細調(diào)查之后，繪制出的學(xué)生檔案管理系統(tǒng)的管理業(yè)務(wù)流程圖如圖2－2所示。　　圖2－2 學(xué)生檔案管理系統(tǒng)業(yè)務(wù)流程圖　　2.2系統(tǒng)邏輯模型的提出　　系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)

15、的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在對學(xué)生成績管理方式和業(yè)務(wù)流程進行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來勾畫系統(tǒng)的概貌。　　2.2.1數(shù)據(jù)流圖（簡稱為DFD）　　數(shù)據(jù)流圖是組織中信息運動的抽象。是在調(diào)研的基礎(chǔ)上，從系統(tǒng)的科學(xué)性、管理的合理性、實際運

16、動的可行性角度出發(fā)。將信息處理功能和彼此之間的聯(lián)系自頂向下，逐層分解，從邏輯上精確地描述系統(tǒng)應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲及數(shù)據(jù)來源和去向（外部實體）等項目。　　首先，分析學(xué)生檔案管理的總體情況，劃分系統(tǒng)邊界，識別系統(tǒng)的數(shù)據(jù)來源和去處，確定外部實體，得出系統(tǒng)的頂層數(shù)據(jù)流程圖；　　然后劃分出幾個主要的信息管理功能，并明確各功能之間的聯(lián)系

17、，繪制出數(shù)據(jù)流程圖。　　數(shù)據(jù)流程圖的符號說明如圖2－3所示。　　學(xué)生檔案管理系統(tǒng)的頂層數(shù)據(jù)流程圖如圖2－4所示。　　學(xué)生檔案管理系統(tǒng)的數(shù)據(jù)流程圖如圖2－5所示　　外部實體處理數(shù)據(jù)流數(shù)據(jù)存儲<

18、p>　　圖2－3 數(shù)據(jù)流程圖的符號　　用戶校領(lǐng)導(dǎo)　　圖2－4 學(xué)生檔案處理的頂層數(shù)據(jù)流程圖　　2．2．2數(shù)據(jù)字典（簡稱為DD）　　繪制DFD,只是對數(shù)據(jù)處理和彼此之間的聯(lián)系進行了說明。為進一步

19、明確數(shù)據(jù)的詳細內(nèi)。。。。。。。述清楚,以便于此后系統(tǒng)設(shè)計的進行。這就需要開發(fā)人員編寫詳細的數(shù)據(jù)字典。。。。。據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲、加工處理和數(shù)據(jù)結(jié)構(gòu)的數(shù)據(jù)字典。　　2．3 總體模塊劃分　　學(xué)生信息管理是一項非常重要的工作，它負(fù)責(zé)整個學(xué)校的檔案管理，學(xué)生資料管理成績管理等，教務(wù)工作者急切希望計算機提高工作效率。在各大中小學(xué)校中，用計算機管理學(xué)校的信息已經(jīng)

20、越來有越普遍了。采用學(xué)生信息管理系統(tǒng)不僅可以節(jié)省人力物力，而且增強學(xué)校資料的安全性，提高了學(xué)校的管理能力　　在第一章的開發(fā)背景中已經(jīng)說明了本學(xué)生檔案管理系統(tǒng)的流程了,于是在下面的這個功能設(shè)計中，我們將針對這里的流程進行設(shè)計。我們把系統(tǒng)功能分為如下圖。　　2．3．1、登陸系統(tǒng)　　對于這類系統(tǒng)如果誰都能登陸到本系統(tǒng)的

21、話，系統(tǒng)里面的數(shù)據(jù)將非常的危險和有可能會受到蓄意破壞者的攻擊了?？紤]到數(shù)據(jù)的安全性，用戶必須擁有密碼才能夠登陸到本系統(tǒng)的主頁面。　　2．3．2、主頁面有5個菜單。分別為。系統(tǒng)管理，學(xué)生檔案管理，班級管理，課程管理，成績管理。　　對于這個主頁面。我們可以完成所有對學(xué)生檔案的管理，修改，查詢。方便登陸的用戶進行一系列的操作，提供了方便。

22、　　2．4各個模塊的功能　　系統(tǒng)管理：系統(tǒng)菜單包括有兩個功能　　添加用戶　　對于一個系統(tǒng)來說，永遠不可能只是存在一個用戶，用戶的添加體現(xiàn)了這個系統(tǒng)的方便靈活性，適合多人來使用。所有設(shè)計了這個功能是理所當(dāng)然的。　　學(xué)

23、生檔案管理：包括添加檔案菜單，檔案瀏覽菜單。　　檔案添加　　正如一個添加用戶一樣。永遠不可能只是存在一個學(xué)生的學(xué)籍信息，學(xué)生畢業(yè)后會有新的學(xué)生進來，自然要添加新的學(xué)生學(xué)籍信息。這個菜單恰好提供這個功能，　　檔案瀏覽

24、　　當(dāng)我們將學(xué)生的學(xué)籍信息存放在數(shù)據(jù)庫中，最大的方便就是我們有需要知道學(xué)生的學(xué)籍信息時能夠及時查詢到。因為人的記憶有限，不可能記得住所有學(xué)生的學(xué)籍信息以及相關(guān)的一系列資料，所以就要靠查詢學(xué)籍信息來實現(xiàn)了。這個菜單的功能最大的優(yōu)點就是方便。　　班級管理單：包括班級瀏覽菜單，班級添加菜單　　班級添加菜單

25、　　每一年，學(xué)校都會增見新的年級，因此就會有新的班級信息添加。　　班級瀏覽菜單　　可以方便學(xué)校統(tǒng)一瀏覽班級的信息　　課程管理菜單：包括基本課程設(shè)置，基本課程設(shè)置　　可以對課程的信息進行修改增加

26、　　班級課程設(shè)置　　可以選擇班級相應(yīng)的課程。　　成績管理菜單：包括添加添加成績，修改成就，查詢成績。　　考試類型設(shè)置　　不同的功課自然有不同的成績。我們針

27、對這個提前對考試類型做下設(shè)置。方便學(xué)校同學(xué)老師查成績。　　成績添加　　現(xiàn)今的教育，學(xué)生的成績是體現(xiàn)學(xué)生在學(xué)校的表現(xiàn)之一。也可以作為對學(xué)生評價的準(zhǔn)則之一。因次添加學(xué)生的成績是比較重要的一個功能。　　成績?yōu)g覽<

28、p>　　一個完成的學(xué)生管理系統(tǒng)，自然要提供學(xué)生的查詢，方便學(xué)生和老師　　2．5 數(shù)據(jù)庫設(shè)計　　2．5．1數(shù)據(jù)庫表的建立　　系統(tǒng)數(shù)據(jù)庫名稱為StudengMIS。其中包括①allkecheng②cj③class　?、躢lasske

29、cheng⑤kaoshileixing⑥userinfo⑦xj　　第三章系統(tǒng)實現(xiàn)　　3.1公共模塊　　Module1模塊主要三個函數(shù)組成，函數(shù)EXECUTESQL用于執(zhí)行響應(yīng)的SQL命令，函數(shù)CONNSTRING用于連接字符串，函數(shù)EX

30、ECUTEQX用于檢查權(quán)限。代碼如下：　　Public modi As Boolean　　Public classmodi As Boolean　　Public xuefeimodi As Boolean　　Public txtsql As String

31、;　　Public find As Boolean　　Public classfind As Boolean　　Public xuefeifind As Boolean　　Public username As String　　Public qxstr

32、 As String　　'執(zhí)行相應(yīng)的SQL命令　　Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset　　Dim mycon As ADODB.Connection　　Dim rst

33、As ADODB.Recordset　　Set mycon = New ADODB.Connection　　mycon.ConnectionString = connstring　　mycon.Open　　Dim stokens() As String

34、　　On Error GoTo exectuesql_error　　stokens = Split(sql)　　If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then　　mycon.Execute sql</p

35、>　　Else　　Set rst = New ADODB.Recordset　　rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic　　Set ExecuteSQL = rst</

36、p>　　End If　　exectuesql_exit:　　Set rst = Nothing　　Set mycon = Nothing　　Exit Function

37、;　　exectuesql_error:　　Resume exectuesql_exit　　End Function　　'連接字符串，用戶可以根據(jù)自己的數(shù)據(jù)庫進行修改相應(yīng)參數(shù)　　Public Function connstring() As String</

38、p>　　connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;UID=sa;PWD=12345;Initial Catalog=StudentMIS;Data Source=(local)"　　End Function

39、　'檢查用戶的權(quán)限　　Public Function Executeqx(ByVal txt As Integer) As String　　Dim sql As String　　Dim mycon As ADODB.Connection　　Di

40、m rst As ADODB.Recordset　　Set mycon = New ADODB.Connection　　mycon.ConnectionString = connstring　　mycon.Open　　Set rst = New ADODB.Records

41、et　　sql = "select admin from userinfo where username='" & username & "'"　　rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic

42、　　If rst.EOF = True Then　　MsgBox "非法用戶！", vbExclamation + vbOKOnly, "警告"　　Executeqx = "nothing"　　Exit Function</p&

43、gt;　　End If　　If rst.Fields(0) = "y" Then　　Executeqx = "admin"　　Exit Function

44、　End If　　rst.Close　　sql = "select readonly from userinfo where username='" & username & "'"

45、　rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic　　If rst.Fields(0) = "y" Then　　Executeqx = "readonly"　　Exit Function

46、　　End If　　Select Case txt　　Case 1　　sql = "select qx1 from userinfo where username='" & user

47、name & "'"　　Case 2　　sql = "select qx2 from userinfo where username='" & username & "'"<p&g

48、t;　　Case 3　　sql = "select qx3 from userinfo where username='" & username & "'"　　End Select　　On Error G

49、oTo exectuesql_error　　Set rst = New ADODB.Recordset　　rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic　　If rst.Fields(0) = "y" Then</p&g

50、t;　　Executeqx = "true"　　Else　　Executeqx = "false"　　End If　　exectues

51、ql_exit:　　Set rst = Nothing　　Set mycon = Nothing　　Exit Function　　exectuesql_error:　　Resume exectuesql_exit

52、;　　End Function　　3．2登陸系統(tǒng)　　這個模塊主要有確定跟取消組成。確定按紐的主要功能是檢查用戶名和用戶密碼是否正確。以及確定權(quán)限。取消按紐則是退出該功能。代碼如下　　Private Sub Command1_Click()</p&g

53、t;　　Dim mrc As ADODB.Recordset　　txtsql = "select username from userinfo where username='" & Trim(Text1.Text) & "'"　　Set mrc = Execu

54、teSQL(txtsql)　　If mrc.EOF = True Then　　MsgBox " 用戶名錯誤！", vbExclamation + vbOKOnly, "警告"　　Text1.SetFocus　　Text1.SelSt

55、art = 0　　Text1.SelLength = Len(Text1.Text)　　Exit Sub　　End If　　username = mrc.Fields(0)

56、　　txtsql = "select username from userinfo where password='" & Trim(Text2.Text) & "'"　　Set mrc = ExecuteSQL(txtsql)　　If mrc.EOF = True

57、 Then　　MsgBox " 密碼錯誤！", vbExclamation + vbOKOnly, "警告"　　Text2.SetFocus　　Text2.SelStart = 0　　Text2.SelLength = Len(Te

58、xt2.Text)　　Exit Sub　　End If　　MDIForm1.Show　　Unload Me<b

59、>　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Text1_KeyPr

60、ess(KeyAscii As Integer)　　If KeyAscii = 13 Then　　Text2.SetFocus　　End If　　End Sub<p&

61、gt;　　Private Sub Text2_KeyPress(KeyAscii As Integer)　　If KeyAscii = 13 Then　　Command1.SetFocus　　End If　　End

62、Sub　　3．3系統(tǒng)管理　　這個模塊的功能主要是添加用戶。并且設(shè)置權(quán)限。代碼如下　　Private Sub Command1_Click()　　If Trim(Text1(0).Text) = "&quo

63、t; Then　　MsgBox "用戶名不能為空！", vbExclamation + vbOKOnly, "警告"　　Text1(0).SetFocus　　Exit Sub

64、　End If　　If Trim(Text1(1).Text) = "" Then　　MsgBox "密碼不能為空！", vbExclamation + vbOKOnly, "警告"　　Text1(1).SetFocus</p&

65、gt;　　Exit Sub　　End If　　If Trim(Text1(2).Text) = "" Then　　MsgBox "確認(rèn)密碼不能為空！", vbExclamati

66、on + vbOKOnly, "警告"　　Text1(2).SetFocus　　Exit Sub　　End If　　If Trim(Text1(1).Text) <>

67、; Trim(Text1(2).Text) Then　　MsgBox "確認(rèn)密碼不正確！", vbExclamation + vbOKOnly, "警告"　　Text1(2).SetFocus　　Exit Sub

68、　　End If　　Dim aa As Integer　　aa = 0　　If Option1(2).Value = True Then　　For i = 0 To 3</

69、p>　　If Check1(i).Value = 1 Then　　aa = 1　　Exit For　　End If

70、;　　Next i　　If aa = 0 Then　　MsgBox " 普通用戶至少要有一項權(quán)限！", vbExclamation + vbOKOnly, "警告"　　Exit Sub<

71、p>　　End If　　End If　　Dim mrc As ADODB.Recordset　　txtsql = "select * from userinfo where username='" &am

72、p; Trim(Text1(0).Text) & "'"　　Set mrc = ExecuteSQL(txtsql)　　If mrc.EOF = False Then　　MsgBox " 已存在該用戶！", vbExclamation + vbOKOnly,

73、 "警告"　　Text1(0).SetFocus　　Text1(0).SelStart = 0　　Text1(0).SelLength = Len(Text1(0).Text)　　Exit Sub

74、;　　End If　　txtsql = "select * from userinfo"　　Set mrc = ExecuteSQL(txtsql)　　mrc.AddNew　　mrc.Fiel

75、ds(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</p&g

76、t;　　Case 0　　mrc.Fields("admin") = "y"　　Case 1　　mrc.Fields("readonly") = "

77、y"　　Case 2　　For j = 0 To 2　　If Check1(j).Value = 1 Then　　Select Case j　　Case 0<

78、/b>　　mrc.Fields("qx1") = "y"　　Case 1　　mrc.Fields("qx2") = "y"　　Ca

79、se 2　　mrc.Fields("qx3") = "y"　　End Select　　End If　　Next j

80、　　End Select　　End If　　Next i　　mrc.Update　　MsgBox " 用戶添加成功！", vbExclamation + v

81、bOKOnly, "警告"　　Text1(0).Text = ""　　Text1(1).Text = ""　　Text1(2).Text = ""　　End Sub</

82、b>　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Form_Load()<p&

83、gt;　　Option1(2).Value = True　　End Sub　　Private Sub Form_Resize()　　Text1(0).SetFocus　　End Sub</p

84、>　　Private Sub Option1_Click(Index As Integer)　　If Index <> 2 Then　　For i = 0 To 2　　Check1(i).Enabled = False<b&g

85、t;　　Next i　　Else　　For i = 0 To 2　　Check1(i).Enabled = True　　Next i&

86、lt;b>　　End If　　End Sub　　3．4學(xué)生檔案管理　　檔案添加窗體的主要功能是錄入學(xué)生的基本檔案。代碼如下　　Dim txtsql1 As String&

87、lt;/p>　　Private Sub Combo1_Click(Index As Integer)　　Dim mrc As ADODB.Recordset　　txtsql1 = "select 專業(yè),年制 from class where 班級='" & Trim(Combo1(1).Te

88、xt) & "'"　　Set mrc = ExecuteSQL(txtsql1)　　mrc.Close　　End Sub　　Private Sub Combo1

89、_KeyPress(Index As Integer, KeyAscii As Integer)　　If KeyAscii = 13 Then　　SendKeys "{TAB}"　　End If

90、　End Sub　　Private Sub Command1_Click()　　For j = 0 To 7　　If Text1(j) = "" Then　　ss = MsgBox(Label1(j).Caption & &

91、quot;不能為空！", vbExclamation + vbOKOnly, "警告")　　Text1(j).SetFocus　　Text1(j).SelStart = 0　　Text1(j).SelLength = Len(Text1(j).Text)<

92、;p>　　Exit Sub　　End If　　Next　　Dim mrc As ADODB.Recordset　　txtsql1 = "sel

93、ect * from xj where 學(xué)號='" & Trim(Text1(0).Text) & "'"　　Set mrc = ExecuteSQL(txtsql1)　　If modi = False Then　　If mrc.EOF = False

94、 Then　　sss = MsgBox("已經(jīng)存在該學(xué)號的記錄,學(xué)號不能重復(fù)！", vbExclamation + vbOKOnly, "警告")　　Text1(0).SetFocus　　Text1(0).SelStart = 0

95、　Text1(0).SelLength = Len(Text1(0).Text)　　mrc.Close　　Exit Sub　　End If

96、　End If　　If Not IsDate(Text1(2).Text) Then '判斷是否日期格式　　ssss = MsgBox("應(yīng)輸入日期 mm-dd-yy", vbInformation + vbOKOnly, "警告")　　Text

97、1(2).SetFocus　　Text1(2).SelStart = 0　　Text1(2).SelLength = Len(Text1(2).Text)　　Exit Sub　　End If<

98、;/p>　　If Not IsDate(Text1(6).Text) Then　　ssss = MsgBox("應(yīng)輸入日期 mm-dd-yy", vbInformation + vbOKOnly, "警告")　　Text1(6).SetFocus

99、　　Text1(6).SelStart = 0　　Text1(6).SelLength = Len(Text1(6).Text)　　Exit Sub　　End If　　If modi = True

100、 Then　　txtsql1 = "update xj set 學(xué)號='" & Trim(Text1(0).Text) & "',姓名='" & Trim(Text1(1).Text) & "',性別='" & Trim(Combo1(0).Text)

101、 & "',班級='" & Trim(Combo1(1).Text) & "',出生年月='" & Trim(Text1(2).Text) & "' ,家庭住址='" & Trim(Text1(3).Text) & "' ,郵政編碼='"

102、& Trim(Text1(4).Text) & "' ,聯(lián)系電話='" & Trim(Text1(5).Text) & "' ,入學(xué)時間='" & Trim(Text1(6).Text) & "',備注='" & Trim(Text1(7).Text) & "

103、;'where 學(xué)號='" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "'"　　Set mrc = ExecuteSQL(txtsql1)　　txtsql1 = "update cj set 學(xué)號='&q

104、uot; & Trim(Text1(0).Text) & "' where 學(xué)號='" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "'"　　Set mrc = ExecuteSQL(txtsql1)

105、　txtsql1 = "update jf set 學(xué)號='" & Trim(Text1(0).Text) & "' where 學(xué)號='" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "'" 'Set mrc = ExecuteSQL(txts

106、ql1)　　Unload Me　　Exit Sub　　End If　　txtsql1 = "select * from xj "</

107、p>　　Set mrc = ExecuteSQL(txtsql1)　　mrc.AddNew　　For i = 4 To 9　　mrc.Fields(i) = Text1(i - 2).Text　　Next i

108、;　　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(

109、Combo1(1).Text)　　mrc.Update　　Set mrc = Nothing　　For j = 0 To 7　　Text1(j) = ""　　Next<

110、;/p>　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub

111、Private Sub Form_Activate()　　Text1(0).SetFocus　　Form1.load1　　End Sub　　Public Sub load1()　　Dim mr

112、c As ADODB.Recordset　　txtsql1 = "select DISTINCT 班級 from class order by 班級"　　Set mrc = ExecuteSQL(txtsql1)　　If mrc.EOF Then　　d

113、dd = MsgBox("請先設(shè)置班級部署！", "警告")　　mrc.Close　　Exit Sub　　End If

114、　　Combo1(1).Clear　　mrc.MoveFirst　　Do While Not mrc.EOF　　Combo1(1).AddItem mrc.Fields(0)　　mrc.MoveNext　　Loo

115、p　　Combo1(1).ListIndex = 0　　Combo1(0).ListIndex = 0　　If modi Then '如果是修改狀態(tài)　　Me.Caption = "修改"<p&

116、gt;　　txtsql1 = "select * from xj where 學(xué)號='" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "'"　　Set mrc = ExecuteSQL(txtsql1)　　mrc.MoveFi

117、rst　　For i = 4 To 9　　Text1(i - 2).Text = mrc.Fields(i)　　Next i　　Text1(0).Text = mrc.Fields(0)　　T

118、ext1(1).Text = mrc.Fields(1)　　Combo1(0).Text = mrc.Fields(2)　　Combo1(1).Text = mrc.Fields(3)　　mrc.Close　　Els

119、e　　Me.Caption = "登記"　　For i = 2 To 7　　Text1(i).Text = ""　　Next i

120、Text1(6).Text = Date　　Text1(0).Text = ""　　Text1(1).Text = ""　　End If　　End Sub&

121、lt;/p>　　Private Sub Text1_GotFocus(Index As Integer)　　If Index = 6 Then　　Text1(6).SelStart = 0　　Text1(6).SelLength = Len(Text1(6).Text)</p&g

122、t;　　End If　　End Sub　　Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)　　If KeyAscii = 13 The

123、n　　SendKeys "{TAB}"　　End If　　End Sub　　檔案瀏覽窗體的功能是能夠查詢學(xué)生的基本信息。代碼如下　　P

124、ublic printstr As String　　Private 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

125、 As Long, ByVal wFlags As Long) As Long　　Public Sub showtitle()　　MSF1.Clear　　Dim i As Integer　　With MSF1&

126、lt;p>　　.Cols = 14　　.TextMatrix(0, 1) = "學(xué)號"　　.TextMatrix(0, 2) = "姓名"　　.TextMatrix(0, 3) = "性別"　　.TextM

127、atrix(0, 4) = "年級"　　.TextMatrix(0, 5) = "班級"　　.TextMatrix(0, 6) = "專業(yè)"　　.TextMatrix(0, 7) = "年制"

128、　　.TextMatrix(0, 8) = "出生年月"　　.TextMatrix(0, 9) = "家庭住址"　　.TextMatrix(0, 10) = "郵政編碼"　　.TextMatrix(0, 11) = "聯(lián)系電話"<

129、;/p>　　.TextMatrix(0, 12) = "入學(xué)時間"　　.TextMatrix(0, 13) = "備注"　　.ColWidth(0) = 200　　.ColWidth(1) = 500

130、.ColWidth(2) = 700　　.ColWidth(3) = 500　　.ColWidth(4) = 1000　　.ColWidth(5) = 800　　.ColWidth(6) = 700　　.ColWidth(7) =

131、 800　　.ColWidth(8) = 800　　.ColWidth(9) = 3000　　.ColWidth(10) = 800　　.ColWidth(11) = 1000　　.ColWidth(12) = 800</p

132、>　　.ColWidth(13) = 6000　　.FixedRows = 1　　For i = 1 To 13　　.ColAlignment(i) = 0　　Next i<p

133、>　　.FillStyle = flexFillSingle　　.Col = 0　　.Row = 0　　.RowSel = 1　　.ColSel = .Cols - 1

134、　　.CellAlignment = 4　　.Row = 1　　End With　　End Sub　　Private Sub Form_A

135、ctivate()　　If find = True Then　　Form4.ZOrder　　End If　　If find = True Then　　Exit Sub<

136、/b>　　ElseIf modi = True Then　　showdata　　' TreeView1_DblClick　　modi = False　　Else

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

基于vb的學(xué)生管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)設(shè)計

文檔簡介

溫馨提示

最新文檔

評論

基于vb的學(xué)生管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)設(shè)計

文檔簡介

溫馨提示

最新文檔

評論

免費下載