form1.frm

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

                RstAdd.Fields(0) = XM
                RstAdd.Fields(3) = Yesterday
                RstAdd.Fields(4) = "**"
                RstAdd.Fields(6) = "**"
            RstAdd.UpdateBatch
         End If
       End If
    End If
  End If
   
   
End Sub
Private Sub CheckHuanBan()
  Dim huan As Boolean
  If BanMing = "常班" Then Exit Sub
  huan = False
  Set RstShuju = New ADODB.Recordset
  RstShuju.Open "select banming,checkhuanban from cardinfo where xingming='" + Ming + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
     If MyWeekDay = 2 And RstShuju!CheckHuanBan = 0 Then
        'Do While Not RstShuju.EOF
           If RstShuju!BanMing = "早班" And huan = False Then
                BanMing = "中班"
                Set RstShuju = New ADODB.Recordset
                RstShuju.Open "select * from cardinfo where xingming='" + Ming + "' ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
                RstShuju!BanMing = "中班"
                BanMing = "中班"
                'Cnnshuju.Execute "update cardinfo set banming='" + BanMing + "',CheckHuanBan=1 where xingming='" + Ming + "' "
                'RstShuju!BanMing = "中班"
                RstShuju!CheckHuanBan = 1
                huan = True
           End If
           
           If RstShuju!BanMing = "中班" And huan = False Then
              If Banhao = "0002" Or Banhao = "0005" Then
                'RstShuju!BanMing = "夜班"
                BanMing = "夜班"
              Set RstShuju = New ADODB.Recordset
              RstShuju.Open "select * from cardinfo where xingming='" + Ming + "' ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
              RstShuju!BanMing = "夜班"
              RstShuju!CheckHuanBan = 1
                huan = True
            Else
                'RstShuju!BanMing = "早班"
                BanMing = "早班"
                Set RstShuju = New ADODB.Recordset
                RstShuju.Open "select * from cardinfo where xingming='" + Ming + "' ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
                RstShuju!BanMing = "早班"
                RstShuju!CheckHuanBan = 1
                'Cnnshuju.Execute "UPDATE cardinfo SET " _
                     & "banming = '" & Trim(BanMing) & "', " _
                     & "WHERE " _
                     & "( LTRIM(RTRIM(mingcheng)) = '" & Trim(leibie.Text) & "') " _
                     & "" _
                     & ""
                huan = True
              End If
           End If
           
           If RstShuju!BanMing = "夜班" And huan = False Then
             'RstShuju!BanMing = "早班"
              BanMing = "早班"
              Set RstShuju = New ADODB.Recordset
              RstShuju.Open "select * from cardinfo where xingming='" + Ming + "' ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
              RstShuju!BanMing = "早班"
              BanMing = "早班"
              RstShuju!CheckHuanBan = 1
              'Cnnshuju.Execute "update cardinfo set banming='" + BanMing + "',CheckHuanBan=1 where xingming='" + Ming + "' "
              huan = True
           End If
           'RstShuju!CheckHuanBan = 1
           'RstShuju.MoveNext
        'Loop
     
        
     End If
     If MyWeekDay = 3 Then
       RstShuju!CheckHuanBan = 0
     End If
  RstShuju.UpdateBatch adAffectCurrent
End Sub
Private Function CheckShangYiDaKa() As Boolean 'CHECK昨天上有没有打卡
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from kaoqishuju  where xingming='" + Ming + "'and riqi='" + Yesterday + "'and IfSXBan=1 ", Cnnshuju, adOpenKeyset, adLockOptimistic, adCmdText
If Not RstShuju.EOF Then
  CheckShangYiDaKa = True
  AA = RstShuju.Fields(4)
Else
  CheckShangYiDaKa = False
End If
End Function
Private Function CheckXiaYiDaKa() As Boolean 'CHECK昨天下有没有打卡
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from kaoqishuju  where xingming='" + Ming + "'and riqi='" + Yesterday + "'and IfSXBan=2 ", Cnnshuju, adOpenKeyset, adLockOptimistic, adCmdText
If Not RstShuju.EOF Then
  CheckXiaYiDaKa = True
  BB = RstShuju.Fields(4)
Else
  CheckXiaYiDaKa = False
End If
End Function
Private Sub Form_Load()
 'If Jiwei = "经理" Then
 '  MdInfo.Enabled = True
 'End If
 
 If jiwei = "电脑技术员" Then
   Tool.Enabled = True
 End If
 
 If jiwei = "财务" Then
   WorkerManage.Enabled = False
   Moshi.Enabled = False
   Query.Enabled = False
   Xitong.Enabled = False
 End If
 If jiwei = "数据输入员" Then
   WorkerManage.Enabled = False
   Moshi.Enabled = False
   Query.Enabled = False
   Xitong.Enabled = False
   GongZi.Enabled = False
   Toolbar1.Visible = False
 End If
 

