kqdata.bas

考勤机的通讯程序

Attribute VB_Name = "KQData"
Option Explicit
'******************************************
'为打开com端口而编辑的过程！
Public Sub OpenPort()
   FormKQ.MSComm1.PortOpen = True
End Sub
'*******************************************
'为关闭com端口而编辑的过程！
Public Sub ClosePort()
   FormKQ.MSComm1.PortOpen = False
End Sub
'*******************************************
'为发送命令给考勤机而编辑的过程！
Public Sub SendCommand(ByVal str As String)
   FormKQ.MSComm1.Output = str + Chr(13)
End Sub
'********************************************
'为接受考勤机中一条记录的原始数据而编辑的过程！
Public Sub GetData()
   YuanShiData = FormKQ.MSComm1.Input
End Sub
'********************************************