formwxd.frm

一个客户信息管理系统

Private Sub cmdBC_Click()

'检查单号是否重号~~~~~~~~~~~~~~~~~~~
txtWXID.Text = Trim(txtWXID.Text)
Call OpenConn
   sql = "select wxid from wxb where wxid='" & Trim(txtWXID.Text) & "'"
   rs.Open sql, cn, 1, 1
   If rs.RecordCount > 0 Then
      MsgBox "该维修单号已经存在，请核查！", 48, "错误提示"
      txtWXID.Text = ""
      txtWXID.SetFocus
      Exit Sub
   End If
Call CloseConn



'非空校验~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If txtWXID.Text = "" Then
   MsgBox "维修单号不能为空！", 48, "错误提示"
   txtWXID.SetFocus
   Exit Sub
End If

If txtBXR.Text = "" Then
   MsgBox "报修人不能为空！", 48, "错误提示"
   txtBXR.SetFocus
   Exit Sub
End If

If txtBXRQ.Text = "" Then
   MsgBox "报修日期不能为空！", 48, "错误提示"
   txtBXRQ.SetFocus
   Exit Sub
End If

If txtDXRQ.Text = "" Then
   MsgBox "到修日期不能为空！", 48, "错误提示"
   txtDXRQ.SetFocus
   Exit Sub
End If

If txtWGRQ.Text = "" Then
   MsgBox "完工日期不能为空！", 48, "错误提示"
   txtWGRQ.SetFocus
   Exit Sub
End If

If Me.comFWLX.Text = "" Then
   MsgBox "服务类型不能为空！", 48, "错误提示"
   Me.comFWLX.SetFocus
   Exit Sub
End If

If Me.comFWFS.Text = "" Then
   MsgBox "服务方式不能为空！", 48, "错误提示"
   Me.comFWFS.SetFocus
   Exit Sub
End If

If Me.txtGZXX.Text = "" Then
   MsgBox "故障现象不能为空！", 48, "错误提示"
   Me.txtGZXX.SetFocus
   Exit Sub
End If

Call OpenConn
  sql = "select * from wxb"
  rs.Open sql, cn, 3, 3
  rs.AddNew
  rs.Fields("wxid") = txtWXID.Text
  rs.Fields("bxr") = txtBXR.Text
  rs.Fields("bxdh") = txtBXDH.Text
  rs.Fields("bxrq") = txtBXRQ.Text
  rs.Fields("dxrq") = txtDXRQ.Text
  rs.Fields("wgrq") = txtWGRQ.Text
  rs.Fields("fwlx") = comFWLX.Text
  rs.Fields("fwfs") = comFWFS.Text
  rs.Fields("gzjmc") = txtGZJMC.Text
  rs.Fields("gzjxh") = txtGZJXH.Text
  rs.Fields("ghjmc") = txtGHJMC.Text
  rs.Fields("ghjxh") = txtGHJXH.Text
  rs.Fields("gzxx") = txtGZXX.Text
  rs.Fields("jjff") = txtJJFF.Text
  rs.Fields("smfy") = txtSMFY.Text
  rs.Fields("wxfy") = txtWXFY.Text
  rs.Fields("clfy") = txtCLFY.Text
  rs.Fields("wxry") = txtWXRY.Text
  rs.Fields("fwpj") = comFWPJ.Text
  rs.Fields("wxbz") = txtWXBZ.Text
  rs.Fields("wyhid") = yhxhcd
  rs.Update
Call CloseConn
MsgBox "添加成功！", 64, "操作成功"
FormYHXX.Command2 = True
Unload Me
End Sub



Private Sub cmdDEL_Click()
If MsgBox("是否要删除该维修记录？", 48 + vbYesNo, "操作提示") = vbNo Then

  Exit Sub
End If
Call OpenConn
  sql = "select * from wxb where wxid='" & wxidcd & "'"
  rs.Open sql, cn, 3, 3
  rs.Delete
