?? frm_call.frm
字號:
VERSION 5.00
Object = "{2B12169D-6738-11D2-BF5B-00A024982E5B}#31.8#0"; "CoolButton.OCX"
Begin VB.Form frm_call
Caption = "GPRS用電管理系統"
ClientHeight = 2550
ClientLeft = 60
ClientTop = 345
ClientWidth = 7380
Icon = "frm_call.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2550
ScaleWidth = 7380
StartUpPosition = 1 '所有者中心
Begin VB.TextBox txt_ip
Appearance = 0 'Flat
Height = 300
Left = 1200
TabIndex = 10
Top = 2040
Width = 1935
End
Begin VB.TextBox txt_qurry
Appearance = 0 'Flat
Height = 300
Left = 4320
MaxLength = 12
TabIndex = 9
Top = 360
Width = 1695
End
Begin VB.TextBox txt_biaohao
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4560
TabIndex = 8
Top = 1440
Width = 2055
End
Begin VB.TextBox txt_sim
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1200
TabIndex = 7
Top = 1440
Width = 1935
End
Begin VB.TextBox txt_name
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 4560
TabIndex = 6
Top = 960
Width = 2055
End
Begin VB.TextBox txt_id
Appearance = 0 'Flat
Enabled = 0 'False
Height = 300
Left = 1200
TabIndex = 5
Top = 960
Width = 1935
End
Begin VB.OptionButton Option2
Appearance = 0 'Flat
Caption = "SIM卡號"
ForeColor = &H80000008&
Height = 255
Left = 3360
TabIndex = 4
Top = 420
Width = 950
End
Begin VB.OptionButton Option1
Appearance = 0 'Flat
Caption = "客戶編號"
ForeColor = &H80000008&
Height = 255
Left = 2280
TabIndex = 3
Top = 420
Width = 1095
End
Begin TButton.axButton xpcmdbutton3
Height = 300
Left = 5520
TabIndex = 0
Top = 2040
Width = 1095
_ExtentX = 1931
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "退 出"
MaskColor = -2147483633
End
Begin TButton.axButton xpcmdbutton1
Height = 300
Left = 3480
TabIndex = 1
Top = 2040
Width = 1095
_ExtentX = 1931
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "呼 叫"
MaskColor = -2147483633
End
Begin TButton.axButton xpcmdbutton2
Height = 300
Left = 6120
TabIndex = 2
Top = 360
Width = 615
_ExtentX = 1085
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "查 詢"
MaskColor = -2147483633
End
Begin VB.Label Label27
BackStyle = 0 'Transparent
Caption = "終端ＩＰ："
Height = 255
Left = 120
TabIndex = 17
Top = 2085
Width = 975
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "請輸入要接通的客戶信息："
Height = 255
Left = 120
TabIndex = 16
Top = 480
Width = 2175
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "用戶姓名："
Height = 255
Left = 3480
TabIndex = 15
Top = 1080
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "電能表編號："
Height = 255
Left = 3480
TabIndex = 14
Top = 1560
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "用戶SIM號："
Height = 255
Left = 120
TabIndex = 13
Top = 1560
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "用戶編號："
Height = 255
Left = 120
TabIndex = 12
Top = 1080
Width = 975
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "呼叫終端"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 11
Top = 120
Width = 1455
End
End
Attribute VB_Name = "frm_call"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub xpcmdbutton1_Click()
Dim i As Integer
Dim senddata() As Byte
Dim num As Long
Dim str1 As String
Dim str2 As String
Dim strsql As String
Dim pw As String
Dim sum As Long
If Trim(txt_ip.Text) = "" Then
MsgBox ("終端ＩＰ：不能為空！"), vbOKOnly + vbInformation, "提示"
Exit Sub
End If
If Trim(txt_id.Text) = "" Then
MsgBox ("請您先查詢！"), vbOKOnly + vbInformation, "提示"
Exit Sub
End If
strsql = "select user_dtupw from userbasic where user_id='" & txt_id.Text & "'"
openrs strsql
pw = rs.Fields("user_dtupw").Value
clors
ReDim senddata(23) As Byte '//采集數據包長度24
'//處理SIM卡號
For i = 0 To 4
num = Mid(Trim(txt_sim.Text), 2 * (i - 0) + 1, 2)
senddata(i) = num
Next i
num = Mid(Trim(txt_sim.Text), 11, 1)
senddata(5) = num
'//處理表號（６）txt_biaohao.Text
For i = 6 To 11 Step 1
num = Mid(Trim(txt_biaohao.Text), 2 * (i - 6) + 1, 2)
senddata(i) = num
Next i
'//處理用戶密碼（６）pw
For i = 12 To 17 Step 1
num = Mid(pw, 2 * (i - 12) + 1, 2)
senddata(i) = num
Next i
'//密碼取反（６）（12-17字節取反）
For i = 18 To 23
senddata(i) = Not senddata(i - 6)
Next i
'//累加和（１）
For i = 0 To 23 Step 1
num = senddata(i)
sum = sum + num
sum = sum Mod 256
Next i
senddata(23) = sum
Dim strregdata1 As String
Dim regdata1() As Byte
Dim regdata2() As Byte
Dim regdata() As Byte
Dim numregdata As Integer
Dim dtuip As String
Dim dtuport As String
dtuip = Trim(txt_ip.Text)
dtuport = "80"
If frm_main.ActiveBar21.Bands("statusbar").Tools("s1").Caption = "現在狀態GSM " Then
strregdata1 = "ATJSS" & txt_sim.Text & "FDGJ000000:"
Else
strregdata1 = "ATJAU" & dtuip & "PORT:" & dtuport
End If
regdata1 = StrConv(strregdata1, vbFromUnicode)
regdata2 = call_pctodtu(senddata)
numregdata = UBound(regdata1) + UBound(regdata2) + 2
ReDim regdata(numregdata - 1) As Byte
For i = 0 To UBound(regdata1) Step 1
regdata(i) = regdata1(i)
Next i
For i = UBound(regdata1) + 1 To numregdata - 1
regdata(i) = regdata2(i - UBound(regdata1) - 1)
Next i
comsenddata regdata '發送數據
'//清空緩沖區
ReDim bybuff(0) As Byte
bybuff(0) = 0
End Sub
Private Sub xpcmdbutton2_Click()
Dim strsql
If Option1.Value = False And Option2.Value = False Then
MsgBox ("您沒有選擇查詢條件！"), vbOKOnly + vbInformation, "提示"
Exit Sub
End If
If Trim(txt_qurry.Text) = "" Then
MsgBox ("查詢值不能為空！"), vbOKOnly + vbInformation, "提示"
Exit Sub
End If
If Option1.Value = True Then
strsql = "select * from userbasic where user_id='" & Trim(txt_qurry.Text) & "'"
openrs strsql
If rs.EOF Then
MsgBox ("該用戶還沒有開戶！"), vbOKOnly + vbInformation, "提示"
clors
Exit Sub
End If
End If
If Option2.Value = True Then
strsql = "select * from userbasic where user_sim='" & Trim(txt_qurry.Text) & "'"
openrs strsql
If rs.EOF Then
MsgBox ("該用戶還沒有開戶！"), vbOKOnly + vbInformation, "提示"
clors
Exit Sub
End If
End If
txt_id.Text = rs.Fields("user_id").Value
txt_name.Text = rs.Fields("user_name").Value
txt_sim.Text = rs.Fields("user_sim").Value
txt_biaohao.Text = rs.Fields("user_biaohao").Value
clors
End Sub
Private Sub xpcmdbutton3_Click()
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -