xiangaikq.frm

员工管理系统 vb+sql 文档全 管理员admin 密码 123

'      text_KQ(13) = Val(Trim(text_KQ(12))) - Val(Trim(text_KQ(4))) - Val(Trim(text_KQ(5))) - Val(Trim(text_KQ(6))) - Val(Trim(text_KQ(8))) + Val(Trim(text_KQ(10))) + Val(Trim(text_KQ(11)))
'      text_KQ(14) = Val(Trim(text_KQ(10))) * 200 + Val(Trim(text_KQ(11))) * 150 + Val(Trim(text_KQ(7))) * 20
'  End Select
'End Sub
'
'Private Sub texYue_KQ_Click()
'  BenYueTSh
'  RiShu = RiJS(Trim(texNian_KQ), Trim(texYue_KQ))
'  texRi_KQ.Clear
'  For RiShu_KQ = 1 To RiShu
'    texRi_KQ.AddItem RiShu_KQ
'  Next RiShu_KQ
'  texRi_KQ.Text = "1"
'End Sub
'
'Private Sub YGbianhao_KQ_Click()
'  If TianJiaKQ_PD Then
'    Set ChaKanJB = Nothing
'    ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
''    For LieShu = 1 To 2
''      If ChaKanJB.Fields(LieShu) <> "" Then
''         text_KQ(LieShu) = ChaKanJB.Fields(LieShu)
''      Else
''         text_KQ(LieShu) = ""
''      End If
''    Next LieShu
'    text_KQ(1) = ChaKanJB.Fields("ygname")
'    Set GZbiaoCZ = Nothing
'    GZbiaoCZ.Open "select * from manappraise where wid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
'    If GZbiaoCZ.RecordCount = 0 Then
'      MsgBox "没有此编号员工的工作信息！请及时添加或询问管理员！", 48, "公司员工管理系统"
'    Else
'      If GZbiaoCZ.Fields("wdept") = "" Then
'        MsgBox "此编号员工的工作信息不全，请及时添加或询问管理员！", 48, "公司员工管理系统"
'      Else
'        text_KQ(2) = GZbiaoCZ.Fields("wdept")
'      End If
'    End If
'  Else
'    Set KQbiaoCZ = Nothing
'    KQbiaoCZ.Open "select * from checkin where kqid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
'    textFuZhi_KQ
'  End If
'End Sub
'
'Sub ShuJuKufuzhi_KQ()
'  KQbiaoCZ.Fields(0) = YGbianhao_KQ.Text
'  For LieShu = 0 To 16
'     If LieShu = 0 Or LieShu = 3 Then
'     Else
'        If text_KQ(LieShu).Text = "" Then
'           KQbiaoCZ.Fields(LieShu) = 0
'        Else
'           KQbiaoCZ.Fields(LieShu) = Trim(text_KQ(LieShu).Text)
'        End If
'     End If
'  Next LieShu
'  KQbiaoCZ.Fields(3) = texNian_KQ.Text & "-" & texYue_KQ.Text & "-" & texRi_KQ.Text
'  KQbiaoCZ.Update
'End Sub
'
'Sub BenYueTSh()
'  RiQi1 = texNian_KQ & "/" & texYue_KQ & "/" & 1
'  RiQi2 = texNian_KQ & "/" & texYue_KQ & "/" & texRi_KQ
'  text_KQ(16).Text = Trim(Str(DateDiff("d", RiQi1, RiQi2)))
'
'
'End Sub

Sub TextFuZhi_KQ()
  YGbianhao_KQ.Text = KQbiaoCZ.Fields(0)
  KQleixing.Text = KQbiaoCZ.Fields(1)
  KQbeizhu = IIf(KQbiaoCZ.Fields(3) = Null, "", KQbiaoCZ.Fields(3))
   RiQiFuZhi (Trim(Str(KQbiaoCZ.Fields(2))))
   texNian_KQ.Text = Nian
   texYue_KQ.Text = Yue
   texRi_KQ.Clear
   For RiShu_KQ = 1 To RiShu
     texRi_KQ.AddItem RiShu_KQ
   Next RiShu_KQ
   texRi_KQ.Text = Ri
   If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
   ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
   XingMing_KQ = IIf(ChaKanJB.Fields(0) = Null, "", ChaKanJB.Fields(0))
   If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
   GZbiaoCZ.Open "select wdept from manappraise where wid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
    If GZbiaoCZ.RecordCount <> 0 Then
      BuMen_KQ = IIf(GZbiaoCZ.Fields(0) = Null, "", GZbiaoCZ.Fields(0))
    Else
      MsgBox "此编号员工没有相应的工作信息！请及时向管理员反映！", 48, "公司员工管理系统"
      BuMen_KQ = ""
    End If
   If LShbiao_KQ.State = adStateOpen Then LShbiao_KQ.Close
   LShbiao_KQ.Open "select * from checkin where kqid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
   TiaoShu_KQ.Caption = LShbiao_KQ.RecordCount
