?? frmdelrecruit.vb
字號:
?Public Class FrmDelRecruit
Dim RowIndex As Integer
Private Sub FrmDelRecruit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DGVRecruit.DataSource = DBRecruit.LoadRecruit()
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
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
DBRecruit.DelRecruit(DGVRecruit.Rows(RowIndex).Cells(0).Value)
DGVRecruit.DataSource = DBRecruit.LoadRecruit()
End Sub
Private Sub DGVRecruit_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVRecruit.CellContentClick
RowIndex = e.RowIndex
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -