vb課程設(shè)計---學(xué)生成績管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：36 大?。?.47MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩35頁未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡介

1、　　學(xué)院名稱：機(jī)械工程學(xué)院　　專業(yè)名稱：機(jī)械設(shè)計制造及其自動化　　學(xué)生姓名：xx　　學(xué)生學(xué)號：xx　　學(xué)生班級：xx

2、　　指導(dǎo)教師：xx　　設(shè)計時間：2012-9-4~~2012-9-13　　目錄　　選題的意義　　1、選擇的題目名稱：

3、　　2、選擇該題的原因：　　3、運(yùn)用的知識點(diǎn)： 　　4、時間的安排：　　5、參考書籍：　　系統(tǒng)功能需求分析<

4、p>　　1、用戶登錄　　2、學(xué)生成績的維護(hù)　　3、學(xué)生成績的查詢　　4、學(xué)生密碼修改　　5、學(xué)生

5、成績錄入　　6.修改學(xué)生成績　　7、學(xué)生成績查看　　8、教師密碼修改　　9、添加學(xué)生用戶</p

6、>　　10、刪除學(xué)生用戶　　11、添加教師用戶　　12、刪除教師用戶　　13、添加管理員用戶　　14、添加學(xué)生基本信息</p

7、>　　15、成績管理頁面　　三、系統(tǒng)功能需求分析　　1、用戶登錄　　2、學(xué)生成績的維護(hù)　　3、學(xué)生成績的查詢&l

8、t;/b>　　4、下面是學(xué)生成績管理系統(tǒng)結(jié)構(gòu)圖　　四、系統(tǒng)實現(xiàn)　　1、學(xué)生、教師、管理員不同身份登錄　　2、學(xué)生查看成績　　3、成

9、績管理頁面　　4、學(xué)生成績錄入 　　5、添加學(xué)生用戶　　6、添加教師用戶　　7、添加管理員用戶<

10、;/p>　　8、學(xué)生密碼修改　　9、刪除學(xué)生用戶　　10、刪除教師用戶　　11、退出<

11、b>　　12、教師密碼修改　　13、學(xué)生個人信息查詢　　14、教師登錄成績查詢　　五、總結(jié)　　1、總結(jié)　　2 、存在的主要問題&

12、lt;/p>　　選題的意義　　選擇的題目名稱：　　學(xué)生成績管理系統(tǒng) 　　2、選擇該題的原因：　　現(xiàn)在我國的一些院校的學(xué)生成績管理水

13、平普遍不高，有的還停留在紙介質(zhì)基礎(chǔ)上，這種管理手段已不能適應(yīng)時代的發(fā)展，因為它浪費(fèi)了了許多的人力和物力。在當(dāng)今信息時代這種傳統(tǒng)的管理方法必然被計算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被學(xué)校所采用，將會改變以前靠手工管理學(xué)生成績的狀況，可以樹立良好的辦學(xué)形象，提高工作效率。　　學(xué)生成績管理系統(tǒng)是為本校開發(fā)的，本系統(tǒng)所采用的語言是Visual Basic語言，通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信

14、息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動及時地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。　　我這次選的課程設(shè)計題目是小型學(xué)生成績管理系統(tǒng)，該課程設(shè)計題目主要圍繞學(xué)生成績信息錄入、管理與維護(hù)展開的，通過對系統(tǒng)的設(shè)置將各方面的信息聯(lián)系在一起，使用戶對學(xué)生成績的信息一目了然，能夠簡潔、迅速的瀏覽信息，查詢信息，快速的找到自己想要的信息。　　本次課程設(shè)計應(yīng)達(dá)到的目的是

15、通過對該題目的設(shè)計，掌握軟件開發(fā)過程的問題分析，系統(tǒng)設(shè)計，程序編碼，測試等基本方法和技能；掌握數(shù)據(jù)庫的基礎(chǔ)知識，利用數(shù)據(jù)庫管理器進(jìn)行數(shù)據(jù)庫設(shè)計的方法，使用Data空間訪問數(shù)據(jù)的方法和掌握利用VB開發(fā)數(shù)據(jù)庫系統(tǒng)的方法。　　通過這次課程設(shè)計，我對VB課程設(shè)計有了更深入的了解。由于以前只是一些抽象的理論課程，所以對一些具體的課程設(shè)計沒有具體的接觸，對一些語言功能也不是很了解，沒有獨(dú)立完成一次真正的課程

