學(xué)生信息管理系統(tǒng)期末論文

1、2011-2012學(xué)年第二學(xué)期期末考試必修課期末課程設(shè)計(jì)科目：數(shù)據(jù)庫原理院 系: 計(jì)算機(jī)科學(xué)學(xué)院 專 業(yè): 信息管理與信息系統(tǒng) 學(xué) 號(hào): 姓 名: 賈 燚 指導(dǎo)老師: 李 燕 二零一二年六月摘 要隨著信息技術(shù)的快速發(fā)展，基于數(shù)據(jù)庫的管理系統(tǒng)，越來越受到人們的青睞。它查詢效率高，數(shù)據(jù)安全性好，數(shù)據(jù)共享性高。以學(xué)生信息管理系統(tǒng)為例的系統(tǒng)，在日常生活中給人們管理數(shù)據(jù)帶來了極大的方便，下面以學(xué)生信息管理系統(tǒng)為例，闡述了數(shù)據(jù)庫系統(tǒng)在生活中的應(yīng)用。關(guān)鍵詞：學(xué)生信息管理系統(tǒng)； 數(shù)據(jù)庫； 高效率； 安全性AbstractWith the rapid development of information tec

2、hnology, based on the database management system, more and more people of all ages. Its high query efficiency, data security, data sharing and high. Student information management system as an example of the system, in the daily life to people management data has brought great convenience, the stude

3、nt information management system as an example, describes the database system in application in life.Keywords: Student information management system; Database; High efficiency; Safety目 錄摘 要1Abstract2一.緒論4二.開發(fā)環(huán)境5三.需求分析53.1程序簡介53.2程序功能5四.系統(tǒng)設(shè)計(jì)54.1數(shù)據(jù)庫的設(shè)計(jì)5用企業(yè)管理器創(chuàng)建數(shù)據(jù)庫54.1.2 用企業(yè)管理器基本表74.2 程序的概要設(shè)計(jì)84.3 程序的詳細(xì)

4、設(shè)計(jì)94.3.1 登陸界面的實(shí)現(xiàn)94.3.2 主界面的實(shí)現(xiàn)104.3.3 系統(tǒng)管理的實(shí)現(xiàn)134.3.4 學(xué)生檔案管理的實(shí)現(xiàn)154.3.5 班級(jí)管理的實(shí)現(xiàn)184.3.6 課程管理的實(shí)現(xiàn)224.3.7 成績管理的實(shí)現(xiàn)26五.測試30六.結(jié)論30一.緒論對(duì)于一個(gè)選擇編寫學(xué)生信息管理系統(tǒng)的人來說，必須要有足夠的細(xì)心和耐心，因?yàn)榫幊桃话銇碚f是很枯燥的乏味的，而且程序會(huì)越來越復(fù)雜，它所用到的符號(hào)、標(biāo)記很多，所以不能出點(diǎn)小錯(cuò)誤的。還有，我們不能只是看程序，要學(xué)會(huì)把自己學(xué)的自己拿去實(shí)踐，自己去編一些程序，培養(yǎng)自己的動(dòng)手能力，掌握一些編程技巧，熟練運(yùn)用自己學(xué)到的理論知識(shí)，這樣在以后才能開發(fā)出屬于自己的東西。如今

5、，隨著科學(xué)技術(shù)的發(fā)展，計(jì)算機(jī)已成為了我們生活中必不可少的設(shè)備了，而掌握計(jì)算機(jī)知識(shí)和運(yùn)用，又成了我們每一個(gè)人的目標(biāo)了?，F(xiàn)在IT行業(yè)的飛速發(fā)展，無不應(yīng)正了以前、現(xiàn)在、將來計(jì)算機(jī)行業(yè)都是科學(xué)發(fā)展的主導(dǎo)行業(yè)。而這些基本上都建立在程序上的，所以程序員對(duì)計(jì)算機(jī)行業(yè)來說，可想而知有多么的重要了，他們所付出的每一滴汗水都將推動(dòng)這個(gè)行業(yè)的發(fā)展?，F(xiàn)在我就用Basic語言編寫一個(gè)基于數(shù)據(jù)庫的程序?qū)W生信息管理系統(tǒng)。將所學(xué)的基本知識(shí)用到其中去，這里包括了需求分析、數(shù)據(jù)庫的搭建、基本Visual Basic的應(yīng)用程序的編寫等等。這不僅能鍛煉我的實(shí)踐能力，同時(shí)也進(jìn)一步復(fù)習(xí)和鞏固了我所學(xué)的理論知識(shí)。對(duì)以前沒有學(xué)好的還有督促和