'LoadData


End Sub

Private Sub SetBumen_Click()
Form3.Show 1
End Sub

Private Sub SetHoliday_Click()
FrmSetJiaRi.Show 1
End Sub

Private Sub SetJiWei_Click()
Frmjiwei.Show 1
End Sub

Private Sub SetShuJu_Click()
Form1.Show 1
End Sub

Private Sub SetTime_Click()
frmBanci.Show 1
End Sub
Private Sub CheckFirDay()
Dim FirDay, DelMonth, TianShu, YuJiaShu
'Riqi = 20020901
DelMonth = Mid(Riqi, 5, 2)
FirDay = Right(Riqi, 2)
If FirDay <> "01" Then
 Exit Sub
Else
   Set RstShuju = New ADODB.Recordset
   RstShuju.Open "select * from qingjiatianshu where UpdateDay='" + Riqi + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
   If Not RstShuju.EOF Then
     Exit Sub
   End If
   
   Set RstShuju = New ADODB.Recordset
   RstShuju.Open "select * from setjiashu", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
   If Not RstShuju.EOF Then
     TianShu = RstShuju.Fields(0)
   End If
   If DelMonth = "01" Or DelMonth = "04" Or DelMonth = "07" Or DelMonth = "10" Then
     
     Set RstShuju = New ADODB.Recordset
     RstShuju.Open "select * from qingjiatianshu  ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
     Do While Not RstShuju.EOF
        RstShuju.Fields(1) = TianShu
        RstShuju.Fields(17) = Riqi
        RstShuju.UpdateBatch
        RstShuju.MoveNext
     Loop
   Else
     Set RstShuju = New ADODB.Recordset
     RstShuju.Open "select * from qingjiatianshu  ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
     Do While Not RstShuju.EOF
        YuJiaShu = RstShuju.Fields(1)
        RstShuju.Fields(1) = CDbl(CDbl(TianShu) + CDbl(YuJiaShu))
        RstShuju.Fields(17) = Riqi
        RstShuju.UpdateBatch
        RstShuju.MoveNext
     Loop
   End If
End If

End Sub
Private Sub CheckYesterday()
Dim YesterdayDaKa, LastMonth, HWeekDay, HYesterday
Dim Hoday
'MsgBox "ok"
Text1 = Ming


YesterdayDaKa = Riqi - 1

HWeekDay = CInt(MyWeekDay) - 1
'HYesterday = Format(Hoday, "mm/dd/yyyy")
'HWeekDay = Weekday(Hoday)
If HWeekDay = 0 Then HWeekDay = 7
Set Rstkaoqin = New ADODB.Recordset
Rstkaoqin.Open "select * from setholiday where riqi='" & YesterdayDaKa & "' or xingqi='" & HWeekDay & "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not Rstkaoqin.EOF Then Exit Sub
LastMonth = Right(YesterdayDaKa, 2)
If LastMonth = "00" Then
  Exit Sub
  'LastMonth = Mid(YesterdayDaKa, 5, 2)
  'If LastMonth = "01" Or LastMonth = "03" Or LastMonth = "05" Or LastMonth = "07" Or LastMonth = "08" And LastMonth = 10 And LastMonth = 12 Then
  '  YesterdayDaKa = Format(Now, "yyyy(mm-1)")
  'End If
End If
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from dangtiandaka where riqi='" & YesterdayDaKa & "'and cardno='" + NO + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not RstShuju.EOF Then
   If IsNull(RstShuju.Fields(6)) Then
     RstShuju.Fields(9) = 2
     RstShuju.UpdateBatch
   End If
   Exit Sub
Else
  
  RstShuju.AddNew
    RstShuju.Fields(0) = Ming
    RstShuju.Fields(1) = NO
    RstShuju.Fields(2) = CON
    RstShuju.Fields(3) = YesterdayDaKa
    'RstShuju.Fields(4) = Shijian
    RstShuju.Fields(6) = ""
    RstShuju.Fields(9) = 2
   'Rstshuju.Fields(10) = "0"
    RstShuju.Fields(11) = "1"
    RstShuju.Fields(13) = GH
  RstShuju.UpdateBatch
