【正文】 成績(jī)表 where 學(xué)號(hào) 39。 End If If Not link str . Then If Int 0 And Int 100 Then 修改成功！ , 提示 , , Else MsgBox 對(duì)不起，您輸入的成績(jī)有誤！請(qǐng)重新輸入 , 16, 警告 End If End If End Sub 學(xué)生信息刪除 圖 學(xué)生信息刪除 設(shè)計(jì)過(guò)程： 選擇所要?jiǎng)h除的信息類型，在學(xué)號(hào)欄目選擇相應(yīng)的學(xué)號(hào)。 amp。 where 學(xué)號(hào) 39。 amp。 39。 ElseIf Then str update 成績(jī)表 set amp。 amp。 where 學(xué)號(hào) 39。 amp。 39。 設(shè)計(jì)代碼： Private Sub Button3_Click ByVal sender As , ByVal e As Handles If Then str update 成績(jī)表 set amp。 End If If Not link str . Then 修 改 成 功 ！ , 提示 , , End If End Sub 學(xué)生成績(jī)信息修改 設(shè)計(jì)過(guò)程： 選擇修改信息類型為學(xué)生成績(jī)，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號(hào)、選擇課程、改成績(jī)）。 amp。 where 學(xué)號(hào) 39。 amp。 39。 設(shè)計(jì)代碼： Private Sub Button1_Click ByVal sender As , ByVal e As Handles If Then str update 學(xué)生信息表 set amp。 If Int 0 And Int 100 Then link Str 記錄添加已成功 , 添加成功 , , xuehao Else 記錄成績(jī)已存在 , 添加失敗 , , End If End If End If End Sub 學(xué)生信息修改 圖 學(xué)生信息修改 學(xué)生基本信息修改 設(shè)計(jì)過(guò)程： 選擇修改信息類型為學(xué)生信息，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號(hào)、類型、修改內(nèi)容）。 amp。 where 學(xué)號(hào) 39。 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。 where 學(xué)號(hào) 39。 amp。 39。（選擇學(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。 已存在 , 添加失敗 , , End If End If End 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）。 已 成 功 , 添 加 成 功 , , xuehao Else 記錄 amp。 link str 學(xué) 生 信 息 表 記 錄 amp。 amp。,39。 amp。 If link str . 0 Then str Nothing str insert into 成績(jī)表 學(xué)號(hào) ,姓名 values 39。 amp。 where 學(xué)號(hào) 39。 39。 amp。 39。 amp。 39。 amp。 link str xuehao End If str select * from 成績(jī)表 amp。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。 學(xué)號(hào) ,姓名 ,年齡 ,班級(jí) , 籍貫 , 性別 values 39。 39。 amp。（選擇學(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。 設(shè)計(jì)代碼： Public Class 學(xué)生信息管理系統(tǒng) Private Sub 添加 DToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 添加 Dim tianjia As New 添加 Me End Sub Private Sub 修改 KToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 修改 Dim xiugai As New 修改 Me End Sub Private Sub 刪除 DToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 刪除 Dim shanchu As New 刪除 Me End Sub Private Sub 退出 XToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 退出 End End Sub Private Sub 返回 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 返回 登陸界面 .Show End Sub Private Sub 信息查 詢 ToolStripMenuItem_Click ByVal sender As , ByVal e As Dim chaxun As New 查詢 Me End Sub Private Sub 添加 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 添加 Dim yonghuguanli As New 用戶信息管理 Me End Sub Private Sub 查詢 ToolStripMenuItem_Click ByVal sender As , ByVal e As Handles 查詢 Dim chaxun As 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 修 改 密 碼 D