faka.frm

用microsoft vb6.0写的上班考勤系统！

  '    jiwei.Text = "工程人员"
  '  End If
    
  '  If jiwei.Text = "7" Then
  '    jiwei.Text = "后勤人员 "
  '  End If
    
  'End If
  
  'If bumen.Text = "管理处" Then
  '  If jiwei.Text = "1" Then
  '     jiwei.Text = "保安"
  '  End If
  '
  '  If jiwei.Text = "2" Then
  '     jiwei.Text = "电工"
  '  End If
    
  '  If jiwei.Text = "3" Then
  '     jiwei.Text = "管理员"
  '  End If
  'End If
  
  'If bumen.Text = "会所" Then
  '  If jiwei.Text = "1" Then
  '     jiwei.Text = "办公人员"
  '  End If
    
  '  If jiwei.Text = "2" Then
  '     jiwei.Text = "总台"
  '  End If
    
  '  If jiwei.Text = "3" Then
  '     jiwei.Text = "清洁人员"
  '  End If
  'End If
  
End Sub

Private Sub Jiwei_GotFocus()
   'Dim AA As Boolean
   'Dim CC As Boolean
   Dim BB
   
Dim AA, JW, JWO
Dim e As Integer

Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from jiwei where bumen='" & bumen.Text & "' order by jiweino", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not RstShuju.EOF
   JW = RstShuju.Fields(0)
   JWO = RstShuju.Fields(2)
  BB = BB & Space(2) & JWO & "、" & JW
  RstShuju.MoveNext
Loop
StatusBar1.Panels(1).Text = BB

   'If bumen.Text = "筹建处" Then
   '  AA = True
   '  StatusBar1.Panels(1).Text = " 1、售楼员 2、办证员 3、电脑技术员 4、行政人员 5、财务人员 6、工程人员 7、后勤人员"
  'End If
   
  ' If bumen.Text = "管理处" Then
  '   StatusBar1.Panels(1).Text = "1、保安 2、电工 3、管理员"
  '   BB = True
  ' End If
   
   'If bumen.Text = "会所" Then
   '  StatusBar1.Panels(1).Text = "1、办公人员 2、总台 3、清洁人员"
   '  CC = True
   'End If
End Sub

Private Sub Jiwei_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Or KeyCode = 40 Then
     GongHao.SetFocus
   End If
   
   If KeyCode = 38 Then
    bumen.SetFocus
   End If
End Sub

Private Sub Jiwei_LostFocus()
StatusBar1.Panels(1).Text = ""
End Sub

Private Sub modi_Click()
   ModiInfo = True
   modi.Enabled = False
   same.Enabled = True
   'Selemodi.Visible = True
   'xingming(0).Visible = False
   SelBumen.Enabled = True
   SelJiYuan.Enabled = True
End Sub
Private Function CheckCardNo() As Boolean
 RstShuju.Close
 RstShuju.Open "select CardNo from Cardinfo where cardno='" + CardHao + "' ", Cnnshuju, adOpenKeyset, adLockBatchOptimistic, adCmdText
 If Not RstShuju.EOF Then
    CheckCardNo = True
 Else
    CheckCardNo = False
 End If
End Function
Private Sub ReadCardNOOk()
   Dim record_data As String * 30
   Dim record_data_Next As String * 30
   
If CardNo.Text <> "" Then Exit Sub
status = OpenComm(com + 3)
   
If status < 0 Then
      'MsgBox "打开串口失败！", vbOKOnly, "提醒！！"
      CloseComm (status)
Else
      node_address = "0"
      password = "0"
      record_data = 1.11111111111111E+29
      'record_data_Next = 1.11111111111111E+29
       
      Wo = Hand_Shake(status, node_addr, password)               '握手
      If Wo = 0 Then
         
            ST = Get_Curr_Record(status, node_addr, record_data)
            If ST = -9 Then
               
               If status > 0 Then
                   CloseComm (status)
               Else
                   MsgBox "关闭串口失败！", vbOKOnly, "提醒！"
               End If
               
               'MsgBox "没有可读数据！！", vbOKOnly, "提醒！！"
               Exit Sub
            
            End If
                 
            
            If ST = 0 Then
               CardHao = Left(Right(record_data, 8), 6)
               If CheckCardNo = False Then
                  CardNo.Text = CardHao
               'Else
                  If ST = 0 Then
                     Do While ST = 0
                        ST = Get_Next_Record(status, node_addr, record_data)
                        If ST = 0 Then
                            NextInfo = Left(Right(record_data, 8), 6)
                            If CheckCardNo = False Then
                                CardNo.Text = NextInfo
                            End If
                        End If
                      Loop
                   End If
               End If
               If ST = 0 Then
                     Do While ST = 0
                        ST = Get_Next_Record(status, node_addr, record_data)
                        If ST = 0 Then
                            NextInfo = Left(Right(record_data, 8), 6)
                            If CheckCardNo = False Then
                                CardNo.Text = NextInfo
                            End If
                        End If
                      Loop
                End If
            End If
            
            'If ST = -9 Then
            '    MsgBox "没有下一记录可读！", vbOKOnly, "提醒！！"
            'End If
      
      End If
      
      If status > 0 Then
           CloseComm (status)
      Else
           MsgBox "关闭串口失败！", vbOKOnly, "提醒！"
      End If
End If
   
End Sub

Private Sub RainButton3_Click()
End Sub

Private Sub ReadCardNO_Click()
ReadCardNOOk
End Sub

Private Sub same_Click()
   If Addinfo = True Then
     Set RstShuju = New ADODB.Recordset
     RstShuju.Open "select * from cardinfo where xingming='" + xingming(0).Text + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
     If Not RstShuju.EOF Then
       MsgBox "你输入的姓名已存在！", vbOKOnly, "提醒！！"
       Exit Sub
     End If
   End If
   If DelInfo = True Then
    If MsgBox("你确实要删除该数据吗？", vbYesNo, "提醒！") = vbNo Then Exit Sub
    Cnnfaka.Execute "DELETE FROM cardinfo   " _
                 & "WHERE " _
                 & "xingming='" + xingming(0).Text + "'  " _
                 & " "
    Cnnfaka.Execute "DELETE FROM qingjiatianshu   " _
                 & "WHERE " _
                 & "xingming='" + xingming(0).Text + "'  " _
                 & " "
    DelInfo = False
    Exit Sub
   End If
   
   
   If ModiInfo = True Or Addinfo = True Then
     If MsgBox("你确实要保存吗？", vbYesNo, "提醒！") = vbNo Then Exit Sub
       
       'If xingming(0).Text = "" Or jiwei.Text = "" Or bumen.Text = "" Or CardNo.Text = "" Or Banhao.Text = "" Or BanMing.Text = "" Or GongHao.Text = "" Then
       '  MsgBox "姓名、部门、职位、卡号、卡身号、班号、班名、工号一个都不能为空！！", vbOKOnly, "提醒！！"
       '  Exit Sub
       'End If
       
       If ModiInfo = True Then
      
          Cnnfaka.Execute "DELETE FROM cardinfo   " _
                    & "WHERE " _
                    & "xingming='" + xingming(0).Text + "'  " _
                    & " "
  
        End If
      
     Set Rstfaka = New ADODB.Recordset
     Rstfaka.Open "select * from cardinfo where xingming='" + xingming(0).Text + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
     
     Rstfaka.AddNew
     
        Rstfaka.Fields(0) = xingming(0).Text
        Rstfaka.Fields(1) = jiguan.Text
        Rstfaka.Fields(2) = shenfen.Text
        Rstfaka.Fields(3) = bumen.Text
        Rstfaka.Fields(4) = cardono.Text
        Rstfaka.Fields(5) = jiwei.Text
        Rstfaka.Fields(6) = rijitime.Value
        Rstfaka.Fields(7) = dizi.Text
        Rstfaka.Fields(8) = CardNo.Text
        Rstfaka.Fields(9) = diangua.Text
        Rstfaka.Fields(10) = Banhao.Text
        Rstfaka.Fields(11) = BanMing.Text
        Rstfaka.Fields(12) = YueXin.Text
        Rstfaka.Fields(13) = Other.Text
        Rstfaka.Fields(14) = DianHuaFei.Text
        Rstfaka.Fields(15) = GongHao.Text
        Rstfaka.Fields(16) = MingZi
      Rstfaka.UpdateBatch
     If Addinfo = True Then
       'RstQJTian.AddNew
          'RstQJTian.Fields(0) = XingMing(0).Text
       '   RstQJTian.Fields(0) = Bumen.Text
          'RstQJTian.Fields(15) = YueXin.Text
       'RstQJTian.UpdateBatch
     
       'Set RstShuju = New ADODB.Recordset
       'RstShuju.Open "select bumen,xingming from jiaban", Cnnshuju, adOpenKeyset, adLockPessimistic, adCmdText
       'RstShuju.AddNew
       '  RstShuju.Fields(0) = bumen.Text
       '  RstShuju.Fields(1) = xingming(0).Text
       'RstShuju.UpdateBatch
       
       'Set Rstshuju = New ADODB.Recordset
       'Rstshuju.Open "select * from qingjiashuju", Cnnshuju, adOpenDynamic, adLockBatchOptimistic, adCmdText
       'Rstshuju.AddNew
       '   Rstshuju.Fields(0) = Bumen.Text
       '   Rstshuju.Fields(1) = Xingming(0).Text
       'Rstshuju.UpdateBatch
     End If
     Set RstShuju = New ADODB.Recordset
     RstShuju.Open "select * from bumen where bumen='" + bumen.Text + "' ", Cnnshuju, adOpenStatic, adLockOptimistic, adCmdText
     If RstShuju.EOF Then
       RstShuju.AddNew
         RstShuju.Fields(0) = bumen.Text
       RstShuju.UpdateBatch
     End If
   End If
   
   Addinfo = False
   
   
   MsgBox "数据已保存！", vbOKOnly, "提醒！"
   
  
   modi.Enabled = True
   add.Enabled = True
   same.Enabled = False
