frm_updatauser.frm

提供给入门级别的GPRS编程人员

            TabIndex        =   41
            Top             =   5325
            Width           =   1950
         End
         Begin VB.Label Label23 
            BackStyle       =   0  'Transparent
            Caption         =   "互感器比例："
            Height          =   330
            Left            =   5700
            TabIndex        =   40
            Tag             =   "STRETCHH"
            Top             =   3150
            Width           =   1185
         End
         Begin VB.Label Label22 
            BackStyle       =   0  'Transparent
            Caption         =   "变压器型号："
            Height          =   210
            Left            =   5700
            TabIndex        =   39
            Tag             =   "STRETCHH"
            Top             =   2655
            Width           =   1185
         End
         Begin VB.Label Label21 
            BackStyle       =   0  'Transparent
            Caption         =   "变压器编号："
            Height          =   180
            Left            =   5700
            TabIndex        =   38
            Tag             =   "STRETCHH"
            Top             =   2040
            Width           =   1185
         End
         Begin VB.Label Label20 
            BackStyle       =   0  'Transparent
            Caption         =   "电能表常数："
            Height          =   165
            Left            =   5700
            TabIndex        =   37
            Tag             =   "STRETCHH"
            Top             =   1455
            Width           =   1185
         End
         Begin VB.Label Label19 
            BackStyle       =   0  'Transparent
            Caption         =   "电能表型号："
            Height          =   210
            Left            =   5700
            TabIndex        =   36
            Tag             =   "STRETCHH"
            Top             =   960
            Width           =   1185
         End
         Begin VB.Label Label18 
            BackStyle       =   0  'Transparent
            Caption         =   "电能表编号："
            Height          =   330
            Left            =   5700
            TabIndex        =   35
            Tag             =   "STRETCHH"
            Top             =   360
            Width           =   1185
         End
         Begin VB.Label Label17 
            BackStyle       =   0  'Transparent
            Caption         =   "用户台区："
            Height          =   330
            Left            =   360
            TabIndex        =   34
            Top             =   4245
            Width           =   960
         End
         Begin VB.Label Label16 
            BackStyle       =   0  'Transparent
            Caption         =   "用户线路："
            Height          =   300
            Left            =   5700
            TabIndex        =   33
            Tag             =   "STRETCHH"
            Top             =   3750
            Width           =   945
         End
         Begin VB.Label Label15 
            BackStyle       =   0  'Transparent
            Caption         =   "电价："
            Height          =   300
            Left            =   360
            TabIndex        =   32
            Top             =   3750
            Width           =   870
         End
         Begin VB.Label Label14 
            BackStyle       =   0  'Transparent
            Caption         =   "用户SIM号："
            Height          =   330
            Left            =   360
            TabIndex        =   31
            Top             =   3270
            Width           =   1275
         End
         Begin VB.Label Label13 
            BackStyle       =   0  'Transparent
            Caption         =   "用户密码："
            Height          =   345
            Left            =   360
            TabIndex        =   30
            Top             =   2760
            Width           =   960
         End
         Begin VB.Label Label12 
            BackStyle       =   0  'Transparent
            Caption         =   "联系手机："
            Height          =   240
            Left            =   360
            TabIndex        =   29
            Top             =   2250
            Width           =   975
         End
         Begin VB.Label Label11 
            BackStyle       =   0  'Transparent
            Caption         =   "联系电话："
            Height          =   240
            Left            =   360
            TabIndex        =   28
            Top             =   1650
            Width           =   960
         End
         Begin VB.Label Label10 
            BackStyle       =   0  'Transparent
            Caption         =   "用户名称："
            Height          =   330
            Left            =   360
            TabIndex        =   27
            Top             =   960
            Width           =   960
         End
         Begin VB.Label Label9 
            BackStyle       =   0  'Transparent
            Caption         =   "用户编号："
            Height          =   330
            Left            =   360
            TabIndex        =   26
            Top             =   360
            Width           =   960
         End
      End
      Begin VB.OptionButton Option1 
         Appearance      =   0  'Flat
         Caption         =   "客户编号"
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   3000
         TabIndex        =   4
         Top             =   240
         Width           =   1215
      End
      Begin VB.OptionButton Option2 
         Appearance      =   0  'Flat
         Caption         =   "SIM卡号"
         ForeColor       =   &H80000008&
         Height          =   375
         Left            =   4320
         TabIndex        =   3
         Top             =   240
         Width           =   975
      End
      Begin VB.TextBox txt_qurry 
         Appearance      =   0  'Flat
         Height          =   375
         Left            =   5760
         MaxLength       =   12
         TabIndex        =   1
         Top             =   240
         Width           =   2055
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "请输入要修改的客户信息："
         Height          =   375
         Left            =   720
         TabIndex        =   2
         Top             =   360
         Width           =   2295
      End
   End
