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

1、销售管理系 统一. 项目简介 随着计算机技术的迅猛发展，存在于网络的企业销售管理系统将逐步代替 传统的管理模式进入企业。为了更高效得完成销售方面的工作，也可以有 更多的时间处理更多的别的事务，企业也将摆脱原有的管理形势完全进入 信息化管理。销售管理系统在企业的管理过程中起着巨大的作用二. 功能需求一个销售管理系统，设计者的目标是满足公司运营和日常管理的需要，具 有对产品，客户管理的功能。客户登录销售管理系统进行售后服务查询， 销售员可以对销售的产品进行登记，并将销售情况反馈给数据库。为管理 的方便性和信息传递的快速性提供了一个很好的平台。系统开发的总体任 务是实现售后服务与销售登记自动化。总之

2、，销售管理系统要实现登陆验 证、商品销售管理、商品销售报表管理、客户信息管理四大部分。1. 客户对功能的需求1> 查看自己的信息，了解自己近期的购买情况。2> 查看产品的信息，熟悉产品情况。2> 查看售后服务信息。2. 销售人员对功能的需求1> 查看自己的信息，了解自己近期的销售情况。2> 查看产品的信息，熟悉产品情况。3> 登记销售产品。4> 添加新产品，并填写产品相关信息。3. 售后服务人员对功能的需求1查看售后服务信息。2添加售后服务信息。三. 分析模型时序图销售管理系统顶层图客户销售管理系统戈门诰裁世后皿务钳隹单销售部门 卜人员、经 一梢舊统讣

3、推表T理譽人1.客户管理第三层DFD图客户管理子系统2.销售管理第三层DFD图销售管理子系统J_4i 制 售单. *一 1一销售人 员.一销腎息 一一査员忖 * 人<彷in酋岀们 息产k信思客户信息销仙Ti息3.售后服务管理第三层DFD图售后服务管理子系统绞il分 .析售后脱务扎飒信息叮”亠、工f务人员軽录信息,登记告后 服务信息:雾it务心思务人员普际厲务人员信息有效L>' "F'"' * " T厂严空孑t服务管理）二tt匚匚!系纯丿、4. 客户登录动态时序图为/、1: btnLcgnWebBusiness Rule.Lo 盘

4、 inForm二屮讐口 B3: Login(fttnng, string)4 /? ERi#行加笼c(<Login(stnng,费nng7礎回旨录咸功0 F j 专*9 "宜示汰迎11息C" - - -四模块活动图，登录流程图1.注册、登陆模块1模块功能描述该模块主要实现对用户能否进入系统的确认以与对进入系统的用户权限的设定；因为本系统涉与到三类使用者，不可能每一类用户都具有相同的 操作权限，如前所说，必然会早成系统的混乱和崩溃，严重影响其安全性 和有效性。所以采取在通常的注册，登录模式下加上用户类型的选择，非 常简洁地就完成了对用户类型的区别与权限的划分。2在模块的

5、详细设计后，便能得出实现该部分的具体流程，如图用户注册模块程序流程图登录模块程序流程图活动图为：2.客户管理模块1模块功能描述显示客户的基本信息。 库户可以查看自己的等级和交易次数。3-8。2在模块的详细设计后，便能得出实现该部分的具体流程，如图客户管理模块流程图活动图为:L O3.销售管理模块1模块功能描述在这个模块可以登记销售记录。并且在提交记录时，更新数据库：(1)更新客户信息。如果是“老客户”系统会按照客户等级给出对应的优惠 价。(2)更新产品信息。主要是更新该产品数量。2在模块的详细设计后，便能得出实现该部分的具体流程，如图销售管理模块流程图活动图为销售人员登 录系统*选摄查看商 品

6、销售记录'输入日期-五.数据库设计1. 客户信息表字段数据类型是否是主键是否为空说明khidInt是否客户编号khn ameVarChar否否客户名称gyshjchVarChar否否客户简称zhgVarChar否是采购主管zhugteln Char否是采购主管 联系方式adrVarChar否是客户地址khteln char否否客户电话faxVarChar否是传真bzhtext否是备注2. 商品进货表字段数据类型是否是主键是否为空说明jhbhint是否进货编号shpmchVarChar否否商品名称shpshpChar否否商品名称首拼ddwChar否否大单位xdwChar否是小单位jhch

7、bnumeric否否进货成本xshjgnumeric否否销售价格jhshulint否否进货数量gyshVarChar否是供应商jhrqsmalldatetime否否进货日期bzhVarChar否是备注3. 商品销售表字段数据类型是否是主键是否为空说明xshbhInt是否销售编号shpmchVarChar否否商品名称shpshpVarChar否否商品名称首拼xshjgNumeric否是销售价格xshshlInt否是销售数量xshryVarChar否是销售人员xshrqSmalldatetime否否销售日期khVarChar否是客户简称bzhtext否是备注六.运行界面与代码1.登陆窗口Dim c

8、onn As ADODB.Co nn ectio nDim rs As ADODB.RecordsetPrivate Sub CmdOk_Click()If UserName.Text <> "" And PassWord.Text <> "" The nSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordset人事 .mdb;Persist Security Info=False"rs.Open "select * from usermanage w

9、here username='" &UserName.Text & "'", conn, 1, 1If Not rs.EOF ThenIf rs("password") = PassWord.Text ThenMain.ShowUnload MeElseMsgBox " 非法登录，密码错误！ ", vbOKOnly, " 警告 "End IfElseMsgBox " 非法登录，找不到该用户！ ", vbOKOnly, " 警告 "En

