functions.bas

不管我的程序编得怎么样

Attribute VB_Name = "Functions"
Option Explicit


'卡加款
Public Declare Function AddMoney Lib "stsvr.dll" Alias "_AddMoney@12" (ByVal port As Long, ByVal kh As String, ByVal jke As Long) As Byte
'服务器总清
Public Declare Function AllReset Lib "stsvr.dll" Alias "_AllReset@8" (ByVal port As Long, ByVal hwnd As Long) As Long
'清分机售额
Public Declare Function ClearFJSE Lib "stsvr.dll" Alias "_ClearFJSE@8" (ByVal port As Long, ByVal jh As Byte) As Long
'清总记录数
Public Declare Function ClearJLS Lib "stsvr.dll" Alias "_ClearJLS@4" (ByVal port As Long) As Long
'单张卡即时挂失,解挂(同时送至服务器和所有分机)
Public Declare Function DKGF Lib "stsvr.dll" Alias "_DKGF@12" (ByVal port As Long, ByVal kh As String, ByVal st As Byte) As Long
'发行,设置卡余额
Public Declare Function FK Lib "stsvr.dll" Alias "_FK@16" (ByVal port As Long, ByVal kh As String, ByVal ye As Long, ByRef st As Byte) As Long
'读扣款限额,超支限额,定额消费额
Public Declare Function Get3JE Lib "stsvr.dll" Alias "_Get3JE@20" (ByVal port As Long, ByVal jh As Byte, ByRef xe As Long, ByRef tz As Long, ByRef de As Long) As Long
'查分机售额
Public Declare Function GetFJSE Lib "stsvr.dll" Alias "_GetFJSE@12" (ByVal port As Long, ByVal jh As Byte, ByRef se As Long) As Long
'读总记录(流水)数
Public Declare Function GetJLS Lib "stsvr.dll" Alias "_GetJLS@8" (ByVal port As Long, ByRef jls As Long) As Long
'查流水
Public Declare Function GetLS Lib "stsvr.dll" Alias "_GetLS@16" (ByVal port As Long, ByVal fn As String, ByRef jls As Long, ByVal hwnd As Long) As Long
'读最大机号
Public Declare Function GetMaxJH Lib "stsvr.dll" Alias "_GetMaxJH@8" (ByVal port As Long, ByRef maxjh As Byte) As Long
'读服务器时间
Public Declare Function GetSvrTime Lib "stsvr.dll" Alias "_GetSvrTime@8" (ByVal port As Long, ByVal sj As String) As Long
'查询卡余额情况
Public Declare Function GetYe Lib "stsvr.dll" Alias "_GetYe@16" (ByVal port As Long, ByVal kh As String, ByRef ye As Long, ByRef st As Byte) As Long
'汇总信用消费
Public Declare Function HZ Lib "stsvr.dll" Alias "_HZ@16" (ByVal port As Long, ByVal maxjh As Byte, ByVal st As String, ByVal hwnd As Long) As Long
'实时记录
Public Declare Function RealTime Lib "stsvr.dll" Alias "_RealTime@8" (ByVal port As Long, ByVal s As Byte) As Long
'设定扣款限额,超支限额,定额消费额
Public Declare Function Set3JE Lib "stsvr.dll" Alias "_Set3JE@20" (ByVal port As Long, ByVal jh As Byte, ByVal xe As Long, ByVal tz As Long, ByVal de As Long) As Long
'设定快捷键菜单
Public Declare Function SetCJ Lib "stsvr.dll" Alias "_SetCJ@8" (ByVal port As Long, ByRef cj As Long) As Long
'向分机送操作密码
Public Declare Function SetFJMM Lib "stsvr.dll" Alias "_SetFJMM@8" (ByVal port As Long, ByVal mm As String) As Long
'设定最大机号
Public Declare Function SetMaxJH Lib "stsvr.dll" Alias "_SetMaxJH@8" (ByVal port As Long, ByVal maxjh As Byte) As Long
'改卡状态(服务器内)
Public Declare Function SetST Lib "stsvr.dll" Alias "_SetST@12" (ByVal port As Long, ByVal kh As String, ByVal st As Byte) As Long
'置服务器时间
Public Declare Function SetSvrTime Lib "stsvr.dll" Alias "_SetSvrTime@8" (ByVal port As Long, ByVal sj As String) As Long
'服务器向分机送所有卡挂失位
Public Declare Function SvrSendGF Lib "stsvr.dll" Alias "_SvrSendGF@8" (ByVal port As Long, ByVal hwnd As Long) As Long