📄 frmdelclass.vb
字号:
Public Class FrmDelClass
Dim RowIndex As Integer
Private Sub DGVClass_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVClass.CellContentClick
RowIndex = e.RowIndex
End Sub
Private Sub FrmDelClass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DGVClass.DataSource = DBClass.LoadClass()
End Sub
Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
If User.Mod1 = "可读" Then
MsgBox("您无权写入记录!", MsgBoxStyle.Exclamation, "信息框")
Exit Sub
End If
DBClass.DelClass(DGVClass.Rows(RowIndex).Cells(0).Value)
DGVClass.DataSource = DBClass.LoadClass()
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -