中小型超市管理系统.docx

1、中小型超市管理系统秦皇岛广播电视大学毕业设计说明书(论文) 作 者： 汪天伟 系 （部）： 计算机系 专业班级： 11春 计算机信息管理 学号 1113001405540 题 目： 中小型超市管理系统 指导教师： 刘光 孟繁伟 2012年12月 一 需求分析 .2 （1） 行业概念的理解 . 2（2） 业务流程说明 . 3 （3） 问题解决方案 . 3 （4） 数据流图 . 3 二 系统设计 . 3 二 系统设计 . 5 （1）系统模块的划分 .5（2）数据字典 .53、程序的设计与编码 .9 （1） POS系统的开发 . 91. 功能及实现方法 . 92. 问题讨论：交易流水号的确定 .10

2、（二）管理信息系统的设计 .10 1.界面设计 .102. 各个功能模块实现的要点和技术 . 112.1 类继承与重载 . 12.2 windows消息机制 . 122.3 关于权限设置 . 13 2.4 应用Delphi显式事务控制 . 142.5 存储过程的使用 . 14参考书录 . 24中小型超市管理系统 内容摘要：中小型超市管理信息系统是一个比较复杂和全面的管理系统，可以完成中小型超市的大部分业务。总的来说包括进货管理，物价管理，库存管理，销售管理，供货厂商管理，POS收款机子系统等。该系统界面朴素一致，但不失美观大方；操作方便，查询功能强大；数据全面、准确。系统采用了目前比较流行而技

3、术非常成熟地客户机服务器结构（C/S），前台应用程序用Delphi开发,后台数据库是Microsoft SQL Server 2000。关键字:面向对象的程序设计，继承，WINDOWS消息，存储过程，事务。 一 、需求分析 （一）行业概念的理解 POS： Point Of Sells , 电子收款机系统，也就是直接与顾客打交道的收银机系统。 定单状态：用来描述商品进货方式，一般分为定单、日配、自采等。 定单：表示该商品进货必须先向供货商发出定单，供货商按定单上的商品明细发货，超市则按定单上的商品明细收货。 日配：指那些每天都要进货的商品或者补货期较短的商品，例如水果，生鲜蔬菜等。如果按定单，时

4、间不允许而且工作重复烦琐。 自采：顾名思义，超市自己负责商品的进货。 销售状态：用来描述某种商品当前的销售状态，一般定义为正常、促销、折扣等，正常表示商品处于正常的售价状态，即按正常的售价销售。 促销：表示超市把某种商品让利销售，以此来吸引跟多的消费者。一般低于正常售价甚至成本价。 折扣：表示某种商品销售情况不好，或者商品有瑕疵，或者保质期快到等情况发生时，使尽快商品销售出去的一种手段。 库存调整：当非因正常销售发生而实物数量变动时，通过调整库存使其帐面数量与实物数量相符。日处理：当一天的销售结束后，开始做日处理。把当天的销售数据汇总，调整商品库存。 损益：商品出现损坏，变质，被盗等情况发生时

5、，商品发生损益。损益通过调整库存得到体现。 商品变价：商品变价与促销/折扣调整价格是两个不同的概念。商品变价是指修改商品的正常售价，调整后在一定的时间内不会在发生改变。价格可能是升高也可能是降低，一般都是由于进价变动引起的。 促销/折扣期： 每一种商品促销/折扣都有一定的期限，即有一定的时间限制。一种商品不可能无期限的促销/折扣。当期限超过，商品自动恢复正常售价。 毛利、毛利百分比： 毛利商品售价商品进价 毛利百分比（商品售价商品进价）商品售价 商品进价及成本核算： 在成本核算中，商品成本价的确定一般有最后进价，移动加权平均，按商品批次定价等几种方式，由于后两种核算方式较复杂，本系统采用简单的

