frmrecord.frm

人事工资管理系统应包含对员工档案、员工培训、员工调动、员工职称评定、员工奖惩的管理和工资的查询与管理等诸多模块。员工档案管理模块对员工信息进行添加、修改、删除和查询；员工培训管理模块可增加

            Caption         =   "工作经验："
            Height          =   180
            Left            =   240
            TabIndex        =   35
            Top             =   1320
            Width           =   900
         End
         Begin VB.Label LblBeiZhu 
            AutoSize        =   -1  'True
            Caption         =   "其它备注："
            Height          =   180
            Left            =   240
            TabIndex        =   34
            Top             =   2640
            Width           =   900
         End
      End
   End
   Begin WinXPC_Engine.WindowsXPC WinXPRecord 
      Left            =   1560
      Top             =   720
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      EngineStarted   =   -1  'True
      Common_Dialog   =   0   'False
   End
   Begin VB.CommandButton CmdRefresh 
      Caption         =   "Refresh"
      Height          =   495
      Left            =   1080
      TabIndex        =   66
      Top             =   840
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Timer Tmr 
      Interval        =   2000
      Left            =   360
      Top             =   720
   End
End
Attribute VB_Name = "FrmRecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
WinXPRecord.InitSubClassing

Me.Left = Frmmdimain.Width / 5
Me.Top = 0
If RsRecord.State = adStateClosed Then
'    RsRecord.Close
    RsRecord.Open "员工档案", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
End If

If RsRecord.RecordCount > 0 Then
Call FormTxtValue1
Else
Call FormTxtValue2
End If
End Sub
Private Sub CmdAdd_Click()
RsRecord.AddNew     '//在记录集中添加一条新记录
Call FormTxtValue2  '//调用给文本框赋空值的过程
Call TxtState       '//调用启用文本框的Enabled属性过程
Call CmdState1      '//调用命令按钮Visible属性为隐藏的过程
If RsBranch.State = adstateclsed Then
    RsBranch.Open "部门管理", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set TxtBranch.RowSource = RsBranch
TxtBranch.BoundColumn = "部门名称"
TxtBranch.ListField = "部门名称"
End Sub

Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除信息") = vbYes Then
    If RsRecord.RecordCount <> 0 Then
        RsRecord.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 RsRecord.RecordCount <> 0 Then
    RsRecord.MoveNext           '//记录向下移一条
    If RsRecord.EOF Then
        RsRecord.MoveFirst      '//将记录移到第一行
    End If
    Call FormTxtValue1          '//调用将记录数据赋给文本框的过程
Else
MsgBox "当前没有任何记录", , "移动记录"
End If
End Sub

Private Sub CmdPrint_Click()
DataRepRecord.Show
End Sub

Private Sub CmdRefresh_Click()
'Set VSDateRecord.DataSource = RsRecord.DataSource
End Sub

Private Sub CmdRetrun_Click()
Unload Me
End Sub

Private Sub CmdSave_Click()
Dim StrSQL As String
StrSQL = "select 员工编号 from 员工档案 where 员工编号='" & Trim(TxtCode.Text) & "'"
If Trim(TxtForID.Text) <> Empty Then
    Call UpRsValue          '//调用更新记录集的过程
On Error GoTo ErrSave
'    If RsCheckCode.State = adStateClosed Then
'        RsCheckCode.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText
'    End If
'    If RsCheckCode.RecordCount > 0 Then
'        MsgBox "员工编号已存在", vbInformation + vbOKOnly, "验证错误"
'        RsCheckCode.Close
'        SSTRecord.Tab = 0
'        TxtCode.Text = ""
'        TxtCode.SetFocus
'    Else
        RsRecord.Update         '//更新记录
        Call CmdMove_Click
        MsgBox "数据已保存", , "保存成功"
        SSTRecord.Tab = 0
        Call CmdState2
        Call TxtState1
'    End If
Else
MsgBox "原身份不能为空", , "验证失败"
SSTRecord.Tab = 1
End If
Exit Sub
ErrSave:
    Select Case Err.Number
        Case -2147217887
            MsgBox "员工编号已存在," & vbCrLf & "或性别、婚姻状况、部门、职称有空选项！", vbInformation + vbOKOnly, "输入错误"
            RsRecord.CancelUpdate
        Case Else
        MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
        Unload Me
    End Select
End Sub
Private Sub FormTxtValue1()
TxtCode.Text = RsRecord.Fields(0).Value
TxtName.Text = RsRecord.Fields(1).Value
CmbSex.Text = RsRecord.Fields(2).Value
TxtPlace.Text = RsRecord.Fields(3).Value
DTPBrithday.Value = RsRecord.Fields(4).Value
TxtEdu.Text = RsRecord.Fields(5).Value
TxtSubject.Text = RsRecord.Fields(6).Value
TxtIDCard.Text = RsRecord.Fields(7).Value
 CmbMarrageState.Text = RsRecord.Fields(8).Value
 TxtPolity.Text = RsRecord.Fields(9).Value
 TxtTel.Text = RsRecord.Fields(10).Value
 TxtPostCode.Text = RsRecord.Fields(11).Value
 TxtEmail.Text = RsRecord.Fields(12).Value
 TxtAddress.Text = RsRecord.Fields(13).Value
 DTPInCompanyDate.Value = RsRecord.Fields(14).Value
 DTPRiceDate.Value = RsRecord.Fields(15).Value
 TxtBranch.Text = RsRecord.Fields(16).Value
 DTPInBranchDate.Value = RsRecord.Fields(17).Value
 TxtTiltle.Text = RsRecord.Fields(18).Value
 DTPTitleDate.Value = RsRecord.Fields(19).Value
 TxtForID.Text = RsRecord.Fields(20).Value
 TxtForTitle.Text = RsRecord.Fields(21).Value
 TxtForUnit.Text = RsRecord.Fields(22).Value
 'DTPForInToWork.Value = RsRecord.Fields(23).Value
 TxtWork.Text = RsRecord.Fields(24).Value
 TxtBeiZhu.Text = RsRecord.Fields(25).Value
LblCount.Caption = RsRecord.RecordCount
End Sub
Private Sub FormTxtValue2()
TxtCode.Text = Empty
TxtName.Text = Empty
CmbSex.Text = Empty
TxtPlace.Text = Empty
DTPBrithday.Value = Date
TxtEdu.Text = Empty
TxtSubject.Text = Empty
TxtIDCard.Text = Empty
CmbMarrageState.Text = Empty
TxtPolity.Text = Empty
TxtTel.Text = Empty
TxtPostCode.Text = Empty
TxtEmail.Text = Empty
TxtAddress.Text = Empty
DTPInCompanyDate.Value = Date
DTPRiceDate.Value = Date
TxtBranch.Text = Empty
DTPInBranchDate.Value = Date
TxtTiltle.Text = Empty
DTPTitleDate.Value = Date
TxtForID.Text = Empty
TxtForTitle.Text = Empty
TxtForUnit.Text = Empty
DTPForInToWork.Value = Date
TxtWork.Text = Empty
TxtBeiZhu.Text = Empty
LblCount.Caption = RsRecord.RecordCount
End Sub
Private Sub TxtState()
TxtCode.Enabled = True
TxtName.Enabled = True
CmbSex.Enabled = True
TxtPlace.Enabled = True
DTPBrithday.Enabled = True
TxtEdu.Enabled = True
TxtSubject.Enabled = True
TxtIDCard.Enabled = True
CmbMarrageState.Enabled = True
TxtPolity.Enabled = True
TxtTel.Enabled = True
TxtPostCode.Enabled = True
TxtEmail.Enabled = True
TxtAddress.Enabled = True
DTPInCompanyDate.Enabled = True
DTPRiceDate.Enabled = True
TxtBranch.Enabled = True
DTPInBranchDate.Enabled = True
TxtTiltle.Enabled = True
DTPTitleDate.Enabled = True
TxtForID.Enabled = True
TxtForTitle.Enabled = True
TxtForUnit.Enabled = True
DTPForInToWork.Enabled = True
TxtWork.Enabled = True
TxtBeiZhu.Enabled = True
End Sub
Private Sub TxtState1()
TxtCode.Enabled = False
TxtName.Enabled = False
CmbSex.Enabled = False
TxtPlace.Enabled = False
DTPBrithday.Enabled = False
TxtEdu.Enabled = False
TxtSubject.Enabled = False
TxtIDCard.Enabled = False
CmbMarrageState.Enabled = False
TxtPolity.Enabled = False
TxtTel.Enabled = False
TxtPostCode.Enabled = False
TxtEmail.Enabled = False
TxtAddress.Enabled = False
DTPInCompanyDate.Enabled = False
DTPRiceDate.Enabled = False
TxtBranch.Enabled = False
DTPInBranchDate.Enabled = False
TxtTiltle.Enabled = False
DTPTitleDate.Enabled = False
TxtForID.Enabled = False
TxtForTitle.Enabled = False
TxtForUnit.Enabled = False
DTPForInToWork.Enabled = False
TxtWork.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()
RsRecord.Fields(0).Value = TxtCode.Text
RsRecord.Fields(1).Value = TxtName.Text
RsRecord.Fields(2).Value = CmbSex.Text
RsRecord.Fields(3).Value = TxtPlace.Text
RsRecord.Fields(4).Value = DTPBrithday.Value
RsRecord.Fields(5).Value = TxtEdu.Text
RsRecord.Fields(6).Value = TxtSubject.Text
RsRecord.Fields(7).Value = TxtIDCard.Text
RsRecord.Fields(8).Value = CmbMarrageState.Text
RsRecord.Fields(9).Value = TxtPolity.Text
RsRecord.Fields(10).Value = TxtTel.Text
RsRecord.Fields(11).Value = TxtPostCode.Text
RsRecord.Fields(12).Value = TxtEmail.Text
RsRecord.Fields(13).Value = TxtAddress.Text
RsRecord.Fields(14).Value = DTPInCompanyDate.Value
RsRecord.Fields(15).Value = DTPRiceDate.Value
RsRecord.Fields(16).Value = TxtBranch.Text
RsRecord.Fields(17).Value = DTPInBranchDate.Value
'RsRecord.Fields(18).Value = TxtTiltle.Text
RsRecord.Fields(19).Value = DTPTitleDate.Value
RsRecord.Fields(20).Value = TxtForID.Text
RsRecord.Fields(21).Value = TxtForTitle.Text
RsRecord.Fields(22).Value = TxtForUnit.Text
RsRecord.Fields(23).Value = DTPForInToWork.Value
RsRecord.Fields(24).Value = TxtWork.Text
RsRecord.Fields(25).Value = TxtBeiZhu.Text
End Sub

Private Sub Tmr_Timer()
'Call CmdRefresh_Click   '//定时刷新
'VSDateRecord.Refresh
End Sub