xiangaikq.frm

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

         TabIndex        =   31
         Top             =   4380
         Width           =   90
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         Caption         =   "为必填项！"
         Height          =   180
         Left            =   5040
         TabIndex        =   30
         Top             =   4380
         Width           =   900
      End
   End
End
Attribute VB_Name = "XiuGaiKQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim LieShu As Integer
'Dim Nian_KQ As Integer
'Dim Yue_KQ As Integer
''Dim Ri_KQ As Integer
'Dim RiShu_KQ As Integer
'Dim ShJquzhi_KQ As Integer
'Dim ShJzancun_KQ As String
'Dim ShJnianPD_KQ As Boolean
'Dim ShiJian_KQ As String
'Dim LShmima_KQ As String
Dim CaoZuo_KQ As Integer
'Dim ZongJieRiQi_KQ As String
'Dim PDriqiTex_KQ As String
'Dim LPDriqiTex_KQ As String
'Dim PDriqiShu_KQ As Integer
Dim LShbiao_KQ As New ADODB.Recordset
'
'Private Sub Form_Load()
'  Me.Height = 6495
'  Me.Width = 6480
'  Nian_KQ = 1990
'
'  If KQbiaoCZ.State = adStateOpen Then KQbiaoCZ.Close
'  KQbiaoCZ.Open "select * from checkin", MySQL, adOpenKeyset, adLockPessimistic
'  Do While Not KQbiaoCZ.EOF
'     YGbianhao_KQ.AddItem KQbiaoCZ.Fields(0)
'     KQbiaoCZ.MoveNext
'  Loop
'  KQbiaoCZ.MoveFirst
''  YGbianhao_KQ.ListIndex = 0
'  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 = "添   加"
'  ElseIf XiuGaiKQ_PD Then
'     XiuGaiKQ.Caption = "修改员工考勤信息"
'     QueDing_KQ.Caption = "修   改"
'     textFuZhi_KQ
'  ElseIf ShanChuKQ_PD Then
'     XiuGaiKQ.Caption = "删除员工考勤信息"
'     QueDing_KQ.Caption = "删   除"
'     textFuZhi_KQ
'  End If
'End Sub
'
'Sub textFuZhi_KQ()
'  For LieShu = 0 To 16
'     If LieShu = 0 Or LieShu = 3 Then
'     Else
'        If KQbiaoCZ.Fields(LieShu) <> "" Then
'           text_KQ(LieShu) = KQbiaoCZ.Fields(LieShu)
'        Else
'           If LieShu = 2 Then
'              text_KQ(LieShu) = ""
'           Else
'              text_KQ(LieShu) = "0"
'           End If
'        End If
'     End If
'  Next LieShu
'  YGbianhao_KQ.Text = KQbiaoCZ.Fields(0)
''  For ShJquzhi_KQ = 1 To Len(KQbiaoCZ.Fields(3)) + 1
''     ShJzancun_KQ = Mid(KQbiaoCZ.Fields(3), ShJquzhi_KQ, 1)
''     If ShJzancun_KQ = "-" Then
''        If ShJnianPD_KQ Then
''           texYue_KQ.Text = ShiJian_KQ
''           ShiJian_KQ = ""
''           ShJnianPD_KQ = False
''        Else
''           texNian_KQ.Text = ShiJian_KQ
''           ShiJian_KQ = ""
''           ShJnianPD_KQ = True
''        End If
''     ElseIf ShJzancun_KQ = "" Then
''        RiShu_KQ = RiJS(Trim(texNian_KQ), Trim(texYue_KQ))
''        texRi_KQ.Clear
''        For Ri_KQ = 1 To RiShu_KQ
''          texRi_KQ.AddItem Ri_KQ
''        Next Ri_KQ
''        texRi_KQ.Text = ShiJian_KQ
''        ShiJian_KQ = ""
''     Else
''        ShiJian_KQ = ShiJian_KQ & ShJzancun_KQ
''     End If
''  Next ShJquzhi_KQ
'   RiQiFuZhi (Trim(Str(KQbiaoCZ.Fields(3))))
'   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
'
'End Sub
'
'Private Sub Form_Unload(Cancel As Integer)
'  Set ChaKanJB = Nothing
'  Set KQbiaoCZ = Nothing
'  Set GZbiaoCZ = Nothing
'End Sub
'
'Private Sub QueDing_KQ_Click()
'  LShmima_KQ = InputBox("请输入当前管理员密码！", "公司员工管理系统")
'  If LShmima_KQ <> DLyonghuMM Then
'     MsgBox "密码错误！无法执行操作！", 48, "公司员工管理系统"
'  Else
'    If QueDing_KQ.Caption = "修   改" Then
'        CaoZuo_KQ = MsgBox("密码正确！" & vbCrLf & "确定修改相关项吗？", 67, "公司员工管理系统")
'        Select Case CaoZuo_KQ
'           Case 6
'             If YGbianhao_KQ.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
'                MsgBox "员工编号、考勤总结日期的年月日，均不能为空！" & vbCrLf & "请检查数据的正确完整性！", 48, "公司员工管理系统"
'             Else
''                LShbiao_KQ.Open "select 总结日期 from checkin where 员工编号='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
''                If LShbiao_KQ.RecordCount = 0 Then
''                   Set LShbiao_KQ = Nothing
''                   ShuJuKufuzhi_KQ
''                Else
''                   Do While Not LShbiao_KQ.EOF
''                      If ZongJieRiQi_KQ = LShbiao_KQ.Fields(0) Then
''
''                   Loop
'                ShuJuKufuzhi_KQ
'             End If
''           Case 7
''             KQbiaoCZ.MoveFirst
''           Case 2
''              KQbiaoCZ.MoveFirst
'           End Select
'    ElseIf QueDing_KQ.Caption = "添   加" Then
'       CaoZuo_KQ = MsgBox("密码正确！" & vbCrLf & "确定添加相关项吗？", 67, "公司员工管理系统")
'       Select Case CaoZuo_KQ
'           Case 6
'             If YGbianhao_KQ.Text = "" Or texNian_KQ.Text = "" Or texYue_KQ.Text = "" Or texRi_KQ.Text = "" Then
'                MsgBox "员工编号、考勤总结日期的年月日，均不能为空！" & vbCrLf & "请检查数据的正确完整性！", 48, "公司员工管理系统"
'             Else
'                ZongJieRiQi_KQ = texNian_KQ.Text & "-" & texYue_KQ.Text
'                LShbiao_KQ.Open "select ygid from manrecord where ygid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
'                If LShbiao_KQ.RecordCount = 0 Then
'                   MsgBox "数据库里面不存在这个编码的员工！请先添加员工的基本信息！", 48, "公司员工管理系统"
'                   Set LShbiao_KQ = Nothing
'                   Exit Sub
'                Else
'                   Set LShbiao_KQ = Nothing
'                End If
'                LShbiao_KQ.Open "select kqdata from checkin where kqid='" & YGbianhao_KQ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
'                If LShbiao_KQ.RecordCount = 0 Then
'                   Set LShbiao_KQ = Nothing
'                   KQbiaoCZ.AddNew
'                   ShuJuKufuzhi_KQ
'                   KQbiaoCZ.Update
'                Else
'                   Do While Not LShbiao_KQ.EOF
'                      PDriqiShu_KQ = 0
'                      For ShJquzhi_KQ = 1 To Len(LShbiao_KQ.Fields(0))
'                          LPDriqiTex_KQ = Mid(LShbiao_KQ.Fields(0), ShJquzhi_KQ, 1)
'                          If LPDriqiTex_KQ = "-" Then
'                             If PDriqiShu_KQ = 0 Then
'                                PDriqiShu_KQ = 1
'                                PDriqiTex_KQ = PDriqiTex_KQ & LPDriqiTex_KQ
'                             Else
'                                Exit For
'                             End If
'                          Else
'                             PDriqiTex_KQ = PDriqiTex_KQ & LPDriqiTex_KQ
'                          End If
'                      Next ShJquzhi_KQ
'                      If ZongJieRiQi_KQ = PDriqiTex_KQ Then
'                         MsgBox "此人此月的考勤信息已经存在！", 48, "公司员工管理系统"
'                         Set LShbiao_KQ = Nothing
'                         Exit Sub
'                      Else
'                         LShbiao_KQ.MoveFirst
'                      End If
'                   Loop
'                   Set LShbiao_KQ = Nothing
'                   KQbiaoCZ.AddNew
'                   ShuJuKufuzhi_KQ
'                   KQbiaoCZ.Update
'                End If
'             End If
''           Case 2
''             KQbiaoCZ.MoveFirst
'       End Select
'    ElseIf QueDing_KQ.Caption = "删   除" Then
'       CaoZuo_KQ = MsgBox("密码正确！" & vbCrLf & "确定删除此条记录吗？", 67, "公司员工管理系统")
'       Select Case CaoZuo_KQ
'           Case 6
'             KQbiaoCZ.Delete
'             KQbiaoCZ.MoveFirst
'             textFuZhi_KQ
'       End Select
'    End If
'  End If
'End Sub
'
'Private Sub QuXiao_KQ_Click()
'  Unload Me
'End Sub
'
'Private Sub texNian_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 texRi_KQ_Click()
'  BenYueTSh
'End Sub
'
'Private Sub text_KQ_Change(Index As Integer)
'  Select Case Index
'    Case 16
'      text_KQ(12) = Val(Trim(text_KQ(16))) - 4 - Val(Trim(text_KQ(9)))
'    Case 12
'      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)))
'    Case 9
'      text_KQ(12) = Val(Trim(text_KQ(16))) - 4 - Val(Trim(text_KQ(9)))
'    Case 4
'      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(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
'    Case 5
'      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(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
'    Case 6
'      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(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
'    Case 7
'      text_KQ(14) = Val(Trim(text_KQ(10))) * 200 + Val(Trim(text_KQ(11))) * 150 + Val(Trim(text_KQ(7))) * 20
'    Case 8
'      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(15) = Val(Trim(text_KQ(4))) * 10 + Val(Trim(text_KQ(5))) * 15 + Val(Trim(text_KQ(6))) * 30 + Val(Trim(text_KQ(8))) * 100
'    Case 10
'      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
'    Case 11