termdllmodule.bas

水电费收费管理系统

Attribute VB_Name = "TermDllModule"
'Declare the CommOpen Function
Public Declare Function Term_CommOpen Lib "DllTermCommPrj.dll" (ByVal PortName As String) As Integer

'Declare the CommClose Function
Public Declare Function Term_CommClose Lib "DllTermCommPrj.dll" () As Integer

'Declare the devices
Public Declare Function Term_CommCall Lib "DllTermCommPrj.dll" () As Integer

'Declare the initial
Public Declare Function Term_SysInit Lib "DllTermCommPrj.dll" () As Integer

'Declare the initial
Public Declare Function Term_Set Lib "DllTermCommPrj.dll" (ByVal CommID As Integer, ByVal SysSign As Integer) As Integer

'Declare the ReadSYSSign
Public Declare Function Term_ReadSysSign Lib "DllTermCommPrj.dll" (SysSign As Integer) As Integer

'Declare the ReadRecord
Public Declare Function Term_ReadRecord Lib "DllTermCommPrj.dll" (TypeID As Byte, PlaceID As Integer, OperatorID As Integer, RouteID As Byte, FDate As Date, FTime As Date, CardName As Byte) As Integer

Public Declare Function Term_ReadRecordOK Lib "DllTermCommPrj.dll" () As Integer

Public Declare Function Term_ReadCard Lib "DllTermCommPrj.dll" (CardName As Byte) As Integer

Public Declare Function Term_ReReadRecordSet Lib "DllTermCommPrj.dll" (Number As Integer) As Integer

Public Declare Function Term_SetTime Lib "DllTermCommPrj.dll" (ByVal FDate As Date, ByVal FTime As Date) As Integer

Public Declare Function Term_ReadTime Lib "DllTermCommPrj.dll" (FDate As Date, FTime As Date) As Integer