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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上登錄界面圖4.1登錄界面設(shè)計(jì)過程：用于輸入用戶名和密碼登錄，選擇相應(yīng)的用戶類型進(jìn)入系統(tǒng)，若是用戶類型選擇錯(cuò)誤則不能進(jìn)入系統(tǒng)。沒有用戶名的可注冊(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

2、 Dim str As String str = "data source=PC-5SQLEXPRESS;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() & "

3、' 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 =

4、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.Tex

5、tBox1.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-5SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(st

6、r) 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) Di

7、m 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 = ""

8、 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-5SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch e

9、x 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.Sql

10、DataReader 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 E

11、xception End Try End If End Sub學(xué)生成績(jī)管理界面圖4.2學(xué)生成績(jī)管理界面設(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 S

12、ub 添加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 修

13、改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 S

14、ub 退出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 SubPr

15、ivate 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 yo

16、nghuguanli 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 窗口層疊ToolStri

17、pMenuItem_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(

18、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 Syste

19、m.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 修改密碼

20、.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ì)過程：選擇學(xué)生信息添加，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點(diǎn)擊添加后數(shù)據(jù)存入學(xué)生信息表。點(diǎn)擊退出則退出整個(gè)管理系統(tǒng)

21、，點(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) ElseI

22、f 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).Ro

23、ws.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 & "','" &

24、 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 & "

25、9;" 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ī)表" & " whe

26、re 學(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) Message

27、Box.Show("學(xué)生信息表記錄" & Me.TextBox1.Text & "已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show("記錄" & Me.TextBox1.Text & "已存在", "添加失敗", MessageBoxButtons.OK, MessageBoxIcon.Error) End

28、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 System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Me.txt_chengji.Text.Trim = String.Em

29、pty 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)=

30、9;" & Me.cb_xuehao.Text.Trim & "'" If Int(Me.txt_chengji.Text.Trim) >= 0 And Int(Me.txt_chengji.Text.Trim) <= 100 Then link(Str) MessageBox.Show("記錄添加已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show(&qu

31、ot;記錄成績(jī)已存在", "添加失敗", MessageBoxButtons.OK, MessageBoxIcon.Error) End If ElseIf Me.cb_xueqi.SelectedIndex = 1 Then Str = "update 成績(jī)表set " & Me.cb_kecheng1.Text.Trim & "= '" & Me.txt_chengji.Text.Trim & "' where 學(xué)號(hào)='" & Me.cb

32、_xuehao.Text.Trim & "'" If Int(Me.txt_chengji.Text.Trim) >= 0 And Int(Me.txt_chengji.Text.Trim) <= 100 Then link(Str) MessageBox.Show("記錄添加已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show("記錄成績(jī)已存在", &q

33、uot;添加失敗", MessageBoxButtons.OK, MessageBoxIcon.Error) End If End If End If End Sub學(xué)生信息修改圖4.3.2學(xué)生信息修改學(xué)生基本信息修改設(shè)計(jì)過程：選擇修改信息類型為學(xué)生信息，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號(hào)、類型、修改內(nèi)容）。點(diǎn)擊修改讀取數(shù)據(jù)庫(kù)中的學(xué)生信息表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt

34、on1.Click If Me.RadioButton3.Checked Then str = "update 學(xué)生信息表set " & Me.ComboBox4.Text.Trim & "='" & Me.TextBox1.Text.Trim & "' where 學(xué)號(hào)='" & Me.ComboBox3.Text.Trim & "'" End If If Not link(str).Rows.Count Then MessageBo

35、x.Show("修改成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question) End IfEnd Sub學(xué)生成績(jī)信息修改設(shè)計(jì)過程：選擇修改信息類型為學(xué)生成績(jī)，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號(hào)、選擇課程、改成績(jī)）。點(diǎn)擊修改讀取數(shù)據(jù)庫(kù)中的成績(jī)表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。設(shè)計(jì)代碼：Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.C

36、lick If Me.RadioButton1.Checked Then str = "update 成績(jī)表set " & Me.ComboBox1.Text.Trim & "='" & Me.TextBox4.Text.Trim & "' where 學(xué)號(hào)='" & Me.ComboBox5.Text.Trim & "'" ElseIf Me.RadioButton2.Checked Then str = "update 成

37、績(jī)表set " & Me.ComboBox2.Text.Trim & "='" & Me.TextBox4.Text.Trim & "' where 學(xué)號(hào)='" & Me.ComboBox5.Text.Trim & "'" End If If Not link(str).Rows.Count Then If Int(Me.TextBox4.Text.Trim) >= 0 And Int(Me.TextBox4.Text.Trim) <

38、= 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ì)過程：選擇所要?jiǎng)h除的信息類型，在學(xué)號(hào)欄目選擇相應(yīng)的學(xué)號(hào)。點(diǎn)擊刪除，則在相應(yīng)的表中刪除信息。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal send

39、er 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 & "成功"

40、, "刪除成功", 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 &a

41、mp; "成功", "刪除成功", 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("刪除記錄" &am

42、p; ComboBox1.Text & "成功", "刪除成功", MessageBoxButtons.OK, MessageBoxIcon.Information) tianxuehao() End IfEnd Sub5.3.4學(xué)生信息查詢圖4.3.4學(xué)生信息查詢?cè)O(shè)計(jì)過程：選擇查詢的學(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 Sy

43、stem.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 & "

44、9; " 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

45、 = "" 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普通用

46、戶管理設(shè)計(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 普通用戶 where 用戶名='" & Me.TextBox1.Text.Trim & "' " If Me.TextBox2.Text.

47、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 lin

48、k(str).Rows.Count Then MessageBox.Show("修改普通用戶密碼成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question) End If End IfEnd Sub高級(jí)用戶管理圖4.4.2高級(jí)用戶管理設(shè)計(jì)過程：在高級(jí)用戶密碼修改界面，輸入所要修改的自己或者別人的用戶名，填入新的密碼，點(diǎn)擊提交即可修改相應(yīng)的用戶名密碼。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sys

49、tem.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 = &quo

50、t;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

51、IfEnd Sub超級(jí)用戶管理圖4.4.3超級(jí)用戶管理設(shè)計(jì)過程：正確選擇所要操作的用戶類型，在用戶信息管理界面可添加用戶、修改用戶、刪除用戶、查詢用戶等功能，這是一個(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

52、 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 A

53、s 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 & "',&

54、#39;" & Me.TextBox2.Text.Trim & "')" link(str) MessageBox.Show("普通用戶" & Me.TextBox1.Text & "已成功", "添加成功", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("記錄" & Me.TextBox1.Text & "已存在"

55、;, "添加失敗", 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(str) MessageBox.