1、毕业设计（论文）课题名称： 中小型超市管理系统规划 专业名称 计算机信息管理 班 级 XXX 指导教师 XXX 学生姓名 XXXX 完成时间： XXXX 年 XX 月 XX 日至 XX 年 XXX 月 XX 日初稿时间： XXXX 年 XX 月 XX 日定稿时间： XXXX 年 XX 月 XXXXXX 日目 录一 需求分析 1（一） 行业概念 的理解 1（二） 业务流程说明 2（三）问题解决方案 .2（四） 数据流图 3二 系统设计 3二 系统设计 4（一）系统模块的划分 .4（二） 数据字典 4三、程序的设计与编码 8（一） POS 系统的开发 81. 功能及实现方法 82. 问题讨论：交易
2、流水号的确定 9（二）管理信息系统的设计 .91.界面设计 .92. 各个功能模块实现的要点和技术 .102.1 类继承与重载 102.2 windows 消息机制 112.3 关于权限设置 122.4 应用 Delphi 显式事务控制 .132.5 存储过程的使用 13参考文献 .20第 1 页 共 20 页中小型超市管理系统规划内容摘要：中小型超市管理信息系统是一个比较复杂和全面的管理系统，可以完成中小型超市的大部分业务。总的来说包括进货管理，物价管理，库存管理，销售管理，供货厂商管理，POS 收款机子系统等。该系统界面朴素一致，但不失美观大方；操作方便，查询功能强大；数据全面、准确。系统
3、采用了目前比较流行而技术非常成熟地客户机服务器结构（C/S） ，前台应用程序用 Delphi 开发,后台数据库是Microsoft SQL Server 2000。关键字: 面向对象的程序设计，继承，WINDOWS 消息，存储过程，事务第 2 页 共 20 页一 需求分析（一） 行业概念的理解POS： Point Of Sells , 电子收款机系统，也就是直接与顾客打交道的收银机系统。定单状态：用来描述商品进货方式，一般分为定单、日配、自采等。定单：表示该商品进货必须先向供货商发出定单，供货商按定单上的商品明细发货，超市则按定单上的商品明细收货。日配：指那些每天都要进货的商品或者补货期较短的
4、商品，例如水果，生鲜蔬菜等。如果按定单，时间不允许而且工作重复烦琐。自采：顾名思义，超市自己负责商品的进货。销售状态：用来描述某种商品当前的销售状态，一般定义为正常、促销、折扣等，正常表示商品处于正常的售价状态，即按正常的售价销售。促销：表示超市把某种商品让利销售，以此来吸引跟多的消费者。一般低于正常售价甚至成本价。折扣：表示某种商品销售情况不好，或者商品有瑕疵，或者保质期快到等情况发生时，使尽快商品销售出去的一种手段。库存调整：当非因正常销售发生而实物数量变动时，通过调整库存使其帐面数量与实物数量相符。日处理：当一天的销售结束后，开始做日处理。把当天的销售数据汇总，调整商品库存。损益：商品出
5、现损坏，变质，被盗等情况发生时，商品发生损益。损益通过调整库存得到体现。商品变价：商品变价与促销/折扣调整价格是两个不同的概念。商品变价是指修改商品的正常售价，调整后在一定的时间内不会在发生改变。价格可能是升高也可能是降低，一般都是由于进价变动引起的。促销/折扣期： 每一种商品促销/折扣都有一定的期限，即有一定的时间限制。一种商品不可能无期限的促销/折扣。当期限超过，商品自动恢复正常售价。毛利、毛利百分比： 毛利商品售价商品进价 毛利百分比（商品售价商品进价）商品售价商品进价及成本核算： 在成本核算中，商品成本价的确定一般有最后进价，移动加权平均，按商品批次定价等几种方式，由于后两种核算方式较
6、复杂，本系统采用简单的最后进价方式。（二） 业务流程说明在实际管理中，有三种信息流动，即资金流，单据流和商品实物流。系统围绕实第 3 页 共 20 页物流展开，对商品从供应商那里进货到商品销售到顾客手中整个流程进行管理。简单来说，就是商品的进销存管理。每个环节通过相应的单据来连接，同时资金发生流动。在商品管理方面，我们提出部门和商品分类的概念，这种分级管理方式简洁高效。所谓部门，就是按照商品的基本属性进行分类管理。例如,超市一般可分为食品部，生鲜部，日用品部等。部门下面再分类，所谓商品分类，指按商品的具体属性划分，例如，食品部下面可以有糖果饼干类，饮料类等，每个部门和每个商品类别都有相应的负责
7、人负责。 中小型超市管理信息系统完全体现了这种管理思想，商品的销售和商品库存都可以按部门级和分类级完成查询等其他操作。作为一个超市的管理人员，及时了解销售情况是非常必要的，以便及时调整进货或者安排营销策略，把握商机。而中小型超市管理信息系统正好满足了这一要求，可以实时查询前台的销售情况，并且数据准确可信。（三）问题解决方案超市系统在运行过程中数据流量是非常巨大的。有时候会因数据流量过大而使网络发生阻塞，使 POS 系统发生断网，直接影响销售活动的进行。这种情况是应该坚决避免的，应该尽量减少网络的数据流量。这一思想在本系统中的直接体现就是采用日处理和运用本地缓存技术。日处理的主要目的就是把当天的
8、销售数据整理汇总，更新商品库存表，为第二天的销售做准备。与日处理不同的另一种处理方式就是每次商品销售完成以后就立即更新库存。但这样会使得服务器的负荷非常的重，经常会使 POS系统发生断网。POS 系统销售商品时所取的商品信息是服务器上的数据，有效的保证了数据的一致性和集中控制。虽然商品信息来自服务器，但我们使用了本地缓存。POS 系统会把取得的数据暂时的存放在本地的内存，当要读取商品信息时，会先在本地缓存里查找，如果成功的话，就不必访问服务器。这样一来就有效的减少了网络的数据流量和服务器的负荷。此外，系统充分利用了客户机服务器结构的特点，比较复杂的查询更新等操作都用存储过程来实现。存储过程在服
9、务器端执行完毕仅返回执行结果，能有效的减少网络的通讯流量。第 4 页 共 20 页（四） 数据流图对整个业务活动进行分析归纳后，我得出如下的数据流图：数 据 流 程 图审核、打印采购定单商品入库供应商定单信息 定单商品入库单验收审核结算 应付帐款 入库商品库存变动商品库存商品信息销售分析 销售数据成本 毛利财务核算商品销售 销售明细销售数量POS 销售采购信息采购定单库存盘点 报损、报益采购信息第 5 页 共 20 页二 系统设计（一）系统模块的划分根据前面所作的需求分析，我把整个系统分为如下几个模块：（二） 数据字典商品入库单明细 ENTER_GOODS_DETAIL字段名称 数据类型 描述
10、ENTER_DAN_ID int 入库单 IDGOODS_ID int 商品 IDQUANTITY numeric(18, 2) 入库数量AMOUNT numeric(18, 2) 入库金额STATUS char(4) 审核状态WORK_PERSON smallint 操作人员 IDWORK_DATE datetime 记帐日期商品信息 GOODS_INFO字段名称 数据类型 描述GOODS_ID int 商品 IDBAR_ID int 商品条形码GUIGE char(4) 规格收 银 台 销 售其 他 管 理收 银 台 管 理供 应 商 管 理库 存 管 理销 售 管 理进 货 管 理商 品
11、 管 理系 统 管 理管理信息系统第 6 页 共 20 页COST_PRICE money 进价BUY_PRICE1 money 正常售价BUY_PRICE2 money 促销/折扣销售价格LARGE_TYPE smallint 所属部门号SMALL_TYPE smallint 所属类别MAX_STORE numeric(18, 2) 最大库存MIN_STORE numeric(18, 2) 最小库存GYS_CODE int 供应商代码STATUS char(4) 商品进货状态FLAG char(4) 促销/折扣标记BUYER int 采购员 IDVAR_DATE datetime 登记日期供
12、应商信息 GYS_INFO字段名称 数据类型 描述GYS_CODE int 厂商代码NAME varchar(20) 企业全称ADDRESS varchar(20) 地址TEL char(20) 电话号码RELATION char(10) 联系人TYPE char(4) 类型BANK char(4) 开户行ACCOUNT varchar(20) 帐号MENO varchar(20) 备注部门信息 LARGE_TYPE字段名称 数据类型 描述LARGE_TYPE_ID int 部门代码NAME varchar(10) 部门名称商品分类信息 SMALL_TYPE字段名称 数据类型 描述SMALL_
13、TYPE_ID int 商品分类代码NAME varChar(10) 分类名称第 7 页 共 20 页人员信息 PERSON_INFO字段名称 数据类型 描述PERSON_ID int 人员代码NAME varchar(10) 姓名SEX char（2） 性别AGE smallint 年龄DUTY char(8) 职务DEGREE char(8) 学历LOGIN varbinary(20) 口令MENO varchar(20) 备注前台销售表 POS_SALE字段名称 数据类型 描述GOODS_ID int 商品 IDBAR_ID varchar(10) 条形码QUANTITY numeric
14、(18, 2) 销售数量AMOUNT money 销售金额CASHER smallint 收银员 IDP_NO int 交易流水号收银台设置 POS_SET字段名称 数据类型 描述POS_ID smallint 收银台号WORK_PERSON smallint 收银员 ID商品变价记录表 PRICE_ADJUST字段名称 数据类型 描述GOODS_ID smallint 商品 IDCOST_PRICE smallint 商品进价LAST_PRICE1 money 当前售价一LAST_PRICE2 money 当前售价二NOW_PRICE1 money 所调售价一NOW_PRICE2 money
15、 所调售价二第 8 页 共 20 页ADJUST_REASON varchar(20) 变价原因WORK_PERSON int 操作员 IDWORK_DATE datatime 变价日期库存调整记录表 STORE_ADJUST字段名称 数据类型 描述WORK_DATE datatime 记帐日期GOODS_ID int 商品 IDQUANTITY numeric(18,2) 调整前数量AMOUNT money 调整前金额ADJUST_QUANTITY numeric(18,2) 调整数量DJUST_AMOUNT Money 调整金额ADJUST_REASON int 调整原因 IDWORK_P
16、ERSON int 操作员 ID日处理历史状态 DIALY_DAN库存调整原因表 STORE_ADJUST_REASON字段名称 数据类型 描述ADJUST_ID int 代号NAME smallint 摘要商品库存表 STORE_DETAIL字段名称 数据类型 描述GOODS_ID int 商品 IDQUANTITY numeric(18,2) 数量AMOUNT money 金额MENO varchar(10) 备注商品促销/折扣记录 GOODS_PROMOTE_LOG字段名称 数据类型 描述WORK_DATE datatime 记帐日期GOODS_ID int 商品 IDCURRENT_P
17、RICE Money 当前售价PROMOTE_PRICE money 促销价第 9 页 共 20 页BEGIN_DATE datetime 开始日期END_DATE datetime 结束日期WORK_PERSON int 操作员权限表MENU_FLAG字段名称 数据类型 描述ID smallint 代号N142 smallint 标志字段名称 数据类型 描述WORK_DATE smalldatetime 日处理时间STATUS char (4) 状态WORK_PERSON int 操作员 ID第 10 页 共 20 页三、程序的设计与编码有了前面的工作，我们选择就进入编码阶段了。（一） PO
18、S 系统的开发1. 功能及实现方法POS 系统是作为一个单独的程序开发的，主要在 POS 机上运行，完成商品的交易任务。销售的商品信息存储在 POS_SALE 表中。我们把一次交易放在一个事务提交，保证了数据的完整性和数据的正确性。界面以灰色调为主，使得收银员长时间工作眼睛不感到疲劳。收银的操作也很简单方便。交易流水号自动增加。当某种商品处于促销或折扣销售状态时，POS 系统自动取商品的促销或折扣售价，无需人工干预，并且促销或折扣期结束时，系统能自动识别恢复正常售价。这一个功能的实现是通过商品视图来完成的。请看商品视图源码。前台 POS 销售时取商品信息时用到的视图:CREATE VIEW V
19、_SPXXASSELECT NAME , A.GOODS_ID,A.BAR_ID,A.GUIGE, BUY_PRICE= CASE WHEN (GETDATE()B.END_DATE AND GETDATE()B.BEGIN_DATE) AND A.FLAG=促销 THEN A.BUY_PRICE2WHEN (GETDATE()B.BEGIN_DATE) AND A.FLAG=折扣 THEN A.BUY_PRICE2ELSE A.BUY_PRICE1 END FROM GOODS_INFO A ,GOODS_PROMOTE_LOG BWHERE A.GOODS_ID*=B.GOODS_ID交易
20、是在一个事务里完成的,请看交易完成数据提交的代码：if form_pos.Database1.InTransaction thentryform_pos.query1.ApplyUpdates;把本地缓存修改的操作提交服务器第 11 页 共 20 页form_pos.Database1.Commit; 事务提交form_pos.query1.CommitUpdates;清空本地缓存if form_pos.Database1.InTransaction=false thenform_pos.Database1.StartTransaction;exceptform_pos.Database1.R
21、ollback; 事务回滚end;2. 问题讨论：交易流水号的确定在实际运用中，可能十几台甚至几十台 POS 机同时工作，也就是存在大量的数据库并发操作。怎样使交易流水号唯一呢？我是这样实现的，在每次事务提交之前，比较本机的流水号是否在后台数据库交易流水号中已经存在，如果存在，也就是说已经被别人占用，则重新取出最大交易流水号，然后提交整个事务。事务提交成功以后还要更新本地交易流水号。这是取最大流水号 select max(P_NO) as p_no from pos_sale 的 SQL 语句。（二）管理信息系统的设计1.界面设计本系统采用了带导航栏的多文档窗体设计风格，使操作变的简单直观。当
22、使用某一个功能模块时，只显示相应的菜单，使人不会觉得眼花缭乱。系统完全摈弃那种界面花哨，色彩绚丽等华而不实做法，但和传统的风格有有所区别，传统的风格显得过于呆板。本系统的界面色调一致，简单朴素，但不失美观大方。窗体界面一致，操作也大同小异，丝毫没有杂乱无章的感觉。我首先定义了几个重要的窗体基类，其他的窗体基本上这几个基类的派生类。在使用时在对窗体进行重载。所有的窗体都是在运行时动态加载的。需要运行那个窗体时，程序才加载该窗体，用完后立即释放，这样使用户计算机系统资源得以最少得占用。请看一个窗体得创建例子：enter_dan:= Tenter_dan.Create(Self); 入库单录入窗体得
23、创建form_show(enter_dan,555 ,360,10,2); form_show 为自定义函数对所有子窗体显示我自定义了一个函数 form_show，减少了工作量和代码量。procedure form_show(form:TForm;fwidth ,fheight,fleft,ftop :integer);beginwith form dobeginheight:=fheight;第 12 页 共 20 页width:=fwidth;Left:=fleft;top:=ftop;Show;end;end;窗体的释放实现，例如释放入库单录入界面窗体：procedure Tenter_
24、dan.FormClose(Sender: TObject; var Action: TCloseAction);beginaction:=cafree; 在内存中释放掉窗体end;2. 各个功能模块实现的要点和技术这里我只把我在编码过程中比较重要或者比较有代表性的技术和部分源码阐述一下。详情查看系统的源代码。2.1 类继承与重载在编码过程中，我充分利用了面向对象编程的特定代码的重用，具体实现起来依靠的是重载和继承。把具有相同或相似属性的类抽象出来作为一个基类。我定义了几个重要的窗体基类，基类窗体包含了需要的公有控件和共有事件方法。其他的窗体基本上这几个基类的派生类。在使用时在对窗体的控件的属
25、性和方法进行继承或者重载。关于在 DELPHI 方法的重载，例如：procedure Action7Execute(Sender: TObject); OVERRIDE;procedure Tenter_goods_info.Action7Execute(Sender: TObject);begintryif (dbedit1.Text) and (dbedit3.Text)thenbeginquery1.Post;addbutton.Enabled:=true;delbutton.Enabled:=true;savebutton.Enabled:=false;endelse第 13 页 共
26、20 页showmessage(你的输入不完整！);exceptshowmessage(代码重复！);end;end;2.2 windows 消息机制当查询窗体要返回结果时，我们用到了 windows 消息机制。首先定义一个全局的自定义消息常量。Const My_WM_USER=WM_USER+100; /自定义消息 向指定的窗体发送自定义消息，传递查询结果。例如：procedure Tgoods_info_search.searchbuttonClick(Sender: TObject);begintryprice_adjust.Query1.Close; price_adjust.Quer
27、y1.SQL.Clear;price_adjust.Query1.SQL:=query1.SQL;sendmessage(price_adjust.Handle,My_WM_USER,0,0);exceptbeep;end;close;end;接收消息，并且处理它，例如：定义消息响应的方法procedure my_wm_user100(var msg:Tmessage); message My_WM_USER;处理消息：procedure Tgoods_promote.my_wm_user100(var msg:Tmessage) ;beginwith query1 doclose;sql.c
28、lear;sql.add(sql 语句);open;end;第 14 页 共 20 页2.3 关于权限设置权限设置是一个管理系统非常重要的一部分，直接关系到公司业务和财务安全性。因此，本系统在这方面的功能是较完善的。操作人员的权限可以定义到每级子菜单。对没有赋权限的菜单项不予显示。也就是说，系统能根据登陆人员的权限自动显示具有权限的功能菜单。我们把人员的权限信息存放在 MENU_FLAG 表中，在系统启动时加载相关的权限设置信息。权限设置这一功能只有高级管理人员和系统管理员才能使用。根据权限显示菜单算法with damo.query1 do /query1 关联 MENU_FLAG 表begi
29、nclose;sql.Clear;sql.Add(select * from menu_flag where id=:id );ParamByName(id).AsInteger:=person_id;open;end;for i:=1 to 42 dobeginflag:=damo.query1.fieldsi.AsInteger;/flag 为每项菜单的权限标志for j:=0 to main_form.ComponentCount-1 dobeginif (main_form.Componentsj is TMenuItem) and (main_form.Componentsj as
30、TMenuItem).Tag=i-1 ) thenif flag = 0 then(main_form.Componentsj as TMenuItem).Visible:=falseelse(main_form.Componentsj as TMenuItem).Visible:=true;end;end;第 15 页 共 20 页2.4 应用 Delphi 显式事务控制事务控制是一种能够把数据库的一组修改作为整体提交给数据库以保证数据的一致性和完整性的机制。如果其中有一个操作失败，则所有操作失败。2.5 存储过程的使用在程序设计中，系统主要的复杂的操作我都都是通过存储过程来实现的。例如：使
31、用库存调整操作时，我们用 P_ADJUST_STORE 来完成。procedure Tadjust_store.okbuttonClick(Sender: TObject);beginif not damo.Database1.InTransaction thendamo.Database1.StartTransaction; 开始一个事务with P_ADJUST_STORE do /P_ADJUST_STORE 为存储过程beginParams1.AsInteger:=strtoint(edit_id.Text);Params2.AsFloat:=strtofloat(edit_adjus
32、t.Text);Params3.AsInteger:= table1.Fields0.AsInteger ;Params4.AsInteger:= person_id ;/ person_id 为全局变量人员 IDPrepare;execproc;end;trydamo.Database1.Commit; 事务提交exceptbegindamo.Database1.Rollback; 事务回滚showmessage(数据提交失败！ );end;end; 以下是几种典型存储过程。日处理存储过程：CREATE PROCEDURE P_DIALY_DOdialy_date char(12),pers
33、on_id smallintASDECLARE goods_id int第 16 页 共 20 页DECLARE quantity floatDECLARE amount moneyDECLARE temp_cursor CURSOR FORSELECT A.GOODS_ID,SUM(A.QUANTITY),SUM(A.QUANTITY*B.COST_PRICE) FROM POS_SALE A, GOODS_INFO BWHERE convert(char(12),WORK_DATE,102)=dialy_date AND A.GOODS_ID=B.GOODS_ID GROUP BY A.G
34、OODS_ID OPEN temp_cursorFETCH NEXT FROM temp_cursor INTO goods_id, quantity, amountWHILE (FETCH_STATUS=0)BEGINif EXISTS(SELECT * FROM STORE_DETAIL WHERE GOODS_ID = goods_id)BEGIN UPDATE STORE_DETAILSET QUANTITY=QUANTITY-quantity , AMOUNT=AMOUNT-amountWHERE GOODS_ID = goods_idENDFETCH NEXT FROM temp_
35、cursor INTO goods_id,quantity,amountENDINSERT DIALY_DANVALUES( dialy_date,已做,person_id)CLOSE temp_cursorDEALLOCATE temp_cursor查询每日商品销售汇总的存储过程：CREATE PROCEDURE P_DIALY_SALEASCREATE TABLE #temp_table(amount float,work_date char(12),sale_cost float,gain float)INSERT INTO #temp_table第 17 页 共 20 页SELECT
36、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 gainFROM pos_sale a,small_type b,goods_info cWHERE a.goods_id=c.goods_idAND c.small_type=b.small_type_idSELECT work_date, sum(amount) AS sum_amount , sum(sale_cost) A
37、S sum_sale_cost , sum( gain ) AS sum_gainFROM #temp_table GROUP BY work_date, ORDER BY work_date商品审核入库存储过程CREATE PROCEDURE P_GOODS_ENTERenter_dan_id intASDECLARE goods_id intDECLARE quantity floatDECLARE amount moneyDECLARE temp_cursor CURSOR FORSELECT GOODS_ID,QUANTITY,AMOUNT FROM ENTER_GOODS_DETAI
38、LWHERE ENTER_DAN_ID=enter_dan_idOPEN temp_cursorFETCH NEXT FROM temp_cursor INTO goods_id,quantity,amountWHILE (FETCH_STATUS=0)BEGINif EXISTS(SELECT * FROM STORE_DETAIL WHERE GOODS_ID = goods_id)BEGIN UPDATE STORE_DETAILSET QUANTITY=QUANTITY+quantity , AMOUNT=AMOUNT+amountWHERE GOODS_ID = goods_idEN
39、DELSEBEGIN第 18 页 共 20 页INSERT STORE_DETAIL VALUES(goods_id,quantity,amount,getdate()ENDFETCH NEXT FROM temp_cursor INTO goods_id,quantity,amountENDCLOSE temp_cursorDEALLOCATE temp_cursor查询部门销售汇总的存储过程CREATE PROCEDURE P_SEARCH_DEP_SALEASCREATE TABLE #temp_table(large_type_id int,dep_name char(10),quan
40、tity float,amount float,work_date char(12),sale_cost float,gain float)INSERT INTO #temp_tableSELECT b.large_type_id,b.name AS dep_name,a.quantity,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 gainFORM pos_sale a,
41、large_type b,goods_info cWHERE a.goods_id=c.goods_idAND c.large_type=b.large_type_idSELECT work_date, large_type_id ,dep_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 第 19 页 共 20 页GROUP BY work_date, large_
42、type_id ,dep_name ORDER BY work_date查询商品分类汇总的存储过程CREATE PROCEDURE P_SEARCH_KIND_SALEASCREATE TABLE #temp_table(small_type_id int,kind_name char(10),quantity float,amount float,work_date char(12),sale_cost float,gain float)INSERT INTO #temp_tableSELECT b.small_type_id,b.name AS kind_name,a.quantity,a
43、.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 gainFROM pos_sale a,small_type b,goods_info cWHERE a.goods_id=c.goods_idAND c.small_type=b.small_type_idSELECT work_date, small_type_id ,kind_name,sum( quantity) AS su
44、m_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_SALEASCREATE TABLE #temp_table第 20 页 共 20 页(goods_id int,bar_id int,goods_name
45、 char(20),guige char(4),quantity float,amount float,work_date char(12),sale_cost float,gain float,gain_rate float)INSERT INTO #temp_tableSELECT a.goods_id,a.bar_id,a.name AS goods_name,a.guige,a.quantity,a.amount,convert(char(12),a.word_date,102) AS work_date, (c.cost_price*a.quantity) AS sale_cost,
46、(a.amount-c.cost_price*a.quantity) AS gain,(a.amount-c.cost_price*a.quantity)/(c.cost_price*a.quantity) AS gain_rateFORM pos_sale a,large_type b,goods_info cWHERE a.goods_id=c.goods_idAND c.large_type=b.large_type_idSELECT work_date, goods_id , bar_id, goods_name , guige ,sum( quantity) AS sum_quant
47、ity , sum(amount) AS sum_amount , sum(sale_cost) AS sum_sale_cose , sum( gain ) AS sum_gain,gain_rate*100 AS gain_rateFORM #temp_table GROUP BY work_date,goods_id, goods_name , guige,gain_rate,bar_id ORDER BY work_date库存调整存储过程CREATE PROCEDURE P_STORE_ADJUSTgoods_id int,第 21 页 共 20 页adjust_quantity f
48、loat,adjust_readon int,work_person intASDECLARE price money DECLARE quantity floatDECLARE amount moneySELECT quantity= QUANTITY,amount=AMOUNT FROM STORE_DETAIL WHERE GOODS_ID=goods_idSELECT price=cost_price FROM GOODS_INFO WHERE GOODS_ID=goods_id UPDATE STORE_DETAILSETQUANTITY=QUANTITY-adjust_quanti
49、ty, AMOUNT=AMOUNT-price*adjust_quantityWHERE goods_id =goods_idINSERT STORE_ADJUST VALUES(goods_id,quantity,amount,adjust_quantity,convert(money,price*adjust_quantity),adjust_readon,work_pe第 22 页 共 20 页参考文献1) Delphi6 数据库技术 姜洪、张希编著 国防工业出版社 2005.42) SQL Server 高级管理与开发 飞思科技产品研发中心编著 电子工业出版社 2006.13) Delphi 趣味程序导学 杨正华 吕跃春编著 清华大学出版社 2007.84) Delphi6.0 编程技巧与实例分析 关兵、邵谦谦等著 中国水利水电出版社 2005.55) SQL Server7.0 应用与
