计算机信息管理专科毕业论文

1、.中央播送电视大学人才培养模式改革和开放教育试点计算机信息管理专科毕业论文论文题目 中小型超市管理系统规划学生XX 鲁 赟 学 号 89 指导教师 李志军 专 业 计算机信息管理 年 级 2021 春 学 校 XX电大常山分校 目 录一需求分析1一行业概念的理解1二业务流程说明2三问题解决方案2四数据流图3二系统设计3二系统设计4一系统模块的划分4二数据字典4三、程序的设计与编码8一 POS系统的开发81. 功能及实现方法82. 问题讨论：交易流水号确实定9二管理信息系统的设计91.界面设计92. 各个功能模块实现的要点和技术102.1 类继承与重载102.2 windows消息机制112.3

2、 关于权限设置122.4 应用Delphi显式事务控制132.5 存储过程的使用13参考书录20. v.中小型超市管理系统规划内容摘要："中小型超市管理信息系统"是一个比拟复杂和全面的管理系统，可以完成中小型超市的大局部业务。总的来说包括进货管理，物价管理，库存管理，销售管理，供货厂商管理，POS收款机子系统等。该系统界面朴素一致，但不失美观大方；操作方便，查询功能强大；数据全面、准确。系统采用了目前比拟流行而技术非常成熟地客户机效劳器构造C/S，前台应用程序用Delphi开发,后台数据库是Microsoft SQL Server 2000。关键字:面向对象的程序设计，继承

3、，WINDOWS消息，存储过程，事务一 需求分析一 行业概念的理解POS： Point Of Sells , 电子收款机系统，也就是直接与顾客打交道的收银机系统。定单状态：用来描述商品进货方式，一般分为定单、日配、自采等。定单：表示该商品进货必须先向供货商发出定单，供货商按定单上的商品明细发货，超市那么按定单上的商品明细收货。日配：指那些每天都要进货的商品或者补货期较短的商品，例如水果，生鲜蔬菜等。如果按定单，时间不允许而且工作重复烦琐。自采：顾名思义，超市自己负责商品的进货。销售状态：用来描述某种商品当前的销售状态，一般定义为正常、促销、折扣等，正常表示商品处于正常的售价状态，即按正常的售价

4、销售。促销：表示超市把某种商品让利销售，以此来吸引跟多的消费者。一般低于正常售价甚至本钱价。折扣：表示某种商品销售情况不好，或者商品有瑕疵，或者保质期快到等情况发生时，使尽快商品销售出去的一种手段。库存调整：当非因正常销售发生而实物数量变动时，通过调整库存使其帐面数量与实物数量相符。日处理：当一天的销售完毕后，开场做日处理。把当天的销售数据汇总，调整商品库存。损益：商品出现损坏，变质，被盗等情况发生时，商品发生损益。损益通过调整库存得到表达。商品变价：商品变价与促销/折扣调整价格是两个不同的概念。商品变价是指修改商品的正常售价，调整后在一定的时间内不会在发生改变。价格可能是升高也可能是降低，一

5、般都是由于进价变动引起的。促销/折扣期： 每一种商品促销/折扣都有一定的期限，即有一定的时间限制。一种商品不可能无期限的促销/折扣。当期限超过，商品自动恢复正常售价。毛利、毛利百分比： 毛利商品售价商品进价 毛利百分比商品售价商品进价÷商品售价商品进价及本钱核算： 在本钱核算中，商品本钱价确实定一般有最后进价，移动加权平均，按商品批次定价等几种方式，由于后两种核算方式较复杂，本系统采用简单的最后进价方式。二 业务流程说明在实际管理中，有三种信息流动，即资金流，单据流和商品实物流。系统围绕实物流展开，对商品从供给商那里进货到商品销售到顾客手中整个流程进展管理。简单来说，就是商品的进销存

