frmworkcomment.frm

企业人事管理完美版,使用了许多高级控件,相信你一定会喜欢

         Top             =   1200
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "评价日期："
         Height          =   180
         Index           =   3
         Left            =   3600
         TabIndex        =   15
         Top             =   720
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "所在部门："
         Height          =   180
         Index           =   2
         Left            =   240
         TabIndex        =   14
         Top             =   720
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "员工姓名："
         Height          =   180
         Index           =   1
         Left            =   3600
         TabIndex        =   13
         Top             =   315
         Width           =   900
      End
      Begin VB.Label LblLable 
         AutoSize        =   -1  'True
         Caption         =   "员工编号："
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   315
         Width           =   900
      End
   End
   Begin WinXPC_Engine.WindowsXPC WinXPWorkComment 
      Left            =   1800
      Top             =   480
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保存(&S)"
      Height          =   375
      Left            =   4440
      TabIndex        =   28
      Top             =   4920
      Visible         =   0   'False
      Width           =   1215
   End
End
Attribute VB_Name = "FrmWorkComment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmbCode_Change()
If RstWorkRecord.State = adStateOpen Then
RstWorkRecord.Close              '//关闭记录集
End If
RstWorkRecord.Open "select *from 员工档案 where 员工编号='" & CmbCode.Text & "' ", DBCON, adOpenKeyset, adLockOptimistic, adCmdText
    TxtName.Text = RstWorkRecord.Fields(1).Value     '//给文本框赋值
    TxtBranch.Text = RstWorkRecord.Fields(16).Value
End Sub
Private Sub CmdRetrun_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Left = Frmmdimain.Width / 5
Me.Top = 200

WinXPWorkComment.InitSubClassing
If RsWorkRecord.State = adStateOpen Then
    RsWorkRecord.Close
End If
RsWorkRecord.Open "员工评价", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable

If RsWorkRecord.RecordCount > 0 Then
Call FormTxtValue1
Else
Call FormTxtValue2
End If
End Sub
Private Sub CmdAdd_Click()
RsWorkRecord.AddNew     '//在记录集中添加一条新记录
Call FormTxtValue2  '//调用给文本框赋空值的过程
Call TxtState       '//调用启用文本框的Enabled属性过程
Call CmdState1      '//调用命令按钮Visible属性为隐藏的过程

If RstWorkCode.State = adStateClosed Then
    RstWorkCode.Open "员工档案", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set CmbCode.RowSource = RstWorkCode
CmbCode.BoundColumn = "员工编号"
CmbCode.ListField = "员工编号"
End Sub

Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除信息") = vbYes Then
    If RsWorkRecord.RecordCount <> 0 Then
        RsWorkRecord.Delete         '//删除记录
        Call CmdMove_Click
    Else
        MsgBox "当前没有任何记录", , "删除记录"
        Call FormTxtValue2      '//调用给文本框赋空值的过程
    End If
End If
End Sub

Private Sub CmdEdit_Click()
Call CmdState1                  '//调用命令按钮Visible属性为隐藏的过程
Call TxtState                   '//调用启用文本框的Enabled属性过程
End Sub

Private Sub CmdMove_Click()
If RsWorkRecord.RecordCount <> 0 Then
    RsWorkRecord.MoveNext           '//记录向下移一条
    If RsWorkRecord.EOF Then
        RsWorkRecord.MoveFirst      '//将记录移到第一行
    End If
    Call FormTxtValue1          '//调用将记录数据赋给文本框的过程
Else
MsgBox "当前没有任何记录", , "移动记录"
End If
End Sub


Private Sub CmdSave_Click()
Dim StrSQL As String
'StrSQL = "select 员工编号 from 员工档案 where 员工编号='" & Trim(TxtCode.Text) & "'"
If Trim(CmbCode.Text) <> Empty Then
    Call UpRsValue          '//调用更新记录集的过程
