企业销售管理系统

企业销售管理系统引言本论文主要介绍的是企事业使用的销售管理系统的整个设计。随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利.以往企业销售管理由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个企业销售管理系统，以方便其在商品销售管理中的工作任务.该系统适用于企业销售管理，其功能主要分为五大类：系统初始化；客户信息管理、销售信息管理、增删用户等，该系统性能力求易于使用，具有较高的扩展性和可维护性.整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。系统需求分析1.1现行业务系统描述在企业，销售管理工作是非常重要的一项工作，它可以显示整个企业的销售量，销售管理等等。以前都是人工进行操作。随着企业规模扩大，销售处的销售管理工作量大大加重.随着计算机应用的发展，销售工作者急切希望能够将大部分繁琐的工作交由计算机的处理，已减轻人工的压力并提高工作效率。而计算机的普及更加快了销售管理系统的产生。因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。1.2业务流程分析销售管理系统是一个面向企业销售管理，为其提供服务的综合信息管理系统。销售管理人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。商品信息、销售信息和客户信息等情况都记录在销售管理系统里进行管理.由销售人员在档案更新中完成对运行销售系统所需的基本数据的维护.包括这些信息的增、修、改等，变动都将在这进行操作。1.3现行系统存在的主要问题分析现行系统的主要问题归纳起来主要有，单机单用户系统，随着网络的发展，同时销售管理系统中信息的使用者大大增加，原有的单机单用户系统已远远不能满足需要。同时，原有的数据库也不支持多用户的网络运行环境。1。4提出可能的解决方案1鉴于目前企业对销售管理系统的需求与实际情况，新系统方案的重点放在系统的可扩展性上，为了实现这一设计，新系统应具备以下几方面的要求：新系统采用VisualFoxpro6.0开发成功,充分利用该开发程序的优势，提高了工作效率。新系统从设计到实现都应遵循模块化，是用一致的接口进行信息的传递与模块调用。模块的划分应尽量符合实际业务的划分，以保证以后新模块的加入尽可能少的影响现有功能模块的运行。新系统所具有的特性：通用性：用户可根据本单位的需求灵活设置数据库结构，可满足不同层次，不同性质，不同业务工作的需求。1.5可行性分析与决策对于新系统设计的几个关键技术的可行性分析如下，技术可行性1）系统的软件可以使用在WIN98、WIN2000、WINXP这些目前主流的操作系统上，且容易使用。2）系统的数据库支持，本系统彩面向对象的VF6.0开发而成，友好的界面，简易的操作。工作人员只有稍加指导就可以熟练使用。3）结论:本系统信息量不算太大，实时程度要求不高，对软硬件要求比较简单，可以进行开发。2。经济可行性1）本系统只需一台计算机，配置奔腾III以上，256MB.2）效益分析:运用本系统后，可大大提高工作效率和工作质量，减少人工操作的一些失误.3）本系统投入费用不高。运行可行性根据任务要求分析，此设计题目可以通过用VisualFoxPro6.0软件作为开发工具来完成，利用VisualFoPro6.0软件制作一个数据库的销售管理系统,这个系统可以很好的实现任务要求中所提出的各项功能指标，能够实现数据管理的自动化,大大提高工作效率。综上所述，新系统的设计与开发在技术上和硬件设备上的条件都是满足的，新系统的开发是可行的。22。系统的实现2。1系统开发环境系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境,主要包括计算机机型及硬件配置.由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济,只要配备有PII处理器（或以上）、64M内存（或以上）、10G硬盘（或以上）的普通微机即可顺利运行。本系统在单机上运行。2.2系统测试在MIS开发过程中采用了多种措施保证软件质量，但是实际开发过程中还是不可避免地会产生差错，系统中通常可能隐藏着错误和缺陷，示经周密测试的系统投入运行，将会造成难以想像的后果，因此系统测试是MIS开发过程中为保证软件质量必须进行的工作。大量统计资料表明，系统测试的工作量往往占MIS开发总工作量的40%以上。因此，我们必须重视测试工作.系统的优点流程符合企业内部销售管理的要求。界面友好，输入信息方便.系统的缺点1。由于时间的原因，系统还不是很完善，应该把VF的背景框去掉.2。网络功能欠缺。本系统只能在单机上运行，不能实现网络连接，资源共享。将来可能提出的要求1。网络化。系统能支持网络数据传输，数据共享；数据远程访问能自动采取一定的加锁策略；远程报表处理。2。多媒体化。系统能够支持语音输入。2。3系统运行与维护系统的运行：初始数据的输入本系统的输入采用鼠标和键盘相结合的输入方法.数据文件的维护:指的是按照用户的要求对数据文件进行不定期的修改.代码的维护：随着系统的发展和变化，可能会出现旧代码不能适应新要求的问题，因此，有必要变更代码，予以维护。硬件的维护:指的是对系统所使用的设备进行维护.本系统的日常维护由人事的专人来负责，如果出现一些不能解决的问题，则由开发者来负责。3。系统分析3。1数据流分析由于本系统的功能强大，功能模块较多，下面仅以销售管理模块为例来进行编制。欢迎界面登录界面销售管理系统主界面产品信息管客户信息管销售信息管修改密增删用帮助理理理码户关于本更改记更改用新增和客户信息查销售信息浏系统的录户密码删除用询览追加记销售报表打客户信息修介绍户录印改客户信息浏删除记更改记录览录删除客户信浏览记添加新记录息录添加新客户2模块功能介绍销售管理系统的主要模块欢迎界面启动系统后出现的是欢迎界面，登录模块要求要输入正确的用户名和密码才能进入本系统。登录分为权限一级登录和权限二级4登录，登录后可进入产品信息管理，客户信息管理，销售信息管理等模块。3。客户信息管理模块该模块提供对客户信息的浏览、添加、修改和查询等功能。4.产品信息管理模块该模块提供对客户信息的浏览、添加和修改等功能。5。销售信息管理模块该模块提供对销售记录的浏览，可以更改，增加，删除信息。还包括对销售记录表的打印，按某一条件进行报表打印，如:按产品排序打印，按客户排序打印等.6。增删用户模块该模块提供对用户添加和删除，在添加用户时可以对用户的登录权限进行设置。7.修改密码模块用户可以在此模块中对自己的登录密码进行修改.4。系统设计4。1系统中的表产品信息。dbf（产品号，产品名称，厂商，规格，价格，简介，品牌，型号）客户信息.dbf（地址，电话号码，客户，客户号，邮编）销售信息。dbf（产品号，价格，客户号，售出时间，数量）用户密码.dbf（密码，权限等级，用户名）4。2表的物理结构用户密码。dbf字段名类型宽度小数位索引类型密码字符型80权限等级字符型80用户名字符型10唯一5产品信息.dbf字段名类型宽度小数位索引类型产品号字符型100唯一产品名称字符型100厂商字符型100规格字符型300价格数值型100简介备注型4品牌字符型100型号字符型1010客户信息。dbf字段名类型宽度小数位索引类型地址字符型300电话号码字符型140客户字符型200客户号字符型100唯一邮编字符型100销售信息.dbf字段名类型宽度小数位索引类型产品号字符型100普通索引价格数值型100客户号字符型100普通索引售出时间日期型80数量数值型1006系统的详细设计5.1系统欢迎界面欢迎界面的模块Form1的Load事件tt=0Form1的Click事件doformcheckThisform。releaseForm1的KeyPress事件doformcheckThisform.releaseTimer1的Init事件publictttt=0Timerl的Timer事件tt=tt+1iftt=3then7doformcheckThisform.releaseEndif5。2系统登录界面『销售管理系统用户名，“确定”按钮的Click事件opendatabase销售管理use用户密码。dbf5。2系统登录界面『销售管理系统用户名，ifi〈=3ifempty(ThisForm.Text1.value)。or。empty(ThisForm.Text2。value)messagebox("用户名或密码不能为空〜”，48,"提示”)elselocatefor用户密码。用户名二alltrim(ThisForm。Textl.value)。and。用户密码.密码；&&定位到条件满足的第一条记录二alltrim(ThisForm.Text2.value)iffound()thisform.release8setsysmenuoff&&禁止程序执行时访问系统菜单setsysmenuto&&恢复系统菜单settalkoff&&关闭人机对话setstatusbaroff&&不显示VFP状态条doformmain.scxreturnreadeventsreleaseallclearallelsemessagebox("用户名或密码错误，请重输〜”，48,"提示")ThisForm.Textl。gotfocusendifendifelsemessagebox（”三次无效输入，系统将被关闭〜"，48,”警告〃）ThisForm。releasequitendif“退出〃的Click事件ThisForm。releasecloseallclearevent5。3系统主界面Forml的Init事件Use用户密码publicpopedompopedom=用户密码。权限等级ifpopedom=〃1"thenThisForm.Command4。enabled=.t.9elseThisForm。Command4。enabled=。f.Endif

“产品信息管理”按钮的Click事件doformproduct“退出”按钮的Click事件ThisForm.releasecloseallclearevent5.4系统产品信息管理界面Form1的Click事件publicpnoThisForm°Grid1.readonly=.t.“显示全部〃按钮的Click事件ThisForm.Grid1。recordsourcetype=1ThisForm.Grid1.recordsource=”产品信息”ThisForm。Grid1.refresh10

衅"E疝W衅"E疝W菅:mEZl皿1佳印1-膏佳印5鲫'■□macoj]参航商「；C粉婿oriq土强FT住肥D0Q5COJ5*f僚匚超天津注盘省rm?CCD5i丽渤蠢长即:廿IJ丑钢也WL&OgrKElj?TO35-3335S3刻JR:E二EFS5jmJi'性壑1JZ"添加记录〃的Click事件ThisForm.Gridl。refreshappendblankthisform.refresh“更改数据”的Click事件ThisForm.Grid1。recordsourcetype=1ThisForm.Grid1.readonly二.f。ThisForm.Grid1.allowaddnew二.t.ThisForm。Grid1。refresh“删除记录”的Click事件deletepackThisForm。Grid1。recordsourcetype=1ThisForm。GridLrecordsource=”产品信息"ThisForm.Grid1.refresh“确定〃的Click事件

ThisForm。Gridl.readonly二.t。115.5系统客户信息管理界面“第一个记录”的Click事件5.5系统客户信息管理界面“第一个记录”的Click事件篦f召Ki一个记孕后』旧景gotopThis.enabled二.f.Tmandgroup1.Command2。enabled=。f。Tmandgroup1.Command3。enabled=。t.Tmandgroup1.Command4。enabled=。t。Thisform.refresh“前一个记录”的Click事件skip—1ifbof()messagebox(〃已是第一个记录",48,”提示信息”)elseTmandgroup1。Command1。enabled二.t。Tmandgroup1。Command2。enabled二.t.12endifTmandgroup1。Command3.enabled=。t。Tmandgroup1.Command4。enabled二.t.thisform。refresh“后一个记录”的Click事件skipifeof()messagebox(〃已是最后一个记录”，48,"提示信息〃)Tmandgroup1.Command3.enabled=。f.Tmandgroup1。Command4。enabled=。f。elseTmandgroup1.Command3.enabled=。t。Tmandgroup1。Command4.enabled=。t。endifTmandgroup1.Command1。enabled=。t.Tmandgroup1.Command2。enabled二.t.thisform.refresh"最后一个记录”的Click事件gobottomTmandgroup1.Command2.enabled二.t.Tmandgroup1.Command3。enabled=。f。Tmandgroup1。Command4.enabled=。f。thisform。refresh“添加新记录”的Click事件Thisform.pageframe1。page1。Commandgroup1.enabled=。f.Thisform.pageframe1。page1。Command2。enabled二.f.Thisform。pageframe1。page1.Command3。enabled二.f.Thisform.pageframe1.page1。Command4.enabled=。t.ifThisform。pageframe1。page1.Command1°caption=”添加新记录”13Thisform。pageframe1。page1。text1.enabled二.t.Thisform。pageframe1。page1。text2。enabled=。t.Thisform。pageframe1.page1。text3。enabled二.t.Thisform.pageframe1。page1。text4.enabled=。t。Thisform.pageframe1.page1。text5.enabled=。t。appendblankThisform.pageframe1°page1.text1.value=〃”Thisform。pageframe1.page1.text2.value=〃〃Thisform.pageframe1.page1.text3.value=”"Thisform.pageframe1.page1°text4.value=””Thisform。pageframe1.page1。text5°value=〃”Thisform。pageframe1。page1.Command1°caption=’添加确认’elseThisform.pageframel。pagel。Commandl.caption='添加新记录’Thisform。pageframel。pagel.refreshThisform。pageframel.pagel.Commandgroupl.enabled二.t.Thisform.pageframel。pagel。Command2.enabled=。t.Thisform.pageframe1.page1.Command3。enabled=。t.Thisform.pageframel。pagel。Command4.enabled二.f.Thisform.pageframel.pagel.textl。enabled=。f。Thisform.pageframel.pagel。text2.enabled=。f.Thisform.pageframel。pagel。text3。enabled=。f。Thisform。pageframel。page1.text4.enabled=。f.Thisform。pageframe1.page1.text5.enabled二.f.Endif"更改此记录〃的Click事件Tmandgroupl.enabled二.f.Tmandl。enabled=。f.Tmand3.enabled=。f.Tmand4.enabled=。t.l4ifTmand2。caption='更改此记录’Thisform.pageframe1opagel.textl。enabled=。t。Thisform.pageframe1.page1otext2。enabled=。t.Thisform。pageframel.pagel。text3.enabled=。t.Thisform。pageframel。page1.text4.enabled二.t。Thisform。pageframe1.page1。text5。enabled=。t。Tmand2.caption='更改确认’Tmand2。refreshelseTmand2°caption=’更改此记录'Thisform.pageframe1.page1。refreshTmandgroup1。enabled二.t.Tmand1。enabled=。t.Tmand3。enabled=。t.Tmand4.enabled二.f。Thisform.pageframe1。page1.text1。enabled=。f.Thisform。pageframe1。page1。text2.enabled二.f。Thisform。pageframe1.page1.text3.enabled二.f.Thisform。pageframe1。page1.text4。enabled=。f.Thisform.pageframe1.page1。text5。enabled二.f。Endif“删除此记录”的Click事件answer=messagebox（〃确定删除此记录吗，”，33,"确定删除”）ifanswer=1thendeletepackthisform。refreshendif“查询〃的Click事件select客户信息gotop15locatefor客户=alltrim(thisform.pageframe1。page2。text6.value)thisform.pageframe1。page2。text1。value=客户号thisform.pageframe1。page2。text2。value二客户thisform。pageframe1。page2.text3.value二电话号码thisform.pageframe1.page2.text4.value=地址thisform。pageframe1。page2.text5.value二邮编thisform.refreshif。not.found()messagebox（’没有找到所要的记录〜'，48,'没有找到记录’）endif5.6系统销售信息管理界面“预览”的Click事件ifthisform.pageframel。page2。optiongroupl.optionl。value=1thenreportformprit1previewelseifthisform。pageframe1。page2。optiongroup1。option2.value=1thenreportformprit2preview16elsereportformprit3previewendifendif“打印”的Click事件ifthisform。pageframe1。page2。optiongroup1.option1。value=1thenreportformprit1toprinterpromptelseifthisform.pageframe1。page2。optiongroup1.option2.value=1thenreportformprit2toprinterpromptelsereportformprit3toprinterpromptendifendif5.7系统增删用户界面“添加用户”的“确定”的Click事件password二alltrim(thisform。pageframel。page1.text2.value)popedom=alltrim(thisform。pageframe1.page1。text4。value)ifalltrim(thisform。pageframe1.page1。text2.value)=alltrim(thisform.pageframe1.page1.text3.value)appendblankreplace用户名withnamereplace密码withpassword17TOC\o"1-5"\h\z一-——刑除用户用户宣I密皓f麻认瓯暗I敬曜尊皱I融replace权限等级withpopedommessagebox("添加用户成功〃，48，〃添加成功〃)thisform。pageframe1。page1°text1.value=”〃thisform。pageframe1°page1.text2.value=””