6、管理。每个环节通过相应的单据来连接，同时资金发生流动。在商品管理方面，我们提出部门和商品分类的概念，这种分级管理方式简洁高效。所谓部门，就是按照商品的根本属性进展分类管理。例如,超市一般可分为食品部，生鲜部，日用品部等。部门下面再分类，所谓商品分类，指按商品的具体属性划分，例如，食品部下面可以有糖果饼干类，饮料类等，每个部门和每个商品类别都有相应的负责人负责。"中小型超市管理信息系统"完全表达了这种管理思想，商品的销售和商品库存都可以按部门级和分类级完成查询等其他操作。作为一个超市的管理人员，及时了解销售情况是非常必要的，以便及时调整进货或者安排营销策略，把握商机。而&qu

7、ot;中小型超市管理信息系统"正好满足了这一要求，可以实时查询前台的销售情况，并且数据准确可信。三问题解决方案超市系统在运行过程中数据流量是非常巨大的。有时候会因数据流量过大而使网络发生阻塞，使POS系统发生断网，直接影响销售活动的进展。这种情况是应该坚决防止的，应该尽量减少网络的数据流量。这一思想在本系统中的直接表达就是采用日处理和运用本地缓存技术。日处理的主要目的就是把当天的销售数据整理汇总，更新商品库存表，为第二天的销售做准备。与日处理不同的另一种处理方式就是每次商品销售完成以后就立即更新库存。但这样会使得效劳器的负荷非常的重，经常会使POS系统发生断网。POS系统销售商品时所

8、取的商品信息是效劳器上的数据，有效的保证了数据的一致性和集中控制。虽然商品信息来自效劳器，但我们使用了本地缓存。POS系统会把取得的数据暂时的存放在本地的内存，当要读取商品信息时，会先在本地缓存里查找，如果成功的话，就不必访问效劳器。这样一来就有效的减少了网络的数据流量和效劳器的负荷。此外，系统充分利用了客户机效劳器构造的特点，比拟复杂的查询更新等操作都用存储过程来实现。存储过程在效劳器端执行完毕仅返回执行结果，能有效的减少网络的通讯流量。四 数据流图对整个业务活动进展分析归纳后，我得出如下的数据流图：数 据 流 程 图审核、打印采购定单商品入库供给商定单信息定单商品入库单验收审核结算应付帐款

9、入库商品库存变动商品库存商品信息销售分析销售数据本钱毛利财务核算商品销售销售明细销售数量POS销售采购信息采购定单库存盘点报损、报益采购信息二 系统设计一系统模块的划分根据前面所作的需求分析，我把整个系统分为如下几个模块：管理信息系统系 统 管 理收 银 台 管 理销 售 管 理进 货 管 理商 品 管 理供 应 商 管 理其 他 管 理库 存 管 理收 银 台 销 售二 数据字典商品入库单明细ENTER_GOODS_DETAIL字段名称数据类型描述ENTER_DAN_IDint入库单IDGOODS_IDint商品IDQUANTITYnumeric(18, 2)入库数量AMOUNTnumeri

10、c(18, 2)入库金额STATUSchar(4)审核状态WORK_PERSONsmallint操作人员IDWORK_DATEdatetime记帐日期商品信息GOODS_INFO字段名称数据类型描述GOODS_IDint商品IDBAR_IDint商品条形码GUIGEchar(4)规格COST_PRICEmoney进价BUY_PRICE1money正常售价BUY_PRICE2money促销/折扣销售价格LARGE_TYPEsmallint所属部门号SMALL_TYPEsmallint所属类别MAX_STOREnumeric(18, 2)最大库存MIN_STOREnumeric(18, 2)最小库

11、存GYS_CODEint供给商代码STATUSchar(4)商品进货状态FLAGchar(4)促销/折扣标记BUYERint采购员IDVAR_DATEdatetime登记日期供给商信息GYS_INFO字段名称数据类型描述GYS_CODEint厂商代码NAMEvarchar(20)企业全称ADDRESSvarchar(20)地址TEL char(20)RELATIONchar(10)联系人TYPEchar(4)类型BANKchar(4)开户行ACCOUNTvarchar(20)MENOvarchar(20)备注部门信息LARGE_TYPE字段名称数据类型描述LARGE_TYPE_IDint部门代