16、設(shè)計。通過這次實際操作，我收獲很大，對VB的認(rèn)識也不僅僅停留在以前的層面上，認(rèn)識到自身存在很大的不足，對VB的認(rèn)識還需要更深入的了解，進(jìn)行更詳盡的學(xué)習(xí)，并且需要多次的實踐練習(xí)。　　這門課程設(shè)計是針對剛學(xué)完Visual Basic課程的本科專業(yè)學(xué)生的課程設(shè)計教學(xué)。Visual Basic設(shè)計是學(xué)生的一門計算機(jī)語言課程，課程結(jié)束后，學(xué)生已經(jīng)對Visual Basic程序設(shè)計有了較全面的了解，但接觸的

17、基本上是為了闡述相關(guān)概念或知識點(diǎn)而列舉的示例，都是較小的程序，程序功能單一，因此缺乏整體觀點(diǎn)和編寫一個具體實用的綜合程序的思想。　　對于學(xué)生而言，登錄學(xué)生成績管理系統(tǒng)是司空見慣的事，所以也對其系統(tǒng)結(jié)構(gòu)和功能有著較強(qiáng)的印象。但是，如果自己編寫一個類似的成績管理系統(tǒng)，不一定是件輕松的事。本生基于剛學(xué)完Visual Basic課程，所以就選擇了這個題目，來測試自己所學(xué)的能力。如此一來，不但可以更深地了

18、解這門課程的作用，還可以提高編寫和修改Visual Basic程序的能力。順便讓同學(xué)們試一試我們所編的程序的可實用性。　　3、運(yùn)用的知識點(diǎn)：　?、艠?biāo)簽的使用；　?、?文本框的使用；

19、　　⑶命令按鈕的使用；　?、葓D片的加載；　?、蒬ata控件的使用；　?、蕰r鐘控件的使用；　　⑺窗體的加載、顯示和隱藏；

20、;　　⑻數(shù)據(jù)庫的建立和鏈接：　?、筒煌矸菰L問權(quán)限的設(shè)置；　　⑽if語句的條件判斷；　?、螹sgbox對話框的使用；　?、忻艽a的修改；　　⒀添加新用戶。

21、　　4、時間的安排：　　9月4號：進(jìn)行Visual Basic課程設(shè)計題目的選擇；　　9月5號：查詢成績管理系統(tǒng)的相關(guān)資料；　　9月6號：查詢成績管理系統(tǒng)的相關(guān)資料；　　9

22、月7號：確定設(shè)計方案；　　9月8號：開始設(shè)計程序、編代碼；　　9月9號：開始設(shè)計程序、編代碼； 　　9月10號：開始調(diào)試程序；　　9月11號：開始調(diào)試程序；　　9月12號：寫課程設(shè)計報告書；<

23、;p>　　9月13號：寫課程設(shè)計報告書。　　5、參考書籍：　　1. 《Visual Basic 6.0編程案例精解》，張路平，電子工業(yè)出版社　　2.《Visual Basic 6.0數(shù)據(jù)庫編程思想與實踐》，譚小丹，冶金工業(yè)出版社<p&g

24、t;　　3. 《Visual Basic+Access數(shù)據(jù)庫項目開發(fā)實踐》，周國民，中國鐵道出版社　　4《Visual Basic程序設(shè)計》，王學(xué)軍，張玉梅，中國鐵道出版社　　系統(tǒng)功能需求分析　　1、用戶登錄<

25、;p>　　通過輸入用戶名和密碼登錄學(xué)生信息管理系統(tǒng)。　　2、學(xué)生成績的維護(hù)　　能夠輸入學(xué)生信息，實現(xiàn)對數(shù)據(jù)的添加、刪除、修改功能。基礎(chǔ)數(shù)據(jù)包括用戶信息的添加和修改，學(xué)生高數(shù)、英語、計算機(jī)成績的添加和修改，添加學(xué)生密碼的錄入，實現(xiàn)管理員管理。　　3、學(xué)生