End
Attribute VB_Name = "frm_updatauser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub txt_biaoconst_Change()
    Dim i As Integer
    Dim str As String
    If Trim(txt_biaoconst.Text) = "" Then Exit Sub
    For i = 1 To Len(Trim(txt_biaoconst.Text))
        If Asc(Mid(Trim(txt_biaoconst.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_biaoconst.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_biaoconst.Text), i, 1)
        End If
    Next i
    txt_biaoconst.Text = str
End Sub

Private Sub txt_biaohao_Change()
    Dim i As Integer
    Dim str As String
    If Trim(txt_biaohao.Text) = "" Then Exit Sub
    For i = 1 To Len(Trim(txt_biaohao.Text))
        If Asc(Mid(Trim(txt_biaohao.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_biaohao.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_biaohao.Text), i, 1)
        End If
    Next i
    txt_biaohao.Text = str
End Sub

Private Sub txt_biaosnumn_Change()
    Dim arr() As String
    Dim num As Long
    Dim num1 As Long
    Dim senddata(3) As Byte
    Dim str As String
    Dim tempstr As String
    Dim i As Integer
    If Trim(txt_biaosnumn.Text) = "" Then Exit Sub
    For i = 1 To Len(Trim(txt_biaosnumn.Text))
        If Asc(Mid(Trim(txt_biaosnumn.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_biaosnumn.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_biaosnumn.Text), i, 1)
        ElseIf Asc(Mid(Trim(txt_biaosnumn.Text), i, 1)) = 46 Then '小数点可以输入
            str = str & Mid(Trim(txt_biaosnumn.Text), i, 1)
        End If
    Next i
    arr = VBA.Split(Trim(txt_biaosnumn.Text), ".", -1, vbTextCompare)
    If UBound(arr) = 0 Then
        num = Trim(txt_biaosnumn.Text)
        num1 = 0
    ElseIf UBound(arr) = 1 Then
        If arr(0) = "" Then
            MsgBox "请在小数点前加0！"
            txt_biaosnumn.Text = ""
            Exit Sub
        End If
        num = arr(0)
        If arr(1) = "" Then
            num1 = 0
        Else
            num1 = arr(1)
        End If
    Else
        MsgBox "输入的数值不能含两个或两个以上的小数点"
        txt_biaosnumn.Text = ""
        Exit Sub
    End If
    If num >= 0 And num <= 99 Then
       senddata(0) = 0
       senddata(1) = 0
       senddata(2) = num
    ElseIf num >= 100 And num <= 9999 Then
       senddata(0) = 0
       tempstr = num
       str = Mid(tempstr, 1, 2)
       senddata(1) = str
       str = Mid(tempstr, 3)
       senddata(2) = str
    ElseIf num >= 10000 And num <= 999999 Then
       tempstr = num
       senddata(0) = Mid(tempstr, 1, 2)
       senddata(1) = Mid(tempstr, 3, 2)
       senddata(2) = Mid(tempstr, 5)
    Else
        MsgBox "只能输入0-999999.99间的数据，请更正您的输入"
        txt_biaosnumn.Text = ""
        Exit Sub
    End If
    If num1 < 0 Or num1 >= 100 Then
        MsgBox "最多输入2位小数请更正您的输入"
        txt_biaosnumn.Text = ""
        Exit Sub
    End If
    senddata(3) = num1
End Sub

Private Sub txt_biaosnumy_Change() '表记起始读数有功
    Dim arr() As String
    Dim num As Long
    Dim num1 As Long
    Dim senddata(3) As Byte
    Dim str As String
    Dim tempstr As String
    Dim i As Integer
    If Trim(txt_biaosnumy.Text) = "" Then Exit Sub
    For i = 1 To Len(Trim(txt_biaosnumy.Text))
        If Asc(Mid(Trim(txt_biaosnumy.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_biaosnumy.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_biaosnumy.Text), i, 1)
        ElseIf Asc(Mid(Trim(txt_biaosnumy.Text), i, 1)) = 46 Then '小数点可以输入
            str = str & Mid(Trim(txt_biaosnumy.Text), i, 1)
        End If
    Next i
    arr = VBA.Split(Trim(txt_biaosnumy.Text), ".", -1, vbTextCompare)
    If UBound(arr) = 0 Then
        num = Trim(txt_biaosnumy.Text)
        num1 = 0
    ElseIf UBound(arr) = 1 Then
        If arr(0) = "" Then
            MsgBox "请在小数点前加0！"
            txt_biaosnumy.Text = ""
            Exit Sub
        End If
        num = arr(0)
        If arr(1) = "" Then
            num1 = 0
        Else
            num1 = arr(1)
        End If
    Else
        MsgBox "输入的数值不能含两个或两个以上的小数点"
        txt_biaosnumy.Text = ""
        Exit Sub
    End If
    If num >= 0 And num <= 99 Then
       senddata(0) = 0
       senddata(1) = 0
       senddata(2) = num
    ElseIf num >= 100 And num <= 9999 Then
       senddata(0) = 0
       tempstr = num
       str = Mid(tempstr, 1, 2)
       senddata(1) = str
       str = Mid(tempstr, 3)
       senddata(2) = str
    ElseIf num >= 10000 And num <= 999999 Then
       tempstr = num
       senddata(0) = Mid(tempstr, 1, 2)