End If
End Sub
Private Sub BaoAnTime()
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from baoandaka where xingming='" + Ming + "'and riqi='" + Riqi + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
If RstShuju.EOF Then
  RstShuju.AddNew
   
   RstShuju.Fields(1) = Riqi
   RstShuju.Fields(2) = Shijian
   RstShuju.Fields(0) = Ming
   
  RstShuju.UpdateBatch
Else
  If IsNull(RstShuju.Fields(3)) Then
       RstShuju.Fields(3) = Shijian
  Else
     If IsNull(RstShuju.Fields(4)) Then
       RstShuju.Fields(4) = Shijian
     Else
       If IsNull(RstShuju.Fields(5)) Then
         RstShuju.Fields(5) = Shijian
       Else
          If IsNull(RstShuju.Fields(6)) Then
            RstShuju.Fields(6) = Shijian
          Else
             If IsNull(RstShuju.Fields(7)) Then
               RstShuju.Fields(7) = Shijian
             Else
                If IsNull(RstShuju.Fields(8)) Then
                  RstShuju.Fields(8) = Shijian
                Else
                  If IsNull(RstShuju.Fields(9)) Then
                    RstShuju.Fields(9) = Shijian
                  Else
                     If IsNull(RstShuju.Fields(10)) Then
                       RstShuju.Fields(10) = Shijian
                     End If
                  End If
                End If
             End If
          End If
       End If
     End If
  End If

RstShuju.UpdateBatch
End If

End Sub
Private Sub Timer1_Timer()
Dim LaJi

If CheReadCardNO = True Then
   Timer1.Interval = 0
End If
HaveAdd = True
'If Jiwei = "经理" Then
'   MdInfo.Enabled = True
' End If
 
' If Jiwei = "技术员" Then
'   Tool.Enabled = True
' End If
 
 Set Cnnshuju = New ADODB.Connection
 Cnnshuju.Open "kaoqin", "andy", "1234"
 'com = com4
'LoadData
status = OpenComm(com + 0)
   
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 Or ST = -11 Then
            If status > 0 Then
              CloseComm (status)
              Timer1.Enabled = False
            Else
              MsgBox "关闭串口失败！", vbOKOnly, "提醒！"
            End If
           'MsgBox "没有可读数据！！", vbOKOnly, "提醒！！"
           'LoadData
           Exit Sub
         End If
         
         If ST = 0 Then
            Curr = record_data
         End If
         'riqi =riqi
         Riqi = "200" + Left(Right(Left(record_data, 18), 11), 5)
         CheckFirDay
         
         'Riqi = Riqi
         'AAA = CStr(riqi - 1)
         'BBB = Format(AAA, "yyyymmdd")
         AA = Right(Right(Left(record_data, 18), 11), 6)
         Shijian = Mid(AA, 1, 2) & ":" & Mid(AA, 3, 2) & ":" & Mid(AA, 5, 2)
         NO = Left(Right(record_data, 8), 6)
         
         XQ = Mid(Riqi, 1, 4) & "-" & Mid(Riqi, 5, 2) & "-" & Mid(Riqi, 7, 2)
         MyDate = Format(XQ, "mm/dd/yyyy")
         MyWeekDay = Weekday(MyDate)
         
         Set Cnnmain = New ADODB.Connection
         Cnnmain.Open "kaoqin", "andy", "1234"
         Set Rstmain = New ADODB.Recordset
         Rstmain.Open "select * from kaoqishuju ", Cnnmain, adOpenStatic, adLockBatchOptimistic, adCmdText
   
         Set Cnnfaka = New ADODB.Connection
         Cnnfaka.Open "kaoqin", "andy", "1234"
         Set Rstfaka = New ADODB.Recordset
         Rstfaka.Open "select * from cardinfo  where cardno='" + NO + "'", Cnnfaka, adOpenStatic, adLockBatchOptimistic, adCmdText
   
         Set CnnBanci = New ADODB.Connection
         CnnBanci.Open "kaoqin", "andy", "1234"
         Set Rstbanci = New ADODB.Recordset
         Rstbanci.Open "select * from ban ", CnnBanci, adOpenStatic, adLockOptimistic, adCmdText
         If Not Rstfaka.EOF Then
           Ming = Trim(Rstfaka!xingming)
           Banhao = Trim(Rstfaka!Banhao)
           BanMing = Trim(Rstfaka!BanMing)
           bumen = Trim(Rstfaka!bumen)
           CON = Trim(Rstfaka!cardono)
           GH = Trim(Rstfaka!GongHao)
           JW = Trim(Rstfaka!jiwei)
         Else
           LaJi = Curr
           'CloseComm (status)