26、成績的查詢　　基礎(chǔ)數(shù)據(jù)包括學(xué)生基本信息和其學(xué)科成績信息的記錄，可以按學(xué)生名稱和按學(xué)生學(xué)號進(jìn)行查詢和瀏覽。　　由于在學(xué)校學(xué)生成績管理系統(tǒng)運(yùn)用的非常普遍，所以該系統(tǒng)有著強(qiáng)大的和廣泛的用處。　　4、下面是學(xué)生成績管理系統(tǒng)結(jié)構(gòu)圖　　三、系統(tǒng)設(shè)

27、計　　1.登錄頁面　　Private Sub Form_Load()　　Label2.Caption = "歡迎進(jìn)入成績管理系統(tǒng)" '設(shè)置標(biāo)簽的標(biāo)題　　Label2.FontName =

28、 "宋體" '設(shè)置標(biāo)簽字體　　Label2.FontSize = 22 '設(shè)置字號　　Label2.ForeColor = vbBlue '設(shè)置字體顏色　　Text1.Text = "" '初始化文本框

29、;　　Text2.Text = ""　　Combo1.AddItem "學(xué)生" '為combo1添加選擇條件　　Combo1.AddItem "教師"　　Combo1.AddItem "管理員"<

30、p>　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對路徑及數(shù)據(jù)庫名稱　　End Sub　　Private Sub Timer1_Timer() '將標(biāo)簽設(shè)置為移動的&l

31、t;p>　　If Label2.Left + Label2.Width > 0 Then　　Label2.Move Label2.Left - 24　　Else　　Label2.Left = frm_dl.ScaleWidth '當(dāng)標(biāo)簽從左邊出去后，使其再

32、從右邊出來　　End If　　End Sub　　2、學(xué)生成績查看　　Private Sub Command1_Click()<p

33、>　　If Combo1.Text = "學(xué)生" Then '學(xué)生登錄　　If Trim(Text1.Text) = "" Then '用戶名為空，彈出警告對話框　　MsgBox "用戶名不能為空，請重新輸入！", vbOKOnly + vbExclamation, &qu

34、ot;警告"　　Text1.SetFocus '為用戶名設(shè)置焦點(diǎn)　　Else　　Data1.RecordSource = "select * from 學(xué)生密碼 where 學(xué)號='" & Text1.Text &

35、; "' and 密碼='" & Text2.Text & "'" '從數(shù)據(jù)庫學(xué)生密碼表中讀取學(xué)號密碼　　Data1.Refresh '刷新數(shù)據(jù)庫　　If Data1.Recordset.BOF And Data1.Recordset.EOF Then

36、9;沒有該用戶名或用戶名與密碼不一致，彈出警告對話框　　MsgBox "用戶名或密碼輸入錯誤，請重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text2.Text = "" '清空該文本框數(shù)據(jù)　　Text1.Se

37、tFocus '清空該文本框數(shù)據(jù)　　Else　　Text2.Text = "" '初始化文本框　　frm_dl.Hide '隱藏登錄窗體　　frm_xscxcj.Show '彈出學(xué)

38、生成績查詢窗體　　frm_xscxcj.Data1.DatabaseName = App.Path & "\student.mdb" '設(shè)置數(shù)據(jù)庫路徑及名稱　　frm_xscxcj.Data1.RecordSource = "select * from 成績單 where 學(xué)號='" &am

39、p; frm_dl.Text1.Text & "'" '從數(shù)據(jù)庫中讀取該學(xué)生成績　　frm_xscxcj.Data1.Refresh '刷新數(shù)據(jù)庫　　End If　　End If<

40、/p>　　ElseIf Combo1.Text = "教師" Then '教師登錄　　If Trim(Text1.Text) = "" Then '用戶名為空，彈出警告對話框　　MsgBox "用戶名不能為空，請重新輸入！", vbOKOnly + v

41、bExclamation, "警告"　　Text1.SetFocus '設(shè)置焦點(diǎn)　　Else　　Data1.RecordSource = "select * from 教師密碼 where 用戶名='" & Te

