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

页脚内 职业生涯规划书一.项目简介企业也将摆脱原有的管理形势完全进入信息化管理。销售管理系统在企业的管理过程中起着巨大的作用二.功能需求陆验证、商品销售管理、商品销售报表管理、客户信息管理四大部分。1>查看自己的信息，了解自己近期的购买情况。息。1>查看自己的信息，了解自己近期的销售情况。4>添加新产品，并填写产品相关信息。2>添加售后服务信息。三.分析模型时序图销售管理系统顶层图页脚内职业生涯规划职业生涯规划书职业生涯规划职业生涯规划书2.销售管理3.售后服务管理职业生涯规划职业生涯规划书页脚内4.客户登录动态时序图为页脚内 职业生涯规划书四.模块活动图，登录流程图1>模块功能描述用户类型的选择，非常简洁地就完成了对用户类型的区别及权限的划分。2>在模块的详细设计后，便能得出实现该部分的具体流程，如图页脚内职业生涯规划职业生涯规划书用户注册模块程序流程图职业生涯规划职业生涯规划书登录模块程序流程图页脚内职业生涯规划职业生涯规划书页脚内职业生涯规划书2.客户管理模块1>模块功能描述2>在模块的详细设计后，便能得出实现该部分的具体流程，如图3-8。客户管理模块流程图页脚内职业生涯规划职业生涯规划书页脚内职业生涯规划书3.销售管理模块1>模块功能描述在这个模块可以登记销售记录。并且在提交记录时，更新数据库：(1)更新客户信息。如果是“老客户”系统会按照客户等级给出对应的优惠价。该产品数量。2>在模块的详细设计后，便能得出实现该部分的具体流程，如图销售管理模块流程图活动图为页脚内职业生涯规划职业生涯规划书五.数据库设计1.客户信息表页脚内 职业生涯规划书是是否是主键是否否否否否否否否数据类型VarCharVarCharVarCharnCharVarCharncharVarChartext说明客户编号客户名称客户简称采购主管采购主管联系方式客户地址客户电话传真备注字段khidkhnamegyshjchzhugteladrkhtelaxbzh否否否是是是否是是是否为空2.商品进货表harharhar是否否否否否否否否否否否否否否是否否否是否是页脚内职业生涯规划书3.商品销售表是是否是主键是否否否否否否否否数据类型VarCharVarCharNumericVarCharSmalldatetVarChartext说明销售编号商品名称商品名称首拼销售价格销售数量销售人员销售日期客户简称备注字段xshbhshpmchshpshpxshjgxshshlxshryxshrqkhbzh是是是否是是是否为空否否否六.运行界面与代码1.登陆窗口DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPrivateSubCmdOk_Click()IfUserName.Text<>""AndPassWord.Text<>""ThenSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordset页脚内 职业生涯规划书conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"rs.Open"select*fromusermanagewhereusername='"& 职业生涯规划书`2.主界面PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0GoodsInShowMe.Enabled=FalseCase1owMe.Enabled=FalseCase2ataShowMe.Enabled=FalseCase3TotalShowMe.Enabled=FalseCase4UserM.ShowMe.Enabled=FalsedSelectndSub`进货管理PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndex页脚内 职业生涯规划书Adodc1.Recordset.MoveFirstRecordsetBOFThenAdodc1.Recordset.MovePreviousEndIfCase一条RecordsetEOFThenAdodc1.Recordset.MoveNextEndIfAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewFori=0To7GoodText(i).Enabled=TrueextCmd(6).Enabled=TrueFori=0To7GoodText(i).Enabled=TrueextCmd(6).Enabled=True页脚内 职业生涯规划书Adodc1.Recordset.UpdateFori=0To7GoodText(i).Enabled=FalseextMsgBox录成功!",vbOKOnly,"提示"Cmd(6).Enabled=FalseIfMsgBox("确定删除当前记录,数据将不可恢复?",vbOKCancel,"提示")=vbOKThenAdodc1.Recordset.DeleteEndIfEndSelectEndSubPrivateSubForm_Load()Source="&App.Path&"\人事.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromsave"Fori=0To6SetGoodText(i).DataSource=Adodc1GoodText(i).DataField=Adodc1.Recordset.Fields(i).NameNextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=True页脚内 职业生涯规划书ndSubDimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPublicidAsStringPublicactionAsStringPrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexRecordsetBOFThenAdodc1.Recordset.MoveFirstEndIfRecordsetBOFThenAdodc1.Recordset.MovePreviousEndIfCase一条RecordsetEOFThenAdodc1.Recordset.MoveNextEndIfRecordsetEOFThenAdodc1.Recordset.MoveLastEndIf页脚内 职业生涯规划书actionadd"ManageSale.ShowMe.Enabled=FalseactionmodifyordsetFieldsidManageSale.ShowMe.Enabled=FalseIfMsgBox("确定删除当前记录,数据将不可恢复?",vbOKCancel,"提示")=vbOKThenSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"rs.Open"selectgoodcountfromsavewheregoodnum='"& 职业生涯规划书Source="&App.Path&"\人事.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromsaleorderbyid"Fori=0To6SetGoodText(i).DataSource=Adodc1GoodText(i).DataField=Adodc1.Recordset.Fields(i+1).NameextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1ndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TruendSubCase0页脚内 职业生涯规划书Setrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"MsgBox新输入!",vbOKOnly,"提示"ExitSubEndIfIfSaleData.action="add"Thenrs.Open"select*fromsale",conn,1,3rs.AddNewnEndIfconn在库存表中将库存数量减去已售出的数量fSaleDataactionaddThenrs("goodcount")=rs("goodcount")-GoodText(0).Textrs("goodcount")=rs("goodcount")-(GoodText(0).Text-页脚内 职业生涯规划书EndIfteseMsgBox新成功!",vbOKOnly,"提示"SaleDataAdodcRefreshUnloadMeCase1UnloadMedSelectndSubPrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"DimsalemanAsStringIfSaleData.action="add"Then1n1页脚内 职业生涯规划书GNum.AddItemrs("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")alenameGNum.Text=GNum.List(0)GNum.Enabled=Falseseconn,1,1SaleNum.Max=GoodText(0).Text+rs("goodcount")salecountGoodTextTextEndIflosers.Open"selectsa