6、促進(jìn)作用。而且，根據(jù)需要，還可以了解一些課外的知識(shí)。增加自己的知識(shí)面。二.開發(fā)環(huán)境在開發(fā)此學(xué)生信息管理系統(tǒng)程序時(shí)，該程序所使用的軟件開發(fā)環(huán)境如下：操作系統(tǒng)：Windows 7開發(fā)工具：Microsoft Visual Studio 2008，SQL server 2000三.需求分析3.1程序簡介隨著網(wǎng)絡(luò)技術(shù)的發(fā)展，人們?cè)絹碓蕉嗟囊蕾囉诤啽愕某绦?，為了方便人們的管理，各種管理系統(tǒng)自然成為了熱點(diǎn)，各種管理系統(tǒng)到處都是。此程序便是參考其他管理系統(tǒng)設(shè)計(jì)的，當(dāng)然只是實(shí)現(xiàn)了比較基本的功能，可以進(jìn)行學(xué)生信息處理的基本操作。3.2程序功能該程序功能：該程序分為5個(gè)部分，分別是學(xué)生檔案管理、班級(jí)管理、課程管理

7、、成績管理和系統(tǒng)管理。 四.系統(tǒng)設(shè)計(jì)4.1數(shù)據(jù)庫的設(shè)計(jì)4.1.1用企業(yè)管理器創(chuàng)建數(shù)據(jù)庫打開企業(yè)管理器，進(jìn)入數(shù)據(jù)庫，右擊點(diǎn)創(chuàng)建數(shù)據(jù)庫，選擇主數(shù)據(jù)文件和事物日志文件的存放位置，分別位置主數(shù)據(jù)文件和事物日志文件的大小，最后點(diǎn)擊確定按鈕即完成數(shù)據(jù)庫的創(chuàng)建。其截圖如下圖1-1、1-2和1-3所示：圖1-1 新建數(shù)據(jù)庫的名稱圖1-2 數(shù)據(jù)文件圖1-3 事物日志文件 用企業(yè)管理器基本表打開企業(yè)管理器，進(jìn)入已創(chuàng)建好的數(shù)據(jù)庫xsxxglxt，在表上右鍵單擊創(chuàng)建表，分別創(chuàng)建用戶表、學(xué)生基本信息表、班級(jí)表、課程表和成績表。其表結(jié)構(gòu)如下表1、2、3、4和5所示：表1 用戶表的結(jié)構(gòu)表2 學(xué)生基本信息表的結(jié)構(gòu)表3 班級(jí)表

8、的結(jié)構(gòu)表4 課程表的結(jié)構(gòu)表5 成績表的結(jié)構(gòu)4.2 程序的概要設(shè)計(jì)此管理系統(tǒng)共有5個(gè)部分，分別是學(xué)生檔案管理、班級(jí)管理、課程管理、成績管理和系統(tǒng)管理。程序流程圖如下圖2所示：圖2 程序流程圖4.3 程序的詳細(xì)設(shè)計(jì) 登陸界面的實(shí)現(xiàn)打開Visual Basic.NET2008，創(chuàng)建一個(gè)項(xiàng)目名為“學(xué)生信息管理系統(tǒng)”的項(xiàng)目，項(xiàng)目創(chuàng)建完畢后，在在項(xiàng)目下添加一個(gè)windows窗體，窗體名為“登陸界面”，雙擊按鈕控件，對(duì)按鈕的Click事件進(jìn)行編程，其關(guān)鍵碼如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System

9、.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(用戶名不能為空，請(qǐng)輸入用戶名！, 20, 提示) ElseIf TextBox2.Text = Then MsgBox(密碼不能為空，請(qǐng)輸入密碼！, 20, 提示) End If If TextBox1.Text And TextBox2.Text Then apppath = Application.StartupPath If cslj() Then Dim strsql As String = select count(*) from 用戶表 where 用戶

10、名= & Trim(TextBox1.Text) & & and & 密碼= & Trim(TextBox2.Text) & & and 身份 = & ComboBox1.Text & objconn1.Open() Dim objcmd As New SqlCommand(strsql, objconn1) Dim n1 As Integer = objcmd.ExecuteScalar objconn1.Close() objcmd.Dispose() If n1 0 Then yh = Trim(TextBox1.Text) yonghu = Trim(TextBox1.Text) sf

11、 = ComboBox1.Text Dim frm As New 主界面 frm.Show() Else MsgBox(用戶名或密碼不對(duì)，無法登陸！, MsgBoxStyle.DefaultButton1, 提示) End If Else MsgBox(無法連接到數(shù)據(jù)庫！可能是網(wǎng)絡(luò)的問題或數(shù)據(jù)庫服務(wù)器有問題!, MsgBoxStyle.DefaultButton1, 提示) End If End If End Sub其運(yùn)行截圖如下圖3所示：圖3 登陸界面 主界面的實(shí)現(xiàn)在“學(xué)生信息管理系統(tǒng)”的項(xiàng)目下，添加一個(gè)windows窗體，窗體名為“主界面”，雙擊按鈕控件，對(duì)按鈕的Click事件進(jìn)行編程，其

12、關(guān)鍵碼如下：Private Sub 檔案添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 檔案添加ToolStripMenuItem.Click Dim xxtj As New 學(xué)生信息添加 xxtj.ShowDialog() End Sub Private Sub 檔案瀏覽ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 檔

13、案瀏覽ToolStripMenuItem.Click Dim xxll As New 學(xué)生信息瀏覽 xxll.ShowDialog() End Sub Private Sub 退出系統(tǒng)ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系統(tǒng)ToolStripMenuItem.Click Me.Close() End Sub Private Sub 班級(jí)瀏覽ToolStripMenuItem_Click(ByVal sender As System.Object

14、, ByVal e As System.EventArgs) Handles 班級(jí)瀏覽ToolStripMenuItem.Click Dim bjll As New 班級(jí)信息瀏覽 bjll.ShowDialog() End Sub Private Sub 班級(jí)添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 班級(jí)添加ToolStripMenuItem.Click Dim bjtj As New 班級(jí)信息添加 bjtj.ShowDialog() End Sub

15、 Private Sub 課程瀏覽ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 課程瀏覽ToolStripMenuItem.Click Dim ccll As New 課程信息瀏覽 ccll.ShowDialog() End Sub Private Sub 課程添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 課程添加To

16、olStripMenuItem.Click Dim cctj As New 課程信息添加 cctj.ShowDialog() End Sub Private Sub 成績添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 成績添加ToolStripMenuItem.Click Dim cctj1 As New 成績信息添加 cctj1.ShowDialog() End Sub Private Sub 成績?yōu)g覽ToolStripMenuItem_Click(By

17、Val sender As System.Object, ByVal e As System.EventArgs) Handles 成績?yōu)g覽ToolStripMenuItem.Click Dim ccll As New 成績信息瀏覽 ccll.ShowDialog() End Sub Private Sub 添加用戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加用戶ToolStripMenuItem.Click Dim tjyh As New 添加用戶

18、tjyh.ShowDialog() End Sub Private Sub 修改密碼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密碼ToolStripMenuItem.Click Dim xgmm As New 修改密碼 xgmm.ShowDialog() End Sub其運(yùn)行截圖如下圖4所示：圖4 主界面 系統(tǒng)管理的實(shí)現(xiàn)在“學(xué)生信息管理系統(tǒng)”的項(xiàng)目下，添加多個(gè)windows窗體，雙擊按鈕控件，對(duì)按鈕的Click事件進(jìn)行編程，其關(guān)鍵碼如下：Privat

19、e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(用戶名不能為空，請(qǐng)輸入用戶名！, 20, 提示) ElseIf TextBox2.Text = Then MsgBox(密碼不能為空，請(qǐng)輸入密碼！, 20, 提示) ElseIf TextBox2.Text = Then MsgBox(請(qǐng)?jiān)俅屋斎朊艽a！, 20, 提示) End If If TextBox1.Text And Tex

20、tBox2.Text And TextBox3.Text And TextBox2.Text = TextBox3.Text Then Dim strin As String objconn1.Open() Dim yhm As New SqlParameter(yhm, SqlDbType.VarChar, 20) Dim mm As New SqlParameter(mm, SqlDbType.VarChar, 20) Dim sf As New SqlParameter(sf, SqlDbType.VarChar, 20) strin = insert into 用戶表(用戶名,密碼,身

21、份) values(yhm,mm,sf) Dim shouquan As String = sp_adduser yhm Dim objcmd2 As New SqlCommand(shouquan, objconn1) Dim objcmd1 As New SqlCommand(strin, objconn1) objcmd1.Parameters.Add(yhm) objcmd1.Parameters.Add(mm) objcmd1.Parameters.Add(sf) yhm.Value = TextBox1.Text mm.Value = TextBox2.Text If RadioB

22、utton1.Checked Then sf.Value = RadioButton1.Text ElseIf RadioButton2.Checked Then sf.Value = RadioButton2.Text ElseIf RadioButton3.Checked Then sf.Value = RadioButton3.Text End If objcmd1.ExecuteNonQuery() objconn1.Close() objcmd1.Dispose() Dim strsq111 As String strsq111 = select * from 用戶表 where 用

23、戶名= & TextBox1.Text & xs3(strsq111) MsgBox(添加成功！, 64, 提示) End If If CheckBox1.Checked Then Dim str111 As String = grant update on table 學(xué)生基本信息表 to yhm Dim objcmd3 As New SqlCommand(str111, objconn1) End If End Sub其運(yùn)行截圖如下圖5-1和5-2所示：圖5-1 添加用戶圖5-2 修改密碼 學(xué)生檔案管理的實(shí)現(xiàn)在“學(xué)生信息管理系統(tǒng)”的項(xiàng)目下，添加多個(gè)windows窗體，雙擊按鈕控件，對(duì)按鈕的

24、Click事件進(jìn)行編程，其關(guān)鍵碼如下：Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click If DataGridView2.Rows(linenum).Selected = False Then MsgBox(沒有選擇記錄不能刪除！, 64, 提示) Else Dim yn As Integer yn = MsgBox(確定要?jiǎng)h除該條記錄嗎? & vbCrLf & 該操作會(huì)導(dǎo)致該學(xué)生數(shù)據(jù)的丟失！確定？, 16 + 4