42、xt1.Text & "' and 密碼='" & Text2.Text & "'" '從數(shù)據(jù)庫中讀取教師用戶名和密碼　　Data1.Refresh '刷新數(shù)據(jù)庫　　If Data1.Recordset.BOF And Data1.Recordset.

43、EOF Then '沒有該教師用戶名或用戶名與密碼不一致，彈出警告對話框　　MsgBox "用戶名或密碼輸入錯誤，請重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text2.Text = "" '清空該文本框數(shù)據(jù)<p

44、>　　Text1.SetFocus '清空該文本框數(shù)據(jù)　　Else　　frm_dl.Hide '隱藏登錄窗體　　frm_cjgl.Show '彈出成績管理窗體　　frm_cjgl.tjjsyh.Enabl

45、ed = False '教師沒有添加教師用戶的權(quán)限　　frm_cjgl.scxsyh.Enabled = False '教師沒有刪除學(xué)生用戶的權(quán)限　　frm_cjgl.scjsyh.Enabled = False '教師沒有刪除教師用戶的權(quán)限　　frm_cjgl.tjxsyh.Enable

46、d = False '教師沒有添加學(xué)生用戶的權(quán)限　　frm_cjgl.tjgly.Enabled = False '教師沒有添加管理員的權(quán)限　　End If　　End If<

47、b>　　Else　　If Trim(Text1.Text) = "" Then '用戶名為空，彈出警告對話框　　MsgBox "用戶名不能為空，請重新輸入！", vbOKOnly + vbExclamation, "警告"

48、;　　Text1.SetFocus '設(shè)置焦點(diǎn)　　Else　　Data1.RecordSource = "select * from 管理員密碼 where 用戶名='" & Text1.Text & "' and 密碼='" &

49、amp; Text2.Text & "'" '從數(shù)據(jù)庫中讀取管理員用戶名和密碼　　Data1.Refresh '刷新數(shù)據(jù)庫　　If Data1.Recordset.BOF And Data1.Recordset.EOF Then '沒有該管理員用戶名或用戶名與密碼不一致，彈出警告對話框</

50、p>　　MsgBox "用戶名或密碼輸入錯誤，請重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text2.Text = "" '清空該文本框數(shù)據(jù)　　Text1.SetFocus '清空該文本框數(shù)據(jù)

51、　　Else　　frm_dl.Hide '隱藏登錄窗體　　frm_cjgl.Show '彈出成績管理窗體　　frm_cjgl.xscjlr.Enabled = False '管理員沒有成績錄入的權(quán)限<p

52、>　　frm_cjgl.xscjxg.Enabled = False '管理員沒有成績修改入的權(quán)限　　frm_cjgl.jsmmxg.Enabled = False '管理員沒有修改教師密碼的權(quán)限　　End If　　End If<

53、/b>　　End If　　End Sub　　Private Sub Command3_Click() '退出系統(tǒng)　　End

54、　　End Sub　　Private Sub frm_dl_Load()　　Label2.Width = frm_dl.ScaleWidth '設(shè)置標(biāo)簽的尺寸　　Label2.Left = frm_dl.ScaleWidth

55、　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對路徑及數(shù)據(jù)庫名稱　　End Sub 　　Private Sub Command1_Click()

56、If combo1.Text = "按學(xué)號" Then　　Data1.RecordSource = "select * from 成績單 where 學(xué)號='" & Text1.Text & "'" '按學(xué)號搜尋個人成績　　Data1.Refresh &#

57、39;顯示個人成績　　Else　　Data1.RecordSource = "select * from 成績單 where 姓名='" & Text1.Text & "'" '按姓名搜尋個人成績

58、　　Data1.Refresh '顯示個人成績　　End If　　If Text1.Text = "" Then '顯示所有學(xué)生成績　　Data1.RecordSource = "select * from 成績單 "

59、　　Data1.Refresh '顯示所有人成績　　End If　　End Sub　　Private Sub Command2_Click()

60、frm_cxcj.Hide '隱藏成績查詢窗體　　frm_cjgl.Show '彈出成績管理窗體　　End Sub　　Private Sub Form_Load()　　combo1.AddItem "按學(xué)號&

