销售管理系统
一.项目简介
随着计算机技术的迅猛发展，存在于网络的企业销售管理系统将逐步代替传统的管理模式进入企业。为了更高效得完成销售方面的工作，也可以有更多的时间处理更多的别的事务，企业也将摆脱原有的管理形势完全进入信息化管理。销售管理系统在企业的管理过程中起着巨大的作用
二.功能需求
一个销售管理系统，设计者的目标是满足公司运营和日常管理的需要，具有对产品，客户管理的功能。客户登录销售管理系统进行售后服务查询，销售员可以对销售的产品进行登记，并将销售情况反馈给数据库。为管理的方便性和信息传递的快速性提供了一个很好的平台。系统开发的总体任务是实现售后服务及销售登记自动化。总之，销售管理系统要实现登陆验证、商品销售管理、商品销售报表管理、客户信息管理四大部分。 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.客户信息表
字段khidkhnamegyshjchzhgzhugteladrkhtelfaxbzh数据类型IntVarCharVarCharVarCharnCharVarCharncharVarChartext是否是主键是否否否否否否否否是否为空否否否是是是否是是说明客户编号客户名称客户简称采购主管采购主管联系方式客户地址客户电话传真备注
2.商品进货表
字段数据类型intVarCharCharCharCharnumericnumericint是否是主键是否否否否否否否是否为空说明进货编号商品名称商品名称首拼大单位小单位进货成本jhbhshpmchshpshpddwxdwjhchbxshjgjhshulgyshjhrqbzh否否否否是否否否销售价格进货数量供应商进货日期备注VarCharsmalldatetimeVarChar否否否是否是 3.商品销售表
字段xshbhshpmchshpshpxshjgxshshlxshryxshrqkhbzh数据类型IntVarCharVarCharNumericIntVarCharSmalldatetimeVarChartext是否是主键是否否否否否否否否是否为空否否否是是是否是是说明销售编号商品名称商品名称首拼销售价格销售数量销售人员销售日期客户简称备注
六.运行界面与代码
1.登陆窗口
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub CmdOk_Click() If UserName.Text \"\" And PaWord.Text \"\" Then Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" rs.Open \"select * from usermanage where username=\'\" & UserName.Text & \"\'\", conn, 1, 1 If Not rs.EOF Then If rs(\"paword\") = PaWord.Text Then Main.Show Unload Me Else MsgBox \"非法登录，密码错误！\", vbOKOnly, \"警告\" End If Else MsgBox \"非法登录，找不到该用户！\", vbOKOnly, \"警告\" End If Else MsgBox \"用户名或密码不能为空！\", vbOKOnly, \"提示\" End If End Sub
Private Sub PaWord_KeyPre(KeyAscii As Integer) If KeyAscii = 13 Then Call CmdOk_Click End If End Sub
Private Sub UserName_KeyPre(KeyAscii As Integer) If KeyAscii = 13 Then Call CmdOk_Click End If End Sub
`2.主界面
Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 GoodsIn.Show Me.Enabled = False Case 1 Saler.Show Me.Enabled = False Case 2 SaleData.Show Me.Enabled = False Case 3 SaleTotal.Show Me.Enabled = False Case 4 UserM.Show Me.Enabled = False End Select End Sub
`进货管理
Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 \'第一条
Adodc1.Recordset.MoveFirst
Case 1 \'上一条
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious End If
Case 2 \'下一条
If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext End If
Case 3 \'最尾条
Adodc1.Recordset.MoveLast
Case 4 \'添加
Adodc1.Recordset.AddNew For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = True
Case 5 \'修改 For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = True
Case 6 \'保存 Adodc1.Recordset.Update For i = 0 To 7 GoodText(i).Enabled = False Next MsgBox \"更新记录成功!\", vbOKOnly, \"提示\" Cmd(6).Enabled = False
Case 6 \'删除
If MsgBox(\"确定删除当前记录,数据将不可恢复?\", vbOKCancel, \"提示\") = vbOK Then Adodc1.Recordset.Delete End If End Select End Sub
Private Sub Form_Load() Adodc1.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" Adodc1.RecordSource = \"select * from save\" For i = 0 To 6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = Adodc1.Recordset.Fields(i).Name Next Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 End Sub
Private Sub Form_Unload(Cancel As Integer) Main.Enabled = True End Sub
`销售管理
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public id As String Public action As String Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 \'第一条
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If
Case 1 \'上一条
If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious End If
Case 2 \'下一条
If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext End If
Case 3 \'最尾条
If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If
Case 4 \'添加 action = \"add\" ManageSale.Show Me.Enabled = False
Case 5 \'修改 action = \"modify\" id = Adodc1.Recordset.Fields(\"id\") ManageSale.Show Me.Enabled = False
Case 7 \'删除
If MsgBox(\"确定删除当前记录,数据将不可恢复?\", vbOKCancel, \"提示\") = vbOK Then Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" rs.Open \"select goodcount from save where goodnum=\'\" & GoodText(0).Text & \"\'\", conn, 1, 3 rs(\"goodcount\") = rs(\"goodcount\") + GoodText(5).Text rs.Update rs.Close Adodc1.Recordset.Delete End If End Select End Sub
Private Sub Form_Load() Adodc1.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" Adodc1.RecordSource = \"select * from sale order by id\" For i = 0 To 6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = Adodc1.Recordset.Fields(i + 1).Name Next Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub
Private Sub Form_Unload(Cancel As Integer) Main.Enabled = True End Sub
添加修改销售记录
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public salecount As Long
Private Sub Combo1_Change() End Sub
Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" If GoodText(0) = \"\" Or GoodText(3) = \"\" Or GoodText(4) = \"\" Then MsgBox \"数据没有输入完整,请重新输入!\", vbOKOnly, \"提示\" Exit Sub End If
If SaleData.action = \"add\" Then rs.Open \"select * from sale\", conn, 1, 3 rs.AddNew Else rs.Open \"select * from sale where id=\" & SaleData.id, conn, 1, 3 End If rs(\"Goodnum\") = GNum.Text rs(\"goodname\") = GoodText(1).Text rs(\"danwei\") = GoodText(2).Text rs(\"outdate\") = GoodText(3).Text rs(\"danjia\") = GoodText(4).Text rs(\"outcount\") = GoodText(0).Text rs(\"salename\") = SaleName.Text rs.Update rs.Close
rs.Open \"select * from save where goodnum=\'\" & GNum.Text & \"\'\", conn, 1, 3 \'在库存表中将库存数量减去已售出的数量 If SaleData.action = \"add\" Then rs(\"goodcount\") = rs(\"goodcount\")(GoodText(0).Text - salecount) End If rs.Update rs.Close MsgBox \"数据更新成功!\", vbOKOnly, \"提示\" SaleData.Adodc1.Refresh Unload Me Case 1 Unload Me
End Select End Sub
Private Sub Form_Load() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" Dim saleman As String
If SaleData.action = \"add\" Then rs.Open \"select goodnum from save order by goodnum\", conn, 1, 1 Do While Not rs.EOF GNum.AddItem rs(0) rs.MoveNext Loop GNum.Text = GNum.List(0) Else rs.Open \"select * from sale where id=\" & SaleData.id, conn, 1, 1 GNum.AddItem rs(\"goodnum\") GoodText(1).Text = rs(\"goodname\") GoodText(2).Text = 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 = False rs.Close rs.Open \"select * from save where goodnum=\'\" & GNum.Text & \"\'\", conn, 1, 1 SaleNum.Max = GoodText(0).Text + rs(\"goodcount\") salecount = GoodText(0).Text End If rs.Close rs.Open \"select salename from saler order by id\", conn, 1, 1 Do While Not rs.EOF SaleName.AddItem rs(0) rs.MoveNext Loop If SaleData.action = \"add\" Then SaleName.Text = SaleName.List(0) Else SaleName.Text = saleman Cmd(0).Caption = \"保存修改\" End If rs.Close End Sub
Private Sub Form_Unload(Cancel As Integer) SaleData.Enabled = True End Sub
Private Sub GNum_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & App.Path & \"\\人事.mdb;Persist Security Info=False\" rs.Open \"select * from save where goodnum=\'\" & GNum.Text & \"\'\", conn, 1, 1 If Not rs.EOF Then GoodText(1).Text = rs(\"goodname\") GoodText(2).Text = rs(\"danwei\") SaleNum.Max = rs(\"goodcount\") End If End Sub