12、码NAMEvarchar(10)部门名称商品分类信息SMALL_TYPE字段名称数据类型描述SMALL_TYPE_IDint商品分类代码NAMEvarChar(10)分类名称人员信息PERSON_INFO字段名称数据类型描述PERSON_IDint人员代码NAMEvarchar(10)SEXchar2性别AGEsmallint年龄DUTYchar(8)职务DEGREEchar(8)学历LOGINvarbinary(20)口令MENOvarchar(20)备注前台销售表POS_SALE字段名称数据类型描述GOODS_IDint商品IDBAR_IDvarchar(10)条形码QUANTITYnum

13、eric(18, 2)销售数量AMOUNTmoney销售金额CASHERsmallint收银员IDP_NOint交易流水号收银台设置POS_SET字段名称数据类型描述POS_IDsmallint收银台号WORK_PERSONsmallint收银员ID商品变价记录表PRICE_ADJUST字段名称数据类型描述GOODS_IDsmallint商品IDCOST_PRICEsmallint商品进价LAST_PRICE1money当前售价一LAST_PRICE2money当前售价二NOW_PRICE1money所调售价一NOW_PRICE2money所调售价二ADJUST_REASONvarchar(2

14、0)变价原因WORK_PERSONint操作员IDWORK_DATEdatatime变价日期库存调整记录表STORE_ADJUST字段名称数据类型描述WORK_DATEdatatime记帐日期GOODS_IDint商品IDQUANTITYnumeric(18,2)调整前数量AMOUNTmoney调整前金额ADJUST_QUANTITYnumeric(18,2)调整数量DJUST_AMOUNTMoney调整金额ADJUST_REASONint调整原因IDWORK_PERSONint操作员ID日处理历史状态DIALY_DAN库存调整原因表STORE_ADJUST_REASON字段名称数据类型描述A

15、DJUST_IDint代号NAMEsmallint摘要商品库存表STORE_DETAIL字段名称数据类型描述GOODS_IDint商品IDQUANTITYnumeric(18,2)数量AMOUNTmoney金额MENOvarchar(10)备注商品促销/折扣记录GOODS_PROMOTE_LOG字段名称数据类型描述WORK_DATEdatatime记帐日期GOODS_IDint商品IDCURRENT_PRICEMoney当前售价PROMOTE_PRICEmoney促销价BEGIN_DATEdatetime开场日期END_DATEdatetime完毕日期WORK_PERSONint操作员权限表M

16、ENU_FLAG字段名称数据类型描述IDsmallint代号N142smallint标志字段名称数据类型描述WORK_DATEsmalldatetime日处理时间STATUSchar (4)状态WORK_PERSONint操作员ID三、程序的设计与编码有了前面的工作，我们选择就进入编码阶段了。一 POS系统的开发1. 功能及实现方法POS系统是作为一个单独的程序开发的，主要在POS机上运行，完成商品的交易任务。销售的商品信息存储在POS_SALE表中。我们把一次交易放在一个事务提交，保证了数据的完整性和数据的正确性。界面以灰色调为主，使得收银员长时间工作眼睛不感到疲劳。收银的操作也很简单方便。

17、交易流水号自动增加。当某种商品处于促销或折扣销售状态时，POS系统自动取商品的促销或折扣售价，无需人工干预，并且促销或折扣期完毕时，系统能自动识别恢复正常售价。这一个功能的实现是通过商品视图来完成的。请看商品视图源码。前台POS销售时取商品信息时用到的视图:CREATE VIEW V_SPXXASSELECT 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.B

18、UY_PRICE1 WHEN (GETDATE()<B.END_DATE AND GETDATE()>B.BEGIN_DATE) AND A.FLAG='促销' THEN A.BUY_PRICE2 WHEN (GETDATE()<B.END_DATE AND GETDATE()>B.BEGIN_DATE) AND A.FLAG='折扣' THEN A.BUY_PRICE2 ELSE A.BUY_PRICE1 END FROM GOODS_INFO A ,GOODS_PROMOTE_LOG B WHERE A.GOODS_ID*=B.GOO

19、DS_ID交易是在一个事务里完成的,请看交易完成数据提交的代码：if form_pos.Database1.InTransaction then try form_pos.query1.ApplyUpdates;把本地缓存修改的操作提交效劳器 form_pos.Database1.mit; 事务提交 form_pos.query1.mitUpdates;清空本地缓存 if form_pos.Database1.InTransaction=false thenform_pos.Database1.StartTransaction; except form_pos.Database1.Rollba

20、ck; 事务回滚end;2. 问题讨论：交易流水号确实定在实际运用中，可能十几台甚至几十台POS机同时工作，也就是存在大量的数据库并发操作。怎样使交易流水号唯一呢.我是这样实现的，在每次事务提交之前，比拟本机的流水号是否在后台数据库交易流水号中已经存在，如果存在，也就是说已经被别人占用，那么重新取出最大交易流水号，然后提交整个事务。事务提交成功以后还要更新本地交易流水号。这是取最大流水号select max(P_NO) as p_no from pos_sale的SQL语句。二管理信息系统的设计1.界面设计本系统采用了带导航栏的多文档窗体设计风格，使操作变的简单直观。当使用某一个功能模块时，只

21、显示相应的菜单，使人不会觉得眼花缭乱。系统完全摈弃那种界面花哨，色彩绚丽等华而不实做法，但和传统的风格有有所区别，传统的风格显得过于呆板。本系统的界面色调一致，简单朴素，但不失美观大方。窗体界面一致，操作也XX小异，丝毫没有杂乱无章的感觉。我首先定义了几个重要的窗体基类，其他的窗体根本上这几个基类的派生类。在使用时在对窗体进展重载。所有的窗体都是在运行时动态加载的。需要运行那个窗体时，程序才加载该窗体，用完后立即释放，这样使用户计算机系统资源得以最少得占用。请看一个窗体得创立例子：enter_dan:= Tenter_dan.Create(Self); 入库单录入窗体得创立 form_show

22、(enter_dan,555 ,360,10,2);form_show为自定义函数对所有子窗体显示我自定义了一个函数form_show，减少了工作量和代码量。procedure 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(Sende

23、r: TObject; var Action: TCloseAction);begin action:=cafree; 在内存中释放掉窗体end;2. 各个功能模块实现的要点和技术这里我只把我在编码过程中比拟重要或者比拟有代表性的技术和局部源码阐述一下。详情查看系统的源代码。2.1 类继承与重载在编码过程中，我充分利用了面向对象编程的特定代码的重用，具体实现起来依靠的是重载和继承。把具有一样或相似属性的类抽象出来作为一个基类。我定义了几个重要的窗体基类，基类窗体包含了需要的公有控件和共有事件方法。其他的窗体根本上这几个基类的派生类。在使用时在对窗体的控件的属性和方法进展继承或者重载。关于在DE

24、LPHI方法的重载，例如：procedure Action7Execute(Sender: TObject); OVERRIDE;procedure Tenter_goods_info.Action7Execute(Sender: TObject);begin tryif (dbedit1.Text<>'') and (dbedit2.Text<>'') and (dbedit3.Text<>'')and (dbedit4.Text<>'')then beginquery1.Post

25、;addbutton.Enabled:=true;delbutton.Enabled:=true;savebutton.Enabled:=false; end elseshowmessage('你的输入不完整！'); except showmessage('代码重复！'); end;end;2.2 windows消息机制当查询窗体要返回结果时，我们用到了windows消息机制。首先定义一个全局的自定义消息常量。ConstMy_WM_USER=WM_USER+100; /自定义消息向指定的窗体发送自定义消息，传递查询结果。例如：procedure Tgoods_i

