frm_adduser.frm

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

        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)
       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_id_Change() '客户编号最多输入12位数字
      Dim i As Integer
      Dim str As String
      If Trim(txt_id.Text) = "" Then Exit Sub
      For i = 1 To Len(Trim(txt_id.Text))
         If Asc(Mid(Trim(txt_id.Text), i, 1)) >= 48 And Asc(Mid(Trim(txt_id.Text), i, 1)) <= 57 Then
            str = str & Mid(Trim(txt_id.Text), i, 1)
         End If
      Next i
      txt_id.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 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
    On Error GoTo errorhandle
    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
errorhandle:
    MsgBox ("数据填写格式错误"), vbOKOnly + vbCritical, "错误"
    Exit Sub
End Sub

Private Sub xpcmdbutton3_Click()
    Unload Me
    Set CurFrm = Nothing
End Sub

Private Sub xpcmdbutton31_Click()
    Unload Me
    Set CurFrm = Nothing
End Sub