kqserver.frm

考勤机的通讯程序

         Begin VB.Label Label5 
            AutoSize        =   -1  'True
            Caption         =   "选择串行端口："
            Height          =   180
            Left            =   120
            TabIndex        =   17
            Top             =   480
            Width           =   1260
         End
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "自动采集"
      Height          =   2175
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   4455
      Begin VB.CommandButton ComAutoCJ 
         Caption         =   "启用自动采集"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1560
         TabIndex        =   2
         Top             =   240
         Width           =   2655
      End
      Begin VB.Frame Frame3 
         Caption         =   "自动采集时间"
         Height          =   1215
         Left            =   240
         TabIndex        =   3
         Top             =   840
         Width           =   3975
         Begin VB.CheckBox Check15 
            Caption         =   "每月15号"
            Height          =   255
            Left            =   240
            TabIndex        =   5
            Top             =   720
            Width           =   1215
         End
         Begin VB.CheckBox Check1 
            Caption         =   "每月1号"
            Height          =   255
            Left            =   240
            TabIndex        =   4
            Top             =   360
            Width           =   1095
         End
         Begin VB.TextBox TexTimeCJ 
            Height          =   270
            Left            =   1440
            TabIndex        =   6
            Top             =   480
            Width           =   975
         End
         Begin VB.CommandButton ComEditDatetime 
            Caption         =   "修 改"
            Height          =   375
            Left            =   2640
            TabIndex        =   7
            Top             =   480
            Width           =   1095
         End
      End
   End
   Begin VB.Label Labjshxx 
      BackColor       =   &H80000011&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   120
      TabIndex        =   29
      Top             =   5640
      Width           =   9135
   End
   Begin VB.Label Labbiaoti 
      Caption         =   "上海嘉地员工考勤数据采集系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   0
      Width           =   6975
   End
End
Attribute VB_Name = "FormKQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub ComboChuankouhao_Click()
   If ComboChuankouhao.Text = "COM1" Then
       MSComm1.CommPort = 1
   Else
       MSComm1.CommPort = 2
   End If

End Sub

Private Sub Comjiance_Click()
   If Comjiance.Caption = "检 测" Then
      CloseControl
      Comjiance.Enabled = True
      Comjiance.Caption = "停 止"
      Labkqj.Caption = "正在检测......"
      MSComm1.PortOpen = True
      SendCommand ("READ")
      TimJianceKQJ.Enabled = True
   Else
      OpenControl
      Comjiance.Caption = "检 测"
      TimJianceKQJ.Enabled = False
      MSComm1.PortOpen = False
      If Labkqj.Caption = "正在检测......" Then
          Labkqj.Caption = "已经停止检测！"
      End If
   End If
End Sub

Private Sub ComjieshouCJ_Click()
   CloseControl
   If Not jieshouKQJDataOK Then
      Labjshxx.Caption = "考勤机没有连接好，请检查！"
      OpenControl
      Exit Sub
   End If
   If Not jieshouSQLDataOK Then
      Labjshxx.Caption = "数据库没有连接好，请检查！"
      OpenControl
      Exit Sub
   End If
   Labjshxx.Caption = "正在准备接收考勤数据，请稍等..."
   MSComm1.PortOpen = True               '打开考勤机端口
   conn                                  '连接数据库
   GetMaxRecord                          '获取记录号的最大值
   GetRecordCount = 0                    '设置读取记录总数的初始值
   SendCommand ("READ")                  '发送读数据命令
   TimJieSHouData.Enabled = True         '打开时钟为接收考勤机数据
End Sub

Private Sub Comlianjie_Click()
On Error GoTo errend
  CloseControl
  Labshjk.Caption = "正在连接请稍等..."
  conn
  Labjshxx.Caption = "恭喜你，数据库连接成功，现在可以连接考勤机或采集数据了！"
  Labshjk.Caption = "连接完成，数据库连接正常！"
  ColseRsDataRecord
  OpenControl
  jieshouSQLDataOK = True
  Exit Sub
errend:
  Labjshxx.Caption = "不好意思，数据库连接失败，请检察用户名或密码是否有误，数据库服务器是否开启！"
  Labshjk.Caption = "数据库连接失败！"
  OpenControl
  jieshouSQLDataOK = False
End Sub
Private Sub Form_Load()
   ComboChuankouhao.Text = "COM1"
   jieshouKQJDataOK = False
   jieshouSQLDataOK = False
End Sub

Private Sub TimJianceKQJ_Timer()
  GetData
  If YuanShiData <> "" Then
     Labkqj.Caption = "检测完成，考勤机连接正常！"
     Labjshxx.Caption = "恭喜你，考勤机连接正常，可以进行数据库连接或数据采集了！"
     jieshouKQJDataOK = True
  Else
     Labkqj.Caption = "检测完成，考勤机连接失败！"
     Labjshxx.Caption = "不好意思，考勤机连接失败，请检察考勤机是否连接好，或是COM端口选择错误！"
     jieshouKQJDataOK = False
  End If
  Comjiance_Click
End Sub

Private Sub TimJieSHouData_Timer()
   GetData
   Select Case Len(YuanShiData)
      Case 29, 33
            If Len(YuanShiData) = 33 Then
                YuanShiData = Right(YuanShiData, 29)
            End If
            GetRecordCount = GetRecordCount + 1
            Labjshxx.Caption = "正在接收第" & GetRecordCount & "条记录！"
            MaxRecord = MaxRecord + 1             '给记录号加一，设置添加记录的记录号
            FenxiYuanshiData YuanShiData          '分析原始数据 并保存数据到数据库
            SendCommand ("REMOVE")                '去除已经读取过的记录
            SendCommand ("READ")                  '再发一条读考勤机数据命令
      Case 5
        If Left$(YuanShiData, 4) = "OVER" Then
            Labjshxx.Caption = "数据以采集完毕，共采集了" & GetRecordCount & "条记录！"
            ClosePort                             '关闭考勤机端口
            ColseRsDataRecord                     '关闭数据库连接
            OpenControl                           '打开窗体上的所以命令
            TimJieSHouData.Enabled = False        '存储完数据关闭时钟   结束数据采集
        End If
      Case Else
            SendCommand ("READ")
    End Select
End Sub