Call CloseConn
MsgBox "删除成功！", 64, "操作成功"
FormYHXX.Command2 = True
Unload Me
End Sub

Private Sub cmdEXIT_Click()
Unload Me
End Sub

Private Sub cmdXG_Click()
'校验数据~~~~~~~~~~~~~~~~~~~~~~~~~~
If txtBXR.Text = "" Then
   MsgBox "报修人不能为空！", 48, "错误提示"
   txtBXR.SetFocus
   Exit Sub
End If

If txtBXRQ.Text = "" Then
   MsgBox "报修日期不能为空！", 48, "错误提示"
   txtBXRQ.SetFocus
   Exit Sub
End If

If txtDXRQ.Text = "" Then
   MsgBox "到修日期不能为空！", 48, "错误提示"
   txtDXRQ.SetFocus
   Exit Sub
End If

If txtWGRQ.Text = "" Then
   MsgBox "完工日期不能为空！", 48, "错误提示"
   txtWGRQ.SetFocus
   Exit Sub
End If

If Me.comFWLX.Text = "" Then
   MsgBox "服务类型不能为空！", 48, "错误提示"
   Me.comFWLX.SetFocus
   Exit Sub
End If

If Me.comFWFS.Text = "" Then
   MsgBox "服务方式不能为空！", 48, "错误提示"
   Me.comFWFS.SetFocus
   Exit Sub
End If

If Me.txtGZXX.Text = "" Then
   MsgBox "故障现象不能为空！", 48, "错误提示"
   Me.txtGZXX.SetFocus
   Exit Sub
End If

'修改数据~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call OpenConn
  sql = "select * from wxb where wxid='" & wxidcd & "'"
  rs.Open sql, cn, 3, 3
  rs.Fields("bxr") = txtBXR.Text
  rs.Fields("bxdh") = txtBXDH.Text
  rs.Fields("bxrq") = txtBXRQ.Text
  rs.Fields("dxrq") = txtDXRQ.Text
  rs.Fields("wgrq") = txtWGRQ.Text
  rs.Fields("fwlx") = comFWLX.Text
  rs.Fields("fwfs") = comFWFS.Text
  rs.Fields("gzjmc") = txtGZJMC.Text
  rs.Fields("gzjxh") = txtGZJXH.Text
  rs.Fields("ghjmc") = txtGHJMC.Text
  rs.Fields("ghjxh") = txtGHJXH.Text
  rs.Fields("gzxx") = txtGZXX.Text
  rs.Fields("jjff") = txtJJFF.Text
  rs.Fields("smfy") = txtSMFY.Text
  rs.Fields("wxfy") = txtWXFY.Text
  rs.Fields("clfy") = txtCLFY.Text
  rs.Fields("wxry") = txtWXRY.Text
  rs.Fields("fwpj") = comFWPJ.Text
  rs.Fields("wxbz") = txtWXBZ.Text
  rs.Update
Call CloseConn
  MsgBox "修改成功！", 64, "操作成功"

  FormYHXX.Command2 = True
End Sub

Private Sub Form_Load()

Me.Icon = FormZY.Icon
Me.Caption = xtmc


If wxidcd = "" Then '判断来源~~~~~~~~~~
   comFWLX.AddItem "保修"
   comFWLX.AddItem "维修"
   
   comFWFS.AddItem "上门"
   comFWFS.AddItem "送修"
   
   comFWPJ.AddItem "很满意"
   comFWPJ.AddItem "满  意"
   comFWPJ.AddItem "不满意"
   cmdXG.Visible = False
   cmdDEL.Visible = False
   Exit Sub
End If

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cmdBC.Visible = False


  comFWLX.AddItem "保修"
   comFWLX.AddItem "维修"
   
   comFWFS.AddItem "上门"
   comFWFS.AddItem "送修"
   
   comFWPJ.AddItem "很满意"
   comFWPJ.AddItem "满  意"
   comFWPJ.AddItem "不满意"
   
   txtWXID.Enabled = False