6、最后进价方式。 （2）业务流程说明在实际管理中，有三种信息流动，即资金流，单据流和商品实物流。系统围绕实物流展开，对商品从供应商那里进货到商品销售到顾客手中整个流程进行管理。简单来说，就是商品的进销存管理。每个环节通过相应的单据来连接，同时资金发生流动。在商品管理方面，我们提出部门和商品分类的概念，这种分级管理方式简洁高效。所谓部门，就是按照商品的基本属性进行分类管理。例如,超市一般可分为食品部，生鲜部，日用品部等。部门下面再分类，所谓商品分类，指按商品的具体属性划分，例如，食品部下面可以有糖果饼干类，饮料类等，每个部门和每个商品类别都有相应的负责人负责。中小型超市管理信息系统完全体现了这种管

7、理思想，商品的销售和商品库存都可以按部门级和分类级完成查询等其他操作。作为一个超市的管理人员，及时了解销售情况是非常必要的，以便及时调整进货或者安排营销策略，把握商机。而中小型超市管理信息系统正好满足了这一要求，可以实时查询前台的销售情况，并且数据准确可信。 （三）问题解决方案超市系统在运行过程中数据流量是非常巨大的。有时候会因数据流量过大而使网络发生阻塞，使POS系统发生断网，直接影响销售活动的进行。这种情况是应该坚决避免的，应该尽量减少网络的数据流量。这一思想在本系统中的直接体现就是采用日处理和运用本地缓存技术。日处理的主要目的就是把当天的销售数据整理汇总，更新商品库存表，为第二天的销售做

8、准备。与日处理不同的另一种处理方式就是每次商品销售完成以后就立即更新库存。但这样会使得服务器的负荷非常的重，经常会使POS系统发生断网。POS系统销售商品时所取的商品信息是服务器上的数据，有效的保证了数据的一致性和集中控制。虽然商品信息来自服务器，但我们使用了本地缓存。POS系统会把取得的数据暂时的存放在本地的内存，当要读取商品信息时，会先在本地缓存里查找，如果成功的话，就不必访问服务器。这样一来就有效的减少了网络的数据流量和服务器的负荷。此外，系统充分利用了客户机服务器结构的特点，比较复杂的查询更新等操作都用存储过程来实现。存储过程在服务器端执行完毕仅返回执行结果，能有效的减少网络的通讯流。

9、（4）数据流图 对整个业务活动进行分析归纳后，我得出如下的数据流图： 数据流程图二 系统设计 （一）系统模块的划分根据前面所作的需求分析，我把整个系统分为如下几个模块3、程序的设计与编码4、 有了前面的工作，我们选择就进入编码阶段了。 （一） POS系统的开发系统的开发系统的开发系统的开发 1. 功能及实现方法功 POS系统是作为一个单独的程序开发的，主要在POS机上运行，完成商品的交易任务。销售的商品信息存储在POS_SALE表中。我们把一次交易放在一个事务提交，保证了数据的完整性和数据的正确性。界面以灰色调为主，使得收银员长时间工作眼睛不感到疲劳。收银的操作也很简单方便。交易流水号自动增加

10、。当某种商品处于促销或折扣销售状态时，POS系统自动取商品的促销或折扣售价，无需人工干预，并且促销或折扣期结束时，系统能自动识别恢复正常售价。这一个功能的实现是通过商品视图来完成的。请看商品视图源码。 前台POS销售时取商品信息时用到的视图: CREATE VIEW V_SPXX AS SELECT NAME , A.GOODS_ID,A.BAR_ID,A.GUIGE, BUY_PRICE= CASE WHEN (GETDATE()B.END_DATE AND GETDATE()B.BEGIN_DATE) OR A.FLAG=正常 THEN A.BUY_PRICE1 WHEN (GETDATE

11、()B.BEGIN_DATE) AND A.FLAG=促销 THEN A.BUY_PRICE2 WHEN (GETDATE()B.BEGIN_DATE) ANDA.FLAG=折扣 THEN A.BUY_PRICE2 ELSE A.BUY_PRICE1 END FROM GOODS_INFO A ,GOODS_PROMOTE_LOG B WHERE A.GOODS_ID*=B.GOODS_ID 交易是在一个事务里完成的,请看交易完成数据提交的代码： if form_pos.Database1.InTransaction then try form_pos.query1.ApplyUpdates;

