【文章內(nèi)容簡介】 New 查詢 Me End Sub Private Sub 窗口層疊 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 窗 口 層 疊 End Sub Private Sub 水平平鋪 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 水 平 平 鋪 End Sub Private Sub 垂直平鋪 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 垂 直 平 鋪 End Sub Private Sub 修改密碼 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 修 改 密 碼 Dim 修改密碼 As New 高級用戶密碼修改 修改密碼 .MdiParent Me 修改密碼 .Show End Sub Private Sub 修改普通用戶 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 修改普 通用戶 Dim 修改密碼 As New 普通用戶密碼修改 修改密碼 .MdiParent Me 修改密碼 .Show End Sub Private Sub 幫助 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 幫助 Dim 幫助 As New 幫助文件 幫助 .MdiParent Me 幫助 .Show End Sub End Class 學(xué)生信息管理 學(xué)生信息添加 圖 學(xué)生信息添加 學(xué)生基本信息添加 設(shè)計過程： 選擇學(xué)生信息添加，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點擊添加后數(shù)據(jù)存入學(xué)生信息表。點擊退出則退出整個管理系統(tǒng)，點擊返回則退回到學(xué)生成績管理界面。（選擇學(xué)生信息添加后學(xué)生成績添加 為不可用） 設(shè)計代碼： Private Sub Button2_Click ByVal sender As , ByVal e As Handles If Then 學(xué) 號 不 能 為 空 , 添 加 失 敗 , , ElseIf Then 姓 名 不 能 為 空 , 添 加 失 敗 , , Else Dim str As String select * from 學(xué)生信息表 amp。 where 學(xué)號 39。 amp。 amp。 39。 If link str . 0 Then str Nothing str insert into 學(xué)生信息表 amp。 學(xué)號 ,姓名 ,年齡 ,班級 , 籍貫 , 性別 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 成績表 amp。 where 學(xué)號 39。 amp。 amp。 39。 If link str . 0 Then str Nothing str insert into 成績表 學(xué)號 ,姓名 values 39。 amp。 amp。 39。,39。 amp。 amp。 39。 link str xuehao End If str select * from 成績表 amp。 where 學(xué)號 39。 amp。 amp。 39。 If link str . 0 Then str Nothing str insert into 成績表 學(xué)號 ,姓名 values 39。 amp。 amp。 39。,39。 amp。 amp。 39。 link str 學(xué) 生 信 息 表 記 錄 amp。 amp。 已 成 功 , 添 加 成 功 , , xuehao Else 記錄 amp。 amp。 已存在 , 添加失敗 , , End If End If End Sub 學(xué)生成績信息添加 設(shè)計過程： 選擇學(xué)生成績添加，在相應(yīng)的欄目選擇添加內(nèi)容（上學(xué)期、下學(xué)期、科目、學(xué)號、成績），點擊添加后數(shù)據(jù)存入學(xué)生成績表（成績表 1 或者成績表 2）。點擊退出則退出整個管理系統(tǒng)，點擊返回則退回到學(xué)生成績管理界面。（選擇學(xué)生成績添加后學(xué)生信息添加為不可用） 設(shè) 計代碼： Private Sub Button4_Click ByVal sender As , ByVal e As Handles If Then 成 績 不 能 為 空 , 添 加 失 敗 , , Else If 0 Then Str update 成 績 表 set amp。 amp。 39。 amp。 amp。 39。 where 學(xué)號 39。 amp。 amp。 39。 If Int 0 And Int 100 Then link Str 記錄添加已成功 , 添加成功 , , xuehao Else 記錄成績已存在 , 添加失敗 , , End If ElseIf 1 Then Str update 成 績 表 set amp。 amp。 39。 amp。 amp。 39。 where 學(xué)號 39。 amp。 amp。 39。 If Int 0 And Int 100 Then link Str 記錄添加已成功 , 添加成功 , , xuehao Else 記錄成績已存在 , 添加失敗 , , End If End If End If End Sub 學(xué)生信息修改 圖 學(xué)生信息修改 學(xué)生基本信息修改 設(shè)計過程： 選擇修改信息類型為學(xué)生信息，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號、類型、修改內(nèi)容）。點擊修改讀取數(shù)據(jù)庫中的學(xué)生信息表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。 設(shè)計代碼： Private Sub Button1_Click ByVal sender As , ByVal e As Handles If Then str update 學(xué)生信息表 set amp。 amp。 39。 amp。 amp。 39。 where 學(xué)號 39。 amp。 amp。 39。 End If If Not link str . Then 修 改 成 功 ！ , 提示 , , End If End Sub 學(xué)生成績信息修改 設(shè)計過程： 選擇修改信息類型為學(xué)生成績，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號、選擇課程、改成績）。點擊修改讀取數(shù)據(jù)庫中的成績表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。 設(shè)計代碼： Private Sub Button3_Click ByVal sender As , ByVal e As Handles If Then str update 成績表 set amp。 amp。 39。 amp。 amp。 39。 where 學(xué)號 39。 amp。 amp。 39。 ElseIf Then str update 成績表 set amp。 amp。 39。 amp。 amp。 39。 where 學(xué)號 39。 amp。 amp。 39。 End If If Not link str . Then If Int 0 And Int 100 Then 修改成功！ , 提示 , , Else Msg