软件工程-课程设计-销售管理系统VIP免费

销售管理系统一.项目简介随着计算机技术的迅猛发展，存在于网络的企业销售管理系统将逐步代替传统的管理模式进入企业。为了更高效得完成销售方面的工作，也可以有更多的时间处理更多的别的事务，企业也将摆脱原有的管理形势完全进入信息化管理。销售管理系统在企业的管理过程中起着巨大的作用二。功能需求一个销售管理系统，设计者的目标是满足公司运营和日常管理的需要，具有对产品,客户管理的功能。客户登录销售管理系统进行售后服务查询,销售员可以对销售的产品进行登记,并将销售情况反馈给数据库。为管理的方便性和信息传递的快速性提供了一个很好的平台。系统开发的总体任务是实现售后服务及销售登记自动化。总之，销售管理系统要实现登陆验证、商品销售管理、商品销售报表管理、客户信息管理四大部分.1.客户对功能的需求1〉查看自己的信息,了解自己近期的购买情况。2>查看产品的信息,熟悉产品情况。2>查看售后服务信息.2。销售人员对功能的需求1〉查看自己的信息，了解自己近期的销售情况。2〉查看产品的信息，熟悉产品情况.3〉登记销售产品。4〉添加新产品，并填写产品相关信息。3.售后服务人员对功能的需求1>查看售后服务信息。2〉添加售后服务信息。三.分析模型时序图销售管理系统顶层图1.客户管理第三层DFD图客户管理子系统2.销售管理第三层DFD图销售管理子系统3.售后服务管理第三层DFD图售后服务管理子系统4.客户登录动态时序图为四。模块活动图，登录流程图1。注册、登陆模块1〉模块功能描述该模块主要实现对用户能否进入系统的确认以及对进入系统的用户权限的设定；因为本系统涉及到三类使用者，不可能每一类用户都具有相同的操作权限，如前所说,必然会早成系统的混乱和崩溃，严重影响其安全性和有效性。所以采取在通常的注册,登录模式下加上用户类型的选择，非常简洁地就完成了对用户类型的区别及权限的划分。2>在模块的详细设计后，便能得出实现该部分的具体流程，如图用户注册模块程序流程图登录模块程序流程图活动图为：2。客户管理模块1〉模块功能描述显示客户的基本信息。库户可以查看自己的等级和交易次数。2>在模块的详细设计后,便能得出实现该部分的具体流程，如图3-8。客户管理模块流程图活动图为：3.销售管理模块1>模块功能描述在这个模块可以登记销售记录。并且在提交记录时,更新数据库：(1)更新客户信息。如果是“老客户”系统会按照客户等级给出对应的优惠价。(2）更新产品信息。主要是更新该产品数量.2>在模块的详细设计后，便能得出实现该部分的具体流程，如图销售管理模块流程图活动图为五.数据库设计1.客户信息表2。商品进货表3.商品销售表六。运行界面与代码1。登陆窗口DimconnAsADODB。ConnectionDimrsAsADODB.RecordsetPrivateSubCmdOk_Click(）IfUserName。Text〈〉""AndPassWord。Text<>"”ThenSetconn=NewADODB.ConnectionSetrs=NewADODB。Recordsetconn。Open”Provider=Microsoft.Jet。OLEDB.4.0；DataSource="&App.Path＆"\人事.mdb;PersistSecurityInfo=False"rs。Open"select*fromusermanagewhereusername='”＆UserName。Text&"’”，conn,1，1IfNotrs.EOFThenIfrs（”password”）=PassWord。TextThenMain.ShowUnloadMeElseMsgBox”非法登录，密码错误！",vbOKOnly，"警告”EndIfElseMsgBox"非法登录，找不到该用户！”，vbOKOnly，"警告”EndIfElseMsgBox”用户名或密码不能为空!"，vbOKOnly，”提示”EndIfEndSubPrivateSubPassWord_KeyPress（KeyAsciiAsInteger）IfKeyAscii=13ThenCallCmdOk_ClickEndIfEndSubPrivateSubUserName_KeyPress（KeyAsciiAsInteger)IfKeyAscii=13ThenCallCmdOk_ClickEndIfEndSub`2.主界面PrivateSubCmd_Click(IndexAsInteger）SelectCaseIndexCase0GoodsIn.ShowMe.Enabled=FalseCase1Saler.ShowMe.Enabled=FalseCase2SaleData.ShowMe。Enabled=FalseCase3SaleTotal。ShowMe。Enabled=FalseCase4UserM。ShowMe。Enabled=FalseEndSelectEndSub`进货管理PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0’第一条Adodc1.Recordset。MoveFirstCase1’上一条IfNotAdodc1。Recordset.BOFThenAdodc1。R...