12、把本地缓存修改的操作提交服务器 form_pos.Database1.Commit; 事务提交 form_pos.query1.CommitUpdates;清空本地缓存 If form_pos.Database1.InTransaction=false then form_pos.Database1.StartTransaction; except form_pos.Database1.Rollback; 事务回滚 end; 2. 问题讨论问题讨论：交易流水号的确定 在实际运用中，可能十几台甚至几十台POS机同时工作，也就是存在大量的数据库并发操作。怎样使交易流水号唯一呢？我是这样实现的，在每

13、次事务提交之前，比较本机的流水号是否在后台数据库交易流水号中已经存在，如果存在，也就是说已经被别人占用，则重新取出最大交易流水号，然后提交整个事务。事务提交成功以后还要更新本地交易流水号。这是取最大流水号select max(P_NO) as p_no from pos_sale的SQL语句。 （二）管理信息系统的设计1.界面设计本系统采用了带导航栏的多文档窗体设计风格，使操作变的简单直观。当使用某一个功能模块时，只显示相应的菜单，使人不会觉得眼花缭乱。系统完全摈弃那种界面花哨，色彩绚丽等华而不实做法，但和传统的风格有有所区别，传统的风格显得过于呆板。本系统的界面色调一致，简单朴素，但不失美观

14、大方。窗体界面一致，操作也大同小异，丝毫没有杂乱无章的感觉。 我首先定义了几个重要的窗体基类，其他的窗体基本上这几个基类的派生类。在使用时在对窗体进行重载。所有的窗体都是在运行时动态加载的。需要运行那个窗体时，程序才加载该窗体，用完后立即释放，这样使用户计算机系统资源得以最少得占用。请看一个窗体得创建例子： enter_dan:= Tenter_dan.Create(Self); 入库单录入窗体得创建 form_show(enter_dan,555 ,360,10,2); form_show为自定义函数对所有子窗体显示我自定义了一个函数form_show，减少了工作量和代码量。 procedu

15、re form_show(form:TForm;fwidth ,fheight,fleft,ftop :integer); begin with form do begin height:=fheight; width:=fwidth; Left:=fleft; top:=ftop; Show; end; end; 窗体的释放实现，例如释放入库单录入界面窗体： procedure Tenter_dan.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; 在内存中释放掉窗体 end; 2.各个功能

16、模块实现的要点和技术 这里我只把我在编码过程中比较重要或者比较有代表性的技术和部分源码阐述一下。详情查看系统的源代码。 2.1 类继承与重载 在编码过程中，我充分利用了面向对象编程的特定代码的重用，具体实现起来依靠的是重载和继承。把具有相同或相似属性的类抽象出来作为一个基类。我定义了几个重要的窗体基类，基类窗体包含了需要的公有控件和共有事件方法。其他的窗体基本上这几个基类的派生类。在使用时在对窗体的控件的属性和方法进行继承或者重载。 关于在DELPHI方法的重载，例如： procedure Action7Execute(Sender: TObject); OVERRIDE: procedure

17、 Tenter_goods_info.Action7Execute(Sender: TObject); begin try if (dbedit1.Text) and (dbedit2.Text) and (dbedit3.Text)and (dbedit4.Text)then begin query1.Post; addbutton.Enabled:=true; delbutton.Enabled:=true; savebutton.Enabled:=false; end else showmessage(你的输入不完整！); except showmessage(代码重复！); end;

18、end; 2.windows消息机制 当查询窗体要返回结果时，我们用到了windows消息机制。 首先定义一个全局的自定义消息常量。 Const My_WM_USER=WM_USER+100; /自定义消息 向指定的窗体发送自定义消息，传递查询结果。例如： procedure Tgoods_info_search.searchbuttonClick(Sender: TObject); begin try price_adjust.Query1.Close; price_adjust.Query1.SQL.Clear; price_adjust.Query1.SQL:=query1.SQL; s

19、endmessage(price_adjust.Handle,My_WM_USER,0,0); except beep; end; close; end; 接收消息，并且处理它，例如： 定义消息响应的方法 procedure my_wm_user100(var msg:Tmessage); message My_WM_USER：处理消息： procedure Tgoods_promote.my_wm_user100(var msg:Tmessage) ; begin with query1 do close; sql.clear; sql.add(sql语句); open; end; 2.3