End Sub

Private Sub Form_Load()
  Me.Height = 6045
  Me.Width = 6480
  Nian_KQ = 1990
  If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
  KQbiaoCZ.Open "select * from checkin", MySQL, adOpenKeyset, adLockPessimistic
  If LShbiao_KQ.State = adStateOpen Then LShbiao_KQ.Close
  LShbiao_KQ.Open "select kqid from checkin group by kqid", MySQL, adOpenKeyset, adLockPessimistic
  Do While Not LShbiao_KQ.EOF
     YGbianhao_KQ.AddItem LShbiao_KQ.Fields(0)
     LShbiao_KQ.MoveNext
  Loop
  KQbiaoCZ.MoveFirst
  Do While Nian_KQ < 2010
     texNian_KQ.AddItem Nian_KQ
     Nian_KQ = Nian_KQ + 1
  Loop
  For Yue_KQ = 1 To 12
     texYue_KQ.AddItem Yue_KQ
  Next Yue_KQ
  For RiShu_KQ = 1 To 31
     texRi_KQ.AddItem RiShu_KQ
  Next RiShu_KQ
  If TianJiaKQ_PD Then
     If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
     ChaKanJB.Open "select ygid,ygname from manrecord", MySQL, adOpenKeyset, adLockPessimistic
     YGbianhao_KQ.Clear
     Do While Not ChaKanJB.EOF
        YGbianhao_KQ.AddItem ChaKanJB.Fields(0)
        ChaKanJB.MoveNext
      Loop
     XiuGaiKQ.Caption = "添加员工考勤信息"
     QueDing_KQ.Caption = "添   加"
     QuXiao_KQ.Visible = False
     QueDing_KQ.Left = 2760
  ElseIf XiuGaiKQ_PD Then
     XiuGaiKQ.Caption = "修改员工考勤信息"
     QueDing_KQ.Caption = "修   改"
     Next_KQ.Visible = True
     Shang_KQ.Visible = True
     TiaoShu_KQ.Visible = True
     Label11.Visible = True
     Label9.Visible = True
     TextFuZhi_KQ
  ElseIf ShanChuKQ_PD Then
     XiuGaiKQ.Caption = "删除员工考勤信息"
     QueDing_KQ.Caption = "删   除"
     Next_KQ.Visible = True
     Shang_KQ.Visible = True
     TiaoShu_KQ.Visible = True
     Label11.Visible = True
     Label9.Visible = True
     TextFuZhi_KQ
  End If
End Sub

Private Sub Next_KQ_Click()
  KQbiaoCZ.MoveNext
  If KQbiaoCZ.EOF Then KQbiaoCZ.MovePrevious
'    KQbiaoCZ.MoveLast
'    TextFuZhi_KQ
    TextFuZhi_KQ
End Sub

Private Sub QueDing_KQ_Click()
  If QueDing_KQ.Caption = "添   加" Then
    CaoZuo_KQ = MsgBox("确定添加此条记录么？", 51, "公司员工管理系统")
    If CaoZuo_KQ = 6 Then
      If YGbianhao_KQ.Text = "" Or KQleixing.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
        MsgBox "员工编号、考勤结果、考勤时间均为考勤信息的基本项目！不能为空！", 48, "公司员工管理系统"
        YGbianhao_KQ.SetFocus
        YGbianhao_KQ.SelStart = 0
        YGbianhao_KQ.SelLength = Len(YGbianhao_KQ)
      Else
'        If LShbiao_KQ.State = adstaeopen Then LShbiao_KQ.Close
'        If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
'        KQbiaoCZ.Open ""
'        If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
'        ChaKanJB.Open "select * from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
'        If ChaKanJB.RecordCount = 0 Then
'          MsgBox "没有此编号员工的基本信息！请先添加员工基本信息！", 48, "公司员工管理系统"
'          Exit Sub
'        Else
          KQbiaoCZ.AddNew
          KQbiaoCZ.Fields(0) = Trim(YGbianhao_KQ.Text)
          KQbiaoCZ.Fields(1) = Trim(KQleixing.Text)
          KQbiaoCZ.Fields(2) = Trim(texNian_KQ.Text) & "-" & Trim(texYue_KQ.Text) & "-" & Trim(texRi_KQ.Text)
          KQbiaoCZ.Fields(3) = Trim(KQbeizhu)
          KQbiaoCZ.Update
          MsgBox "添加成功！", , "恭喜！^_^"
          YGbianhao_KQ.Text = ""
          XingMing_KQ = ""
          BuMen_KQ = ""
          KQleixing.Text = ""