If czyqx = "业务员" Then '判断权限~~~~~~~~~~~~~~~~~~~~~~~~
   cmdXG.Visible = False
   cmdDEL.Visible = False
End If

Call OpenConn
  sql = "select * from wxb where wxid='" & wxidcd & "'"
  rs.Open sql, cn, 1, 1
    txtWXID.Text = rs.Fields("wxid")
    txtBXR.Text = rs.Fields("bxr")
    txtBXDH.Text = rs.Fields("bxdh")
    txtBXRQ.Text = rs.Fields("bxrq")
    txtDXRQ.Text = rs.Fields("dxrq")
    txtWGRQ.Text = rs.Fields("wgrq")
    comFWLX.Text = rs.Fields("fwlx")
    comFWFS.Text = rs.Fields("fwfs")
    txtGZJMC.Text = rs.Fields("gzjmc")
    txtGZJXH.Text = rs.Fields("gzjxh")
    txtGHJMC.Text = rs.Fields("ghjmc")
    txtGHJXH.Text = rs.Fields("ghjxh")
    txtGZXX.Text = rs.Fields("gzxx")
    txtJJFF.Text = rs.Fields("jjff")
    txtSMFY.Text = rs.Fields("smfy")
    txtWXFY.Text = rs.Fields("wxfy")
    txtCLFY.Text = rs.Fields("clfy")
    txtWXRY.Text = rs.Fields("wxry")
    comFWPJ.Text = rs.Fields("fwpj")
    txtWXBZ.Text = rs.Fields("wxbz")
    
    '~~~~~~~~~~合计
    txtFYHJ.Text = Val(txtSMFY.Text) + Val(txtWXFY.Text) + Val(txtCLFY.Text)
    '~~~~~~~~~~~~~~~~~~
Call CloseConn
    


End Sub



Private Sub txtBXRQ_LostFocus()
'~~~~~~~~~~日期格式~~~~~~~~~~~~~~~~
If IsDate(txtBXRQ.Text) Then
  txtBXRQ = Format(txtBXRQ.Text, "yyyy-mm-dd")
Else
  txtBXRQ = ""
End If
End Sub





Private Sub txtCLFY_LostFocus()
'非数字校验~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If IsNumeric(txtCLFY) = False Then
   MsgBox "请输入数字！", 48, "错误提示"
   txtCLFY.Text = 0
   
End If
   txtFYHJ.Text = Val(txtSMFY.Text) + Val(txtWXFY.Text) + Val(txtCLFY.Text)
End Sub

Private Sub txtDXRQ_LostFocus()
'~~~~~~~~~~日期格式~~~~~~~~~~~~~~~~
If IsDate(txtDXRQ.Text) Then
  txtDXRQ = Format(txtDXRQ.Text, "yyyy-mm-dd")
Else
  txtDXRQ = ""
End If
End Sub



Private Sub txtSMFY_LostFocus()
'非数字校验~~~~~~~~~~~~~~~~~~
If IsNumeric(txtSMFY) = False Then
   MsgBox "请输入数字！", 48, "错误提示"
   txtSMFY.Text = 0
   
End If
   txtFYHJ.Text = Val(txtSMFY.Text) + Val(txtWXFY.Text) + Val(txtCLFY.Text)
End Sub

Private Sub txtWGRQ_LostFocus()
'~~~~~~~~~~日期格式~~~~~~~~~~~~~~~~
If IsDate(txtWGRQ.Text) Then
  txtWGRQ = Format(txtWGRQ.Text, "yyyy-mm-dd")
Else
  txtWGRQ = ""
End If
End Sub



Private Sub txtWXFY_LostFocus()
'非数字校验~~~~~~~~~~~~~~~~~~~~~~~~~~
If IsNumeric(txtWXFY) = False Then
   MsgBox "请输入数字！", 48, "错误提示"
   txtWXFY.Text = 0
End If
   txtFYHJ.Text = Val(txtSMFY.Text) + Val(txtWXFY.Text) + Val(txtCLFY.Text)
End Sub