PB商城企业的销售管理系统

在线咨询详情

 (4).修改记录功能代码
事件 脚本
 Private Sub 修改记录_Click()
    If MsgBox("本操作将修改编码为<" & 供货商编码.Value & ">的供货商信息记录！" _
        & vbCrLf & "是否要修改？", _
        vbQuestion + vbYesNo + vbDefaultButton2, "修改记录") = vbNo Then Exit Sub
    '修改更新记录
    Set rs1 = rs("update 供货商信息 set " _
        & "供货商名称='" & 供货商名称.Value & "'," _
        & "通讯地址='" & 通讯地址.Value & "'," _
        & "邮政编码='" & 邮政编码.Value & "'," _
        & "联系电话='" & 联系电话.Value & "'," _
        & "传真号码='" & 传真号码.Value & "'," _
        & "联系人='" & 联系人.Value & "'," _
        & "联系人电话='" & 联系人电话.Value & "'," _
        & "联系人Email='" & 联系人Email.Value & "'," _
        & "备注='" & 备注.Value & "' " _
        & "where 供货商编码='" & 供货商编码.Value & "'")
      MsgBox "已经成功将编码为<" & 供货商编码.Value _
        & ">的供货商信息记录进行修改！", vbInformation, "修改记录"
    '刷新查询和显示
    Call 查询供货商信息
    Call 显示供货商信息
    Call myListView
End Sub
运行结果
经过测试，销售管理系统基本运行正常，达到了预期的目标，能够实现相应的功能，可实际投入使用。不过，这个系统的开发只是实现其中的一部分，还有很多方面需要进一步完善。
 

以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
     购买帮助>>