'          exNian_KQ.Text = ""
          KQbeizhu = ""
'        End If
      End If
    End If
  ElseIf QueDing_KQ.Caption = "修   改" Then
    CaoZuo_KQ = MsgBox("确定修改么？", 51, "公司员工管理系统")
    If CaoZuo_KQ = 6 Then
      If YGbianhao_KQ.Text = "" Or KQleixing.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
        MsgBox "员工编号、考勤结果、考勤时间均为考勤信息的基本项目！不能为空！", 48, "公司员工管理系统"
        YGbianhao_KQ.SetFocus
        YGbianhao_KQ.SelStart = 0
        YGbianhao_KQ.SelLength = Len(YGbianhao_KQ)
      Else
        KQbiaoCZ.Fields(0) = Trim(YGbianhao_KQ.Text)
        KQbiaoCZ.Fields(1) = Trim(KQleixing.Text)
        KQbiaoCZ.Fields(2) = Trim(texNian_KQ.Text) & "-" & Trim(texYue_KQ.Text) & "-" & Trim(texRi_KQ.Text)
        KQbiaoCZ.Fields(3) = Trim(KQbeizhu)
        KQbiaoCZ.Update
        MsgBox "修改成功！", , "恭喜！^_^"
      End If
    End If
  ElseIf QueDing_KQ.Caption = "删   除" Then
    CaoZuo_KQ = MsgBox("确定要删除此条记录么？", 51, "公司员工管理系统")
    If CaoZuo_KQ = 6 Then
      KQbiaoCZ.Delete
      KQbiaoCZ.MoveNext
      If KQbiaoCZ.EOF Then KQbiaoCZ.MovePrevious
      TextFuZhi_KQ
    End If
  End If
End Sub

Private Sub QuXiao_KQ_Click()
  Unload Me
End Sub

Private Sub Shang_KQ_Click()
  KQbiaoCZ.MovePrevious
  If KQbiaoCZ.BOF Then KQbiaoCZ.MoveNext
'    KQbiaoCZ.MoveFirst
'    TextFuZhi_KQ
    TextFuZhi_KQ
End Sub

Private Sub YGbianhao_KQ_Click()
  If TianJiaKQ_PD Then
    If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
    ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
    XingMing_KQ = IIf(ChaKanJB.Fields(0) = Null, "", ChaKanJB.Fields(0))
    If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
    GZbiaoCZ.Open "select wdept from manappraise where wid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
    If GZbiaoCZ.RecordCount <> 0 Then
      BuMen_KQ = IIf(GZbiaoCZ.Fields(0) = Null, "", GZbiaoCZ.Fields(0))
    Else
      MsgBox "此编号员工没有相应的工作信息！请及时向管理员反映！", 48, "公司员工管理系统"
      BuMen_KQ = ""
    End If
  Else
    If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
    KQbiaoCZ.Open "select * from checkin where kqid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
    TextFuZhi_KQ
  End If
End Sub

Private Sub YGbianhao_KQ_LostFocus()
    If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
    ChaKanJB.Open "select ygname from manrecord where ygid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
    If ChaKanJB.RecordCount = 0 Then
      MsgBox "没有此编号员工的基本信息！请先添加员工基本信息！", 48, "公司员工管理系统"
      YGbianhao_KQ.SetFocus
      YGbianhao_KQ.SelStart = 0
      YGbianhao_KQ.SelLength = Len(YGbianhao_KQ)
  '    Exit Sub
    Else
      XingMing_KQ = IIf(ChaKanJB.Fields(0) = Null, "", ChaKanJB.Fields(0))
    End If
    If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
    GZbiaoCZ.Open "select wdept from manappraise where wid='" & YGbianhao_KQ & "'", MySQL, adOpenKeyset, adLockPessimistic
    If GZbiaoCZ.RecordCount <> 0 Then
      BuMen_KQ = IIf(GZbiaoCZ.Fields(0) = Null, "", GZbiaoCZ.Fields(0))
    Else
      MsgBox "此编号员工没有相应的工作信息！请及时向管理员反映！", 48, "公司员工管理系统"
      BuMen_KQ = ""
    End If
End Sub