26、nfo_search.searchbuttonClick(Sender: TObject);begin tryprice_adjust.Query1.Close; price_adjust.Query1.SQL.Clear; price_adjust.Query1.SQL:=query1.SQL;sendmessage(price_adjust.Handle,My_WM_USER,0,0); except beep;end; close; end;接收消息，并且处理它，例如：定义消息响应的方法procedure my_wm_user100(var msg:Tmessage); message

27、My_WM_USER;处理消息：procedure Tgoods_promote.my_wm_user100(var msg:Tmessage) ;begin with query1 doclose;sql.clear;sql.add(sql语句);open;end;2.3 关于权限设置权限设置是一个管理系统非常重要的一局部，直接关系到公司业务和财务平安性。因此，本系统在这方面的功能是较完善的。操作人员的权限可以定义到每级子菜单。对没有赋权限的菜单项不予显示。也就是说，系统能根据登陆人员的权限自动显示具有权限的功能菜单。我们把人员的权限信息存放在MENU_FLAG表中，在系统启动时加载相关的权

28、限设置信息。权限设置这一功能只有高级管理人员和系统管理员才能使用。根据权限显示菜单算法 with damo.query1 do /query1关联MENU_FLAG表 begin close; sql.Clear; sql.Add('select * from menu_flag where id=:id '); ParamByName('id').AsInteger:=person_id; open; end; for i:=1 to 42 do begin flag:=damo.query1.fieldsi.AsInteger;/flag为每项菜单的权限标志

29、 for j:=0 to main_form.ponentCount-1 do begin if (main_form.ponentsj is TMenuItem) and (main_form.ponentsj as TMenuItem).Tag=i-1 ) then if flag = 0 then (main_form.ponentsj as TMenuItem).Visible:=false else (main_form.ponentsj as TMenuItem).Visible:=true; end; end;2.4 应用Delphi显式事务控制事务控制是一种能够把数据库的一组修

30、改作为整体提交给数据库以保证数据的一致性和完整性的机制。如果其中有一个操作失败，那么所有操作失败。2.5 存储过程的使用在程序设计中，系统主要的复杂的操作我都都是通过存储过程来实现的。例如：使用库存调整操作时，我们用P_ADJUST_STORE来完成。procedure Tadjust_store.okbuttonClick(Sender: TObject);beginif not damo.Database1.InTransaction then damo.Database1.StartTransaction; 开场一个事务 with P_ADJUST_STORE do /P_ADJUST_

31、STORE为存储过程 begin Params1.AsInteger:=strtoint(edit_id.Text); Params2.AsFloat:=strtofloat(edit_adjust.Text); Params3.AsInteger:= table1.Fields0.AsInteger ;Params4.AsInteger:= person_id ;/ person_id为全局变量人员ID Prepare; execproc; end; try damo.Database1.mit; 事务提交 except begindamo.Database1.Rollback; 事务回滚s

32、howmessage('数据提交失败！ '); end; end; 以下是几种典型存储过程。日处理存储过程：CREATE PROCEDURE P_DIALY_DOdialy_date char(12), person_id smallint AS DECLARE goods_id int DECLARE quantity floatDECLARE amount moneyDECLARE temp_cursor CURSOR FORSELECT A.GOODS_ID,SUM(A.QUANTITY),SUM(A.QUANTITY*B.COST_PRICE) FROM POS_SAL

33、E A, GOODS_INFOBWHERE convert(char(12),WORK_DATE,102)=dialy_date AND A.GOODS_ID=B.GOODS_ID GROUP BY A.GOODS_ID OPEN temp_cursor FETCH 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_

34、DETAILSET QUANTITY=QUANTITY-quantity , AMOUNT=AMOUNT-amountWHERE GOODS_ID = goods_id END FETCH NEXT FROM temp_cursor INTO goods_id,quantity,amount END INSERT DIALY_DAN VALUES( dialy_date,'已做',person_id) CLOSE temp_cursor DEALLOCATE temp_cursor查询每日商品销售汇总的存储过程：CREATE PROCEDURE P_DIALY_SALE ASC

