📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3975
ClientLeft = 60
ClientTop = 345
ClientWidth = 4080
LinkTopic = "Form1"
ScaleHeight = 3975
ScaleWidth = 4080
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command1
Caption = "进入退出实时记录"
Height = 375
Index = 21
Left = 2100
TabIndex = 21
Top = 3600
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "查流水(!)"
Height = 375
Index = 20
Left = 2100
TabIndex = 20
Top = 3240
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "服务器向分机送所有卡挂失位(!)"
Height = 375
Index = 19
Left = 2100
TabIndex = 19
Top = 2880
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "向分机送操作密码(?)"
Height = 375
Index = 18
Left = 2100
TabIndex = 18
Top = 2520
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "清总记录数(!)"
Height = 375
Index = 17
Left = 2100
TabIndex = 17
Top = 2160
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "置服务器时间(!)"
Height = 375
Index = 16
Left = 2100
TabIndex = 16
Top = 1800
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "设定最大机号(!)"
Height = 375
Index = 15
Left = 2100
TabIndex = 15
Top = 1440
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "设定扣款限额,超支限额,定额消费额(!)"
Height = 375
Index = 14
Left = 2100
TabIndex = 14
Top = 1080
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "清分机售额(!)"
Height = 375
Index = 13
Left = 2100
TabIndex = 13
Top = 720
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "卡加款(!)"
Height = 375
Index = 12
Left = 2100
TabIndex = 12
Top = 360
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "发行,设置卡余额(!)"
Height = 375
Index = 11
Left = 2100
TabIndex = 11
Top = 0
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "设定快捷键菜单(!)"
Height = 375
Index = 10
Left = 120
TabIndex = 10
Top = 3600
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "汇总信用消费(!)"
Height = 375
Index = 9
Left = 120
TabIndex = 9
Top = 3240
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "单张卡即时挂失,解挂(!)"
Height = 375
Index = 8
Left = 120
TabIndex = 8
Top = 2880
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "改卡状态(服务器内)(!)"
Height = 375
Index = 7
Left = 120
TabIndex = 7
Top = 2520
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "读总记录(流水)数(!)"
Height = 375
Index = 6
Left = 120
TabIndex = 6
Top = 2160
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "读服务器时间(!)"
Height = 375
Index = 5
Left = 120
TabIndex = 5
Top = 1800
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "读最大机号(!)"
Height = 375
Index = 4
Left = 120
TabIndex = 4
Top = 1440
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "读扣款限额,超支限额,定额消费额(!)"
Height = 375
Index = 3
Left = 120
TabIndex = 3
Top = 1080
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "查分机售额(!)"
Height = 375
Index = 2
Left = 120
TabIndex = 2
Top = 720
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "查询卡余额情况(!)"
Height = 375
Index = 1
Left = 120
TabIndex = 1
Top = 360
Width = 1875
End
Begin VB.CommandButton Command1
Caption = "服务器总清(!)"
Height = 375
Index = 0
Left = 120
TabIndex = 0
Top = 0
Width = 1875
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private port As Long
Private Sub Command1_Click(Index As Integer)
Dim kh As String
Dim jh As Byte
Dim ye As Long
Dim st As Byte
Dim maxjh As Byte
Dim xe As Long
Dim tz As Long
Dim de As Long
Dim jls As Long
Select Case Index
Case 0
If AllReset(port, Me.hwnd) Then
MsgBox "OK"
Exit Sub
End If
Case 1
kh = "11669"
If GetYe(port, kh, ye, st) Then
MsgBox ye & vbCrLf & st
Exit Sub
End If
Case 2
Dim se As Long
jh = 9
If GetFJSE(port, jh, se) Then
MsgBox se
Exit Sub
End If
Case 3
jh = 9
If Get3JE(port, jh, xe, tz, de) Then
MsgBox xe & tz & de
Exit Sub
End If
Case 4
If GetMaxJH(port, maxjh) Then
MsgBox maxjh
Exit Sub
End If
Case 5
Dim sj As String
sj = "0000000000"
If GetSvrTime(port, sj) Then
MsgBox sj
Exit Sub
End If
Case 6
If GetJLS(port, jls) Then
MsgBox jls
Exit Sub
End If
Case 7
kh = "11669"
st = 32
If SetST(port, kh, st) Then
MsgBox "OK"
Exit Sub
End If
Case 8
kh = "11669"
st = 0
If DKGF(port, kh, st) Then
MsgBox "OK"
Exit Sub
End If
Case 9
Dim stt As String, ttt As String, i As Integer
maxjh = 10
stt = Space$(maxjh)
If HZ(port, maxjh, stt, Me.hwnd) Then
ttt = ""
For i = 1 To maxjh
ttt = ttt & Format(i, "00") & " -- " & Mid$(stt, i, 1) & vbCrLf
Next i
MsgBox ttt
Exit Sub
End If
Case 10
Dim cj(1 To 9) As Long
cj(1) = 11
cj(2) = 22
cj(3) = 33
cj(4) = 44
cj(5) = 55
cj(6) = 66
cj(7) = 77
cj(8) = 88
cj(9) = 99
If SetCJ(port, cj(1)) Then
MsgBox "OK"
Exit Sub
End If
Case 11
kh = "33129"
ye = 0
st = 32
If FK(port, kh, ye, st) Then
MsgBox "OK"
Exit Sub
End If
Case 12
Dim jke As Long, rt As Byte
kh = "11669"
jke = 1000
rt = AddMoney(port, kh, jke)
MsgBox Chr$(rt)
Exit Sub
Case 13
jh = 9
If ClearFJSE(port, jh) Then
MsgBox "OK"
Exit Sub
End If
Case 14
jh = 9
xe = 10
tz = 10
de = 0
If Set3JE(port, jh, xe, tz, de) Then
MsgBox "OK"
Exit Sub
End If
Case 15
maxjh = 10
If SetMaxJH(port, maxjh) Then
MsgBox "OK"
Exit Sub
End If
Case 16
sj = Format(Date, "YYMMDD") & Format(Time, "HHMM")
If SetSvrTime(port, sj) Then
MsgBox "OK"
Exit Sub
End If
Case 17
If ClearJLS(port) Then
MsgBox "OK"
Exit Sub
End If
Case 18
Dim mm As String
mm = "8888"
If SetFJMM(port, mm) Then
MsgBox "OK"
Exit Sub
End If
Case 19
If SvrSendGF(port, Me.hwnd) Then
MsgBox "OK"
Exit Sub
End If
Case 20
If GetLS(port, "ls.txt", jls, Me.hwnd) Then
MsgBox jls
Exit Sub
End If
Case 21
End Select
MsgBox "Err"
End Sub
Private Sub Form_Load()
ChDrive App.Path
ChDir App.Path
port = 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -