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