25、, 提示) If yn = 6 Then Dim strsq3 As String = delete from 學(xué)生基本信息表 where 學(xué)號(hào)= & Trim(xuehao) & objconn1.Open() Dim objcmd As New SqlCommand(strsq3, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() Dim strsq2 As String = select * from 學(xué)生基本信息表 where 學(xué)號(hào)= & Trim(xuehao) & xs3(strsq2) Msg

26、Box(刪除成功！, 64, 提示) End If End If PictureBox3.Enabled = False End Sub Sub xs3(ByVal sj1 As String) Dim strsql1 As String = sj1 sqlconnection1 = New System.Data.SqlClient.SqlConnection(conn) sqlconnection1.Open() Dim objAdap As New SqlClient.SqlDataAdapter(strsql1, conn) sqlconnection1.Close() objdset

27、1.Clear() objAdap.Fill(objdset1, a2) DataGridView2.DataSource = objdset1.Tables(a2) End Sub其運(yùn)行截圖如下圖6-1、6-2、6-3、6-4和6-5所示：圖6-1 學(xué)生信息添加圖6-2 查詢學(xué)生檔案圖6-3 學(xué)生信息瀏覽圖6-4 學(xué)生信息修改圖6-5 學(xué)生信息刪除 班級(jí)管理的實(shí)現(xiàn)在“學(xué)生信息管理系統(tǒng)”的項(xiàng)目下，添加多個(gè)windows窗體，雙擊按鈕控件，對(duì)按鈕的Click事件進(jìn)行編程，其關(guān)鍵碼如下：Private Sub TreeView1_AfterSelect(ByVal sender As System

28、.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect If TreeView1.SelectedNode.Text = 退出系統(tǒng) Then End End If If TreeView1.SelectedNode.Text = 檔案添加 Then Dim datj As New 學(xué)生信息添加 datj.ShowDialog() End If If TreeView1.SelectedNode.Text = 檔案瀏覽 Then Dim dall As New 學(xué)生信息瀏覽

29、 dall.ShowDialog() End If If TreeView1.SelectedNode.Text = 課程添加 Then Dim kctj As New 課程信息添加 kctj.ShowDialog() End If If TreeView1.SelectedNode.Text = 課程瀏覽 Then Dim kcll As New 課程信息瀏覽 kcll.ShowDialog() End If If TreeView1.SelectedNode.Text = 班級(jí)添加 Then Dim bjtj As New 班級(jí)信息添加 bjtj.ShowDialog() End If I

30、f TreeView1.SelectedNode.Text = 班級(jí)瀏覽 Then Dim bjll As New 班級(jí)信息瀏覽 bjll.ShowDialog() End If If TreeView1.SelectedNode.Text = 成績添加 Then Dim cjtj As New 成績信息添加 cjtj.ShowDialog() End If If TreeView1.SelectedNode.Text = 成績?yōu)g覽 Then Dim cjll As New 成績信息瀏覽 cjll.ShowDialog() End If If TreeView1.SelectedNode.Te

31、xt = 添加用戶 Then Dim tjyh As New 添加用戶 tjyh.ShowDialog() End If If TreeView1.SelectedNode.Text = 修改密碼 Then Dim xgmm As New 修改密碼 xgmm.ShowDialog() End If End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Dim bjcx As New 班級(jí)信息查詢 bjc

32、x.ShowDialog() PictureBox2.Enabled = True PictureBox3.Enabled = True ysj.CurrentCell = ysj.Rows(linenum).Cells(0) 移動(dòng)游標(biāo) ysj.Rows(linenum).Selected = True 設(shè)置選中行 End Sub其運(yùn)行截圖如下圖7-1、7-2、7-3、7-4和7-5所示：圖7-1 班級(jí)信息添加圖7-2 查詢班級(jí)圖7-3 班級(jí)信息瀏覽圖7-4 班級(jí)信息修改圖7-5 班級(jí)信息刪除 課程管理的實(shí)現(xiàn)在“學(xué)生信息管理系統(tǒng)”的項(xiàng)目下，添加多個(gè)windows窗體，雙擊按鈕控件，對(duì)按鈕的Cl

33、ick事件進(jìn)行編程，其關(guān)鍵碼如下：Sub xs3(ByVal sj1 As String) Dim strsql1 As String = sj1 sqlconnection1 = New System.Data.SqlClient.SqlConnection(conn) sqlconnection1.Open() Dim objAdap As New SqlClient.SqlDataAdapter(strsql1, conn) sqlconnection1.Close() objdset1.Clear() objAdap.Fill(objdset1, d2) DataGridView1.D

34、ataSource = objdset1.Tables(d2) End Sub Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click If DataGridView1.Rows(linenum).Selected = False Then MsgBox(沒有選擇記錄不能刪除！, 64, 提示) Else Dim yn As Integer yn = MsgBox(確定要?jiǎng)h除該條記錄嗎? & vbCrLf & 該操作會(huì)導(dǎo)

35、致該課程數(shù)據(jù)的丟失！確定？, 16 + 4, 提示) If yn = 6 Then Dim strsq14 As String = delete from 課程表 where 課程號(hào)= & Trim(kchao) & objconn1.Open() Dim objcmd As New SqlCommand(strsq14, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() Dim strsq51 As String = select * from 課程表 where 課程號(hào)= & Trim(kchao) &

36、 xs3(strsq51) MsgBox(刪除成功！, 64, 提示) End If End If PictureBox3.Enabled = False End Sub其運(yùn)行截圖如下圖8-1、8-2、8-3、8-4和8-5所示：圖8-1 課程信息添加圖8-2 查詢課程圖8-3 課程信息瀏覽圖8-4 課程信息修改圖8-5 課程信息刪除 成績管理的實(shí)現(xiàn)在“學(xué)生信息管理系統(tǒng)”的項(xiàng)目下，添加多個(gè)windows窗體，雙擊按鈕控件，對(duì)按鈕的Click事件進(jìn)行編程，其關(guān)鍵碼如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

37、 As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(學(xué)號(hào)不能為空，請(qǐng)輸入學(xué)號(hào)!, 64, 提示) ElseIf TextBox2.Text = Then MsgBox(班號(hào)不能為空，請(qǐng)輸入班號(hào)！, 64, 提示) ElseIf TextBox3.Text = Then MsgBox(課程號(hào)不能為空，請(qǐng)輸入課程號(hào)！, 64, 提示) ElseIf TextBox4.Text = Then MsgBox(成績不能為空，請(qǐng)輸入成績！, 64, 提示) End If If TextBox1.Text And TextBox2.Text And TextBox3.Text And TextBox4.Text Then Dim strin16 As String objconn1.Open() Dim xh As New SqlParameter(xh, SqlDbType.VarChar, 20) Dim bh As New SqlParameter(bh, SqlDbType.VarChar, 20) Dim kch As New SqlParam