10、d IfElseMsgBox " 用户名或密码不能为空！ ", vbOKOnly, " 提示 "End IfEnd SubPrivate Sub PassWord_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall CmdOk_ClickEnd IfEnd SubPrivate Sub UserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall CmdOk_ClickEnd IfEnd Sub'2.主界面Private S

11、ub Cmd_Click(Index As Integer)Select Case IndexCase 0GoodsIn.ShowMe.Enabled = FalseCase 1Saler.ShowMe.Enabled = FalseCase 2SaleData.ShowMe.Enabled = FalseCase 3SaleTotal.ShowMe.Enabled = FalseCase 4UserM.ShowMe.Enabled = FalseEnd SelectEnd Sub'进货管理Private Sub Cmd_Click(Index As Integer)Select Ca

12、se IndexCase 0 ' 第一条Case 1 ' 上一条End IfCase 2 ' 下一条End IfCase 3 ' 最尾条Case 4 ' 添加For i = 0 To 7GoodText(i).Enabled = TrueNextCmd(6).Enabled = TrueCase 5 ' 修改For i = 0 To 7GoodText(i).Enabled = TrueNextCmd(6).Enabled = TrueCase 6 ' 保存For i = 0 To 7GoodText(i).Enabled = False

13、NextMsgBox " 更新记录成功 !", vbOKOnly, " 提示 "Cmd(6).Enabled = FalseCase 6 ' 删除If MsgBox(" 确定删除当前记录 ,数据将不可恢复 ?", vbOKCancel, 提示") = vbOK ThenEnd IfEnd SelectEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString人事.mdb;Persist Security In fo二False"Adodc1.RecordSou

14、rce = "select * from save"For i = 0 To 6Set GoodText(i).DataSource = Adodc1NextAdodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Form_Unload(Cancel As Integer)Main.Enabled = TrueEnd Sub'销售管理Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic id As StringPublic a

15、ction As StringPrivate Sub Cmd_Click(Index As Integer)Select Case IndexCase 0 ' 第一条End IfCase 1 ' 上一条End IfCase 2 ' 下一条End IfCase 3 ' 最尾条End IfCase 4 ' 添加action = "add"ManageSale.ShowMe.Enabled = FalseCase 5 ' 修改action = "modify"id = ManageSale.ShowMe.Enab

16、led = FalseCase 7 ' 删除If MsgBox(" 确定删除当前记录 ,数据将不可恢复 ?", vbOKCancel, 提示") = vbOK ThenSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordset人事 .mdb;Persist Security Info=False"rs.Open "select goodcount from save where goodnum='"& GoodText(0).Text & &q

17、uot;'", conn, 1, 3rs("goodcount") = rs("goodcount") + GoodText(5).Text rs.Updaters.CloseEnd IfEnd SelectEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString人事.mdb;Persist Security In fo二False"Adodc1.RecordSource = "select * from sale order by id"For i = 0

18、 To 6Set GoodText(i).DataSource = Adodc11).NameNextAdodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Form_Unload(Cancel As Integer)Main.Enabled = TrueEnd Sub添加修改销售记录Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic salecount As LongPrivate Sub Combo1_Change()End SubPrivate

19、Sub Cmd_Click(Index As Integer)Select Case IndexCase 0Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset人事 .mdb;Persist Security Info=False"If GoodText(0) = "" Or GoodText(3) = "" Or GoodText(4) = ""23 / 28ThenMsgBox " 数据没有输入完整 ,请重新输入 !", vbOKOnl

20、y, " 提示Exit SubEnd IfIf SaleData.action = "add" Thenrs.Open "select * from sale", conn, 1, 3 rs.AddNewElsers.Open "select * from sale where id=" & SaleData.id, conn, 1, 3End Ifrs("Goodnum") = GNum.Text rs("goodname") = GoodText(1).Text rs(&q

21、uot;danwei") = GoodText(2).Text rs("outdate") = GoodText(3).Text rs("danjia") = GoodText(4).Text rs("outcount") = GoodText(0).Text rs("salename") = SaleName.Text rs.Updaters.Closers.Open "select * from save where goodnum='" & GNum.Text&a

22、mp; "'", conn, 1, 3 ' 在库存表中将库存数量减去已售出的数量If SaleData.action = "add" Thenrs("goodcount") = rs("goodcount") - GoodText(0).TextElsers("goodcount") = rs("goodcount") - (GoodText(0).Text - salecount)End Ifrs.Updaters.CloseMsgBox " 数据

23、更新成功 !", vbOKOnly, " 提示 "Unload MeCase 1Unload MeEnd SelectEnd SubPrivate Sub Form_Load()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset& 人事 .mdb;Persist Security Info=False"Dim saleman As StringIf SaleData.action = "add" Thenrs.Open "select goodnum

24、 from save order by goodnum", conn, 1, 1Do While Not rs.EOFGNum.AddItem rs(0)rs.MoveNextLoopGNum.Text = GNum.List(0)Elsers.Open "select * from sale where id=" & SaleData.id, conn, 1,1GNum.AddItem rs("goodnum")GoodText(1).Text = rs("goodname")GoodText(2).Text =

25、rs("danwei")GoodText(3).Text = rs("outdate")GoodText(4).Text = rs("danjia")GoodText(0).Text = rs("outcount")saleman = rs("salename")GNum.Text = GNum.List(0)GNum.Enabled = Falsers.Closers.Open "select * from save where goodnum='" & GNum.Text & "'", conn, 1, 1SaleNum.