61、quot; '為combo1添加選擇條件　　combo1.AddItem "按姓名"　　combo1.AddItem "按班級"　　Text1.Text = "" '初始化文本框　　Data1.D

62、atabaseName = App.Path & "\student.mdb" '用data控件連接數(shù)據(jù)庫路徑及名稱　　Data1.RecordSource = "select * from 成績單 order by 學(xué)號 asc" '搜尋所有人的成績，按升序排列　　Data1.Refres

63、h '　　End Sub　　3.學(xué)生信息查看　　Private Sub Command1_Click()　　frm_xscxxx.Hide '關(guān)閉學(xué)生信息查詢窗體

64、;　　frm_xscxcj.Show '打開學(xué)生查詢成績窗體　　End Sub　　Private Sub Form_Load()　　Data1.DatabaseName = App.Path & "\student.mdb&qu

65、ot; '設(shè)置連接數(shù)據(jù)庫的路徑　　Data1.RecordSource = "select * from 學(xué)生基本信息 where 學(xué)號='" & frm_dl.Text1.Text & "'" '從數(shù)據(jù)庫讀取學(xué)生基本信息　　Data1.Refresh '刷新

66、　　End Sub　　4、學(xué)生密碼修改　　Private Sub Command1_Click()　　If Trim(Text1.Text) <> Trim(Text2.Text) T

67、hen '兩次密碼輸入不一致，彈出信息提示對話框　　MsgBox "兩次密碼輸入不一致，請重新輸入！", vbOKOnly + vbExclamation, "信息提示"　　Text1.SetFocus '設(shè)置焦點(diǎn)　　Text1.Text = "&

68、quot; '清空文本框　　Text2.Text = ""　　Else '從數(shù)據(jù)庫中讀取學(xué)號和密碼　　Data1.RecordSource = "select * from 學(xué)生密碼 where 學(xué)號='" & frm_dl.Text1.Te

69、xt & "'"　　Data1.Refresh '刷新　　Data1.Recordset.Edit '修改學(xué)生密碼　　Data1.Recordset.Fields("密碼") = Text1.Text

70、　　Data1.Recordset.Update '更新數(shù)據(jù)庫，彈出修改成功對話框　　i = MsgBox("密碼修改成功,是否重新登錄？", vbOKCancel + vbQuestion, "提示")　　If i = 1 Then '確認(rèn)　　frm_xs

71、mmxg.Hide '關(guān)閉修改學(xué)生密碼窗體　　frm_dl.Show '打開登錄窗體　　End If　　End If　　End Sub<

72、/p>　　Private Sub Command2_Click()　　Text1.Text = "" '清空文本框　　Text2.Text = ""　　frm_xsmmxg.Hide '關(guān)閉修改學(xué)生密碼窗體

73、　　frm_xscxcj.Show '打開修改學(xué)生成績窗體　　End Sub　　Private Sub form_resize()　　Text1.Text = "" '清空文本框

74、　Text2.Text = ""　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對路徑及數(shù)據(jù)庫名稱　　End Sub　　Private Sub Te

75、xt1_LostFocus()　　If Len(Text1.Text) < 6 Then '如果密碼字?jǐn)?shù)少于6個，彈出提醒對話框　　MsgBox "密碼長度不應(yīng)少于6位，請重新輸入！", vbOKOnly, "提醒"　　Text1.Text = "&

76、quot; '清空文本框　　Text2.Text = ""　　End If　　End Sub　　5、學(xué)生成績錄入

77、;　　Private Sub Command1_Click()　　Data1.Recordset.MoveFirst '移動到第一條記錄　　Command1.Enabled = False '"第一個"不能操作　　Command2.Enabled = Fa

78、lse '"上一個"不能操作　　Command3.Enabled = True '"下一個"能操作　　Command4.Enabled = True '"最后一個"能操作　　End Sub&l

79、t;/p>　　Private Sub Command2_Click()　　Data1.Recordset.MovePrevious '移動到第一條前記錄　　If Data1.Recordset.BOF Then '沒有記錄　　Data1.Recordset.MoveFi

80、rst '移動到第一條記錄　　Command1.Enabled = False '"第一個"不能操作　　Command2.Enabled = False '"上一個"不能操作　　Command3.Enabled = True '"下

81、一個"能操作　　Command4.Enabled = True '"最后一個"能操作　　Else　　Command1.Enabled = True '"第一個"能操作

82、　Command2.Enabled = True '"上一個"能操作　　Command3.Enabled = True '"下一個"能操作　　Command4.Enabled = True '"最后一個"能操作

83、　End If　　End Sub　　Private Sub Command3_Click()　　Data1.Recordset.MoveNext '移動到下一條記錄　　If Data1.Recordset.

84、EOF Then '下一條沒有記錄　　Data1.Recordset.MoveLast '移動到最后一條記錄　　Command1.Enabled = True '"第一個"能操作　　Command2.Enabled = True '"上一個"

85、能操作　　Command3.Enabled = False '"下一個"不能操作　　Command4.Enabled = False '"最后一個"不能操作　　Else　　Com

86、mand1.Enabled = True '"第一個"能操作　　Command2.Enabled = True '"上一個"能操作　　Command3.Enabled = True '"下一個"能操作　　Command4.Enab

87、led = True '"最后一個"能操作　　End If　　End Sub　　Private Sub Command4_Click()　　Data1.Recordse

88、t.MoveLast '移動到最后一條記錄　　Command1.Enabled = True '"第一個"能操作　　Command2.Enabled = True '"上一個"能操作　　Command3.Enabled = False '&q

89、uot;下一個"不能操作　　Command4.Enabled = False '"最后一個"不能操作　　End Sub　　Private Sub Command5_Click()　　If Text

90、1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then '如果基本信息有一個為空，彈出

91、提醒對話框　　MsgBox "內(nèi)容不能為空，請重新輸入！"　　Else　　Data1.Recordset.Edit '對基本信息進(jìn)行修改　　Data1.Recordset.Fields(0) = frm_x

92、scjlr.Text1.Text　　Data1.Recordset.Fields(1) = frm_xscjlr.Text2.Text　　Data1.Recordset.Fields(2) = frm_xscjlr.Text3.Text　　Data1.Recordset.Fields(3) = frm_xscjl

93、r.Text4.Text　　Data1.Recordset.Fields(4) = frm_xscjlr.Text5.Text　　Data1.Recordset.Fields(5) = frm_xscjlr.Text6.Text　　Data1.Recordset.Fields(6) = frm_xscjlr.Te

94、xt7.Text　　Data1.Recordset.Fields(7) = frm_xscjlr.Text8.Text　　Data1.Recordset.Update '更新，彈出添加成功對話框　　MsgBox "添加成功！"

95、　　End If　　Text5.Text = "" '清空文本框　　Text6.Text = ""　　Text7.Text = ""　　Text8.Text = ""

96、;　　End Sub　　Private Sub Command6_Click()　　frm_xscjlr.Hide '隱藏學(xué)生成績錄入窗體　　frm_cjgl.Show '打開成績管理窗體<

97、;p>　　End Sub　　Private Sub Form_Load()　　Text1.Text = "" '初始化文本框　　Text2.Text = ""　　Text3.Tex

98、t = ""　　Text4.Text = ""　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text = ""

99、　　Text8.Text = ""　　Data1.DatabaseName = App.Path & "\student.mdb" '連接數(shù)據(jù)庫路徑和名稱　　End Sub　　6.修改

100、學(xué)生成績　　Private Sub Command2_Click()　　If Text1.Text = "" Then '學(xué)號文本框不能為空　　MsgBox "請輸入內(nèi)容！"　　Else

101、　　Data1.Recordset.Edit '修改各門課程成績修改　　Data1.Recordset.Fields(0) = Text2.Text　　Data1.Recordset.Fields(1) = Text3.Text　　Data1.

102、Recordset.Fields(2) = Text4.Text　　Data1.Recordset.Fields(3) = Text5.Text　　Data1.Recordset.Fields(4) = Text6.Text　　Data1.Recordset.Fields(5) = Text7.Text</