thisform.pageframe1.page1.text4.value=〃”elsemessagebox（"密码错误，请重新输入”，48,"添加失败〃）thisform。pageframe1.page1.text2.value=”"thisform。pageframe1.page1。text3.value="”endif“删除用户”的“确定”的Click事件name二alltrim（bo1。value）yn=messagebox（"确定删除，”，36,”确定删除”）ifyn=6thendeletefrom用户密码where用户名二namepackmessagebox（”删除用户成功"，36，”删除成功"）bo1。value="”18endif5.8系统修改密码界面“确定”的Click事件use用户密码name二alltrim(thisform。textl。value)password二alltrim(thisform.text2.value)setorderto用户名seeknameifalltrim(用户密码。用户名)=nameifalltrim(用户密码。密码)=passwordpopedom=用户密码。权限等级ifalltrim(thisform.text3。value)二alltrim(thisform。text4。value)password二alltrim(thisform。text3。value)name=alltrim(thisform.text1。value)update用户密码set密码二passwordwhere用户名二namemessagebox(”密码修改成功”,32,"信息窗口”)thisform.releaseuseelse19messagebox（”输入有误，请重新输入新密码〃，32,〃信息窗口”）thisform。text2。value=〃〃thisform.text3°value=〃”thisform。text4°value=”"endifelselogtime=logtime+1answer二messag