frm_updatauser.frm

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

       senddata(1) = Mid(tempstr, 3, 2)
       senddata(2) = Mid(tempstr, 5)
    Else
        MsgBox "只能输入0-999999.99间的数据，请更正您的输入"
        txt_biaosnumy.Text = ""
        Exit Sub
    End If
    If num1 < 0 Or num1 >= 100 Then
        MsgBox "最多输入2位小数请更正您的输入"
        txt_biaosnumy.Text = ""
        Exit Sub
    End If
    senddata(3) = num1
End Sub

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

Private Sub txt_hgqbili_Change()
     Dim i As Integer
      Dim str As String
      If Trim(txt_hgqbili.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_hgqbili.Text))
         If Asc(Mid(Trim(txt_hgqbili.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_hgqbili.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_hgqbili.Text), i, 1)
         End If
      Next i
      txt_hgqbili.Text = str
End Sub
Private Sub txt_line_Change()
      Dim i As Integer
      Dim str As String
      If Trim(txt_line.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_line.Text))
         If Asc(Mid(Trim(txt_line.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_line.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_line.Text), i, 1)
         End If
      Next i
      txt_line.Text = str
End Sub
Private Sub txt_mobile_Change() '客户联系手机最多11位数字
      Dim i As Integer
      Dim str As String
      If Trim(txt_mobile.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_mobile.Text))
         If Asc(Mid(Trim(txt_mobile.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_mobile.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_mobile.Text), i, 1)
         End If
      Next i
      txt_mobile.Text = str
End Sub
Private Sub txt_price_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_price.Text) = "" Then Exit Sub
    For i = 1 To Len(Trim(txt_price.Text))
        If Asc(Mid(Trim(txt_price.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_price.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_price.Text), i, 1)
        ElseIf Asc(Mid(Trim(txt_price.Text), i, 1)) = 46 Then '小数点可以输入
            str = str & Mid(Trim(txt_price.Text), i, 1)
        End If
    Next i
    txt_price.Text = str
    If Trim(txt_price.Text) = "" Then Exit Sub
    arr = VBA.Split(Trim(txt_price.Text), ".", -1, vbTextCompare)
    If UBound(arr) = 0 Then
        num = Trim(txt_price.Text)
        num1 = 0
    ElseIf UBound(arr) = 1 Then
        If arr(0) = "" Then
           num = 0
        Else
            num = arr(0)
        End If
      
        If arr(1) = "" Then
            num1 = 0
        Else
            num1 = arr(1)
        End If
    Else
        MsgBox "输入的数值不能含两个或两个以上的小数点"
        txt_price.Text = ""
        Exit Sub
    End If
    If num >= 0 And num <= 99 Then
        senddata(0) = num
    Else
        MsgBox "电价最多输入两位整数，请更正您的输入"
        txt_price.Text = ""
        Exit Sub
    End If
    If num1 >= 0 And num1 <= 99 Then
        senddata(1) = num1
        senddata(2) = 0
    ElseIf num1 >= 100 And num1 <= 9999 Then
        tempstr = num1
        str = Mid(tempstr, 1, 2)
        senddata(1) = str
        str = Mid(tempstr, 3)
        senddata(2) = str
    Else
        MsgBox "电价只能输入0.0001-99.9999之间的数据，请更正您的输入"
        txt_price.Text = ""
        Exit Sub
    End If
End Sub
Private Sub txt_pw_Change() '客户密码最多输入12位数字
    Dim i As Integer
      Dim str As String
      If Trim(txt_pw.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_pw.Text))
         If Asc(Mid(Trim(txt_pw.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_pw.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_pw.Text), i, 1)
         End If
      Next i
      txt_pw.Text = str
End Sub

Private Sub txt_sim_Change() '客户SIM卡号最多11位数字
      Dim i As Integer
      Dim str As String
      If Trim(txt_sim.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_sim.Text))
         If Asc(Mid(Trim(txt_sim.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_sim.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_sim.Text), i, 1)
         End If
      Next i
      txt_sim.Text = str
End Sub

Private Sub txt_taiqu_Change() '客户所属台区最多输入12位数字
      Dim i As Integer
      Dim str As String
      If Trim(txt_taiqu.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_taiqu.Text))
         If Asc(Mid(Trim(txt_taiqu.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_taiqu.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_taiqu.Text), i, 1)
         End If
      Next i
      txt_taiqu.Text = str
End Sub

Private Sub txt_tel_Change()
      Dim i As Integer
      Dim str As String
      If Trim(txt_tel.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_tel.Text))
         If Asc(Mid(Trim(txt_tel.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_tel.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_tel.Text), i, 1)
         End If
      Next i
      txt_tel.Text = str
End Sub
Private Sub Form_Load()
    frm_updatauser.xpcmdbutton1.Enabled = False
    frm_updatauser.txt_id.Text = ""
    frm_updatauser.txt_name.Text = ""
    frm_updatauser.txt_addr.Text = ""
    frm_updatauser.txt_tel.Text = ""
    frm_updatauser.txt_mobile.Text = ""
    frm_updatauser.txt_pw.Text = ""
    frm_updatauser.txt_biaohao.Text = ""
    frm_updatauser.txt_biaoconst.Text = ""
    frm_updatauser.txt_biaosnumy.Text = ""
    frm_updatauser.txt_biaosnumn.Text = ""
    frm_updatauser.txt_byqid.Text = ""
    frm_updatauser.txt_byqxinghao.Text = ""
    frm_updatauser.txt_hgqbili.Text = ""
    frm_updatauser.txt_sim.Text = ""
    frm_updatauser.txt_price.Text = ""
    frm_updatauser.txt_biaotime.Text = ""
    frm_updatauser.txt_usertime.Text = ""
    frm_updatauser.txt_usertime.Text = ""
    frm_updatauser.txt_line.Text = ""
    frm_updatauser.txt_taiqu.Text = ""
End Sub
Private Sub xpcmdbutton1_Click() '修改用户资料
     Dim strsql As String
     If Trim(txt_id.Text) = "" Then
       MsgBox ("用户编号不能为空!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    If Trim(txt_name.Text) = "" Then
       MsgBox ("用户姓名不能为空!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    If Trim(txt_name.Text) = "" Then
       MsgBox ("用户姓名不能为空!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    If Len(txt_pw.Text) < 12 Then
       MsgBox ("请输入12位数字的密码!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    If Len(txt_sim.Text) < 11 Then
       MsgBox ("请输入11位数字的SIM卡号!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    If Len(txt_biaohao.Text) < 12 Then
       MsgBox ("请输入12位数字的表号!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    If Trim(txt_hgqbili.Text) = "" Then
       MsgBox ("用户互感器比例不能为空!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
     If Trim(txt_price.Text) = "" Then
       MsgBox ("用户电价不能为空!"), vbOKOnly + vbInformation, "提示"
       Exit Sub
    End If
    
    strsql = "select * from userbasic where user_id='" & Trim(txt_id.Text) & "'" '找到原始记录
    openrs strsql
    rs.Delete '删除原始记录(后面要打开另外一个数据集所以将原记录删除）
    rs.UpdateBatch
    clors
    strsql = "select * from userbasic"
    openrs strsql
    Do Until rs.EOF '重复判断
        If rs.Fields("user_id").Value = txt_id.Text Then
            MsgBox ("已经存在该客户编号！"), vbOKOnly + vbCritical, "错误"
            clors
            Exit Sub
        End If
        If rs.Fields("user_sim").Value = txt_sim.Text Then
            MsgBox ("已经存在该SIM卡号！"), vbOKOnly + vbCritical, "错误"
            clors
            Exit Sub
        End If
        If rs.Fields("user_biaohao").Value = txt_biaohao.Text Then
            MsgBox ("已经存在该表号！"), vbOKOnly + vbCritical, "错误"
            clors
            Exit Sub
        End If
        rs.MoveNext
    Loop
    rs.AddNew '修改记录
    rs.Fields("user_id").Value = txt_id.Text '用户编号
    rs.Fields("user_name").Value = txt_name.Text '用户姓名
    rs.Fields("user_addr").Value = txt_addr.Text '用户地址
    rs.Fields("user_tel").Value = txt_tel.Text   '用户联系电话
    rs.Fields("user_mobile").Value = txt_mobile.Text '用户联系手机
    rs.Fields("user_dtupw").Value = txt_pw.Text  '终端密码
    rs.Fields("user_biaohao").Value = txt_biaohao.Text '电能表编号
    rs.Fields("user_biaoxinghao").Value = txt_biaoxinghao.Text '电能表型号
    rs.Fields("user_biaoconst").Value = txt_biaoconst.Text  '电能表常数
    rs.Fields("user_biaosnumy").Value = txt_biaosnumy.Text
    rs.Fields("user_biaosnumn").Value = txt_biaosnumn.Text
    rs.Fields("user_byqid").Value = txt_byqid.Text
    rs.Fields("user_byqxinghao").Value = txt_byqxinghao.Text
    rs.Fields("user_hgqbili").Value = txt_hgqbili.Text
    rs.Fields("user_sim").Value = txt_sim.Text
    rs.Fields("user_powerprice").Value = txt_price.Text
    rs.Fields("user_powernum").Value = 0
    rs.Fields("user_biaostime") = txt_biaotime.Text
    rs.Fields("user_regtime").Value = txt_usertime.Text
    rs.Fields("user_line").Value = txt_line.Text
    rs.Fields("user_taiqu").Value = txt_taiqu.Text
    rs.UpdateBatch
    clors
    '对购电记录，报警记录，采集记录作相应的修改////////////////////////////////////////////////////
    MsgBox ("您已经成功修改用户资料！"), vbOKOnly + vbInformation, "提示"
    Exit Sub

End Sub

Private Sub xpcmdbutton4_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_addr.Text = rs.Fields("user_addr").Value
    txt_tel.Text = rs.Fields("user_tel").Value
    txt_mobile.Text = rs.Fields("user_mobile").Value
    txt_pw.Text = rs.Fields("user_dtupw").Value
    txt_biaohao.Text = rs.Fields("user_biaohao").Value
    txt_biaoxinghao.Text = rs.Fields("user_biaoxinghao").Value
    txt_biaoconst.Text = rs.Fields("user_biaoconst").Value
    txt_biaosnumy.Text = rs.Fields("user_biaosnumy").Value
    txt_biaosnumn.Text = rs.Fields("user_biaosnumn").Value
    txt_byqid.Text = rs.Fields("user_byqid").Value
    txt_byqxinghao.Text = rs.Fields("user_byqxinghao").Value
    txt_hgqbili.Text = rs.Fields("user_hgqbili").Value
    txt_sim.Text = rs.Fields("user_sim").Value
    txt_price.Text = rs.Fields("user_powerprice").Value
'    txt = rs.Fields("user_powernum").Value
    txt_biaotime.Text = rs.Fields("user_biaostime")
    txt_usertime.Text = rs.Fields("user_regtime").Value
    txt_line.Text = rs.Fields("user_line").Value
    txt_taiqu.Text = rs.Fields("user_taiqu").Value
    xpcmdbutton1.Enabled = True '修改键可用
End Sub