學(xué)生信息管理系統(tǒng)畢業(yè)論文3

上海xx大學(xué) 畢業(yè)設(shè)計（論文、作業(yè)）畢業(yè)設(shè)計（論文、作業(yè)）題目： 學(xué)生信息管理系統(tǒng) 分校（站、點(diǎn)）： XX 年級、專業(yè)： 2011秋計算機(jī)實用技術(shù) 教育層次： 學(xué)生姓名： XX 學(xué) 號： XXXXXXXXXX 指導(dǎo)教師： XXX 完成日期： 2013年X月1X號 II目錄內(nèi)容摘要I一、序言1二、需求分析1三、總體設(shè)計2（一）系統(tǒng)開發(fā)工具及其介紹21.VB.NET22.SQLServer20052（二）系統(tǒng)模塊及功能2（三）系統(tǒng)流程圖3（四）系統(tǒng)結(jié)構(gòu)圖4四、 數(shù)據(jù)庫設(shè)計4（一）數(shù)據(jù)庫表結(jié)構(gòu)的詳細(xì)設(shè)計4（二） 數(shù)據(jù)庫表之間的關(guān)系6五 、系統(tǒng)功能代碼實現(xiàn)7（一）主窗體設(shè)置7（二）登錄7（三）基礎(chǔ)資料管理81.用戶注冊82.用戶管理9（四）學(xué)生資料管理101.輸入學(xué)生資料102.修改學(xué)生資料123.查詢學(xué)生資料134.刪除學(xué)生資料14（五）學(xué)生成績管理151.輸入學(xué)生成績152.查詢學(xué)生成績163.修改學(xué)生成績174刪除學(xué)生成績18（六）班級管理191.學(xué)科管理192.班級管理19（七）密碼修改19六 、小結(jié)20參考文獻(xiàn)：20致謝21內(nèi)容摘要信息社會的高科技，商品經(jīng)濟(jì)化的高效益，使計算機(jī)的應(yīng)用已普及到經(jīng)濟(jì)和社會生活的各個領(lǐng)域。計算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。學(xué)生信息管理系統(tǒng)是學(xué)校教務(wù)管理中的一個極為重要的環(huán)節(jié)，它是整個學(xué)校管理的核心和基礎(chǔ)。本文介紹了學(xué)生信息管理系統(tǒng)的開發(fā)整個過程，闡述了數(shù)據(jù)庫設(shè)計、系統(tǒng)設(shè)計和系統(tǒng)實施的全部過程。采用VisualS2005作為開放工具，SQL Server Management Studio作為后臺數(shù)據(jù)庫。本系統(tǒng)具有基本資料管理（用戶注冊、用戶管理兩個模塊功能）、學(xué)生信息管理、學(xué)生成績管理、班級管理、密碼修改等模塊，可分別完成學(xué)生基本信息和學(xué)生成績管理的輸入、修改、查詢、刪除等功能。通過學(xué)生信息管理系統(tǒng)，可以做到學(xué)生信息、成績的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從而減少管理方便的工作量。關(guān)鍵詞： VB.NET 數(shù)據(jù)庫 信息管理 學(xué)生信息I學(xué)生信息管理系統(tǒng)一、序言隨著科學(xué)技術(shù)的不斷進(jìn)步，計算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一個重要部分，信息管理系統(tǒng)是一個由用戶和計算機(jī)組成的進(jìn)行信息管理、信息收集、存儲處理、傳遞使用和維護(hù)的軟件系統(tǒng)。學(xué)生信息管理系統(tǒng)是學(xué)校地方管理工作過程中不可缺少的部分，對學(xué)生信息管理工作，具有著手工管理所無法比擬的優(yōu)點(diǎn)，檢索迅速、查找方便、可靠性高、存儲量大等。這些優(yōu)點(diǎn)能夠極大地提高日常查詢的效率。因此，設(shè)計一個功能完整、操作簡便、界面友好的學(xué)生信息管理系統(tǒng)已經(jīng)勢在必行。本系統(tǒng)開發(fā)的目的是提高學(xué)校管理工作的效率，保證信息的準(zhǔn)確和規(guī)范，減少相關(guān)人員的工作量，使學(xué)校的教務(wù)管理工作真正做到科學(xué)、合理的規(guī)劃，系統(tǒng)、高效的實施。數(shù)據(jù)庫技術(shù)是一種計算機(jī)輔助管理數(shù)據(jù)的方法，它研究如何組織和存儲數(shù)據(jù)，如何高效地獲取和處理數(shù)據(jù)。本文介紹了學(xué)生管理系統(tǒng)的設(shè)計開發(fā)，主要是基于這樣一種體系，前臺使用VB.NET設(shè)計開發(fā)，通過ADO.NET來實現(xiàn)對后臺SQL Server數(shù)據(jù)庫設(shè)計管理。從功能上來說，該系統(tǒng)實現(xiàn)課程管理、學(xué)生信息管理、成績管理和系統(tǒng)管理功能，基本滿足了用戶在教務(wù)管理方面的要求，同時又能解決實際問題，簡化用戶的操作。二、需求分析為什么需要學(xué)生信息管理系統(tǒng)，以往的手工記錄耗時、耗力，不但浪費(fèi)了大量的資源，并且得不到充分的信息數(shù)據(jù)保護(hù)，所以需要一個既能保護(hù)數(shù)據(jù)又能省時省力的管理軟件來進(jìn)行管理。從而開發(fā)出一款學(xué)生信息管理系統(tǒng)，此系統(tǒng)必須具備能夠管理基礎(chǔ)資料信息、學(xué)生資料、學(xué)生成績、班級管理、密碼修改以及用戶登錄模塊，既然是一款管理軟件，那必然需要管理人員來管理，所以在系統(tǒng)中必須要有對用戶的管理，以方便管理人員對用戶進(jìn)行管理。系統(tǒng)中的登錄管理模塊可以限制用戶的登錄權(quán)限，不同的用戶登陸有著不同的管理權(quán)限，如果沒有登陸模塊，那么所有用戶就可以隨便的進(jìn)入系統(tǒng)，擁有同樣的權(quán)限，那樣整個系統(tǒng)就會亂掉，所以需要登陸模塊來限制登陸用戶的權(quán)限從而開發(fā)出登陸模塊?；A(chǔ)資料管理模塊可以對用戶進(jìn)行注冊、修改和刪除，此功能只有管理員才具備，在一個管理軟件中，必須要有一個管理員對系統(tǒng)中所有的用戶進(jìn)行添加、修改和刪除，從而更好的有效的管理好這款軟件，所以開發(fā)出來了基礎(chǔ)資料管理模塊。對學(xué)生的資料管理比較復(fù)雜，所以需要對學(xué)生的信息進(jìn)行統(tǒng)一的有序的管理，因為在一個學(xué)校中，學(xué)生成千上萬，學(xué)生的資料數(shù)據(jù)也比較的雜亂，所以需要能夠有序統(tǒng)一的來管理學(xué)生信息，學(xué)生資料管理模塊是統(tǒng)一的對學(xué)生的基本信息進(jìn)行的添加、刪除、查詢和修改，從而開發(fā)出了學(xué)生資料管理模塊。對學(xué)生的成績管理也是要有序的管理，學(xué)生成績管理模塊是對學(xué)生的學(xué)生成績輸入、學(xué)生成績查詢、學(xué)生成績刪除和對成績的修改，手工輸入成績那是避免不了的，但是查看方式比以往的查看成績信息方便多了，一目了然，所以開發(fā)出了學(xué)生成績管理模塊。班級管理是對學(xué)生所在的班級進(jìn)行的修改、添加和刪除，因為學(xué)生所在的班級一定要規(guī)劃好，才能更好的管理學(xué)生，開發(fā)班級模塊只是能夠?qū)Ω梅奖愕墓芾韺W(xué)生，所以開發(fā)出了班級管理模塊。學(xué)科管理對學(xué)生在某一學(xué)期所有課程的管理，對課程的添加、修改和刪除，所以開發(fā)出了課程管理。成績管理模塊是用戶對成績進(jìn)行查詢使用的，該模塊中用戶可以按班級、學(xué)號和課程對學(xué)生成績進(jìn)行查詢，成績查詢模塊只是為了讓用戶更方便的查看成績信息，所以開發(fā)了成績管理模塊。該系統(tǒng)實現(xiàn)課程管理、學(xué)生資料管理、學(xué)生成績管理、班級管理、成績查詢和系統(tǒng)管理功能，基本滿足了用戶在教務(wù)管理方面的要求，并具有良好的可擴(kuò)充性。三、總體設(shè)計（一）系統(tǒng)開發(fā)工具及其介紹 1.VB.NETVisual Basic.NET是基于微軟。NETFramework之上的面向?qū)ο蟮闹虚g解釋性語言，可以看作是Visual Basic在。Net Framework平臺上的升級版本，增強(qiáng)了對面向?qū)ο蟮闹С帧５捎诟膭犹?，?dǎo)致VB.net對VB的向后兼容性不好，在業(yè)界引起不小的爭議。 大多的VB.Net程序員使用Visual Studio .Net作為IDE（integrated development environment). SharpDevelop是另一種可用的開源的IDE。VB.Net需要在。Net Framework平臺上才能執(zhí)行。 2.SQLServer2005SQL Server 2005 是一個全面的數(shù)據(jù)庫平臺，使用集成的商業(yè)智能 (BI) 工具提供了企業(yè)級的數(shù)據(jù)管理。SQL Server 2005 數(shù)據(jù)庫引擎為關(guān)系型數(shù)據(jù)和結(jié)構(gòu)化數(shù)據(jù)提供了更安全可靠的存儲功能，使您可以構(gòu)建和管理用于業(yè)務(wù)的高可用和高性能的數(shù)據(jù)應(yīng)用程序。SQL Server 2005 數(shù)據(jù)引擎是本企業(yè)數(shù)據(jù)管理解決方案的核心。此外 SQL Server 2005 結(jié)合了分析、報表、集成和通知功能。這使您的企業(yè)可以構(gòu)建和部署經(jīng)濟(jì)有效的 BI 解決方案，幫助您的團(tuán)隊通過記分卡、Dashboard、Web services 和移動設(shè)備將數(shù)據(jù)應(yīng)用推向業(yè)務(wù)的各個領(lǐng)域。與 Microsoft Visual Studio、Microsoft Office System 以及新的開發(fā)工具包（包括 Business Intelligence Development Studio）的緊密集成使 SQL Server 2005 與眾不同。無論您是開發(fā)人員、數(shù)據(jù)庫管理員、信息工作者還是決策者，SQL Server 2005 都可以為您提供創(chuàng)新的解決方案，幫助您從數(shù)據(jù)中更多地獲益。（二）系統(tǒng)模塊及功能系統(tǒng)模塊劃分如下所示：登陸管理模塊：為了系統(tǒng)的安全性，根據(jù)不同權(quán)限給出不同服務(wù)?；A(chǔ)資料模塊：僅系統(tǒng)管理員可用，對這個系統(tǒng)的所有用戶進(jìn)行管理和新用戶的注冊。學(xué)生資料模塊：僅教務(wù)可用，對學(xué)生資料的管理，輸入、修改、查詢、刪除等操作。學(xué)生成績模塊：僅今教師可用，對學(xué)生成績的管理，輸入、修改、查詢、刪除等操作。班級管理模塊：對學(xué)生班級課程添加、刪除的管理，這是教務(wù)教師管理員都有的權(quán)限。密碼修改模塊：對登陸用戶的密碼修改。只限修改登陸號的秘密。（三）系統(tǒng)流程圖系統(tǒng)登錄分登陸成功和失敗，失敗則重新登陸或退出，成功則進(jìn)入相應(yīng)的權(quán)限模塊，基本資料管理模塊、學(xué)生資料管理模塊、學(xué)生成績管理模塊和班級管理模塊等，基本資料管理模塊主要是對系統(tǒng)中用戶的管理，對用戶進(jìn)行的添加、修改和刪除。 圖 1 系統(tǒng)流程（四）系統(tǒng)結(jié)構(gòu)圖在學(xué)生信息管理系統(tǒng)中分為登陸、修改密碼、學(xué)生資料管理、學(xué)生成績管理、基本資料管理和班級管理，登陸和基本資料管理在系統(tǒng)流程中已作解釋，下面對學(xué)生資料管理、學(xué)生成績管理和班級管理。學(xué)生資料管理中分為輸入學(xué)生資料、修改學(xué)生資料、查詢學(xué)生資料和刪除學(xué)生資料。學(xué)生成績管理中分為輸入學(xué)生成績、修改學(xué)生成績、查詢學(xué)生成績和刪除學(xué)生成績，手工輸入成績那是避免不了的，但是查看方式比以往的查看成績信息方便多了，一目了然。學(xué)生成績查詢的開發(fā)是能讓用戶更詳細(xì)的查詢到某一個學(xué)生、班級、課程的所有信息。班級管理分為班級管理、學(xué)科管理，對班級和學(xué)科進(jìn)行添加、修改和刪除的管理，相對以往的手工管理方便的很多。圖 2 系統(tǒng)結(jié)構(gòu)四、 數(shù)據(jù)庫設(shè)計（一）數(shù)據(jù)庫表結(jié)構(gòu)的詳細(xì)設(shè)計本系統(tǒng)采用SQL Server 2000數(shù)據(jù)庫系統(tǒng)，在該系統(tǒng)中新建一個數(shù)據(jù)庫，將其命名為xsxx，然后再在該數(shù)據(jù)庫中創(chuàng)建5個數(shù)據(jù)表：用戶表其中姓名是用戶表的用戶名,它是用來用戶登錄用戶表,其字段都不為空,姓名設(shè)為主鍵。如下圖3所示：圖3 用戶表成績表是來存放科目成績的，其中ID為主鍵而且序號是自增長（也就是標(biāo)識為是），除ID以外其它字段都為空。如圖4所示：圖4 成績表科目表存放著科目信息字段有科目編號、科目名稱，科目編號設(shè)為主鍵，兩個字段都不允許為空，如圖5所示：圖5 科目表學(xué)生基本信息表存放了學(xué)生的基本信息，其中電話、住址和相片的字段允許為空其余的不允許為空，學(xué)號設(shè)為主鍵如下圖6所示：圖6 學(xué)生基本信息表班級表存放著班級信息字段有班號、班級其字段都不為空，班號設(shè)為主鍵。如圖7所示：圖7 班級表 （二） 數(shù)據(jù)庫表之間的關(guān)系 數(shù)據(jù)庫表之間的關(guān)系如圖8所示。 圖8數(shù)據(jù)庫表之間的關(guān)系五 、系統(tǒng)功能代碼實現(xiàn)（一）主窗體設(shè)置 前面已經(jīng)介紹了本系統(tǒng)的模塊劃分，每個子模塊就代表一個窗體。主窗體有三個界面都是一樣的。主窗體就是將各個子窗體通過菜單項結(jié)合在一起，方便調(diào)用。不同的用戶擁有不同的權(quán)限，管理員在主窗體里只能進(jìn)入基礎(chǔ)資料管理和修改自己的登錄密碼和班級管理，教師在主窗體除了對學(xué)生成績管理和班級管理進(jìn)行操作外，也可以對自己的登錄密碼進(jìn)行修改。教務(wù)的權(quán)限是對學(xué)生資料管理、班級管理的操作和對自己登錄密碼的修改。主窗體界面： 圖9主窗體功能代碼如下： Dim frl As New 登錄 frl.Show()用來跳轉(zhuǎn)界面的，定義新的窗體，在主窗體當(dāng)用戶單擊這個事件的時候跳轉(zhuǎn)到這個界面。其它跳轉(zhuǎn)界面的代碼與此一樣，就此省略。 （二）登錄 程序運(yùn)行時進(jìn)入的是主界面，然后要進(jìn)入登陸界面，在登陸中輸入正確用戶、密碼后才能進(jìn)入所相對權(quán)限的管理，登陸界面有分用戶權(quán)限，不同用戶進(jìn)入后具備的功能不同。功能代碼如下：For i As Integer = 0 To Me.XsxxDataSet.用戶.Count - 1 If TextBox1.Text.Trim = Me.XsxxDataSet.用戶(i).姓名.Trim And TextBox2.Text.Trim = Me.XsxxDataSet.用戶(i).密碼.Trim ThenForm1.Timer1.Tag = Me.XsxxDataSet.用戶(i).權(quán)限Form1.Timer1.Enabled = TrueMe.Close()Exit SubEnd IfNextMsgBox("姓名或密碼輸入錯誤!")End Sub首先進(jìn)行判斷用戶名和密碼是否為空，如果為空就會報錯。如果在文本框中輸入用戶名和密碼，和數(shù)據(jù)庫中的用戶名密碼進(jìn)行比對，失敗則系統(tǒng)提示登陸失敗，密碼或用戶名。并判斷用戶類型也就是用戶的權(quán)限，給出相應(yīng)的功能。 登陸界面： 圖10登錄界面（三）基礎(chǔ)資料管理 基礎(chǔ)資料管理有2個界面。分別是用戶注冊界面，用戶管理界面。 1.用戶注冊 用戶的姓名和密碼不能為空，已經(jīng)注冊過的用戶不能重復(fù)注冊，用戶權(quán)限采用選擇輸入法。用戶注冊界面只有管理員可以進(jìn)行注冊，其他用戶不開放。功能代碼如下： For i As Integer = 0 To Me.XsxxDataSet.用戶.Count - 1 If Me.Text.Trim = Me.XsxxDataSet.用戶(i).姓名.Trim Then MsgBox("該用戶已經(jīng)存在！") Exit Sub End If Next If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("姓名和密碼不能為空！") Else Me.XsxxDataSet.用戶.Add用戶Row(TextBox1.Text, TextBox2.Text, ComboBox1.SelectedIndex.ToString) Me.用戶TableAdapter.Update(Me.XsxxDataSet.用戶) Me.XsxxDataSet.用戶.AcceptChanges() MsgBox("注冊成功！")用戶注冊界面：圖11用戶注冊2.用戶管理用戶管理是對用戶進(jìn)行刪除和權(quán)限修改，窗體使用了DataGridView控件用來顯示用戶表的信息，該窗體只有管理員能進(jìn)行操作。Me.用戶TableAdapter.Fill(Me.XsxxDataSet.用戶)拖拉到界面上自動生成的代碼Me.DataGridView1.DataSource = Me.用戶BindingSource這是DataGridView與用戶表綁定下面的代碼是打在DataGridView的單擊事件下，使單擊DataGridView里的條信息進(jìn)行修改：TextBox1.Text = Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).密碼 If Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).權(quán)限 = "0" Then ComboBox1.Text = "管理員" ComboBox1.SelectedIndex = 0 End If If Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).權(quán)限 = "1" Then ComboBox1.Text = "教師" ComboBox1.SelectedIndex = 1 End If If Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).權(quán)限 = "2" Then ComboBox1.Text = "教務(wù)" ComboBox1.SelectedIndex = 2 End If權(quán)限修改代碼如下： Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).密碼 = TextBox1.Text Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).權(quán)限 = ComboBox1.SelectedIndex.ToString Me.用戶TableAdapter.Update(Me.XsxxDataSet.用戶) Me.XsxxDataSet.用戶.AcceptChanges() MsgBox("修改成功")刪除代碼如下： If MsgBox("確定刪除嗎?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then Me.XsxxDataSet.用戶(Me.用戶DataGridView.CurrentRow.Index).Delete() Me.用戶TableAdapter.Update(Me.XsxxDataSet.用戶) Me.XsxxDataSet.用戶.AcceptChanges()用戶管理界面：圖12 用戶管理（四）學(xué)生資料管理 1.輸入學(xué)生資料按班級逐個輸入新生資料：新生的學(xué)號由系統(tǒng)自動生成；用打開文件對話框和圖片對話框控件完成學(xué)生相片文件的導(dǎo)入和顯示。輸入學(xué)生資料界面：圖13輸入學(xué)生資料功能代碼如下： If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Try Me.PictureBox1.Image = Image.FromFile(Me.OpenFileDialog1.FileName) zx = TextBox1.Text + _ Me.OpenFileDialog1.FileName.Substring(Me.OpenFileDialog1.FileName.LastIndexOf(".") Catch ex As Exception zx = "無.jpg" End Try Else zx = "無.jpg" End If Button3.Enabled = True以上這段代碼是導(dǎo)入照片功能，只有導(dǎo)入照片后，存入資料按鈕才能有用。在保存新生資料時對輸入項作必要驗證，把新生的相片文件改名為其學(xué)號+文件后綴后存放到項目的debug/pc文件夾內(nèi)。如果沒有正常導(dǎo)入相片文件，則暫時用”無.jif ”相片名稱。 Sub bh() If Me.XsxxDataSet.學(xué)生基本信息.Count = 0 Then TextBox1.Text = Me.班級ComboBox.SelectedValue + "1" Exit Sub End If Dim cl As String = XsxxDataSet.學(xué)生基本信息(XsxxDataSet.學(xué)生基本信息.Count - 1).學(xué)號.Substring(6, 2) If cl.Substring(1, 1) = "9" Then TextBox1.Text = Trim(Me.班級ComboBox.SelectedValue) + "0" + (Val(cl.Substring(0, 1) + 1).ToString + "0" Else TextBox1.Text = Trim(Me.班級ComboBox.SelectedValue) + "0" + cl.Substring(0, 1) + (Val(cl.Substring(1, 1) + 1).ToString在輸入學(xué)生資料窗體中，有三處代碼要實現(xiàn)學(xué)號的自動生成功能，為此，以上編寫一個用戶自定義過程bh（）來實現(xiàn)學(xué)號自動生成功能。 If TextBox2.Text = "" Then MsgBox("必須輸入姓名!") Exit Sub End If If zx <> "無.jpg" Then Me.PictureBox1.Image.Save(Application.StartupPath + "/pc/" + zx) End If以上是存入資料事件過程的代碼。 2.修改學(xué)生資料按班級顯示學(xué)生資料，選擇要修改的學(xué)生，顯示該學(xué)生的所有信息（包括相片圖像），再修改，替換該學(xué)生資料額相片后予以保存。修改學(xué)生資料管理界面：圖14 修改學(xué)生資料這個窗體在運(yùn)行時不但在班級下拉列表，學(xué)生資料數(shù)據(jù)表格里出現(xiàn)了第一個班級名稱和這個班級的學(xué)生資料，在修改學(xué)生資料的框內(nèi)，也已經(jīng)顯示了該班第一個學(xué)生的資料以待修改。存入資料按鈕代碼功能代碼如下： Dim n As Integer = Me.學(xué)生基本信息DataGridView.CurrentRow.Index Me.XsxxDataSet.學(xué)生基本信息(n).姓名 = TextBox2.Text Me.XsxxDataSet.學(xué)生基本信息(n).電話 = TextBox3.Text Me.XsxxDataSet.學(xué)生基本信息(n).住址 = TextBox4.Text Me.XsxxDataSet.學(xué)生基本信息(n).出生日期 = Me.DateTimePicker1.Value Me.XsxxDataSet.學(xué)生基本信息(n).性別 = Me.ComboBox2.Text Me.XsxxDataSet.學(xué)生基本信息(n).相片 = zx Me.學(xué)生基本信息TableAdapter.Update(Me.XsxxDataSet.學(xué)生基本信息) Me.XsxxDataSet.學(xué)生基本信息.AcceptChanges()學(xué)生基本信息DataGridView_Click事件過程中的代碼如下： Try Dim n As Integer = Me.學(xué)生基本信息DataGridView.CurrentRow.Index TextBox1.Text = Me.XsxxDataSet.學(xué)生基本信息(n).學(xué)號 TextBox2.Text = Me.XsxxDataSet.學(xué)生基本信息(n).姓名 TextBox3.Text = Me.XsxxDataSet.學(xué)生基本信息(n).電話 TextBox4.Text = Me.XsxxDataSet.學(xué)生基本信息(n).住址 Me.DateTimePicker1.Value = Me.XsxxDataSet.學(xué)生基本信息(n).出生日期 ComboBox2.Text = Me.XsxxDataSet.學(xué)生基本信息(n).性別 zx = Me.XsxxDataSet.學(xué)生基本信息(n).相片.Trim Me.PictureBox1.Image = Image.FromFile("./pc/" + zx) Catch ex As Exception End Try3.查詢學(xué)生資料查詢學(xué)生資料可以按照學(xué)號和姓名進(jìn)行詳細(xì)查詢，也可以根據(jù)班級索引進(jìn)行查詢，對查詢學(xué)生的基本信息十分便捷。既可以按班級顯示該學(xué)生姓名，再選定要查詢的學(xué)生完成查詢，也可以按學(xué)生的學(xué)號或姓名進(jìn)行模糊查找來完成查詢。查詢學(xué)生資料界面：圖15 查詢學(xué)生資料查詢功能代碼如下： Try Dim n As Integer = Me.學(xué)生基本信息ListBox.SelectedIndex TextBox2.Text = Me.XsxxDataSet.學(xué)生基本信息(n).班號 TextBox3.Text = Me.XsxxDataSet.學(xué)生基本信息(n).班級 TextBox4.Text = Me.XsxxDataSet.學(xué)生基本信息(n).學(xué)號 TextBox5.Text = Me.XsxxDataSet.學(xué)生基本信息(n).姓名 TextBox6.Text = Me.XsxxDataSet.學(xué)生基本信息(n).性別 TextBox7.Text = Me.XsxxDataSet.學(xué)生基本信息(n).出生日期 TextBox8.Text = Me.XsxxDataSet.學(xué)生基本信息(n).電話 TextBox9.Text = Me.XsxxDataSet.學(xué)生基本信息(n).住址 Me.PictureBox1.Image = Image.FromFile("./pc/" + Me.XsxxDataSet.學(xué)生基本信息(n).相片) Catch ex As Exception End Try以上是學(xué)生基本信息ListBox_Click的代碼。 If RadioButton1.Checked Then cl = "select * from 學(xué)生基本信息 where 學(xué)號 like %" + TextBox1.Text.Trim + "%" Else cl = "select * from 學(xué)生基本信息 where 姓名 like %" + TextBox1.Text.Trim + "%" End If Dim ad As New SqlClient.SqlDataAdapter(cl, 學(xué)生基本信息TableAdapter.Connection) Me.XsxxDataSet.學(xué)生基本信息.Clear() ad.Fill(Me.XsxxDataSet.學(xué)生基本信息) 學(xué)生基本信息ListBox_Click(sender, e)以上是“確定”按鈕Button1_Click事件過程的代碼。 4.刪除學(xué)生資料 刪除學(xué)生資料是對錯誤的學(xué)生信息、多余的進(jìn)行刪除，設(shè)計簡單，這里就不多做說明了。 刪除學(xué)生資料界面：圖16刪除學(xué)生資料主要功能代碼如下： If MsgBox("確定刪除嗎?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then End If Me.XsxxDataSet.學(xué)生基本信息(Me.學(xué)生基本信息DataGridView.CurrentRow.Index).Delete() Me.學(xué)生基本信息TableAdapter.Update(Me.XsxxDataSet.學(xué)生基本信息) Me.XsxxDataSet.學(xué)生基本信息.AcceptChanges()（五）學(xué)生成績管理 1.輸入學(xué)生成績按班級逐個輸入學(xué)生一門學(xué)科成績，一個班級的這門學(xué)科成績?nèi)绻呀?jīng)輸入完畢，就會顯示相應(yīng)提示，如果這個班級的魔門學(xué)科成績輸入到退出了操作，下次進(jìn)入同一個班級同一門學(xué)科成績輸入時，會自動從上次沒有輸入成績的第一個學(xué)生開始提示輸入。這樣既符合用戶的工作習(xí)慣，提高系統(tǒng)效率，又不會重復(fù)某個輸入某個學(xué)生的單科成績。輸入學(xué)生成績管理界面：圖17 輸入學(xué)生成績存入按鈕功能代碼如下： Me.XsxxDataSet.成績.Add成績Row(Me.XsxxDataSet.學(xué)生基本信息(n).學(xué)號, Me.科目ComboBox.SelectedValue, TextBox2.Text, Me.班級ComboBox.Text, Me.班級ComboBox.SelectedValue) Me.Validate() Me.成績BindingSource.EndEdit() Me.成績TableAdapter.Update(Me.XsxxDataSet.成績) n += 1 If n < Me.XsxxDataSet.學(xué)生基本信息.Count Then TextBox1.Text = Me.XsxxDataSet.學(xué)生基本信息(n).姓名 TextBox2.Text = 0 Else MsgBox("該班級本門學(xué)科成績輸入完畢!") Button1.Enabled = False班級ComboBox_SelectedIndexChanged事件過程代碼如下： Try Me.成績TableAdapter.FillBy(Me.XsxxDataSet.成績, Me.班級ComboBox.SelectedValue, Me.科目ComboBox.SelectedValue) Me.學(xué)生基本信息TableAdapter.FillBy(Me.XsxxDataSet.學(xué)生基本信息, Me.班級ComboBox.SelectedValue) n = Me.XsxxDataSet.成績.Count If n < Me.XsxxDataSet.學(xué)生基本信息.Count Then TextBox1.Text = Me.XsxxDataSet.學(xué)生基本信息(n).姓名 TextBox2.Text = 0 Button1.Enabled = True Else MsgBox("該班級部門學(xué)科成績輸入完畢!") Button1.Enabled = False End If Catch ex As Exception End Try 2.查詢學(xué)生成績查詢學(xué)生成績既可以按班級和學(xué)科顯示該班學(xué)生這門學(xué)科的成績，也可以按學(xué)號或姓名模糊查詢一個學(xué)生全部學(xué)科的成績。 查詢學(xué)生成績界面：圖18查詢學(xué)生成績班級ComboBox_SelectedIndexChanged事件過程代碼如下： Try Me.成績TableAdapter.FillBy(Me.XsxxDataSet.成績, Me.班級ComboBox.SelectedValue, Me.科目名稱ComboBox.SelectedValue) Me.學(xué)生基本信息TableAdapter.FillBy(Me.XsxxDataSet.學(xué)生基本信息, Me.班級ComboBox.SelectedValue) Catch ex As Exception End Try Try確定按鈕過程代碼如下： Me.XsxxDataSet.學(xué)生基本信息.Clear() If RadioButton1.Checked Then cl = "select * from 學(xué)生基本信息 where 學(xué)號 like %" + TextBox1.Text.Trim + "%" Else cl = "select * from 學(xué)生基本信息 where 姓名 like %" + TextBox1.Text.Trim + "%" End If Dim ad As New SqlClient.SqlDataAdapter(cl, Me.學(xué)生基本信息TableAdapter.Connection) ad.Fill(Me.XsxxDataSet.學(xué)生基本信息) ListBox1_Click(sender, e) 3.修改學(xué)生成績修改學(xué)生成績，按班級和學(xué)科顯示學(xué)生成績，選擇要修改的學(xué)生，顯示該學(xué)生的這門學(xué)科成績以待修改，修改后可保存修改結(jié)果并在DataGridView.上顯示修改結(jié)果。 修改學(xué)生成績界面：圖19修改學(xué)生成績成績DataGridView_Click功能代碼如下： Dim cl As String = XsxxDataSet.成績(成績DataGridView.CurrentRow.Index).學(xué)號 TextBox1.Text = XsxxDataSet.學(xué)生基本信息.FindBy學(xué)號(cl).姓名 TextBox2.Text = XsxxDataSet.成績(成績DataGridView.CurrentRow.Index).科目成績班級ComboBox_SelectedIndexChanged事件過程代碼如下： Try Me.成績TableAdapter.FillBy(Me.XsxxDataSet.成績, Me.班級ComboBox.SelectedValue, Me.科目ComboBox.SelectedValue) Me.學(xué)生基本信息TableAdapter.FillBy(Me.XsxxDataSet.學(xué)生基本信息, Me.班級ComboBox.SelectedValue) 成績DataGridView_Click(sender, e) Catch ex As Exception End Try存入代碼事件過程代碼如下： XsxxDataSet.成績(成績DataGridView.CurrentRow.Index).科目成績 = TextBox2.Text Me.成績TableAdapter.Update(Me.XsxxDataSet.成績) Me.XsxxDataSet.成績.AcceptChanges() 4刪除學(xué)生成績 刪除學(xué)生成績是對錯誤的學(xué)生信息、多余的進(jìn)行刪除，設(shè)計簡單，跟刪除學(xué)生資料功能一樣，這里也就不多做說明了。刪除學(xué)生成績界面：圖20刪除學(xué)生成績主要功能代碼如下： If MsgBox("確定刪除嗎?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then End If Me.XsxxDataSet.成績(Me.成績DataGridView.CurrentRow.Index).Delete() Me.成績TableAdapter.Update(Me.XsxxDataSet.成績) Me.XsxxDataSet.成績.AcceptChanges() End Sub（六）班級管理這兩個比較簡單，不用輸入代碼，只用連接到數(shù)據(jù)源添加到頁面，再與對應(yīng)的TextBox控件進(jìn)行綁定就可以了。 1.學(xué)科管理界面如下：圖21 學(xué)科管理 2.班級管理圖22 班級管理（七）密碼修改修改密碼要判斷用戶和密碼控件是否為空外，還要進(jìn)行比較也就是說兩次確認(rèn)密碼，其他的功能就不用一一介紹，因為大多和前面界面的代碼基本相識。密碼修改界面：圖23修改密碼功能代碼如下：用戶登錄自己的賬號后，能對自己的密碼進(jìn)行修改。 Dim n As Integer = Val(Form1.Tag) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.TextBox2.Text.Trim = "" Or TextBox2.Text <> TextBox3.Text Then MsgBox("密碼不能為空，兩次輸入密碼必須一樣!") Exit Sub End If Me.XsxxDataSet.用戶(n).密碼 = TextBox2.Text Me.用戶TableAdapter.Update(Me.XsxxDataSet.用戶) Me.XsxxDataSet.用戶.AcceptChanges() MsgBox("修改密碼成功！")六 、小結(jié)一個完整的學(xué)生管理系統(tǒng)已經(jīng)創(chuàng)建完成。在學(xué)生信息管理系統(tǒng)中，首先進(jìn)行了詳細(xì)的需求分析，劃分了課程管理、學(xué)籍管理、班級管理、課表管理、成績管理、系別管理和查詢成績模塊，然后進(jìn)行了數(shù)據(jù)庫的分析與設(shè)計，創(chuàng)建數(shù)據(jù)表以及表關(guān)聯(lián)，最后通過VB.NET進(jìn)行了應(yīng)用程序的開發(fā)，實現(xiàn)了系統(tǒng)中的一些基本功能。參考文獻(xiàn)：1、陳偉平 ，程序設(shè)計應(yīng)用試驗指導(dǎo)， 上海高教電子音像出版社2、顧曉梅 ，數(shù)據(jù)庫應(yīng)用技術(shù)教程 ，上海XX大學(xué)教材3、陳海建 ，程序設(shè)計基礎(chǔ)實驗指導(dǎo)， 上海XX大學(xué)教材致謝首先，我要感謝我的指導(dǎo)老師XX，從選題、畢業(yè)設(shè)計的制作過程中她給予我悉心指導(dǎo).XX老師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度，誨人不倦的敬業(yè)精神深深感染著我。 其次，我要感謝我的家人和朋友，尤其是我的家人，雖然你們并不懂我做的課題研究，但是你們給予了我前進(jìn)的動力和永不放棄的精神； 最后，感謝上海開放大學(xué)計算機(jī)應(yīng)用技術(shù)（網(wǎng)絡(luò)管理）的各位老師的日常教導(dǎo)和培養(yǎng)，你們是良師也是益友，給予我很多幫助。感謝上海XX大學(xué)計算機(jī)應(yīng)用技術(shù)（網(wǎng)絡(luò)管理）的全體同學(xué)給我的真摯幫助。感謝我的朋友們在生活中陪我走過的每一天。22