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