?? frmexpman.vb
字號:
Class FrmExpMan
Inherits System.Windows.Forms.Form
Public OriEmpId As Short
Private Sub Cmd_Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Back.Click
Me.Close()
End Sub
Private Sub FrmExpMan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQLString As String
Dim MSG As String = ""
SQLString = "SELECT Id AS 記錄編號, Emp_Id AS 員工編號, Start_Date AS 開始日期, End_Date AS 截止日期, School_Org AS 學?;騿挝?,Title AS 職務 FROM Experience WHERE Emp_Id=" & Trim(Str(OriEmpId))
Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
DGVExp.DataSource = DTable
End Sub
Private Sub BtnModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModi.Click
'初始化FrmExpEdit信息
If DGVExp.SelectedColumns Is Nothing Then
MsgBox("請選擇記錄")
Exit Sub
End If
FrmExpEdit.OriId = DGVExp.SelectedRows(0).Cells(0).Value
FrmExpEdit.Combo_Start_Date.Text = DGVExp.SelectedRows(0).Cells(2).Value
FrmExpEdit.Combo_End_Date.Text = DGVExp.SelectedRows(0).Cells(3).Value
FrmExpEdit.txtSchool_Org.Text = DGVExp.SelectedRows(0).Cells(4).Value
FrmExpEdit.txtTitle.Text = DGVExp.SelectedRows(0).Cells(5).Value
FrmExpEdit.VarEmpId = OriEmpId
FrmExpEdit.Modify = True
FrmExpEdit.ShowDialog()
Dim SQLString As String
Dim MSG As String = ""
SQLString = "SELECT Id AS 記錄編號, Emp_Id AS 員工編號, Start_Date AS 開始日期, End_Date AS 截止日期, School_Org AS 學?;騿挝?,Title AS 職務 FROM Experience WHERE Emp_Id=" & Trim(Str(OriEmpId))
Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
DGVExp.DataSource = DTable
End Sub
Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
Dim TmpId As Integer
If DGVExp.SelectedColumns Is Nothing = True Then
MsgBox("請選擇記錄")
Exit Sub
End If
TmpId = DGVExp.SelectedRows(0).Cells(0).Value
If MsgBox("是否刪除當前行?", MsgBoxStyle.YesNo, "確認") = MsgBoxResult.Yes Then
MyExp.DeleteById(OriEmpId, TmpId)
Dim SQLString As String
Dim MSG As String = ""
SQLString = "SELECT Id AS 記錄編號, Emp_Id AS 員工編號, Start_Date AS 開始日期, End_Date AS 截止日期, School_Org AS 學?;騿挝?,Title AS 職務 FROM Experience WHERE Emp_Id=" & Trim(Str(OriEmpId))
Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
DGVExp.DataSource = DTable
End If
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -