版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、<p> 學院名稱:機械工程學院</p><p> 專業(yè)名稱:機械設計制造及其自動化</p><p><b> 學生姓名:xx</b></p><p><b> 學生學號:xx</b></p><p><b> 學生班級:xx</b></p>
2、<p><b> 指導教師:xx</b></p><p> 設計時間:2012-9-4~~2012-9-13</p><p><b> 目錄</b></p><p><b> 選題的意義</b></p><p> 1、 選擇的題目名稱:</p>
3、<p> 2、選擇該題的原因:</p><p> 3、運用的知識點: </p><p><b> 4、時間的安排:</b></p><p><b> 5、參考書籍:</b></p><p><b> 系統(tǒng)功能需求分析</b></p><
4、p><b> 1、用戶登錄</b></p><p><b> 2、學生成績的維護</b></p><p><b> 3、學生成績的查詢</b></p><p><b> 4、學生密碼修改</b></p><p><b> 5、學生
5、成績錄入</b></p><p><b> 6.修改學生成績</b></p><p><b> 7、學生成績查看</b></p><p><b> 8、教師密碼修改</b></p><p><b> 9、添加學生用戶</b></p
6、><p><b> 10、刪除學生用戶</b></p><p><b> 11、添加教師用戶</b></p><p><b> 12、刪除教師用戶</b></p><p> 13、添加管理員用戶</p><p> 14、添加學生基本信息</p
7、><p><b> 15、成績管理頁面</b></p><p> 三、系統(tǒng)功能需求分析</p><p><b> 1、用戶登錄</b></p><p><b> 2、學生成績的維護</b></p><p><b> 3、學生成績的查詢&l
8、t;/b></p><p> 4、下面是學生成績管理系統(tǒng)結構圖</p><p><b> 四、系統(tǒng)實現(xiàn)</b></p><p> 1、學生、教師、管理員不同身份登錄</p><p><b> 2、學生查看成績</b></p><p><b> 3、成
9、績管理頁面</b></p><p><b> 4、學生成績錄入 </b></p><p><b> 5、添加學生用戶</b></p><p><b> 6、添加教師用戶</b></p><p><b> 7、添加管理員用戶</b><
10、;/p><p><b> 8、學生密碼修改</b></p><p><b> 9、刪除學生用戶</b></p><p><b> 10、刪除教師用戶</b></p><p><b> 11、退出</b></p><p><
11、b> 12、教師密碼修改</b></p><p> 13、學生個人信息查詢</p><p> 14、教師登錄成績查詢</p><p><b> 五、總結</b></p><p><b> 1、總結</b></p><p> 2 、存在的主要問題&
12、lt;/p><p><b> 選題的意義</b></p><p><b> 選擇的題目名稱:</b></p><p><b> 學生成績管理系統(tǒng) </b></p><p> 2、選擇該題的原因:</p><p> 現(xiàn)在我國的一些院校的學生成績管理水
13、平普遍不高,有的還停留在紙介質基礎上,這種管理手段已不能適應時代的發(fā)展,因為它浪費了了許多的人力和物力。在當今信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被學校所采用,將會改變以前靠手工管理學生成績的狀況,可以樹立良好的辦學形象,提高工作效率。</p><p> 學生成績管理系統(tǒng)是為本校開發(fā)的,本系統(tǒng)所采用的語言是Visual Basic語言,通過本校內部的信息,依據(jù)統(tǒng)一數(shù)據(jù)信
14、息進行管理,把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動及時地反映給其它相關信息,做到數(shù)據(jù)共享。</p><p> 我這次選的課程設計題目是小型學生成績管理系統(tǒng),該課程設計題目主要圍繞學生成績信息錄入、管理與維護展開的,通過對系統(tǒng)的設置將各方面的信息聯(lián)系在一起,使用戶對學生成績的信息一目了然,能夠簡潔、迅速的瀏覽信息,查詢信息,快速的找到自己想要的信息。</p><p> 本次課程設計應達到的目的是
15、通過對該題目的設計,掌握軟件開發(fā)過程的問題分析,系統(tǒng)設計,程序編碼,測試等基本方法和技能;掌握數(shù)據(jù)庫的基礎知識,利用數(shù)據(jù)庫管理器進行數(shù)據(jù)庫設計的方法,使用Data空間訪問數(shù)據(jù)的方法和掌握利用VB開發(fā)數(shù)據(jù)庫系統(tǒng)的方法。</p><p> 通過這次課程設計,我對VB課程設計有了更深入的了解。由于以前只是一些抽象的理論課程,所以對一些具體的課程設計沒有具體的接觸,對一些語言功能也不是很了解,沒有獨立完成一次真正的課程
16、設計。通過這次實際操作,我收獲很大,對VB的認識也不僅僅停留在以前的層面上,認識到自身存在很大的不足,對VB的認識還需要更深入的了解,進行更詳盡的學習,并且需要多次的實踐練習。</p><p> 這門課程設計是針對剛學完Visual Basic課程的本科專業(yè)學生的課程設計教學。Visual Basic設計是學生的一門計算機語言課程,課程結束后,學生已經(jīng)對Visual Basic程序設計有了較全面的了解,但接觸的
17、基本上是為了闡述相關概念或知識點而列舉的示例,都是較小的程序,程序功能單一,因此缺乏整體觀點和編寫一個具體實用的綜合程序的思想。</p><p> 對于學生而言,登錄學生成績管理系統(tǒng)是司空見慣的事,所以也對其系統(tǒng)結構和功能有著較強的印象。但是,如果自己編寫一個類似的成績管理系統(tǒng),不一定是件輕松的事。本生基于剛學完Visual Basic課程,所以就選擇了這個題目,來測試自己所學的能力。如此一來,不但可以更深地了
18、解這門課程的作用,還可以提高編寫和修改Visual Basic程序的能力。順便讓同學們試一試我們所編的程序的可實用性。</p><p><b> 3、運用的知識點:</b></p><p><b> ⑴標簽的使用;</b></p><p><b> ?、?文本框的使用;</b></p>
19、<p><b> ?、敲畎粹o的使用;</b></p><p><b> ?、葓D片的加載;</b></p><p> ⑸data控件的使用;</p><p><b> ?、蕰r鐘控件的使用;</b></p><p> ?、舜绑w的加載、顯示和隱藏;</p>
20、;<p> ?、虜?shù)據(jù)庫的建立和鏈接:</p><p> ?、筒煌矸菰L問權限的設置;</p><p> ⑽if語句的條件判斷;</p><p> ?、螹sgbox對話框的使用;</p><p><b> ?、忻艽a的修改;</b></p><p><b> ?、烟砑有掠脩簟?/p>
21、</b></p><p><b> 4、時間的安排:</b></p><p> 9月4號:進行Visual Basic課程設計題目的選擇;</p><p> 9月5號:查詢成績管理系統(tǒng)的相關資料;</p><p> 9月6號:查詢成績管理系統(tǒng)的相關資料;</p><p> 9
22、月7號:確定設計方案;</p><p> 9月8號:開始設計程序、編代碼;</p><p> 9月9號:開始設計程序、編代碼; </p><p> 9月10號:開始調試程序;</p><p> 9月11號:開始調試程序;</p><p> 9月12號:寫課程設計報告書;</p><
23、;p> 9月13號:寫課程設計報告書。</p><p><b> 5、參考書籍:</b></p><p> 1. 《Visual Basic 6.0編程案例精解》, 張路平,電子工業(yè)出版社</p><p> 2.《Visual Basic 6.0數(shù)據(jù)庫編程思想與實踐》 ,譚小丹,冶金工業(yè)出版社</p><p&g
24、t; 3. 《Visual Basic+Access數(shù)據(jù)庫項目開發(fā)實踐》,周國民,中國鐵道出版社</p><p> 4《Visual Basic程序設計》,王學軍,張玉梅,中國鐵道出版社</p><p><b> 系統(tǒng)功能需求分析</b></p><p><b> 1、用戶登錄</b></p><
25、;p> 通過輸入用戶名和密碼登錄學生信息管理系統(tǒng)。</p><p><b> 2、學生成績的維護</b></p><p> 能夠輸入學生信息,實現(xiàn)對數(shù)據(jù)的添加、刪除、修改功能。基礎數(shù)據(jù)包括用戶信息的添加和修改,學生高數(shù)、英語、計算機成績的添加和修改,添加學生密碼的錄入,實現(xiàn)管理員管理。</p><p><b> 3、學生
26、成績的查詢</b></p><p> 基礎數(shù)據(jù)包括學生基本信息和其學科成績信息的記錄,可以按學生名稱和按學生學號進行查詢和瀏覽。</p><p> 由于在學校學生成績管理系統(tǒng)運用的非常普遍,所以該系統(tǒng)有著強大的和廣泛的用處。</p><p> 4、下面是學生成績管理系統(tǒng)結構圖</p><p><b> 三、系統(tǒng)設
27、計</b></p><p><b> 1.登錄頁面</b></p><p> Private Sub Form_Load()</p><p> Label2.Caption = "歡迎進入成績管理系統(tǒng)" '設置標簽的標題</p><p> Label2.FontName =
28、 "宋體" '設置標簽字體</p><p> Label2.FontSize = 22 '設置字號</p><p> Label2.ForeColor = vbBlue '設置字體顏色</p><p> Text1.Text = "" '初始化文本框</p><p>
29、; Text2.Text = ""</p><p> Combo1.AddItem "學生" '為combo1添加選擇條件</p><p> Combo1.AddItem "教師"</p><p> Combo1.AddItem "管理員"</p><
30、p> Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設置相對路徑及數(shù)據(jù)庫名稱</p><p><b> End Sub</b></p><p> Private Sub Timer1_Timer() '將標簽設置為移動的</p>&l
31、t;p> If Label2.Left + Label2.Width > 0 Then</p><p> Label2.Move Label2.Left - 24</p><p><b> Else</b></p><p> Label2.Left = frm_dl.ScaleWidth '當標簽從左邊出去后,使其再
32、從右邊出來</p><p><b> End If</b></p><p><b> End Sub</b></p><p><b> 2、學生成績查看</b></p><p> Private Sub Command1_Click()</p><p
33、> If Combo1.Text = "學生" Then '學生登錄</p><p> If Trim(Text1.Text) = "" Then '用戶名為空,彈出警告對話框</p><p> MsgBox "用戶名不能為空,請重新輸入!", vbOKOnly + vbExclamation, &qu
34、ot;警告"</p><p> Text1.SetFocus '為用戶名設置焦點</p><p><b> Else</b></p><p> Data1.RecordSource = "select * from 學生密碼 where 學號='" & Text1.Text &
35、; "' and 密碼='" & Text2.Text & "'" '從數(shù)據(jù)庫學生密碼表中讀取學號密碼</p><p> Data1.Refresh '刷新數(shù)據(jù)庫</p><p> If Data1.Recordset.BOF And Data1.Recordset.EOF Then
36、9;沒有該用戶名或用戶名與密碼不一致,彈出警告對話框</p><p> MsgBox "用戶名或密碼輸入錯誤,請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p> Text2.Text = "" '清空該文本框數(shù)據(jù)</p><p> Text1.Se
37、tFocus '清空該文本框數(shù)據(jù)</p><p><b> Else</b></p><p> Text2.Text = "" '初始化文本框</p><p> frm_dl.Hide '隱藏登錄窗體</p><p> frm_xscxcj.Show '彈出學
38、生成績查詢窗體</p><p> frm_xscxcj.Data1.DatabaseName = App.Path & "\student.mdb" '設置數(shù)據(jù)庫路徑及名稱</p><p> frm_xscxcj.Data1.RecordSource = "select * from 成績單 where 學號='" &am
39、p; frm_dl.Text1.Text & "'" '從數(shù)據(jù)庫中讀取該學生成績</p><p> frm_xscxcj.Data1.Refresh '刷新數(shù)據(jù)庫</p><p><b> End If</b></p><p><b> End If</b><
40、/p><p> ElseIf Combo1.Text = "教師" Then '教師登錄</p><p> If Trim(Text1.Text) = "" Then '用戶名為空,彈出警告對話框</p><p> MsgBox "用戶名不能為空,請重新輸入!", vbOKOnly + v
41、bExclamation, "警告"</p><p> Text1.SetFocus '設置焦點</p><p><b> Else</b></p><p> Data1.RecordSource = "select * from 教師密碼 where 用戶名='" & Te
42、xt1.Text & "' and 密碼='" & Text2.Text & "'" '從數(shù)據(jù)庫中讀取教師用戶名和密碼</p><p> Data1.Refresh '刷新數(shù)據(jù)庫</p><p> If Data1.Recordset.BOF And Data1.Recordset.
43、EOF Then '沒有該教師用戶名或用戶名與密碼不一致,彈出警告對話框</p><p> MsgBox "用戶名或密碼輸入錯誤,請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p> Text2.Text = "" '清空該文本框數(shù)據(jù)</p><p
44、> Text1.SetFocus '清空該文本框數(shù)據(jù)</p><p><b> Else</b></p><p> frm_dl.Hide '隱藏登錄窗體</p><p> frm_cjgl.Show '彈出成績管理窗體</p><p> frm_cjgl.tjjsyh.Enabl
45、ed = False '教師沒有添加教師用戶的權限</p><p> frm_cjgl.scxsyh.Enabled = False '教師沒有刪除學生用戶的權限</p><p> frm_cjgl.scjsyh.Enabled = False '教師沒有刪除教師用戶的權限</p><p> frm_cjgl.tjxsyh.Enable
46、d = False '教師沒有添加學生用戶的權限</p><p> frm_cjgl.tjgly.Enabled = False '教師沒有添加管理員的權限</p><p><b> End If</b></p><p><b> End If</b></p><p><
47、b> Else</b></p><p> If Trim(Text1.Text) = "" Then '用戶名為空,彈出警告對話框</p><p> MsgBox "用戶名不能為空,請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p>
48、; Text1.SetFocus '設置焦點</p><p><b> Else</b></p><p> Data1.RecordSource = "select * from 管理員密碼 where 用戶名='" & Text1.Text & "' and 密碼='" &
49、amp; Text2.Text & "'" '從數(shù)據(jù)庫中讀取管理員用戶名和密碼</p><p> Data1.Refresh '刷新數(shù)據(jù)庫</p><p> If Data1.Recordset.BOF And Data1.Recordset.EOF Then '沒有該管理員用戶名或用戶名與密碼不一致,彈出警告對話框</
50、p><p> MsgBox "用戶名或密碼輸入錯誤,請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p> Text2.Text = "" '清空該文本框數(shù)據(jù)</p><p> Text1.SetFocus '清空該文本框數(shù)據(jù)</p>
51、<p><b> Else</b></p><p> frm_dl.Hide '隱藏登錄窗體</p><p> frm_cjgl.Show '彈出成績管理窗體</p><p> frm_cjgl.xscjlr.Enabled = False '管理員沒有成績錄入的權限</p><p
52、> frm_cjgl.xscjxg.Enabled = False '管理員沒有成績修改入的權限</p><p> frm_cjgl.jsmmxg.Enabled = False '管理員沒有修改教師密碼的權限</p><p><b> End If</b></p><p><b> End If<
53、/b></p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click() '退出系統(tǒng)</p><p><b> End</b></p>
54、<p><b> End Sub</b></p><p> Private Sub frm_dl_Load()</p><p> Label2.Width = frm_dl.ScaleWidth '設置標簽的尺寸</p><p> Label2.Left = frm_dl.ScaleWidth</p>
55、<p> Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設置相對路徑及數(shù)據(jù)庫名稱</p><p><b> End Sub </b></p><p> Private Sub Command1_Click()</p><p>
56、If combo1.Text = "按學號" Then</p><p> Data1.RecordSource = "select * from 成績單 where 學號='" & Text1.Text & "'" '按學號搜尋個人成績</p><p> Data1.Refresh
57、39;顯示個人成績</p><p><b> Else</b></p><p> Data1.RecordSource = "select * from 成績單 where 姓名='" & Text1.Text & "'" '按姓名搜尋個人成績</p><p>
58、 Data1.Refresh '顯示個人成績</p><p><b> End If</b></p><p> If Text1.Text = "" Then '顯示所有學生成績</p><p> Data1.RecordSource = "select * from 成績單 "
59、</p><p> Data1.Refresh '顯示所有人成績</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p>
60、frm_cxcj.Hide '隱藏成績查詢窗體</p><p> frm_cjgl.Show '彈出成績管理窗體</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> combo1.AddItem "按學號&
61、quot; '為combo1添加選擇條件</p><p> combo1.AddItem "按姓名"</p><p> combo1.AddItem "按班級"</p><p> Text1.Text = "" '初始化文本框</p><p> Data1.D
62、atabaseName = App.Path & "\student.mdb" '用data控件連接數(shù)據(jù)庫路徑及名稱</p><p> Data1.RecordSource = "select * from 成績單 order by 學號 asc" '搜尋所有人的成績,按升序排列</p><p> Data1.Refres
63、h '</p><p><b> End Sub</b></p><p><b> 3.學生信息查看</b></p><p> Private Sub Command1_Click()</p><p> frm_xscxxx.Hide '關閉學生信息查詢窗體</p>
64、;<p> frm_xscxcj.Show '打開學生查詢成績窗體</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Data1.DatabaseName = App.Path & "\student.mdb&qu
65、ot; '設置連接數(shù)據(jù)庫的路徑</p><p> Data1.RecordSource = "select * from 學生基本信息 where 學號='" & frm_dl.Text1.Text & "'" '從數(shù)據(jù)庫讀取學生基本信息</p><p> Data1.Refresh '刷新
66、</p><p><b> End Sub</b></p><p><b> 4、學生密碼修改</b></p><p> Private Sub Command1_Click()</p><p> If Trim(Text1.Text) <> Trim(Text2.Text) T
67、hen '兩次密碼輸入不一致,彈出信息提示對話框</p><p> MsgBox "兩次密碼輸入不一致,請重新輸入!", vbOKOnly + vbExclamation, "信息提示"</p><p> Text1.SetFocus '設置焦點</p><p> Text1.Text = "&
68、quot; '清空文本框</p><p> Text2.Text = ""</p><p> Else '從數(shù)據(jù)庫中讀取學號和密碼</p><p> Data1.RecordSource = "select * from 學生密碼 where 學號='" & frm_dl.Text1.Te
69、xt & "'"</p><p> Data1.Refresh '刷新</p><p> Data1.Recordset.Edit '修改學生密碼</p><p> Data1.Recordset.Fields("密碼") = Text1.Text</p><p>
70、 Data1.Recordset.Update '更新數(shù)據(jù)庫,彈出修改成功對話框</p><p> i = MsgBox("密碼修改成功,是否重新登錄?", vbOKCancel + vbQuestion, "提示")</p><p> If i = 1 Then '確認</p><p> frm_xs
71、mmxg.Hide '關閉修改學生密碼窗體</p><p> frm_dl.Show '打開登錄窗體</p><p><b> End If</b></p><p><b> End If</b></p><p><b> End Sub</b><
72、/p><p> Private Sub Command2_Click()</p><p> Text1.Text = "" '清空文本框</p><p> Text2.Text = ""</p><p> frm_xsmmxg.Hide '關閉修改學生密碼窗體</p>
73、<p> frm_xscxcj.Show '打開修改學生成績窗體</p><p><b> End Sub</b></p><p> Private Sub form_resize()</p><p> Text1.Text = "" '清空文本框</p><p>
74、 Text2.Text = ""</p><p> Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設置相對路徑及數(shù)據(jù)庫名稱</p><p><b> End Sub</b></p><p> Private Sub Te
75、xt1_LostFocus()</p><p> If Len(Text1.Text) < 6 Then '如果密碼字數(shù)少于6個,彈出提醒對話框</p><p> MsgBox "密碼長度不應少于6位,請重新輸入!", vbOKOnly, "提醒"</p><p> Text1.Text = "&
76、quot; '清空文本框</p><p> Text2.Text = ""</p><p><b> End If</b></p><p><b> End Sub</b></p><p><b> 5、學生成績錄入</b></p>
77、;<p> Private Sub Command1_Click()</p><p> Data1.Recordset.MoveFirst '移動到第一條記錄</p><p> Command1.Enabled = False '"第一個"不能操作</p><p> Command2.Enabled = Fa
78、lse '"上一個"不能操作</p><p> Command3.Enabled = True '"下一個"能操作</p><p> Command4.Enabled = True '"最后一個"能操作</p><p><b> End Sub</b>&l
79、t;/p><p> Private Sub Command2_Click()</p><p> Data1.Recordset.MovePrevious '移動到第一條前記錄</p><p> If Data1.Recordset.BOF Then '沒有記錄</p><p> Data1.Recordset.MoveFi
80、rst '移動到第一條記錄</p><p> Command1.Enabled = False '"第一個"不能操作</p><p> Command2.Enabled = False '"上一個"不能操作</p><p> Command3.Enabled = True '"下
81、一個"能操作</p><p> Command4.Enabled = True '"最后一個"能操作</p><p><b> Else</b></p><p> Command1.Enabled = True '"第一個"能操作</p><p>
82、 Command2.Enabled = True '"上一個"能操作</p><p> Command3.Enabled = True '"下一個"能操作</p><p> Command4.Enabled = True '"最后一個"能操作</p><p><b>
83、 End If</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> Data1.Recordset.MoveNext '移動到下一條記錄</p><p> If Data1.Recordset.
84、EOF Then '下一條沒有記錄</p><p> Data1.Recordset.MoveLast '移動到最后一條記錄</p><p> Command1.Enabled = True '"第一個"能操作</p><p> Command2.Enabled = True '"上一個"
85、能操作</p><p> Command3.Enabled = False '"下一個"不能操作</p><p> Command4.Enabled = False '"最后一個"不能操作</p><p><b> Else</b></p><p> Com
86、mand1.Enabled = True '"第一個"能操作</p><p> Command2.Enabled = True '"上一個"能操作</p><p> Command3.Enabled = True '"下一個"能操作</p><p> Command4.Enab
87、led = True '"最后一個"能操作</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p> Data1.Recordse
88、t.MoveLast '移動到最后一條記錄</p><p> Command1.Enabled = True '"第一個"能操作</p><p> Command2.Enabled = True '"上一個"能操作</p><p> Command3.Enabled = False '&q
89、uot;下一個"不能操作</p><p> Command4.Enabled = False '"最后一個"不能操作</p><p><b> End Sub</b></p><p> Private Sub Command5_Click()</p><p> 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、提醒對話框</p><p> MsgBox "內容不能為空,請重新輸入!"</p><p><b> Else</b></p><p> Data1.Recordset.Edit '對基本信息進行修改</p><p> Data1.Recordset.Fields(0) = frm_x
92、scjlr.Text1.Text</p><p> Data1.Recordset.Fields(1) = frm_xscjlr.Text2.Text</p><p> Data1.Recordset.Fields(2) = frm_xscjlr.Text3.Text</p><p> Data1.Recordset.Fields(3) = frm_xscjl
93、r.Text4.Text</p><p> Data1.Recordset.Fields(4) = frm_xscjlr.Text5.Text</p><p> Data1.Recordset.Fields(5) = frm_xscjlr.Text6.Text</p><p> Data1.Recordset.Fields(6) = frm_xscjlr.Te
94、xt7.Text</p><p> Data1.Recordset.Fields(7) = frm_xscjlr.Text8.Text</p><p> Data1.Recordset.Update '更新,彈出添加成功對話框</p><p> MsgBox "添加成功!"</p><p><b>
95、 End If</b></p><p> Text5.Text = "" '清空文本框</p><p> Text6.Text = ""</p><p> Text7.Text = ""</p><p> Text8.Text = ""
96、;</p><p><b> End Sub</b></p><p> Private Sub Command6_Click()</p><p> frm_xscjlr.Hide '隱藏學生成績錄入窗體</p><p> frm_cjgl.Show '打開成績管理窗體</p><
97、;p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Text1.Text = "" '初始化文本框</p><p> Text2.Text = ""</p><p> Text3.Tex
98、t = ""</p><p> Text4.Text = ""</p><p> Text5.Text = ""</p><p> Text6.Text = ""</p><p> Text7.Text = ""</p>
99、<p> Text8.Text = ""</p><p> Data1.DatabaseName = App.Path & "\student.mdb" '連接數(shù)據(jù)庫路徑和名稱</p><p><b> End Sub</b></p><p><b> 6.修改
100、學生成績</b></p><p> Private Sub Command2_Click()</p><p> If Text1.Text = "" Then '學號文本框不能為空</p><p> MsgBox "請輸入內容!"</p><p><b> Else
101、</b></p><p> Data1.Recordset.Edit '修改各門課程成績修改</p><p> Data1.Recordset.Fields(0) = Text2.Text</p><p> Data1.Recordset.Fields(1) = Text3.Text</p><p> Data1.
102、Recordset.Fields(2) = Text4.Text</p><p> Data1.Recordset.Fields(3) = Text5.Text</p><p> Data1.Recordset.Fields(4) = Text6.Text</p><p> Data1.Recordset.Fields(5) = Text7.Text</
103、p><p> Data1.Recordset.Fields(6) = Text8.Text</p><p> Data1.Recordset.Update '更新修改后的數(shù)據(jù)</p><p> MsgBox "修改成功", vbOKOnly, "提示" '彈出修改成功對話框</p><p&
104、gt;<b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command1_Click()</p><p> If Trim(Text1.Text) = "" Then</p><p> MsgBo
105、x "學號不能為空,請重新輸入!", vbOKOnly + vbExclamation, "警告" '學號文本框不能為空</p><p> Text1.SetFocus '為學號設置焦點</p><p><b> Else</b></p><p> Data1.RecordSourc
106、e = "select * from 成績單 where 學號='" & Text1.Text & " '" '從數(shù)據(jù)庫中加載學號</p><p> Data1.Refresh</p><p> If Data1.Recordset.EOF Then '數(shù)據(jù)庫中沒有這個學號</p>
107、<p> MsgBox "學號不存在,請重新輸入!", vbOKOnly + vbExclamation, "警告" '彈出學號不存在對話框</p><p> Text1.SetFocus '為學號設置焦點</p><p> Text1.Text = "" '清空文本框中數(shù)據(jù)</p&g
108、t;<p> Text2.Text = ""</p><p> Text3.Text = ""</p><p> Text4.Text = ""</p><p> Text5.Text = ""</p><p> Text6.Text =
109、""</p><p> Text7.Text = ""</p><p> Text8.Text = ""</p><p> Text9.Text = ""</p><p><b> Else</b></p><p&
110、gt; Text2.Text = Data1.Recordset.Fields(0) '從數(shù)據(jù)庫中為每個文本框加載各個字段的數(shù)據(jù)</p><p> Text3.Text = Data1.Recordset.Fields(1)</p><p> Text4.Text = Data1.Recordset.Fields(2)</p><p> Text5.
111、Text = Data1.Recordset.Fields(3)</p><p> Text6.Text = Data1.Recordset.Fields(4)</p><p> Text7.Text = Data1.Recordset.Fields(5)</p><p> Text8.Text = Data1.Recordset.Fields(6)</
112、p><p><b> End If</b></p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> frm_cj
113、xg.Hide '隱藏成績修改窗體</p><p> frm_cjgl.Show '彈出成績管理窗體</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Data1.DatabaseName = App.Path &
114、amp; "\student.mdb" '用data控件連接數(shù)據(jù)庫路徑及名稱</p><p> Text1.Text = "" '初始化各個文本框</p><p> Text2.Text = ""</p><p> Text3.Text = ""</p>
115、;<p> Text4.Text = ""</p><p> Text5.Text = ""</p><p> Text6.Text = ""</p><p> Text7.Text = ""</p><p> Text8.Text = &
116、quot;"</p><p><b> End Sub</b></p><p><b> 7、學生成績查看</b></p><p> Private Sub Command1_Click()</p><p> If Combo1.Text = "按學號" The
117、n</p><p> Data1.RecordSource = "select * from 成績單 where 學號='" & Text1.Text & "'" '按學號搜尋個人成績</p><p> Data1.Refresh '顯示個人成績</p><p><b&
118、gt; Else</b></p><p> Data1.RecordSource = "select * from 成績單 where 姓名='" & Text1.Text & "'" '按姓名搜尋個人成績</p><p> Data1.Refresh '顯示個人成績</p>
119、;<p><b> End If</b></p><p> If Text1.Text = "" Then '顯示所有學生成績</p><p> Data1.RecordSource = "select * from 成績單 "</p><p> Data1.Refresh
120、 '顯示所有人成績</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> frm_cxcj.Hide '隱藏成績查詢窗體</p>
121、;<p> frm_cjgl.Show '彈出成績管理窗體</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Combo1.AddItem "按學號" '為combo1添加選擇條件</p>
122、<p> Combo1.AddItem "按姓名"</p><p> Combo1.AddItem "按班級"</p><p> Text1.Text = "" '初始化文本框</p><p> Data1.DatabaseName = App.Path & "\
123、student.mdb" '用data控件連接數(shù)據(jù)庫路徑及名稱</p><p> Data1.RecordSource = "select * from 成績單 order by 學號 asc" '搜尋所有人的成績,按升序排列</p><p> Data1.Refresh '</p><p><b>
124、; End Sub</b></p><p><b> 8、教師密碼修改</b></p><p> Private Sub Command1_Click()</p><p> If Trim(Text1.Text) <> Trim(Text2.Text) Then '兩次密碼輸入不一致,彈出提示對話框<
125、;/p><p> MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"</p><p> Text1.SetFocus '為第一個文本框設置焦點</p><p> Text1.Text = "" '初始化文本框</p><
126、;p> Text2.Text = ""</p><p><b> Else</b></p><p> Data1.RecordSource = "select * from 教師密碼 where 用戶名='" & frm_dl.Text1.Text & "'"
127、39;從數(shù)據(jù)庫中讀取教師用戶名和密碼</p><p> Data1.Refresh '刷新數(shù)據(jù)庫</p><p> Data1.Recordset.Edit '修改數(shù)據(jù)庫中的密碼</p><p> Data1.Recordset.Fields("密碼") = Text1.Text</p><p>
128、Data1.Recordset.Update '更新,彈出修改成功對話框</p><p> MsgBox "密碼修改成功!", vbOKOnly + vbExclamation, "修改密碼"</p><p> Text1.Text = "" '清空文本框</p><p> Text2
129、.Text = ""</p><p><b> End If</b></p><p> Data1.Refresh '更新數(shù)據(jù)庫</p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</
130、p><p> Text1.Text = "" '清空文本框</p><p> Text2.Text = ""</p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p&
131、gt; frm_jsmmxg.Hide '隱藏教師修改密碼窗體</p><p> frm_cjgl.Show '彈出成績管理窗體</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Text1.Text = &qu
132、ot;" '初始化文本框</p><p> Text2.Text = ""</p><p> Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設置相對路徑及數(shù)據(jù)庫名稱</p><p><b> End Sub<
133、/b></p><p><b> 9、添加學生用戶</b></p><p> Private Sub Command1_Click() '學號不能為空,否則彈出信息提示對話框</p><p> If Trim(Text1.Text) = "" Then</p><p> MsgB
134、ox "請輸入用戶名!", vbOKOnly + vbExclamation, "信息提示"</p><p> Text1.SetFocus '設置焦點</p><p> Exit Sub '退出</p><p><b> Else</b></p><p>
135、 Data1.RecordSource = "select * from 學生密碼 where 學號='" & Text1.Text & "'" '設置學號和密碼</p><p> Data1.Refresh</p><p> If Not Data1.Recordset.EOF Then</p>
136、;<p> MsgBox "用戶已存在,請重新輸入用戶名!", vbOKOnly + vbExclamation, "提示信息"</p><p> Text1.SetFocus '設置焦點</p><p> Text1.Text = "": Text2.Text = "": Text
137、3.Text = "" '清空文本框</p><p><b> Exit Sub</b></p><p><b> End If</b></p><p><b> End If</b></p><p> If Trim(Text2.Text)
138、 <> Trim(Text3.Text) Then '如果兩次輸入的密碼不一致,彈出警告對話框</p><p> MsgBox "兩次輸入的密碼不一樣,請確認!", vbOKOnly + vbExclamation, "警告"</p><p> Text2.SetFocus '設置焦點</p><p
139、> Text2.Text = "" '清空文本框</p><p> Text3.Text = ""</p><p><b> Exit Sub</b></p><p><b> Else</b></p><p> With Data1&
140、lt;/p><p> .Recordset.AddNew '添加記錄</p><p> .Recordset.Fields(0) = Trim(Text1.Text)</p><p> .Recordset.Fields(1) = Trim(Text2.Text)</p><p> .Recordset.Update '更
141、新記錄</p><p><b> End With</b></p><p> MsgBox "添加用戶成功!", vbOKOnly + vbExclamation, "添加用戶" '彈出修改成功對話框</p><p><b> End If</b></p>
142、<p> Data1.Refresh '刷新</p><p> frm_tjxsyh.Hide '關閉添加學生用戶窗體</p><p> frm_tjxsxx.Show '打開學生信息窗體</p><p><b> End Sub</b></p><p> Private S
143、ub Command2_Click()</p><p> frm_tjxsyh.Hide '關閉添加學生用戶窗體</p><p> frm_cjgl.Show '打開成績管理窗體</p><p><b> End Sub</b></p><p> Private Sub Command3_Clic
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- vb課程設計----學生成績管理系統(tǒng)
- vb課程設計--學生成績管理系統(tǒng)
- vb課程設計---學生成績管理系統(tǒng)
- vb課程設計--學生成績管理系統(tǒng)
- vb學生成績管理系統(tǒng)課程設計報告
- vb課程設計設計報告---小型學生成績管理系統(tǒng)
- vb程序設計課程設計報告學生成績管理系統(tǒng)
- vb程序設計課程設計報告-學生成績管理系統(tǒng)
- vb程序設計課程設計報告學生成績管理系統(tǒng)
- [vb課程設計]學生成績處理設計報告
- 學生成績管理系統(tǒng)課程設計
- 課程設計——學生成績管理系統(tǒng)
- 課程設計---學生成績管理系統(tǒng)
- 學生成績管理系統(tǒng)課程設計
- 學生成績管理系統(tǒng)課程設計
- 學生成績管理系統(tǒng)課程設計
- 學生成績管理系統(tǒng)課程設計
- 學生成績管理系統(tǒng) 課程設計
- 課程設計--學生成績管理系統(tǒng)
- 學生成績管理系統(tǒng)課程設計
評論
0/150
提交評論