35、REATE TABLE *temp_table(amount float,work_date char(12),sale_cost float,gain float)INSERT INTO *temp_tableSELECT 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.quantity) AS gain FROM pos_sale a,small_type b,goods_info c WHERE

36、 a.goods_id=c.goods_id AND c.small_type=b.small_type_idSELECT work_date, sum(amount) AS sum_amount , sum(sale_cost) AS sum_sale_cost , sum( gain ) AS sum_gainFROM *temp_table GROUP BY work_date, ORDER BY work_date商品审核入库存储过程CREATE PROCEDURE P_GOODS_ENTER enter_dan_id int AS DECLARE goods_id int DECLA

37、RE quantity float DECLARE amount money DECLARE temp_cursor CURSOR FOR SELECT GOODS_ID,QUANTITY,AMOUNT FROM ENTER_GOODS_DETAIL WHERE ENTER_DAN_ID=enter_dan_id OPEN temp_cursor FETCH NEXT FROM temp_cursor INTO goods_id,quantity,amount WHILE (FETCH_STATUS=0) BEGIN if EXISTS(SELECT * FROM STORE_DETAIL W

38、HERE GOODS_ID = goods_id) BEGIN UPDATE STORE_DETAILSET QUANTITY=QUANTITY+quantity , AMOUNT=AMOUNT+amount WHERE GOODS_ID = goods_id END ELSE BEGIN INSERT STORE_DETAIL VALUES(goods_id,quantity,amount,getdate() END FETCH NEXT FROM temp_cursor INTO goods_id,quantity,amount END CLOSE temp_cursor DEALLOCA

39、TE temp_cursor查询部门销售汇总的存储过程CREATE PROCEDURE P_SEARCH_DEP_SALE ASCREATE TABLE *temp_table(large_type_id int,dep_name char(10),quantity float,amount float,work_date char(12),sale_cost float,gain float)INSERT INTO *temp_tableSELECT b.large_type_id, AS dep_name, a.quantity,a.amount,convert(char(12

40、),a.work_date,102) AS work_date, (c.cost_price*a.quantity) AS sale_cost, (a.amount-c.cost_price*a.quantity) AS gain FORM pos_sale a,large_type b,goods_info c WHERE a.goods_id=c.goods_id AND c.large_type=b.large_type_idSELECT work_date, large_type_id ,dep_name, sum( quantity) AS sum_quantity , sum(am

41、ount) AS sum_amount , sum(sale_cost) AS sum_sale_cost , sum( gain ) AS sum_gainFROM *temp_table GROUP BY work_date, large_type_id ,dep_name ORDER BY work_date查询商品分类汇总的存储过程CREATE PROCEDURE P_SEARCH_KIND_SALE ASCREATE TABLE *temp_table(small_type_id int,kind_name char(10),quantity float,amount float,w

42、ork_date char(12),sale_cost float,gain float)INSERT INTO *temp_tableSELECT b.small_type_id, AS kind_name, a.quantity,a.amount,convert(char(12),a.word_date,102) AS work_date, (c.cost_price*a.quantity) AS sale_cost, (a.amount-c.cost_price*a.quantity) AS gain FROM pos_sale a,small_type b,goods_in

43、fo c WHERE a.goods_id=c.goods_id AND c.small_type=b.small_type_idSELECT work_date, small_type_id ,kind_name, sum( quantity) AS sum_quantity , sum(amount) AS sum_amount , sum(sale_cost) AS sum_sale_cost , sum( gain ) AS sum_gainFROM *temp_table GROUP BY work_date, small_type_id ,kind_name ORDER BY work_date查询商品销售的存储过程：CREATE PROCEDURE P_SEARCH_GOODS_SALE ASCREATE TABLE *temp_table(goods_id int,bar_id int,goods_name char(20),guige char(4),quantity float,amount float,work_date char(12),sale_cost float,gain float,gain_rate float)INSERT INTO