20、关于权限设置 权限设置是一个管理系统非常重要的一部分，直接关系到公司业务和财务安全性。因此，本系统在这方面的功能是较完善的。操作人员的权限可以定义到每级子菜单。对没有赋权限的菜单项不予显示。也就是说，系统能根据登陆人员的权限自动显示具有权限的功能菜单。我们把人员的权限信息存放在MENU_FLAG表中，在系统启动时加载相关的权限设置信息。权限设置这一功能只有高级管理人员和系统管理员才能使用。 根据权限显示菜单算法 with damo.query1 do /query1关联MENU_FLAG表 begin close; sql.Clear; sql.Add(select * from menu_f

21、lag where id=:id ); ParamByName(id).AsInteger:=person_id; open; end; for i:=1 to 42 do begin flag:=damo.query1.fieldsi.AsInteger;/flag为每项菜单的权限标志 for j:=0 to main_form.ComponentCount-1 do begin if (main_form.Componentsj is TMenuItem) and (main_form.Componentsj as TMenuItem).Tag=i-1 ) then if flag = 0

22、 then (main_form.Componentsj as TMenuItem).Visible:=false else (main_form.Componentsj as TMenuItem).Visible:=true; end; end; 2.4 应用Delphi显式事务控制 事务控制是一种能够把数据库的一组修改作为整体提交给数据库以保证数据的一致性和完整性的机制。如果其中有一个操作失败，则所有操作失败。 2.5 储过程的使用 在程序设计中，系统主要的复杂的操作我都都是通过存储过程来实现的。 例如：使用库存调整操作时，我们用P_ADJUST_STORE来完成。 procedure T

23、adjust_store.okbuttonClick(Sender: TObject); Begin if not damo.Database1.InTransaction then damo.Database1.StartTransaction; 开始一个事务 with P_ADJUST_STORE do /P_ADJUST_STORE为存储过程 begin Params1.AsInteger:=strtoint(edit_id.Text); Params2.AsFloat:=strtofloat(edit_adjust.Text); Params3.AsInteger:= table1.F

24、ields0.AsInteger ; Params4.AsInteger:= person_id ;/ person_id为全局变量人员ID Prepare; execproc; end; try damo.Database1.Commit; 事务提交 except begin damo.Database1.Rollback; 事务回滚 showmessage(数据提交失败！ ); end; end; 以下是几种典型存储过程。 日处理存储过程： CREATE PROCEDURE P_DIALY_DO dialy_date char(12), person_id smallint AS DECL

25、ARE goods_id int DECLARE quantity float DECLARE amount money DECLARE temp_cursor CURSOR FOR SELECTA.GOODS_ID,SUM(A.QUANTITY),SUM(A.QUANTITY*B.COST_PRICE) FROM POS_SALE A, GOODS_INFO B WHERE convert(char(12),WORK_DATE,102)=dialy_date AND A.GOODS_ID=B.GOODS_ID GROUP BY A.GOODS_ID OPEN temp_cursor FETC

26、H NEXT FROM temp_cursor INTO goods_id, quantity, amount WHILE (FETCH_STATUS=0) BEGIN if EXISTS(SELECT * FROM STORE_DETAIL WHERE GOODS_ID = goods_id) BEGIN UPDATE STORE_DETAIL SET QUANTITY=QUANTITY-quantity , AMOUNT=AMOUNT-amount WHERE GOODS_ID = goods_id END FETCH NEXT FROM temp_cursor INTO goods_id

27、,quantity,amount END INSERT DIALY_DAN VALUES( dialy_date,已做,person_id) CLOSE temp_cursor DEALLOCATE temp_cursor 查询每日商品销售汇总的存储过程： CREATE PROCEDURE P_DIALY_SALE AS CREATE TABLE #temp_table ( amount float, work_date char(12), sale_cost float, gain float ) INSERT INTO #temp_table SELECT a.amount,convert(char(12),a.work_date,102) AS work_date, (c.cost_price*a.quantity) AS sale_cost, (a.amount-c.cost_price*a.quant