手机销售信息管理系统样本.doc

手机销售信息管理系统 一、 设计目标 销售管理信息系统作为信息管理系统一个分支，已逐步成为企业信息化建设关键组成部分，为企业管理分布在全国网点提供了一个功效强大，安装布署方便，使用成本低廉，操作简捷实时销售管理系统，不仅能够促进销售业务拓展，提升销售运作效益，也为最终实现有效“供给链管理”和愈加广泛“电子商务”奠定了基础。不管是一个销售企业还是一个销售商店，全部有很多销售数据需要管理，手工管理这些缤纷复杂数据方法已经不适应时代时尚，实现数据规范化、自动化电脑管理，是一个管理规范、运作高效企机关肯定要求。所以为了实现各销售单位高效管理而设计这个手机销售信息管理系统。手机销售信息管理系统设计和开发，从根本上处理整个商品销售步骤中数据处理效率低，处理能力差等操作过程中表现出来不足之处。方便对商品资料、销售业绩等进行高效管理。使用该程序，管理层能够立即查询、管理商品，还能够对目前销售业绩进行部分统计，给出统计表格，方便全方面掌握商品销售情况。二、设计任务本系统关键考虑了最为普遍销售管理需求 进货时入库登记，方便以后查看和统计进货情况。 销售时把对应数量商品从现存商品库中减去，并统计于另一个销售库中，方便以后产看和统计销售信息。 是销售就难免会有用户退货情况发生，所以还需建立一个对应退货管理，把退回货加入现存商品库，在从销售库中减去，进行退货登记。 还要能够随时查看多种信息表格，如职员信息、进货信息、销售信息、退货信息。 除了以上部分基础需求外，实际企业用来进行决议和管理分析数据才是用得最多数据，所以还需要有部分对应相关以上数据统计信息，如期望查看各个信息段（假如近日，本月，本年度）进货和销售情况，方便以后运作进行一个正确估计和正确决断。 为了调动职员主动性，职员薪水应该和她销售情况挂上钩，所以还要能够正确查看各职员销售情况，方便对她们业绩进行考评和评选。这个系统是针对通常销售企业全部有以上需求而设计，能够有效管理数据，关键功效有： 交易管理：进货登记管理、销售登记管理、退货登记管理； 进货统计管理：近日进货统计，本月进货统计、本季度进货统计、本年度进货统计； 销售统计管理：今日销售统计、本月销售统计、本季度销售统计、本年度销售统计； 职员销售业绩考评；三 、设计内容系统需求在系统开发上，我们选择工具是Microsoft Visual Basic，数据库采取Microsoft SQL Server 。本系统总体功效是实现手机销售企业管理系统化、规范化和自动化。关键功效有： 系统登陆：用户登陆、添加用户、修改密码、退出系统； 交易管理：进货登记、销售登记、退货登记进货登记包含进货厂商登记，假如是新进货厂商，能够在此登记入库。进货和销售关键交易全部是在此进行，每次交易（包含进货，销售和退货）全部需要对商品名、生产厂商、商品型号、单价、数量、总金额、交易日期、经手员工编号等各项进行统计。 进货统计：今日进货统计、本月进货统计、本季度进货统计、本年度进货统计。其中每次进货统计全部是统计全部是根据进货厂商和进货金额次序排列。使用一个表格显示所选时间段全部进货数据，包含进货编号、商品名、生产厂商、产品型号、单价、数量、总金额、进货日期、员工编号等；再使用另一个表格显示分别从各个厂商进货金额，还有一个文本框用于显示此时间段总进货金额。 销售统计：今日销售统计、本月销售统计、本季度销售统计、本年度销售统计等。其次每次销售统计全部是按产品厂商和销售金额次序排列，用户能够一目了然看出多种型号产品销售额。使用一个表格显示所选时间段全部销售数据，包含销售编号，商品名、生产厂商、产品型号、单价、数量、总金额、销售日期、员工编号等；再使用一个表分别显示各个厂商产品销售金额，还有一个文本框用于显示此时间段总销售金额。 业绩查看：实现个职员销售情况统计，能够一次性显示全部职员销售情况，也能够依据职员编号查看各个职员销售情况。 查看数据表：实现多种数据表浏览，包含进货表，销售表，退货表，职员表，进货厂商表。浏览时此数据表全部信息全部显示。假如是职员信息或进货商信息有改变，还能够对职员表和进货商表进行修改，其它表格则不能进行修改，预防有些人制造假数据。系统功效设计模块对上述功效经行集中，分块，根据结构化程序要求，进行分析，得到一下图： 职员表中包含商品编号，职员姓名，职员电话，职员地址等字段，具体职员表（如表1）：employee（职员表）字段名数据类型说明职员编号varchar表示，自动标号，主键职员姓名varchar字段大小为8职员电话varchar字段大小为12职员地址varchar字段大小为50表1 现存货物表中包含商品编号，生产厂商，商品名，型号，价格，数量，总金额，进货年，进货月，进货日，员工编号，商品配件等字段，具表现存货物表（如表2）：Good（现存表）字段名数据类型说明商品编号varchar表示，自动标号，主键产品厂商varchar字段大小为20，外键商品名varchar字段大小为20型号varchar字段大小为20单价 Money货币型数量Numeric数值型 总金额Money货币型进货年Smallint短整型进货月Smallint短整型进货日Smallint短整型员工编号Int整型表2 已售商品表中包含有商品编号，生产厂商，商品名，型号，单价，数量，总金额，销售年，销售月，销售日，员工编号字段，用户姓名，用户联络电话 ，商品配件具体表格（如表3）：Sell（已售商品表）字段名数据类型说明商品编号varchar表示，自动标号，主键产品厂商varchar字段大小为20，外键商品名varchar字段大小为20型号varchar字段大小为20单价 Money货币型数量Numeric数值型总金额Money货币型销售年Smallint短整型销售月Smallint短整型销售月Smallint短整型员工编号Int整型表3 退货表中包含有商品编号，生产厂商，商品名，型号，单价，数量，总金额，退货年，退货月，退货日，员工编号，用户姓名，用户联络电话 ，商品配件等字段，具体表格（如表4）：Retreat（退货表）字段名数据类型说明商品编号varchar表示，自动标号，主键产品厂商varchar字段大小为20，外键商品名varchar字段大小为20型号varchar字段大小为20单价 Money货币型数量Numeric数值型总金额Money货币型退货年Smallint短整型退货月Smallint短整型退货日Smallint短整型员工编号Int整型表4 进货表中包含有厂商编号，厂商名称，法人代表，电话，厂商地址，商品名，商品配件，型号，单价，数量，总金额等字段，具体表格（如表5）：Manufacturer（厂商）字段名数据类型说明厂商编号varchar标识，自动编号，主键厂商名称Nvarchar唯一约束，字段大小为20法人代表Nvarchar字段大小为10厂商地址Nvarchar字段大小为100商品名Nvarchar字段大小为20型号Nvarchar字段大小为20单价 Money货币型数量Numeric数值型总金额Money货币型进货年Smallint短整型进货月Smallint短整型进货日Smallint短整型表5 用户表中包含编号，用户名，密码等字段，具体表格（如表6）：User（用户表）字段名数据类型说明用户编号varchar标识用户名Nvarchar字段大小为10密码Nvarchar字段大小为10表6数据库设计关键任务是在DBMS(database management system)支持下，根据应用要求，数据结构好坏将直接影响到系统效率和实现效果。好数据库结构会降低数据库存放量、冗余度，数据完整性和一致性比较高，系统含有较快响应速度，简化基于数据库应用程序实现方法等。实体具体描述以下：sell生产厂商商品名型号商品编号数量总金额销售日期单价员工编号生产厂商goods总金额员工编号数量进货日期单价商品编号型号商品名Manufacturer商表厂商编号厂商名称法人代表电话厂商地址employeeyee职员姓名职员编号职员地址职员电话卖退货退货进货NMMNRetreat员工编号退货时间总金额厂商商品名单价型号 退货编号数量MNMNE-R图对应关系图以下：四、 测试和评价 整个系统测试时候出现了很多问题其中最关键是连接数据问题，前期数据基础准备妥当，在连接过程中却出现找不到数据源等类似错误，经过反复测试，原来是忘记配置数据源。连接数据库窗口：连接数据库窗口使用windows身份登陆在做连接数据窗口时候里面代码做出了很大努力，提供了两种连接数据库方法，在此采取是用windows身份登陆能够免去输入用户名和密码麻烦。销售登记实现窗口：在此功效基础实现了一个手机销售登记模块，关键对库存手机实现一个销售登记作用，实现对已售货物表一个修改。此功效实现，能够对用户售后服务起到一个保障作用。查看业绩实现窗口：此功效实现是职员销售额统计，职员过多话能够采取查询单个职员号进行查看。此项功效关键实现对职员销售额统计，也是整个企业业绩财务报表，经过此表能够更完善发放职员工资待遇。五、 结论经过对手机销售信息管理系统设计和开发，从根本上处理整个商品销售步骤中数据处理效率低，处理能力差等操作过程中表现出来不足之处。整个手机销售信息管理系统方便了对商品资料、销售业绩等进行高效管理。经过对手机销售信息管理系统分析，设计，到最终实现，基础上实现了系统预定功效及需求。在系统分析阶段，预定系统关键功效有登录系统，进货统计，销售统计，交易管理，业绩查看及查看数据表等六大关键模块。其中最难处理是交易管理模块，包含进货登记，销售登记及退货登记管理。在实现这些功效中，碰到了很多关系模块之间联络问题，经过大量翻阅书籍最终得以实现整个手机管理信息系统。这次课程设计做是手机销售信息管理系统，这是第一次接触到如此系统设计，也是第一次接触到这么难设计。因为第一次接触，在开发过程中可谓是困难重重，不知怎样入手，不得不重回书本，经过翻阅大量资料，和同学们一起讨论，慢慢有了一点点头绪，仔细分析题目，分析材料，在原由基础上进行了更正，我最终还是运行成功了，即使还是经过了一翻努力，当然汗水还是留很值，这次课程设计，不仅让我对软件工程这门课程有了更深入研究、对很多关键概念有了巩固和掌握，还给了我以后做事启示。做事要塌实，不能想着一步登天，要有计划，有目标进行做事。盲目真不应该再在我们新一代大学生身上出现了，我们应该认真找到自己缺点而且立即更正。 六、 致谢在这次开发当中，可谓是困难重重，因为在此之前全部从未接触过这类系统开发，所以很多细节全部未曾注意，造成后期出现了很多不可预见性错误。最终在同学们和老师帮助下，将问题一个一个处理，尤其是在彭老师帮助下，将那些细节问题一一处理。在此我要尤其感谢帮助过我同学和彭老师帮助，谢谢。附录 源代码清单：连接数据库窗口代码：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdConnect_Click() If OptionWindows.Value = True Then windows身份验证方法 connStr = Provider=SQLOLEDB.1;Integrated Security=SSPI; _ + Persist Security Info=False;Initial Catalog= + Trim(cmbDatabase.Text) _ + ;Data Source= + Trim(cmbServer.Text) Else SQL Server身份验证方法 connStr = Provider=SQLOLEDB.1;Persist Security Info=False;User ID= _ + Trim(txtUser.Text) + ;Password= + Trim(txtPassword.Text) _ + ;Initial Catalog= + Trim(cmbDatabase.Text) + ;Data Source= _ + Trim(cmbServer.Text) End If On Error GoTo errConnect If conn.State = adStateOpen Then conn.Close End If conn.Open connStr MsgBox 连接数据库成功！, vbOKOnly + vbExclamation, 提醒 显示登录窗体 frmLogin.Show frmLogin.SetFocus Unload Me Exit SuberrConnect: MsgBox Err.Description, vbOKOnly + vbExclamation, 提醒End SuPrivate Sub Form_Load() 让窗体居中 Call MakeCenter(Me)End SubPrivate Sub OptionSqlServer_Click() If OptionSqlServer.Value = True Then lblUser.Enabled = True lblPassword.Enabled = True txtUser.Enabled = True txtPassword.Enabled = True End IfEnd SubPrivate Sub OptionWindows_Click() If OptionWindows.Value = True Then lblUser.Enabled = False lblPassword.Enabled = False txtUser.Enabled = False txtPassword.Enabled = False End IfEnd Sub销售登记代码：Private Sub cmdReset_Click() txtName.Text = txtFc.Text = txtType.Text = txtPrice.Text = txtQuantity.Text = txtyear.Text = txtmon.Text = txtday.Text = txtem.Text = txtmoney.Text = End SubPrivate Sub cmdSell_Click() txtGoodsNo.Enabled = False If txtFc.Text = Then MsgBox 请填写厂商名称！, vbOKOnly + vbInformation, 注意 txtFc.SetFocus Exit Sub ElseIf txtName.Text = Then MsgBox 请填写商品名称！, vbOKOnly + vbInformation, 注意 txtName.SetFocus Exit Sub ElseIf txtType.Text = Then MsgBox 请填写商品型号！, vbOKOnly + vbInformation, 注意 txtType.SetFocus Exit Sub ElseIf txtPrice.Text = Then MsgBox 请填写商品价格！, vbOKOnly + vbInformation, 注意 txtPrice.SetFocus Exit Sub ElseIf txtQuantity.Text = Then MsgBox 请填写商品数量！, vbOKOnly + vbInformation, 注意 txtQuantity.SetFocus Exit Sub ElseIf txtyear.Text = Then MsgBox 请填写销售年份！, vbOKOnly + vbInformation, 注意 txtyear.SetFocus Exit Sub ElseIf txtmon.Text = Then MsgBox 请填写销售月份！, vbOKOnly + vbInformation, 注意 txtmon.SetFocus Exit Sub ElseIf txtday.Text = Then MsgBox 请填写销售日！, vbOKOnly + vbInformation, 注意 txtday.SetFocus Exit Sub ElseIf txtem.Text = Then MsgBox 请填写员工姓名！, vbOKOnly + vbInformation, 注意 txtem.SetFocus Exit Sub ElseIf txtmoney.Text = Then MsgBox 请填写总金额！, vbOKOnly + vbInformation, 注意 txtmoney.SetFocus Exit Sub End If Dim sqlcheck As String sqlcheck = select * from goods where 商品名= & txtName.Text & _ and 生产厂商= & txtFc.Text & and 型号= & txtType.Text & rs_check.CursorLocation = adUseClient 设定游标类型 rs_check.Open sqlcheck, conn, adOpenKeyset, adLockPessimistic If rs_check.EOF = True Then MsgBox 对不起，此商品型号已无货！请选择其它型！, vbOKOnly + vbInformation, 注意 rs_check.Close Exit Sub ElseIf rs_check.Fields(5) Val(txtQuantity.Text) Then MsgBox 此型号商品不足！, vbOKOnly + vbInformation, 注意 rs_check.Close Exit Sub End If Dim sqlsell As String sqlsell = select * from sell rs_add.Open sqlsell, conn, adOpenKeyset, adLockPessimistic 添加入销售表 rs_add.AddNew rs_add.Fields(1) = txtFc.Text rs_add.Fields(2) = txtName.Text rs_add.Fields(3) = txtType.Text rs_add.Fields(4) = txtPrice.Text rs_add.Fields(5) = Val(txtQuantity.Text) rs_add.Fields(6) = Val(txtmoney.Text) rs_add.Fields(7) = txtyear.Text rs_add.Fields(8) = txtmon.Text rs_add.Fields(9) = txtday.Text rs_add.Fields(10) = txtem.Text rs_add.Update 从现存商品表中减去 Dim oldquantity As Long 用于存放goods表中原来此商品数量 Dim oldmoney As Long 用于存放goods表中原来此商品进货总额 oldquantity = rs_check.Fields(5) oldmoney = rs_check.Fields(6) rs_check.Fields(5) = oldquantity - Val(txtQuantity.Text) rs_check.Fields(6) = oldmoney - (rs_check.Fields(4) * Val(txtQuantity.Text) rs_check.Update rs_check.Close rs_add.Close MsgBox 销售成功！, vbOKOnly + vbExclamation, 注意End SubPrivate Sub Form_Load() 让窗体居中 Call MakeCenter(Me)End Sub业绩查询代码：Dim rs_check As New ADODB.RecordsetPrivate Sub cmdallem_Click() allem = True frmGrade.Show Call ShowGradeEnd SubPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdquery_Click() allem = False frmGrade.Show Call ShowGradeEnd SubPrivate Sub Form_Load() 让窗体居中 Call MakeCenter(Me) Adodc1.ConnectionString = connStr allem = True Call ShowGradeEnd SubPrivate Sub ShowGrade() If allem = False Then Dim strsql As String 下面sql语句从sell表和employee表中显示特定职员号职员号，职员姓名 并以职员号和职员姓名分组累计销售总额并显示之。 strsql = select 员工编号,职员姓名,sum(总金额) as 销售总金额 _ & from sell,employee where sell.员工编号=employee.职员编号 _ & and employee.职员编号 = & frmShowGrade.txtNo.Text _ & group by 员工编号,职员姓名 rs_check.Open strsql, conn, adOpenKeyset, adLockPessimistic Adodc1.CommandType = adCmdText Adodc1.RecordSource = strsql Adodc1.Refresh DataGrid1.ReBind If rs_check.EOF = True Then MsgBox 此职员号不存在！, vbOKOnly + vbInformation, 注意 rs_check.Close Unload Me Exit Sub End If Else strsql = select 员工编号,职员姓名,sum(总金额) _ & as 销售总金额 from sell,employee where sell.员工编号 _ & =employee.职员编号 group by 员工编号,职员姓名 rs_check.CursorLocation = adUseClient rs_check.Open strsql, conn, adOpenKeyset, adLockPessimistic Adodc1.CommandType = adCmdText Adodc1.RecordSource = strsql Adodc1.Refresh DataGrid1.ReBind End If DataGrid1.AllowAddNew = False 不可增加 DataGrid1.AllowDelete = False 不可删除 DataGrid1.AllowUpdate = False rs_check.CloseEnd Sub