excel vba的销售管理系统设计与开发

《excel vba的销售管理系统设计与开发》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、ExcelVBA的销售管理系统设计与开发　　摘要：利用ExcelVBA开发销售管理系统简单实用，可使销售管理自动化，快速有效地对资金进货、销售等业务进行管理，提高企业管理水平。　　关键词：ExcelVBA；销售；销售管理系统　　一、概述　　销售管理不仅是企业的关键而且是企业的生命线。使用信息化管理工具对企业的销售物流进行全面管理是必须的，也是必然的。笔者以某企业的销售为模型，运用Excel开发了一套销售管理系统。销售从产成品入库环节开始，根据订货合同和库存量发货。顾客收到货后，可能付款，也可能拒付，企业根据反馈的信息进行销售分析，

2、产生各种报表，并根据反馈的信息来重新调整经营计划。使用该系统，管理层可以及时查询、管理商品，还可以对当前销售业绩、销售财务进行统计，以便全面掌握商品的销售情况。Excel为微软Office组件之一，运用广泛且操作简单。利用ExcelVBA开发销售管理系统，可以使企业节约成本，提高效率。　　二、系统功能分析　　（一）销售管理系统功能结构　　将“销售管理系统”划分成基础资料、销售业务、采购业务、业务分析和统计报表5大模块。本系统支持动态的业务需求。　　（二）业务流程图　　用户在运行本系统时，首先进入一个“系统登陆”框，输入用户名和密码

3、，对其身份进行验证后才能进入到相应的管理模块。系统设置了用户权限，起三方面的作用：第一，防止非法用户进入本系统。第二，不同的用户拥有不同的权限。第三，以某位合法用户的身份进入系统，其有关操作将被记录下来。　　（1）对于一般用户，可以查阅客户的相关资料，从系统中查找原来录入的资料（入库），并生成订单（出库）；当用户购买产品时，又进入到产品的销售业务管理，进行相关操作。　　（2）对于管理员来说，可以查看全部资料，并且可以通过报表进行数据汇总分析，同时对工作人员的相关资料进行管理（用户信息管理）。　　三、功能模块设计　　（1）基础资料。

4、基础资料包括库存资料、客户资料、产品资料等。库存资料完成库存产品的建立、查询、修改、删除；客户资料完成客户的分类查询和添加、修改、删除；产品资料完成产品的分类查询、添加、修改、删除等。　　（2）销售业务。销售业务包括产品销售录入、收款管理、销售查询和应收账款查询等。销售录入完成产品基本信息的录入，销售退货完成产品基本信息的修改和删除，销售查询完成产品基本信息的查询，收款管理完成产品销售款项信息的查询、修改、删除等。　　（3）采购业务。采购业务包括采购录入、采购退货、付款录入等。在采购录入操作中，用填写入库单的形式来完成采购的入库行

5、为；在退货操作中用填写退货单的形式来完成材料的退货；付款录入完成付款管理。　　（4）业务分析。包括销售分析图表和采购分析图表。销售分析图表通过数据透视图和数据透视表来显示销售数据，提供分析和决策依据。　　（5）统计报表。统计报表包括销售明细表、采购明细表、应收账款明细表、回款明细表和付款明细表。　　四、系统功能模块实现　　（一）Excel表格的设计　　分析流程图，系统需要使用表格来存储相关的信息。只有将表格框架搭建起来，才能完成子模块的编辑、实施。采用Excel创建工作表，并使用Excel内嵌的VBA编辑宏，对表格进行处理。　　（

6、二）功能模块实现　　登陆模块设计。　　打开MicrosoftOfficeExcel2003中文版，执行“工具”→“宏”→“VisualBasic编辑器”，进入VBA编辑窗口，执行“插入”→“用户窗体”，创建一个登陆窗体，对窗体设计，并把所有按钮代码编辑到代码窗口中，类的成员变量大部分与表中的字段名相同。在创建类模块的同时，进行程序的编写，如“注册”命令的实现：　　PrivateSubCommandRegidit_Click（）　　IfvbCancel=MsgBox（"你要进行注册吗？"，1+32，"注册"）ThenExitSub　

7、　IfComboBox1=""OrTextBox1=""ThenMsgBox　　"请先正确填写你要注册的用户名及密码！"　　ExitSub　　0xh=InputBox（"请重复一次密码："）　　IfxhTextBox1.TextThen　　IfvbCancelMsgBox（"二次密码不一致，是否重新输入！"，1+32，"错误"）ThenGoTo0ElseExitSub　　EndIf　　IfTrim（权限（ComboBox1，2））""ThenMsgBox"注册失败，该用户已存在！"　　ExitSub　　WithSheet1　　u=

8、.Range（"c65536"）.End（xlUp）.Row+1　　.Cells（u，3）=ComboBox1.Text　　.Cells（u，4）="一般用户"　　.Cells（u，5）=TextBox1.Text　　EndWith　　MsgBox