'On Error GoTo ErrSave
        RsWorkRecord.Update         '//更新记录
        Call CmdMove_Click
        MsgBox "数据已保存", , "保存成功"
        Call CmdState2
        Call TxtState1
Else
MsgBox "员工编号不能为空", , "验证失败"
CmbCode.SetFocus
End If
'Exit Sub
'ErrSave:
'    Select Case Err.Number
'        Case -2147217887
'            MsgBox "性别、婚姻状况、部门、职称其中有未选项！", vbInformation + vbOKOnly, "输入错误"
'            RsRecord.CancelUpdate
'        Case Else
'        MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
'        Unload Me
'    End Select
End Sub
Private Sub FormTxtValue1()
CmbCode.Text = RsWorkRecord.Fields(0).Value
TxtName.Text = RsWorkRecord.Fields(1).Value
TxtBranch.Text = RsWorkRecord.Fields(2).Value
DTPDate.Value = RsWorkRecord.Fields(3).Value
TxtWork.Text = RsWorkRecord.Fields(4).Value
TxtWorkremark.Text = RsWorkRecord.Fields(5).Value
TxtMien.Text = RsWorkRecord.Fields(6).Value
TxtMienremark.Text = RsWorkRecord.Fields(7).Value
TxtLevel.Text = RsWorkRecord.Fields(8).Value
TxtLevelremark.Text = RsWorkRecord.Fields(9).Value
TxtBeiZhu.Text = RsWorkRecord.Fields(10).Value
End Sub
Private Sub FormTxtValue2()
CmbCode.Text = Empty
TxtName.Text = Empty
TxtBranch.Text = Empty
DTPDate.Value = Date
TxtWork.Text = Empty
TxtWorkremark.Text = Empty
TxtMien.Text = Empty
TxtMienremark.Text = Empty
TxtLevel.Text = Empty
TxtLevelremark.Text = Empty
TxtBeiZhu.Text = Empty
End Sub
Private Sub TxtState()
CmbCode.Enabled = True
'TxtName.Enabled = True
'TxtBranch.Enabled = True
DTPDate.Enabled = True
TxtWork.Enabled = True
TxtWorkremark.Enabled = True
TxtMien.Enabled = True
TxtMienremark.Enabled = True
TxtLevel.Enabled = True
TxtLevelremark.Enabled = True
TxtBeiZhu.Enabled = True
End Sub
Private Sub TxtState1()
CmbCode.Enabled = False
'TxtName.Enabled = False
'TxtBranch.Enabled = False
DTPDate.Enabled = False
TxtWork.Enabled = False
TxtWorkremark.Enabled = False
TxtMien.Enabled = False
TxtMienremark.Enabled = False
TxtLevel.Enabled = False
TxtLevelremark.Enabled = False
TxtBeiZhu.Enabled = False
End Sub
Private Sub CmdState1()
CmdAdd.Visible = False
CmdEdit.Visible = False
CmdDel.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True
CmdRetrun.Enabled = False
End Sub
Private Sub CmdState2()
CmdAdd.Visible = True
CmdEdit.Visible = True
CmdDel.Visible = True
CmdMove.Visible = True
CmdSave.Visible = False
CmdRetrun.Enabled = True
End Sub
Private Sub UpRsValue()
RsWorkRecord.Fields(0).Value = CmbCode.Text
RsWorkRecord.Fields(1).Value = TxtName.Text
RsWorkRecord.Fields(2).Value = TxtBranch.Text
RsWorkRecord.Fields(3).Value = DTPDate.Value
RsWorkRecord.Fields(4).Value = TxtWork.Text
RsWorkRecord.Fields(5).Value = TxtWorkremark.Text
RsWorkRecord.Fields(6).Value = TxtMien.Text
RsWorkRecord.Fields(7).Value = TxtMienremark.Text
RsWorkRecord.Fields(8).Value = TxtLevel.Text
RsWorkRecord.Fields(9).Value = TxtLevelremark.Text
RsWorkRecord.Fields(10).Value = TxtBeiZhu.Text
End Sub