學(xué)生成績(jī)管理系統(tǒng)源代碼.doc

登錄界面圖4.1登錄界面設(shè)計(jì)過(guò)程：用于輸入用戶名和密碼登錄，選擇相應(yīng)的用戶類型進(jìn)入系統(tǒng)，若是用戶類型選擇錯(cuò)誤則不能進(jìn)入系統(tǒng)。沒(méi)有用戶名的可注冊(cè)用戶名，如對(duì)系統(tǒng)操作有不了解的可點(diǎn)擊幫助，進(jìn)入幫助界面。輸入用戶名和密碼后點(diǎn)擊確定判斷數(shù)據(jù)庫(kù)中的用戶是否為合法用戶。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 選擇普通用戶登錄 If Me.RadioButton1.Checked Then Dim str As String str = data source=PC-201103171305SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 普通用戶where 用戶名= & TextBox1.Text.ToString().Trim() & and 密碼= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績(jī)管理系統(tǒng).添加DToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).修改KToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).刪除DToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).添加ToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).高級(jí)用戶信息管理ToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).Show() Me.Hide() Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If 選擇高級(jí)用戶登錄 If Me.RadioButton2.Checked Then Dim str As String str = data source=PC-201103171305SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 高級(jí)用戶where 用戶名= & TextBox1.Text.ToString().Trim() & and 密碼= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績(jī)管理系統(tǒng).添加ToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).Show() Me.Hide() Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If 選擇超級(jí)用戶登錄 If Me.RadioButton3.Checked Then Dim str As String str = data source=PC-201103171305SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 超級(jí)用戶where 用戶名= & TextBox1.Text.ToString().Trim() & and 密碼= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績(jī)管理系統(tǒng).Show() Me.Hide() Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If End Sub學(xué)生成績(jī)管理界面圖4.2學(xué)生成績(jī)管理界面設(shè)計(jì)過(guò)程：所有功能都在菜單中打開(kāi)來(lái)實(shí)現(xiàn)。在登錄時(shí)選擇的用戶類型限制本界面功能使用的權(quán)限，不同的用戶類型所顯示可用的功能不一樣。普通用戶可使用界面管理功能、學(xué)生信息管理中的查詢功能、登錄用戶管理中的普通用戶管理功能；高級(jí)用戶擁有普通用戶所有功能使用的權(quán)限，外加登錄用戶管理中的高級(jí)用戶管理功能；超級(jí)用戶擁有高級(jí)用戶所有的功能使用的權(quán)限，外加超級(jí)用戶管理功能；所有登錄的用戶都可使用界面管理功能和幫助功能。不同的權(quán)限擁有不同的功能。設(shè)計(jì)代碼：Public Class 學(xué)生信息管理系統(tǒng)Private Sub 添加DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加DToolStripMenuItem.Click Dim tianjia As New 添加 tianjia.MdiParent = Me tianjia.Show() End SubPrivate Sub 修改KToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改KToolStripMenuItem.Click Dim xiugai As New 修改 xiugai.MdiParent = Me xiugai.Show() End SubPrivate Sub 刪除DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除DToolStripMenuItem.Click Dim shanchu As New 刪除 shanchu.MdiParent = Me shanchu.Show() End SubPrivate Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click End End SubPrivate Sub 返回ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回ToolStripMenuItem.Click 登陸界面.Show() Me.Close() End SubPrivate Sub 信息查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chaxun As New 查詢 chaxun.MdiParent = Me chaxun.Show() End SubPrivate Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem.Click Dim yonghuguanli As New 用戶信息管理 yonghuguanli.MdiParent = Me yonghuguanli.Show() End SubPrivate Sub 查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查詢ToolStripMenuItem.Click Dim chaxun As New 查詢 chaxun.MdiParent = Me chaxun.Show() End SubPrivate Sub 窗口層疊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗口層疊ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End SubPrivate Sub 水平平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平鋪ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End SubPrivate Sub 垂直平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平鋪ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End SubPrivate Sub 修改密碼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密碼ToolStripMenuItem.Click Dim 修改密碼As New 高級(jí)用戶密碼修改 修改密碼.MdiParent = Me 修改密碼.Show() End SubPrivate Sub 修改普通用戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改普通用戶ToolStripMenuItem.Click Dim 修改密碼As New 普通用戶密碼修改 修改密碼.MdiParent = Me 修改密碼.Show() End SubPrivate Sub 幫助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 幫助ToolStripMenuItem.Click Dim 幫助As New 幫助文件 幫助.MdiParent = Me 幫助.Show() End SubEnd Class學(xué)生信息管理學(xué)生信息添加圖4.3.1學(xué)生信息添加學(xué)生基本信息添加設(shè)計(jì)過(guò)程：選擇學(xué)生信息添加，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點(diǎn)擊添加后數(shù)據(jù)存入學(xué)生信息表。點(diǎn)擊退出則退出整個(gè)管理系統(tǒng)，點(diǎn)擊返回則退回到學(xué)生成績(jī)管理界面。（選擇學(xué)生信息添加后學(xué)生成績(jī)添加為不可用）設(shè)計(jì)代碼：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Me.TextBox1.Text.Trim = String.Empty Then MessageBox.Show(學(xué)號(hào)不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show(姓名不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim str As String = select * from 學(xué)生信息表 & where 學(xué)號(hào)= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 學(xué)生信息表 & (學(xué)號(hào),姓名,年齡,班級(jí),籍貫,性別) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & , & Me.TextBox5.Text.Trim & , & ComboBox3.Text.Trim & , & Me.ComboBox2.Text.Trim & , & ComboBox1.Text.Trim & ) link(str) xuehao() End If str = select * from 成績(jī)表 & where 學(xué)號(hào)= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 成績(jī)表(學(xué)號(hào),姓名) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) xuehao() End If str = select * from 成績(jī)表 & where 學(xué)號(hào)= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 成績(jī)表(學(xué)號(hào),姓名) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) MessageBox.Show(學(xué)生信息表記錄 & Me.TextBox1.Text & 已成功, 添加成功, MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show(記錄 & Me.TextBox1.Text & 已存在, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End IfEnd Sub學(xué)生成績(jī)信息添加設(shè)計(jì)過(guò)程：選擇學(xué)生成績(jī)添加，在相應(yīng)的欄目選擇添加內(nèi)容（上學(xué)期、下學(xué)期、科目、學(xué)號(hào)、成績(jī)），點(diǎn)擊添加后數(shù)據(jù)存入學(xué)生成績(jī)表（成績(jī)表1或者成績(jī)表2）。點(diǎn)擊退出則退出整個(gè)管理系統(tǒng)，點(diǎn)擊返回則退回到學(xué)生成績(jī)管理界面。（選擇學(xué)生成績(jī)添加后學(xué)生信息添加為不可用）設(shè)計(jì)代碼：Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Me.txt_chengji.Text.Trim = String.Empty Then MessageBox.Show(成績(jī)不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) Else If Me.cb_xueqi.SelectedIndex = 0 Then Str = update 成績(jī)表set & Me.cb_kecheng.Text.Trim & = & Me.txt_chengji.Text.Trim & where 學(xué)號(hào)= & Me.cb_xuehao.Text.Trim & If Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.TextBox4.Text.Trim) = 100 Then MessageBox.Show(修改成功！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Question) Else MsgBox(對(duì)不起，您輸入的成績(jī)有誤！請(qǐng)重新輸入, 16, 警告) End If End If End Sub學(xué)生信息刪除圖4.3.3學(xué)生信息刪除設(shè)計(jì)過(guò)程：選擇所要?jiǎng)h除的信息類型，在學(xué)號(hào)欄目選擇相應(yīng)的學(xué)號(hào)。點(diǎn)擊刪除，則在相應(yīng)的表中刪除信息。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.RadioButton1.Checked Then Dim str As String = delete from 成績(jī)表where 學(xué)號(hào)= & ComboBox1.Text.Trim & link(str) MessageBox.Show(刪除記錄 & ComboBox1.Text & 成功, 刪除成功, MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End If If Me.RadioButton2.Checked Then Dim str As String = delete from 成績(jī)表where 學(xué)號(hào)= & ComboBox1.Text.Trim & link(str) MessageBox.Show(刪除記錄 & ComboBox1.Text & 成功, 刪除成功, MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End If If Me.RadioButton3.Checked Then Dim str As String = delete from 學(xué)生信息表where 學(xué)號(hào)= & ComboBox1.Text.Trim & link(str) MessageBox.Show(刪除記錄 & ComboBox1.Text & 成功, 刪除成功, MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End IfEnd Sub5.3.4學(xué)生信息查詢圖4.3.4學(xué)生信息查詢?cè)O(shè)計(jì)過(guò)程：選擇查詢的學(xué)生信息類型，輸入所要查詢的學(xué)生學(xué)號(hào)，點(diǎn)擊查詢即可，在下面會(huì)顯示你所查詢學(xué)生信息。點(diǎn)擊刷新能及時(shí)更新最新的學(xué)生信息。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.RadioButton1.Checked Then xh = select * from 成績(jī)表where 學(xué)號(hào)= & Me.TextBox2.Text.Trim & ElseIf Me.RadioButton2.Checked Then xh = select * from 成績(jī)表where 學(xué)號(hào)= & Me.TextBox2.Text.Trim & ElseIf Me.RadioButton3.Checked Then xh = select * from 學(xué)生信息表where 學(xué)號(hào)= & Me.TextBox2.Text.Trim & End If tianxuehao()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.TextBox2.Text = If Me.RadioButton1.Checked Then xh = select * from 成績(jī)表 tianxuehao() ElseIf Me.RadioButton2.Checked Then xh = select * from 成績(jī)表 tianxuehao() ElseIf Me.RadioButton3.Checked Then xh = select * from 學(xué)生信息表 tianxuehao() End IfEnd Sub登錄用戶管理普通用戶管理圖4.4.1普通用戶管理設(shè)計(jì)過(guò)程：在普通用戶密碼修改界面，輸入所要修改的自己或者別人的用戶名，填入新的密碼，點(diǎn)擊提交即可修改相應(yīng)的用戶名密碼。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click xh = select * from 普通用戶 where 用戶名= & Me.TextBox1.Text.Trim & If Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show(密碼不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) Else str = update 普通用戶 set 密碼= & Me.TextBox2.Text.Trim & where 用戶名= & Me.TextBox1.Text.Trim & If Not link(str).Rows.Count Then MessageBox.Show(修改普通用戶密碼成功！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End IfEnd Sub高級(jí)用戶管理圖4.4.2高級(jí)用戶管理設(shè)計(jì)過(guò)程：在高級(jí)用戶密碼修改界面，輸入所要修改的自己或者別人的用戶名，填入新的密碼，點(diǎn)擊提交即可修改相應(yīng)的用戶名密碼。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click xh = select * from 高級(jí)用戶 where 用戶名= & Me.TextBox1.Text.Trim & If Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show(密碼不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) Else Str = update 高級(jí)用戶 set 密碼= & Me.TextBox2.Text.Trim & where 用戶名= & Me.TextBox1.Text.Trim & If Not link(Str).Rows.Count Then MessageBox.Show(修改高級(jí)用戶密碼成功！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Question) End If End IfEnd Sub超級(jí)用戶管理圖4.4.3超級(jí)用戶管理設(shè)計(jì)過(guò)程：正確選擇所要操作的用戶類型，在用戶信息管理界面可添加用戶、修改用戶、刪除用戶、查詢用戶等功能，這是一個(gè)只有超級(jí)用戶才擁有的權(quán)限功能，這個(gè)界面功能可操作學(xué)生成績(jī)管理系統(tǒng)的用戶登錄信息，方面了超級(jí)用戶對(duì)用戶名和密碼的管理。設(shè)計(jì)代碼：用戶添加代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.TextBox1.Text.Trim = String.Empty Then MessageBox.Show(用戶名不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show(密碼不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) End If If Me.RadioButton1.Checked Then Dim str As String = select * from 普通用戶 & where 用戶名= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 普通用戶 & (用戶名,密碼) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) MessageBox.Show(普通用戶 & Me.TextBox1.Text & 已成功, 添加成功, MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show(記錄 & Me.TextBox1.Text & 已存在, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If If Me.RadioButton2.Checked Then Dim str As String = select * from 高級(jí)用戶 & where 用戶名= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 高級(jí)用戶 & (用戶名,密碼) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link