?? frmeditstudent_recruit.vb
字號:
?Public Class FrmEditStudent_Recruit
Private Sub FrmEditStudent_Recruit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ComboRecruit.DataSource = DBRecruit.LoadRecruit
Me.ComboRecruit.DisplayMember = "招生人員姓名"
Me.ComboRecruit.SelectedIndex = 0
End Sub
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
DGVResult.DataSource = DBStudent.LoadStudent("RecruitName", ComboRecruit.Text, "")
End Sub
Private Sub DGVResult_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVResult.CellContentDoubleClick
If User.Mod2 = "可讀" Then
MsgBox("您無權寫入記錄!", MsgBoxStyle.Exclamation, "信息框")
Exit Sub
End If
Dim FrmObj As New FrmSaveEditedStudent(DGVResult.Rows(e.RowIndex).Cells(0).Value)
Me.WindowState = FormWindowState.Minimized
FrmObj.ShowDialog(Me.Parent)
Me.WindowState = FormWindowState.Normal
DGVResult.DataSource = DBStudent.LoadStudent("RecruitName", ComboRecruit.Text, "")
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -