【文章內(nèi)容簡(jiǎn)介】 Dim cmd As New (sql, con) Dim reader As Try reader = If () = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) () () Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類型）, 16, 警告) = = () End If Catch ex As Exception End Try End If End Sub設(shè)計(jì)過程：所有功能都在菜單中打開來實(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 , ByVal e As ) Handles Dim tianjia As New 添加 = Me () End SubPrivate Sub 修改KToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim xiugai As New 修改 = Me () End SubPrivate Sub 刪除DToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim shanchu As New 刪除 = Me () End SubPrivate Sub 退出XToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles End End SubPrivate Sub 返回ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () () End SubPrivate Sub 信息查詢ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Dim chaxun As New 查詢 = Me () End SubPrivate Sub 添加ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim yonghuguanli As New 用戶信息管理 = Me () End SubPrivate Sub 查詢ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim chaxun As New 查詢 = Me () End SubPrivate Sub 窗口層疊ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End SubPrivate Sub 水平平鋪ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End SubPrivate Sub 垂直平鋪ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles () End SubPrivate Sub 修改密碼ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim 修改密碼As New 高級(jí)用戶密碼修改 = Me () End SubPrivate Sub 修改普通用戶ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim 修改密碼As New 普通用戶密碼修改 = Me () End SubPrivate Sub 幫助ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles Dim 幫助As New 幫助文件 = Me () End SubEnd Class學(xué)生基本信息添加設(shè)計(jì)過程：選擇學(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 , ByVal e As ) Handles If = Then (學(xué)號(hào)不能為空, 添加失敗, , ) ElseIf = Then (姓名不能為空, 添加失敗, , ) Else Dim str As String = select * from 學(xué)生信息表 amp。 where 學(xué)號(hào)=39。 amp。 amp。 39。 If link(str). = 0 Then str = Nothing str = insert into 學(xué)生信息表 amp。 (學(xué)號(hào),姓名,年齡,班級(jí),籍貫,性別) values (39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) link(str) xuehao() End If str = select * from 成績(jī)表 amp。 where 學(xué)號(hào)=39。 amp。 amp。 39。 If link(str). = 0 Then str = Nothing str = insert into 成績(jī)表(學(xué)號(hào),姓名) values (39。 amp。 amp。 39。,39。 amp。 amp。 39。) link(str) xuehao() End If str = select * from 成績(jī)表 amp。 where 學(xué)號(hào)=39。 amp。 amp。 39。 If link(str). = 0 Then str = Nothing str = insert into 成績(jī)表(學(xué)號(hào),姓名) values (39。 amp。 amp。 39。,39。 amp。 amp。 39。) link(str) (學(xué)生信息表記錄 amp。 amp。 已成功, 添加成功, , ) xuehao() Else (記錄 amp。 amp。 已存在, 添加失敗, , ) End If End IfEnd Sub學(xué)生成績(jī)信息添加設(shè)計(jì)過程：選擇學(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 , ByVal e As ) Handles If = Then (成績(jī)不能為空, 添加失敗, , ) Else If = 0 Then Str = update 成績(jī)表set amp。 amp。 = 39。 amp。 amp。 39。 where 學(xué)號(hào)=39。 amp。 amp。 39。 If Int() = 0 And Int() = 100 Then link(Str) (記錄添加已成功, 添加成功, , ) xuehao() Else (記錄成績(jī)已存在, 添加失敗, , ) End If ElseIf = 1 Then Str = update 成績(jī)表set amp。 amp。 = 39。 amp。 amp。 39。 where 學(xué)號(hào)=39。 amp。 amp。 39。 If Int() = 0 An