fakaculb.frm

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

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   7035
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11310
   LinkTopic       =   "Form2"
   ScaleHeight     =   7035
   ScaleWidth      =   11310
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   855
      Left            =   1920
      TabIndex        =   4
      Top             =   3360
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   735
      Left            =   3960
      TabIndex        =   3
      Top             =   1200
      Width           =   1455
   End
   Begin VB.TextBox Cardno 
      Height          =   495
      Left            =   2160
      TabIndex        =   2
      Text            =   "cardno"
      Top             =   2040
      Width           =   1215
   End
   Begin VB.TextBox cardono 
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Text            =   "cardono"
      Top             =   840
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ReadCardNOOk"
      Height          =   855
      Left            =   840
      TabIndex        =   0
      Top             =   960
      Width           =   1095
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Cnnmain   As ADODB.Connection
Private Rstmain As ADODB.Recordset
Private Function CheckCardNo() As Boolean
 'Rstshuju.Close
 Set RstShuju = New ADODB.Recordset
 RstShuju.Open "select culb from Cardinfo where cardno='" + CardHao + "' ", Cnnmain, 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
   
   
status = OpenComm(com)
   
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
            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 Command1_Click()
 cardono.Text = ""
 Dim record_data As String * 30
   Dim record_data_Next As String * 30
   
   
status = OpenComm(com)
   
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
            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 Command2_Click()
Set Cnnmain = New ADODB.Connection
Cnnmain.Open "kaoqin", "andy", "1234"
Set Rstmain = New ADODB.Recordset
Rstmain.Open "select * from culb ", Cnnmain, adOpenDynamic, adLockOptimistic, adCmdText
Rstmain.AddNew
  Rstmain.Fields(0) = CardNo.Text
  Rstmain.Fields(1) = cardono.Text

Rstmain.UpdateBatch


End Sub

Private Sub Command3_Click()
Dim MyDate, MyWeekDay, Xingqiji
Dim XQ As Date
 Xingqiji = "20020923"
 'XQ = Format(20020923, "mm/dd/yyyy")
 XQ = Mid(Xingqiji, 1, 4) & "-" & Mid(Xingqiji, 5, 2) & "-" & Mid(Xingqiji, 7, 2)
 'XQ = Format(Now, "mm/dd/yyyy")
 MyDate = Format(XQ, "mm/dd/yyyy")
 MyWeekDay = Weekday(MyDate)

End Sub