?? frmevaedit.vb
字號:
Class FrmEvaEdit
Inherits System.Windows.Forms.Form
Public Modify As Boolean '插入=false,修改=true
Public OriEmpId As Integer
Public TmpOk As Boolean
Public HrFlag As Boolean
Private Sub Cmd_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Cancel.Click
TmpOk = False
Me.Close()
End Sub
Private Sub ComboName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboName.Enter
txtPerformance.Focus()
'設置FrmEmpSel窗體的位置
FrmEmpSel.Left = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Left) + VB6.PixelsToTwipsX(ComboName.Left) + 350 - VB6.PixelsToTwipsX(FrmEmpSel.Width))
FrmEmpSel.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.Top) + VB6.PixelsToTwipsY(ComboName.Top) + VB6.PixelsToTwipsY(ComboName.Height) + 450)
FrmEmpSel.ShowDialog()
'將選擇的員工姓名顯示到ComboUpper控件中
ComboName.Text = UpperEmp.Emp_Name
End Sub
Private Sub Btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_OK.Click
If UpperEmp.Emp_Id <= 0 Then
MsgBox("請選擇員工")
Exit Sub
End If
With MyEva
'判斷記錄是否存在
If Modify = False Or OriEmpId <> UpperEmp.Emp_Id Then
If .In_DB(lblMonth.Text, UpperEmp.Emp_Id) = True Then
MsgBox("要添加的記錄已經存在,請修改已有的記錄")
Exit Sub
End If
End If
.EvaMonth = lblMonth.Text
.Emp_Id = UpperEmp.Emp_Id
.Performance = Trim(txtPerformance.Text)
If HrFlag = False Then '對下屬員工考評
.SupervisorEvaluation = Trim(txtEva.Text)
.PrizeFactor1 = Val(ComboFactor.Text)
Else '人事部門考評
.HrEvaluation = Trim(txtEva.Text)
.PrizeFactor2 = Val(ComboFactor.Text)
End If
If Modify = False Then
.Insert()
Else
.Update(lblMonth.Text, OriEmpId, HrFlag)
End If
End With
TmpOk = True
Me.Close()
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -