计算机应用毕业设计（论文）-文华书店进销存管理系统.doc

杭州科技职业技术学院 (论文) 01计（4）共45页文华书店进销存管理系统学生：xxx 指导老师：xxx杭州科技职业技术学院 计算机技术及应用 01计（4）目 录摘要. . .2关键词. . .2前言. . .3第一章 系统分析. . .41.1书店业务流程. . 41.2 数据流图. . 51.3 数据字典. . 5第二章 系统设计. . .92.1 系统设计目标. 92.2 系统功能分析与设计. . 9第三章 数据库设计. 113.1 概念结构设计. . 113.2 逻辑结构设计. . . 12第四章 系统各模块详细介绍. . .144.1 系统总控表单的介绍. . . . 144.2 进货管理的介绍. . . . . . . 154.3 销售管理的介绍. . . . . . . . . . .224.4 内部管理的介绍. . . . . 294.5 图书统计的介绍. . . . . . . 404.6 系统管理的介绍. . . . . 41第五章 开发总结. . 425.1 结果分析. .425.2 结束语. 42第六章 参考文献. . . 43附录：有关报表打印结果.43摘要：本论文论述了文华书店进销存管理系统开发的基本原理和方法。全文共分为摘要、关键词、前言、系统分析、系统设计、数据库实现与设计、系统界面的设计与开发、小结、参考文献等八个部分，详细阐述了系统分析、系统设计、数据库设计、系统界面的设计的方法及其内容，对如何使用vfp开发本系统作了较为详细的介绍，本系统操作界面友好，功能齐全。本系统以数据库的四大基本操作（添加，删除，查询，修改）为基础操作，完成了用户要求的全部功能。同时本系统还具有可靠性好，容错能力强，界面友好，易于维护和易于扩充等特点。关键词：visual foxpro, sql，数据库。前言：随着计算机技术的不断发展, 它已经成为人们工作和生活中不可缺少的工具。早在1954年，银行、大公司和大企业纷纷采用计算机进行帐户和账目管理、生产管理、库存管理、销售管理、统计报表等。从数据的收集、存储、整理到检索统计，应用的范围日益扩大，使计算机的应用很快超过科学计算，成为最大的计算机应用领域。数据处理应用的不断扩大，推动了数据库管理系统、表处理软件、以及用于分析和预测等软件的发展。数据处理是现代化管理的基础。它不仅适用于处理日常的事务，且能支持科学的管理与决策。以一个企业为例，从市场预测，到经营决策、生产管理、财务管理、销售服务等，无不与数据处理有关。随着本书店规模的不断扩大，员工人数的不断增多，使得手操作管理模式的局限性越发突出，而使用现有的书店管理系统又不能满足本书店的实际情况，如：会员只需在本书店保留会员卡号、个人基本资料而不需要在本书店存入一定数额的资金；还有零售折扣的设置有别于其它书店管理系统，本系统是根据图书类别来设置零售折扣的；所以开发具有时代特点的，具有高效管理能力的本书店进销存管理系统很有意义。本书店管理的特点是信息处理量比较大，所存的图书种类多，而且由于进货单、销售单、需求单等单据发行量特别大，关联信息多，查询和统计的方式各不相同等原因,因此在管理上实现起来有一定困难。在管理的过程中经常会出现信息的重复传递，单据报表种类繁多，各个部门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理的需要,我们采取了下面的一些原则：1、 统一各种原始单据的格式，统一账目和报表的格式。2、 删除不必要的管理冗余，实现管理规范化、科学化。3、 程序代码标准化，软件统一化，确保软件的可维护性和实用性。4、 界面尽量简单化，做到实用，方便， 尽量满足书店中不同层次员工的需要。本系统采用了visual foxpro的开发环境。第一章 系统分析1.1书店业务流程通过采用系统流程图中部分图形工具来描述管理活动，进行规范化说明。业务流程图的符号说明如图41所示：1、 2、 3、 4、 系统中人员 实体或单据 实物或信息流 处理 图41 业务流程图图文华书店进销存管理系统的管理业务流程图如图42所示。进货单据图书销售销售单据仓库管理员库存图书销售人员进货人员图书入库处理对图书销售进行处理销售单据供应商顾客 图42 文华书店进销存管理系统业务流程图1.2数据流图（简称为dfd）数据流图是组织中信息运动的抽象。从系统的科学性、管理的合理性、实际运动的可行性角度出发，将信息处理功能和彼此之间的联系。d2进货单f3p3对进货单处理d3图书资料表f5d2销售单p4f4销售处理 图43 系统数据流程图其中p表示数据处理，f表示数据流，d表示数据存储。1.3数据字典（简称为dd）绘制dfd，只是对数据处理和彼此之间的联系进行了说明。为进一步明确数据的详细内容和数据加工过程，应将数据流图中的全部数据流及其组成部分的数据元素，数据存储，数据加工，通过数据字典描述清楚，以便于此后系统设计的进行。这就需要开发人员编写详细的数据字典，来描述系统开发过程的细节。下面列出本系统中的数据项、数据流、数据存储、加工处理和数据结构的数据字典。数据项的dd表列举如下：图书资料表字段名称类型长度小数位数说明书编号字符型13书编号有十位,前一位是国家代号,后三位或四位是出版社代号,如“7100026016”等.书名字符型40图书名称类别编号字符型5表示图书种类，如：1表示哲学社会科学类图书定价数值型102图书定价进货折扣数值型102进货该书时，供应商销售给本书店的折扣进价数值型102定价*进货折扣批销折扣数值型102进货折扣+5%库存上限整型4书店允许某种图书库存数量的最大值库存下限整型4当现有图书数量库存下限时，提示缺货库存量整型4现有图书数量实洋数值型102库存量*定价*进货折扣作者字符型10本图书的著作人书的其它备注信息字符型40与本图书相关的的信息开本字符型10出版社代号字符型20出版本图书的出版社代号，它包含在图书编号内，如：7100026016中100就是出版社代号出版社简称字符型20出版社全称可以重复，但出版简称不允许重复进货总表(进货总表.dbf) 字段名称类型长度小数位数说明进货单号整型4本店对进货单进行自编号，如：1、2等原始进货单号字符型20进货单据上供应商的销售单号，即称原始进货单号进货日期日期型8该批进货的进货日期供应商名称字符型30提供给本店图书的单位名称平均折扣数值型102总实洋/总码洋平均单价数值型102总实洋/总数量总数量整型4该批进货总的数量总码洋数值型102把每种书的数量*定价之后的累加值总实洋数值型102把每种书的数量*定价*进货折扣之后的累加值折扣额数值型102把每种书的进货折扣*定价之后的累加值税额数值型102实洋*13%不含税金额数值型102实洋-实洋*13%其他费用数值型102其他费用，如：运输费用等应付金额数值型102应付金额=实洋已付金额数值型102该批货本店已经付掉的金额未付金额数值型102应付金额-未付金额经手人字符型10录入这张进货单据的人员编号零售总表(零售总表.dbf)字段名称类型长度小数位数说明零售单号整型4零售单据号总数量整型4销售给某一顾客总的图书数量总实洋数值型102销售给某一顾客的每种图书的数量*定价*折扣后的累加值，折扣根据是否会员决定，若是会员则为会员折扣，若不是会员则为普通折扣零售日期日期型8当天的零售日期应收金额数值型102应收金额=实洋收款方式字符型10收款方式，如：现金、支票等是否会员逻辑型1 该顾客是否是会员操作人员字符型10 操作人员即营业员零售信息(零售信息.dbf)字段名称类型宽度小数位数说明零售单号整型4同上出版社简称字符型20同上书号字符型20 同上书名字符型40同上类别编号字符型10 同上数量整型4 该顾客某种图书的购买数量定价数值型102同上码洋数值型102数量*定价会员折扣数值型102该顾客若是本店会员，则零售折扣=会员折扣普通折扣数值型102该顾客若是本店会员，则零售折扣=普通折扣实洋数值型102码洋*零售折扣进货折扣数值型102同上利润数值型102定价*（零售折扣-进货折扣）销售日期日期型8同上员工信息表（员工信息dbf）字段名称类型宽度小数位数说明员工编号字符型10员工编号，如：111、222等员工姓名字符型10真实姓名性别逻辑型1性别，如：男(.t.)、女(.f.)出生日期日期型8 出生日期，如：1988.02.02身份证号字符型20身份证号必须为18位数字联系地址字符型40 联系地址，如：家庭住址等联系电话字符型20 联系电话数据项相同的表在此就不再一一说明了，如：进货明细表(进货明细.dbf)中所要用到的数据项，如：进货单号、书号、书名、定价、数量、进货折扣等均与以上表中的进货单号、书号、书名等相同。第二章 系统设计这个阶段的主要目标是将系统分析阶段所提出的反映了用户信息要求的系统逻辑方案转换成可以实施的基于计算机的物理方案。2.1 系统设计目标本系统主要实现书店的进销存管理功能，分为进货管理、销售管理内部管理、图书统计、系统管理五大部分。2.2 系统功能分析和设计书店管理系统的功能模块划分如图2-2所示。 图2-2 系统功能模块划分2.3.1 供应商基本信息：主要是添加、删除、修改、打印供应商信息。2.3.2 图书资料：添加、删除、修改、打印图书资料。2.3.3 图书入库：添加、删除、修改、打印图书入库信息。2.3.4 进付款处理：可以根据供应商及进货单号添加、删除、修改进付款信息，打印进付款信息。2.3.5 进货退货：可以根据有否向该供应商进货而添加、删除、修改、打印进货退货信息。2.3.6 会员：添加、删除、修改、打印会员基本信息。2.3.7 零售：销售、结帐、小票打印。2.3.8 客户：添加、删除、修改、打印客户基本信息。2.3.9 批销：添加、删除、修改、打印批销信息。2.3.10 批销退货：根据该批销商有否向本书店进货而添加、删除、修改、打印批销退货信息。2.3.11 收款处理：根据批销商及批销单号添加、删除、修改批销收款信息，打印批销收款信息。2.3.12 库存查询：按图书版别、按图书编号、按图书名称、按类别编号、按定价等查询，且查询方式可以是精确查询，也可以是模糊查询，排序方式可以是按书号排序，按书名排序，也可以不区分排序方式。2.3.13 盘点：库存盘点主要实现以下三个功能：一. 若盘点数量大于图书库存量,也就是实际数量大于理论数量,则应查查员工是否在销售本店以外的图书。二. 若盘点数量小于图书库存量,也就是实际数量小于理论数量,则应查查员工是否窃拿本店的图书。三. 库存盘点还有一个更新库存的功能，主要作用是使库存的实际数量与理论数量趋向一致。2.3.14 特殊业务：特殊业务主要实现报废品样品的处理，及赠品的处理。2.3.15 销售统计：销售统计主要是对数据库里的销售信息进行统计，可按日，按月，按年统计图书的销售数量，销售金额，销售利润。2.3.16 库存统计：库存统计分为库存图书数量统计与库存图书资金统计，可按类别编号，按出版社代号，按类别编号与出版社代号统计库存图书总数量、总金额。2.3.17 畅销书统计：由此可以知道哪种图书是畅销的，哪些是不畅销的，为下一次进什么货垫定了基础。2.3.18 缺货统计：由此可以知道现有图书缺货情况，以便随时进货。2.3.19 员工基本信息：添加、删除、修改、打印员工基本信息。2.3.20 用户权限维护：用户权限维护，在此可修改某个员工的密码及权限。2.3.21 零售设置：可按图书种类设置它的普通价及会员价。2.3.22 图书种类：添加、删除、修改、打印图书种类信息。2.3.23 出版社：添加、删除、修改、打印出版社信息。第三章 数据库设计3.1 概念结构设计er设计方法是一种通过er图来描述现实世界信息结构的db设计方法。本系统的er图，如图31所示： 图31 er图3.2 逻辑结构设计（er图向关系模型的转换） 供应商信息：供应商代号，供应商名称，开户银行，帐号，户名，联系人，联系电话，联系地址，备注 员工信息：员工编号，员工姓名，性别，出生日期，身份证号，联系地址，联系电话 图书资料：书编号，书名，定价，类别编号，进货折扣，进价，批销折扣，库存上限，库存下限，库存量，实洋，作者，书的其它备注信息，开本，出版社代号，出版社简称 出版社：出版社代号，出版社简称， 出版社全称，地址，邮编，责任编辑，责任印制，联系电话，传真 书类别：类别编号，类别名称，普通折扣，会员折扣 会员信息：会员卡号 ，姓名，性别，出生日期，身份证号，联系地址，联系电话，工作单位，办卡日期， 积分，备注 批销商信息：批销商代号，批销商名称，开户银行，帐号， 户名，联系人，联系电话，详细地址，备注 密码：员工编号，密码，供应商基本信息，图书资料，图书入库，进货付款处理，进货退货，会员基本信息，零售，批销客户基本信息，批销，批销收款处理，批销退货，库存查询，盘点，特殊业务，销售统计，库存统计，畅销书统计，缺货统计，员工基本信息，用户权限维护，零售设置，积分设置，图书种类，出版社基本信息，进货历史记录查询 进货总表：进货单号，原始进货单号，进货日期，供应商名称，平均折扣，平均单价，总数量，总码洋，总实洋，折扣额，税额，不含税金额，其他费用，应付金额，已付金额，未付金额，经手人 进货明细：进货单号，书号，书名，定价，数量，折扣，码洋，实洋，出版社简称，进货日期，供应商名称 进付款信息：付款号，进货单号，进货单位，付款方式，本次付款金额，付款日期，付款备注，经手人 进退货总表：退货单号，原始退货单号，退货单位，退货日期，总数量， 总码洋，总实洋，平均折扣，折扣额，应收款，已收款，欠收款，经手人 进退货明细：退货单号，书号，书名，定价，数量，折扣，码洋，实洋， 出版社简称，退货日期 批销总表：批销单号，收货单位，详细地址，联系电话，联系人，批销日期，出货方式，其他费用，总数量，总码洋，总实洋，平均折扣，折扣额，不含税金额，税额，平均单价，应收金额，已收金额，未收金额，收款方式，经手人 批销明细：批销单号，收货单位，出版社简称，书号，书名，数量，定价，码洋，折扣，实洋，批销日期 批收款信息：收款单号， 批销单号，购货单位，收款方式，收款日期，本次收款金额，收款备注，收款人 批退货总表：退货单号，退货单位，详细地址，联系电话，联系人，退货日期，总数量，总码洋，总实洋，平均折扣，折扣额，应付金额，已付金额，欠付款，经手人 批退货明细：退货单号，书号，书名，定价，数量，折扣，码洋，实洋， 出版社简称，退货日期 零售总表：零售单号，总数量，总码洋，总实洋，零售日期，折扣额，应收金额，收款方式，总利润，是否会员，操作人员 零售信息：零售单号，出版社简称，书号，书名，类别编号，数量，定价， 码洋，会员折扣，普通折扣，实洋，进货折扣，销售日期 积分：积分，书号，书名，出版社简称，定价，数量，码洋，进货折扣，实洋，备注 报废：书号，书名，出版社简称，定价，数量，码洋，进货折扣，实洋，处理类别，备注，会员卡号，员工编号，处理日期第四章 系统各模块详细介绍4.1 系统总控表单的介绍系统总控表单：为主界面，整个界面分为两个部分,最上面是菜单栏，各种功能均可通过点击菜单栏实现。菜单栏的下方是快捷键，方便用户的使用。图书统计系统管理内部管理进货管理销售管理 4-1-1 系统总控表单主要代码如下:do 书店.mpr with this,.t.&在系统总控表单运行时，执行菜单程序thisform.container2.text2.value=版权所有,不得任意引用!thisform.container2.text3.value=营业时间:+ttoc(datetime()thisform.container3.timer1.enabled=.t.&根据用户权限判断快捷键是否可显mand1.enabled=tz&tz表示是否允许用户进行图书资料编辑mand2.enabled=tr&tr表示是否允许用户进行图书入库操作 mand3.enabled=pd&pd表示是否允许用户进行盘点 mand4.enabled=lsz&lsz表示是否允许用户进行零售设置 mand6.enabled=ty&ty表示是否允许用户进行特殊业务处理mand7.enabled=ls&ls表示是否允许用户进行零售 4.2 进货管理的介绍图4.2.1进货管理模块进货模块(见图4.2.1)对整个文华书店管理系统而言是至关重要的，没有一开始的进货，就不会有之后的存、销等各种操作。从总体上来说，该模块主要包括图书种类、供应商基本信息、图书资料的录入、添加、查找、删除、修改，及图书入库信息、进货付款信息的保存、进货退货等，还包括各类报表的打印，例如：图书种类报表的打印、供应商基本信息报表的打印、付款信息报表的打印及图书入库报表的打印等，以方便有关部门了解相关信息。以上操作需进入“系统总控表单”，通过点击相应的菜单即可。由于要存放各种不同的信息，该系统采用了关系数据库管理系统来保存、处理各类数据。“关系数据库管理系统（）建立在关系理论的基础上，它使用若干表格来管理数据。表格以及表名、栏名、栏约束等，都定义在一个数据库模式中。使用特定的操作，如select等，可对表格进行各类操作，通常根据规范化的要求，可对表格和它们的各栏重新组织，以减少数据冗余，保证修改一致性，数据不致出错。”正因如此它解决了数据保存、处理等操作、管理上的各种难题，使之简易可行。在该关系数据库“书店”中建有与该进货模块相关的图书种类表、图书资料表、供应商信息表、及进货总表、进货明细表、进付款信息表等。点击“进货管理”菜单下的“供应商基本信息”可进入“供应商基本信息”的录入页面(见图4-2-2)或修改页面(见图4-2-3)，实现对供应商基本信息的添加、删除、修改等操作，并将供应商基本信息保存于同一数据库的“供应商信息”表中，由此表可知供应商的有关信息，例如：供应商代号、供应商名称、开户银行、户名、联系人、联系地址、联系电话、备注等； 图4-2-2 供应商基本信息录入 图4-2-3 供应商基本信息修改点击“进货管理”菜单下的“图书资料”可进入“图书基本信息” 的录入页面(见图4-2-4)或修改页面(见图4-2-5)，实现对图书基本信息的添加、删除、修改等操作，其间可分别通过点选与“图书种类”表、“供应商信息”表、“出版社”表相连的下拉列表框，来实现图书类别编号与供应商代号、出版社代号的录入，并将图书基本信息保存于“图书资料”表中，由此表可知该图书的相关属性，例如：图书编号、图书名称、图书定价、图书进价、图书批销价、图书库存量、类别编号、出版社简称、供应商代号、作者、开本等等； 图4-2-4 图书资料录入 图4-2-5 图书资料修改也可通过点击“进货管理”菜单下的“图书入库”可进入“图书入库”的录入或修改页面，在此可对图书进货信息进行录入，输入图书编号、图书数量、进货日期、供应商名称等，进货号则根据进货日期、供应商及原始进货单号产生，即进货日期相同、供应商相同可根据原始进货单号确认是否是同一次进货，并将其保存于“进货总表”与“进货明细”表中，由此可得知某一次进货进了多少图书，具体是那些,与此同时更新“图书资料”表中的该图书的图书库存量、进货折扣及批销折扣，以便于零售及批销,其中批销折扣由进货折扣加5%得到,即每本图书的平均批销利润约为定价的5%；就图书入库而言，图书可分为：原有库存图书及新增图书。因此对于这两类图书的图书的进货、入库，从本质上而言是有区别的，对原有库存图书只需直接通过在系统总控表单中点击“图书入库”即可进入“图书入库”页面，对图书进货信息（图书编号、图书数量、进货日期、原始单据号等）进行录入即可；而对新增图书，首先必须通过点该页面上的“新书”按钮, 进入新书录入页面。新书录入时，若有新的图书种类，新的出版社，则可通过点击新书资料录入页面上“新种类” 、“新出版社”按钮录入该图书所属的类别名称、出版社信息，将其保存到“图书种类”表及“出版社”表中，然后回到“图书资料”页面，将该图书的所有属性添加完整，保存到“图书资料”表中，完成新书资料的录入后，最后返回到图书入库页面，输入该新图书的图书编号，便会显示相应的图书名称、图书定价、出版社简称等，此时输入该新图书的图书数量、进货折扣，按“确定”按钮，即可将其保存到“进货总表”及“进货明细”表中，与此同时更新“图书资料”表中的该图书的图书库存量、进货折扣及批销折扣等，以备零售及批销所需。进货后付款可根据供应商名称和进货号进行付款操作，通过点击“进付款处理”菜单进入“付款基本信息” 的录入页面或修改页面，进行“付款基本信息”的添加、删除、修改等操作，例如：付款日期、付款金额、经办人等。若有滞销图书，也可进行退货，图书退货信息可点击“进货退货”菜单进入进货退货信息页面，实现进货退货信息的录入、删除、修改等。该模块中图书资料录入主要代码的实现：书编号文本框text1的valid事件：if allt(thisform.text1.value)= return .t.else &判断书号输入是否为空，若不为空则判断书号是否满足书编号必需为十位数字!的要求。 if len(allt(thisform.text1.value)=10 &书号长度必须是10位 if val(allt(thisform.text1.value)=0 messagebox(书编号输入必需为数字!,0,警告) thisform.text1.value= return .f. &排除书号不为数字的一种情况，如：a123456789 else if allt(str(val(allt(thisform.text1.value)=allt(thisform.text1.value) &排除书号不为数字的第二种情况，如：12345a6789 i=0 a= b= thisform.v= thisform.u= select 出版社 go top do while !eof() and i=0 a=allt(出版社代号) b=allt(thisform.text1.value)if atc(a,b,1)=2 or atc(a,b,2)=2 &判断书号与出版社代号是否匹配，如：7(302)322222,7(777)322222 i=i+1 bo2.displayvalue=allt(出版社代号) bo3.displayvalue=allt(出版社简称) thisform.u=allt(bo2.displayvalue) thisform.v=allt(bo3.displayvalue) endif skip 1 enddo if(i=0)an=messagebox(与该图书编号相匹配的出版社代号不存在,若要增加出版社,请按新出版社按钮?,4+48,警告) if(an=6) thisform.text1.value= return .t. else messagebox(请重新输入图书编号!,0,警告) thisform.text1.value= return .f. endif endif else messagebox(书编号输入必需数字!,0,警告) thisform.text1.value= return .f. endif endif else messagebox(书编号必需为十位数字!,0,警告) thisform.text1.value= return .f. endif endif 图书资料录入确定按纽的click事件：if empty(alltrim(thisform.text1.value) messagebox(书编号不能为空,0,警告) thisform.text1.setfocus else if len(alltrim(thisform.text1.value)10 messagebox(书编号必须十位!,0,警告) thisform.text1.value= thisform.text1.setfocus else if empty(allt(thisform.text2.value) messagebox(书名不能为空,0,警告) thisform.text2.setfocus else select 图书资料 &将图书资料保存入库 append blank replace 书编号 with allt(thisform.text1.value) replace 书名 with allt(thisform.text2.value) replace 类别编号 with allt(bo1.displayvalue) replace 定价 with val(allt(thisform.text3.value) replace 库存上限 with val(allt(thisform.text4.value) replace 库存下限 with val(allt(thisform.text5.value) replace 库存量 with val(allt(thisform.text6.value) replace 作者 with allt(thisform.text7.value) replace 书的其它备注信息 with allt(thisform.text8.value) replace 开本 with allt(thisform.text9.value) replace 出版社代号 with allt(bo2.displayvalue) replace 出版社简称 with allt(bo3.displayvalue)thisform.text1.value= &清空输入空，等待输入thisform.text2.value=thisform.text3.value=thisform.text4.value=thisform.text5.value=thisform.text6.value=thisform.text7.value=thisform.text8.value=thisform.text9.value=bo1.displayvalue=bo2.displayvalue=bo3.displayvalue=thisform.text1.setfocus endifendifendif thisform.refresh 4.3销售管理的介绍图4-3-1销售管理模块 销售管理模块（见图4-3-1）主要包括会员、零售、批销客户、批销、批销退货、收款处理等信息的编辑，还包括各类报表的打印，例如：会员信息报表的打印、零售报表的打印、批销客户报表的打印、批销退货报表的打印及收款处理报表的打印等，实现零售及批销的功能。以上操作需进入“系统总控表单”，通过点击相应的菜单即可。在该关系数据库“书店”中建有与零售相关的会员信息表、零售总表、零售信息表、零售信息1表等，与批销相关的客户信息表、批销总表、批销明细表、批销明细1表、批收款信息表等。点击“销售管理”菜单下的“会员基本信息”可进入“会员基本信息” 的录入或修改页面，实现对会员基本信息的添加、删除、修改等操作，并将会员基本信息保存于同一数据库的“会员信息”表中，由此表可知会员的有关信息，例如：会员卡号、姓名、性别、办卡日期、积分等；批销客户信息的编辑类同。点击“销售管理”菜单下的“零售”可进入“零售”页面，实现图书零售功能， 首先输入图书编号敲回车就会判断输入的图书编号是否在图书资料表中存在，当这编号不存在时会提示重新输入图书编号的信息，若存在时，它就会自动到图书资料表中调用并显示出该图书的图书名称和图书定价，出版社简称，并根据该图书的图书种类。调出该类图书的普通价及会员价，再根据该顾客是否是会员来决定按哪种价格出售，此时可以输入图书销售的数量，再判断图书销售量是否小于库存的图书数量，若小于则提示重新输入图书销售量，反之则会在此页面的数据表显示零售图书的图书名称、图书编号、图书售价、销售日期、实洋等的详细情况，当在输入图书编号的文本框为空时敲回车，则弹出是否结帐的对话框， 如果按 否继续购买，如果按 是，跳到现金一栏，在此输入所收金额，判断输入是否大于等于应收的金额，若不是，则出现报错信息，重新输入金额，否则在应收、应找的文本框中显示出正确的数。然后按打印按纽,打印零售小票，按下一单按纽，清空此页面的数据表。更新每一种图书的库存量等于原库存量减去出售的数量。批销与零售类同,不同的是出售价格,批销统一按进货折扣加5%计算。批销退货按原批销价退回，但不退钱，用图书抵消。批销收款处理与进货付款处理类同。该模块主要代码的实现：零售表单销售数量文本框text14的keypress事件：if(nkeycode=13)if empty(allt(thisform.text14.value) messagebox(销售数量不能为空!,0,警告) thisform.text14.setfocus return .t.else select 图书资料 locate for allt(书编号)=allt(thisform.text8.value) and allt(书名)=allt(thisform.text10.value) and 定价=val(allt(thisform.text12.value) and allt(thisform.text11.value)=allt(出版社简称) if found() if(库存量val(allt(thisform.text14.value) messagebox(销售数量不能超过现有库存量!请重输!,0,警告) thisform.text14.value= thisform.text8.setfocus else jzk=0 jzk=进货折扣 select 书类别 locate for allt(类别编号)=allt(thisformset.bh) if found() if(thisform.check1.value=.t.) & 判断是否会员thisformset.sy=val(allt(thisform.text14.value)*val(allt(thisform.text12.value)*会员折扣 &计算实洋（会员价）thisformset.lr=val(allt(thisform.text14.value)*val(allt(thisform.text12.value)*(会员折扣-jzk) &计算利润（会员） elsethisformset.sy=val(allt(thisform.text14.value)*val(allt(thisform.text12.value)*普通折扣 &计算实洋（普通价）thisformset.lr=val(allt(thisform.text14.value)*val(allt(thisform.text12.value)*(普通折扣-jzk) &计算利润（普通） endif thisformset.hzk=会员折扣 thisformset.bzk=普通折扣 endif select 零售信息1 &将零售信息暂保存于临时表零售信息1中 append blank replace 零售单号 with val(allt(thisform.label8.caption)书号 with allt(thisform.text8.value)replace 书名 with allt(thisform.text10.value)replace 出版社简称 with allt(thisform.text11.value)replace 定价 with val(allt(thisform.text12.value)replace 数量 with val(allt(thisform.text14.value)replace 类别编号 with allt(thisformset.bh)replace 码洋 with val(allt(thisform.text14.value)*val(allt(thisform.text12.value)replace 实洋 with thisformset.syreplace 会员折扣 with thisformset.hzkreplace 普通折扣 with thisformset.bzkreplace 利润 with thisformset.lrreplace 进货折扣 with jzk thisformset.s=thisformset.s+1 select 零售信息1 thisform.grd零售信息1.refresh thisform.text8.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value= bo1.setfocus endif endif endifendif零售表单下一单按钮command5的click事件：c=0d=0e=0l=0sl=0sele 零售信息1 go topdo while !eof() sl=sl+1 skip 1enddoif(s