frmkq.frm

朋友给的

  Call mm(Trim(GH))
  ClearText
  
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim msg As String
    Dim strsql As String
    
    strsql = "select 工号,姓名 from  VIEWYGXX"
    If Trim(findbt) <> "" And Trim(findnr) <> "" Then
        strsql = strsql & " where " & findbt & " like '%" & findnr & "%' "
    End If
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If rs.RecordCount > 0 Then
        msg = ShowListView(ListView1, rs, False, 1000)
    Else
   'ClearText
   MsgBox "无记录", vbOKOnly, "系统提示"
   End If
   kqid = 0
   Command4.Enabled = False
End Sub
Private Sub ClearText()
     GH = ""
        XM = ""
        RQ = Now
        KK = ""
        NR = ""
End Sub

Private Sub Command4_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    If kqid = 0 Then
        MsgBox "没有要修改的记录！！", vbInformation, "系统提示"
        Exit Sub
    End If
        
    If kqid <> 0 Then
        rs.Open "select * from YGKQ where id=" & kqid, gCnn, adOpenStatic, adLockPessimistic
        If Not rs.EOF Then
            If MsgBox("确定修改考勤记录？", vbYesNo, "系统提问") = vbNo Then
                Exit Sub
            End If
        End If
    End If

  
    rs.Fields("GH") = Trim(GH)
    rs.Fields("XM") = Trim(XM)
    rs.Fields("RQ") = Trim(RQ)
    rs.Fields("KK") = Val(Trim(KK))
    rs.Fields("NR") = Trim(NR)
    rs.Update
  MsgBox "保存成功", vbOKOnly, "系统提示"
    Call mm(Trim(GH))

  ClearText
End Sub

Private Sub Form_Load()
    If Me.WindowState = 0 Then Me.Move 0, 0, 9990, 8340
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
      Dim rs1 As ADODB.Recordset
    Set rs1 = New ADODB.Recordset
 Dim msg As String
    Dim strsql As String
    strsql = "SELECT 工号, 姓名  FROM VIEWYGXX"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
   msg = ShowListView(ListView1, rs, False, 1000)
   
    Dim i As Long
    rs1.Open "select * from VIEWYGXX ", gCnn, adOpenStatic, adLockReadOnly
    findbt.Clear
    For i = 0 To rs1.Fields.count - 1
        findbt.AddItem rs1.Fields(i).name
    Next
    RQ = Date
    Command4.Enabled = False
 End Sub


Private Sub GH_Click()
GH = ""
End Sub


Private Sub GH_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then FillText1 (GH)

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
 Dim i As Long
    If ListView1.ListItems.count > 0 Then
        For i = 1 To ListView1.ListItems.count
            If ListView1.ListItems(i).Selected Then
            Call FillText1(ListView1.ListItems(i).Text)
             Call mm(ListView1.ListItems(i).Text)
            End If
        Next
        
        
        
    End If
    
End Sub


Private Sub FillText1(code1 As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim strsql As String
    On Error GoTo ErrHandle
    strsql = "select * from VIEWYGXX "
    strsql = strsql & " where  工号 = '" & Trim(code1) & " '"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        GH = rs("工号")
        XM = rs("姓名")
        End If
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub

Private Sub FillText2(code1 As String, code2 As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim strsql As String
    On Error GoTo ErrHandle
    strsql = "select * from VIEWYGKQ "
    strsql = strsql & " where " & Trim(code1) & " like '%" & Trim(code2) & "%'"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        GH = rs("工号")
        XM = rs("姓名")
        RQ = rs("日期")
       KK = rs("扣款")
       NR = rs("内容")
        End If
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub
    


Private Sub FillText(code1 As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim strsql As String
    On Error GoTo ErrHandle
    strsql = "select * from VIEWYGXX "
   strsql = strsql & " where  姓名 = '" & Trim(code1) & " '"
 rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
           GH = rs("工号")
        XM = rs("姓名")
       
      
        End If
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub



Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
 Dim i As Long
    If ListView2.ListItems.count > 0 Then
        For i = 1 To ListView2.ListItems.count
            If ListView2.ListItems(i).Selected Then
            Call FillText3(ListView2.ListItems(i).Text)
           
            End If
        Next
        
        
        
    End If
    
End Sub


Private Sub mm(code1 As String)
    Dim rs As ADODB.Recordset
    Dim l As Integer
    Set rs = New ADODB.Recordset
    Dim strsql As String
    strsql = "select * from VIEWYGKQ "
    strsql = strsql & " where  工号 = '" & Trim(code1) & " '"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    msfkq.Rows = rs.RecordCount + 1
    For l = 1 To rs.RecordCount
     If Not rs.EOF Then
        msfkq.TextMatrix(l, 0) = rs("工号")
        msfkq.TextMatrix(l, 1) = rs("姓名")
        msfkq.TextMatrix(l, 2) = rs("扣款")
        msfkq.TextMatrix(l, 3) = rs("日期")
        msfkq.TextMatrix(l, 4) = rs("内容")
        msfkq.TextMatrix(l, 5) = rs("ID")
    rs.MoveNext
    End If
    Next l
    kqid = 0
    Command4.Enabled = False
End Sub


Private Sub FillText3(code1 As String)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim strsql As String
    On Error GoTo ErrHandle
    strsql = "select * from VIEWYGKQ "
    strsql = strsql & " where  工号 = '" & Trim(code1) & " '"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        GH = rs("工号")
        XM = rs("姓名")
        RQ = rs("日期")
       KK = rs("扣款")
       NR = rs("内容")
        End If
    Exit Sub
ErrHandle:
        MsgBox Err.Description, vbCritical, "系统提示"
    
End Sub









Private Sub msfkq_Click()
    Dim rs As New ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "select * from viewygkq where id=" & msfkq.TextMatrix(msfkq.Row, 5), gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        GH = msfkq.TextMatrix(msfkq.Row, 0)
        XM = msfkq.TextMatrix(msfkq.Row, 1)
        KK = msfkq.TextMatrix(msfkq.Row, 2)
        RQ = msfkq.TextMatrix(msfkq.Row, 3)
        NR = msfkq.TextMatrix(msfkq.Row, 4)
        kqid = msfkq.TextMatrix(msfkq.Row, 5)
        Command4.Enabled = True
    End If
    
    
    
    
    
    
    
    
End Sub

Private Sub XM_Click()
XM = ""
End Sub

Private Sub XM_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then FillText (XM)

End Sub