103、p>　　Data1.Recordset.Fields(6) = Text8.Text　　Data1.Recordset.Update '更新修改后的數(shù)據(jù)　　MsgBox "修改成功", vbOKOnly, "提示" '彈出修改成功對話框<p&

104、gt;　　End If　　End Sub　　Private Sub Command1_Click()　　If Trim(Text1.Text) = "" Then　　MsgBo

105、x "學(xué)號不能為空，請重新輸入！", vbOKOnly + vbExclamation, "警告" '學(xué)號文本框不能為空　　Text1.SetFocus '為學(xué)號設(shè)置焦點(diǎn)　　Else　　Data1.RecordSourc

106、e = "select * from 成績單 where 學(xué)號='" & Text1.Text & " '" '從數(shù)據(jù)庫中加載學(xué)號　　Data1.Refresh　　If Data1.Recordset.EOF Then '數(shù)據(jù)庫中沒有這個學(xué)號

107、　　MsgBox "學(xué)號不存在，請重新輸入！", vbOKOnly + vbExclamation, "警告" '彈出學(xué)號不存在對話框　　Text1.SetFocus '為學(xué)號設(shè)置焦點(diǎn)　　Text1.Text = "" '清空文本框中數(shù)據(jù)</p&g

108、t;　　Text2.Text = ""　　Text3.Text = ""　　Text4.Text = ""　　Text5.Text = ""　　Text6.Text =

109、""　　Text7.Text = ""　　Text8.Text = ""　　Text9.Text = ""　　Else<p&

110、gt;　　Text2.Text = Data1.Recordset.Fields(0) '從數(shù)據(jù)庫中為每個文本框加載各個字段的數(shù)據(jù)　　Text3.Text = Data1.Recordset.Fields(1)　　Text4.Text = Data1.Recordset.Fields(2)　　Text5.

111、Text = Data1.Recordset.Fields(3)　　Text6.Text = Data1.Recordset.Fields(4)　　Text7.Text = Data1.Recordset.Fields(5)　　Text8.Text = Data1.Recordset.Fields(6)</

112、p>　　End If　　End If　　End Sub　　Private Sub Command3_Click()　　frm_cj

113、xg.Hide '隱藏成績修改窗體　　frm_cjgl.Show '彈出成績管理窗體　　End Sub　　Private Sub Form_Load()　　Data1.DatabaseName = App.Path &

114、amp; "\student.mdb" '用data控件連接數(shù)據(jù)庫路徑及名稱　　Text1.Text = "" '初始化各個文本框　　Text2.Text = ""　　Text3.Text = ""

115、;　　Text4.Text = ""　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text = ""　　Text8.Text = &

116、quot;"　　End Sub　　7、學(xué)生成績查看　　Private Sub Command1_Click()　　If Combo1.Text = "按學(xué)號" The

117、n　　Data1.RecordSource = "select * from 成績單 where 學(xué)號='" & Text1.Text & "'" '按學(xué)號搜尋個人成績　　Data1.Refresh '顯示個人成績<b&

118、gt;　　Else　　Data1.RecordSource = "select * from 成績單 where 姓名='" & Text1.Text & "'" '按姓名搜尋個人成績　　Data1.Refresh '顯示個人成績

119、;　　End If　　If Text1.Text = "" Then '顯示所有學(xué)生成績　　Data1.RecordSource = "select * from 成績單 "　　Data1.Refresh

120、 '顯示所有人成績　　End If　　End Sub　　Private Sub Command2_Click()　　frm_cxcj.Hide '隱藏成績查詢窗體

121、;　　frm_cjgl.Show '彈出成績管理窗體　　End Sub　　Private Sub Form_Load()　　Combo1.AddItem "按學(xué)號" '為combo1添加選擇條件

122、　　Combo1.AddItem "按姓名"　　Combo1.AddItem "按班級"　　Text1.Text = "" '初始化文本框　　Data1.DatabaseName = App.Path & "\

123、student.mdb" '用data控件連接數(shù)據(jù)庫路徑及名稱　　Data1.RecordSource = "select * from 成績單 order by 學(xué)號 asc" '搜尋所有人的成績，按升序排列　　Data1.Refresh '