End Sub

Private Sub SelBumen_Click()
  Dim BM, i
   SelJiYuan.Clear
   bumen.Text = SelBumen.Text
   Set Rstfaka = New ADODB.Recordset
   Rstfaka.Open "select xingming from cardinfo where bumen='" + bumen.Text + "'order by gonghao", Cnnshuju, adOpenStatic, adLockOptimistic, adCmdText
   Do While Not Rstfaka.EOF
      SelJiYuan.AddItem Rstfaka.Fields(0)
      Rstfaka.MoveNext
   Loop
End Sub

Private Sub selemodi_Click()
If Selemodi.Text = "" Then Exit Sub

'Rstfaka.Open "select * from cardinfo" _
            & "where"& _
            & "xingming='"&selemodi&"'"&
            
   Dim Rst As ADODB.Recordset
   Set Rst = New ADODB.Recordset
   Rst.CursorLocation = adUseClient
   Rst.CursorType = adOpenForwardOnly
   Rst.LockType = adLockReadOnly

Rst.Open "select * from cardinfo " _
                     & "where " _
                     & "xingming='" + Selemodi.Text + "'", Cnnfaka, , , adCmdText

If Not Rst.EOF Then
       
       xingming(0).Text = Rst.Fields(0)
       jiguan.Text = Rst.Fields(1)
       shenfen.Text = Rst.Fields(2)
       bumen.Text = Rst.Fields(3)
       cardono.Text = Rst.Fields(4)
       jiwei.Text = Rst.Fields(5)
       rijitime.Value = Rst.Fields(6)
       dizi.Text = Rst.Fields(7)
       CardNo.Text = Rst.Fields(8)
       diangua.Text = Rst.Fields(9)
       Banhao.Text = Rst.Fields(10)
       BanMing.Text = Rst.Fields(11)
       YueXin.Text = Rst.Fields(12)
       Other.Text = Rst.Fields(13)
       DianHuaFei.Text = Rst.Fields(14)
       GongHao.Text = Rst.Fields(15)
End If


End Sub

Private Sub Seljiyuan_Click()
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from cardinfo where xingming='" + SelJiYuan.Text + "'", Cnnshuju, adOpenStatic, adLockOptimistic, adCmdText
If Not RstShuju.EOF Then
       
       xingming(0).Text = IIf(IsNull(RstShuju.Fields(0)), "", Trim(RstShuju.Fields(0)))
       jiguan.Text = IIf(IsNull(RstShuju.Fields(1)), "", Trim(RstShuju.Fields(1)))
       shenfen.Text = IIf(IsNull(RstShuju.Fields(2)), "", Trim(RstShuju.Fields(2)))
       bumen.Text = IIf(IsNull(RstShuju.Fields(3)), "", Trim(RstShuju.Fields(3)))
       cardono.Text = IIf(IsNull(RstShuju.Fields(4)), "", Trim(RstShuju.Fields(4)))
       jiwei.Text = IIf(IsNull(RstShuju.Fields(5)), "", Trim(RstShuju.Fields(5)))
       rijitime.Value = IIf(IsNull(RstShuju.Fields(6)), "", Trim(RstShuju.Fields(6)))
       dizi.Text = IIf(IsNull(RstShuju.Fields(7)), "", Trim(RstShuju.Fields(7)))
       CardNo.Text = IIf(IsNull(RstShuju.Fields(8)), "", Trim(RstShuju.Fields(8)))
       diangua.Text = IIf(IsNull(RstShuju.Fields(9)), "", Trim(RstShuju.Fields(9)))
       Banhao.Text = IIf(IsNull(RstShuju.Fields(10)), "", Trim(RstShuju.Fields(10)))
       BanMing.Text = IIf(IsNull(RstShuju.Fields(11)), "", Trim(RstShuju.Fields(11)))
       YueXin.Text = IIf(IsNull(RstShuju.Fields(12)), "", Trim(RstShuju.Fields(12)))
       Other.Text = IIf(IsNull(RstShuju.Fields(13)), "", Trim(RstShuju.Fields(13)))
       DianHuaFei.Text = IIf(IsNull(RstShuju.Fields(14)), "", Trim(RstShuju.Fields(14)))
       GongHao.Text = IIf(IsNull(RstShuju.Fields(15)), "", Trim(RstShuju.Fields(15)))
 
End If
End Sub

Private Sub shenfen_KeyUp(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Or KeyCode = 40 Then
     cardono.SetFocus
   End If
   
   If KeyCode = 38 Then
    jiguan.SetFocus
   End If
End Sub

Private Sub Timer1_Timer()

ReadCardNOOk
End Sub

Private Sub Xingming_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
  
  If KeyCode = 13 Or KeyCode = 40 Then
    jiguan.SetFocus
  End If

End Sub