124、;　　End Sub　　8、教師密碼修改　　Private Sub Command1_Click()　　If Trim(Text1.Text) <> Trim(Text2.Text) Then '兩次密碼輸入不一致，彈出提示對話框<

125、;/p>　　MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"　　Text1.SetFocus '為第一個文本框設(shè)置焦點(diǎn)　　Text1.Text = "" '初始化文本框<

126、;p>　　Text2.Text = ""　　Else　　Data1.RecordSource = "select * from 教師密碼 where 用戶名='" & frm_dl.Text1.Text & "'" &#

127、39;從數(shù)據(jù)庫中讀取教師用戶名和密碼　　Data1.Refresh '刷新數(shù)據(jù)庫　　Data1.Recordset.Edit '修改數(shù)據(jù)庫中的密碼　　Data1.Recordset.Fields("密碼") = Text1.Text

128、Data1.Recordset.Update '更新，彈出修改成功對話框　　MsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"　　Text1.Text = "" '清空文本框　　Text2

129、.Text = ""　　End If　　Data1.Refresh '更新數(shù)據(jù)庫　　End Sub　　Private Sub Command2_Click()</

130、p>　　Text1.Text = "" '清空文本框　　Text2.Text = ""　　End Sub　　Private Sub Command3_Click()<p&

131、gt;　　frm_jsmmxg.Hide '隱藏教師修改密碼窗體　　frm_cjgl.Show '彈出成績管理窗體　　End Sub　　Private Sub Form_Load()　　Text1.Text = &qu

132、ot;" '初始化文本框　　Text2.Text = ""　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對路徑及數(shù)據(jù)庫名稱　　End Sub<

133、/b>　　9、添加學(xué)生用戶　　Private Sub Command1_Click() '學(xué)號不能為空，否則彈出信息提示對話框　　If Trim(Text1.Text) = "" Then　　MsgB

134、ox "請輸入用戶名！", vbOKOnly + vbExclamation, "信息提示"　　Text1.SetFocus '設(shè)置焦點(diǎn)　　Exit Sub '退出　　Else

135、　Data1.RecordSource = "select * from 學(xué)生密碼 where 學(xué)號='" & Text1.Text & "'" '設(shè)置學(xué)號和密碼　　Data1.Refresh　　If Not Data1.Recordset.EOF Then

136、;　　MsgBox "用戶已存在，請重新輸入用戶名！", vbOKOnly + vbExclamation, "提示信息"　　Text1.SetFocus '設(shè)置焦點(diǎn)　　Text1.Text = "": Text2.Text = "": Text

137、3.Text = "" '清空文本框　　Exit Sub　　End If　　End If　　If Trim(Text2.Text)

138、 <> Trim(Text3.Text) Then '如果兩次輸入的密碼不一致，彈出警告對話框　　MsgBox "兩次輸入的密碼不一樣，請確認(rèn)！", vbOKOnly + vbExclamation, "警告"　　Text2.SetFocus '設(shè)置焦點(diǎn)<p

139、>　　Text2.Text = "" '清空文本框　　Text3.Text = ""　　Exit Sub　　Else　　With Data1&

140、lt;/p>　　.Recordset.AddNew '添加記錄　　.Recordset.Fields(0) = Trim(Text1.Text)　　.Recordset.Fields(1) = Trim(Text2.Text)　　.Recordset.Update '更

141、新記錄　　End With　　MsgBox "添加用戶成功！", vbOKOnly + vbExclamation, "添加用戶" '彈出修改成功對話框　　End If

142、　　Data1.Refresh '刷新　　frm_tjxsyh.Hide '關(guān)閉添加學(xué)生用戶窗體　　frm_tjxsxx.Show '打開學(xué)生信息窗體　　End Sub　　Private S

143、ub Command2_Click()　　frm_tjxsyh.Hide '關(guān)閉添加學(xué)生用戶窗體　　frm_cjgl.Show '打開成績管理窗體　　End Sub　　Private Sub Command3_Clic

眾賞文庫> 全部分類> 畢業(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)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計---學(xué)生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

vb課程設(shè)計---學(xué)生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載