美的订单管理信息系统课设

1、精选优质文档-倾情为你奉上1 前言1.1 作业背景课程作业的具体要求如下：用信息系统开发工具（例如PowerBuilder、Delphi、VB、VFP等）开发一个实用的中小型订单管理信息系统。（1）根据课程实践时间选择适当规模大小的设计课题。针对信息系统课程实践的具体特点，体现项目管理的思想，可由指导教师对学生进行分组（每组4-6人），一组一题，分工合作，共同完成。（2）根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程实践活动。（3）课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程实践报告。（4）开发出可以运行的管理信息系统，通过上机检查

2、。1.2 选题说明项目背景研究课题题目：订单管理信息系统设计与开发。1.2.1 基本思路首先对美的公司的背景进行研究进而从经济、管理和技术三个方面对开发项目的可行性进行分析，充分掌握此次设计要了解的内容。得出结论之后，开始对该企业的组织结构和业务流程进行分析，然后得出逻辑模型即数据流程图。根据系统分析阶段的数据流程图得到物理模型即模块结构图。最后实现系统的运行。1.2.2 作业目标通过对订单管理信息系统的设计与开发，熟练使用所学的结构化分析、设计方法分析系统以及VF的相关知识，描述系统，设计系统并最终运行系统。掌握业务流程图，数据流程图，数据字典等工具。熟练使用模块设计方法，数据库设计方法，代

3、码设计方法，输入输出设计方法等设计物理系统。并且会做简单的系统，并运行实施。1.3 工作业绩1.3.1 个人主要工作通过对前三部分的可行性分析、系统分析和系统设计的研究基础上完成最后的系统实施部分的工作。我主要负责登录设计、修改密码设计、修改与删除用户设计添加用户设计。1.3.2 主要收获通过前面三个小组成员的努力工作完成了可行性分析，系统的分析，系统的设计，最后是系统的实施。这部分由我和另一位成员共同负责完成，我们利用前面三步的数据，并通过到图书馆查阅相关书籍对系统实施工作有了更深刻的了解。在对整个订单系统了解之后，成功进行了数据库的设计。这个技术支持是VF实验课上的知识，在当时不太深刻了解

4、的情况下设计数据库的难度很大，在我们两位成员的共同努力下，客服种种困难终于设计成功。代码的设计这部分，抱着可靠性的原则，仔细查阅了相关资料最终设计了可运行的源代码。在程序的测试过程中，我收获很大，因为这个过程就是对自己劳动成果的检验过程，查漏补缺，在一次次错误的情况下，让我了解了很多课上没有学到的知识。这次的系统开发工作不仅使我学到了更多的知识，还增强了我们小组成员之间的默契配合程度。1.3.3 自我评定 优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计第××组，组长为：王宁，小组所有成员分工如下：学号姓名任务备注 袁永凤系统规划 朱 琳系统分析

5、王 宁系统设计 组 长商祥巧系统实施5.15.4 姜 娇系统实施5.55.92 系统规划2.1 项目名称美的公司订单管理信息系统2.2 开发目标本次工作的目标是开发出一个操作简单、界面友好、灵活实用、安全可靠的订单管理信息系统。通过开发该订单管理信息系统，建立比较完整的订单体系，使公司的运营更加顺利，得到较高的效益。所以本组希望完成以下的目标：1、使该订单管理信息系统具可以对企业的经营管理活动进行有效的管理和控制，进而达到对企业的经营活动过程的全程监控和控制的目的；2、努力彻底的改变企业信息重复、混乱、无法共享的现状；3、在生成订单的过程中要能够直接调用客户和商品的信息。2.3 项目背景当今的

6、信息系统不仅广泛地应用了信息技术，还融入了现代管理思想、数学分析方法。订单生产方式是现代企业生产发展的方向，它是将企业生产与市场动态紧密联系起来的生产方式，以快速适应市场变化为根本目标的新型企业系统。通过对美的公司的管理信息系统的分析，借助现代信息技术和管理理论，建立公司的订单管理信息系统，对美的公司而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题，也是适应市场发展的关键因素。2.4 系统的初步调查与分析2.4.1 需求分析在订单管理信息系统中，最主要的是客户对商品的需求进而形成订单。具体来说，客户在提出订单前必须要提出一个购买申请，企业要根据这个购买申请来查看企业是否能够满足该申

7、请的条件，例如库存数量是否可以满足订单要求等，这个过程必须要有人员完成，不仅时间延迟较长，而且浪费了人力、物力、财力，对于现代企业来说，效率直接影响着企业的效益，在以效率为竞争关键的现代企业中，这种作业方式势必给企业带来管理上的不便。如果美的公司拥有一个比较快捷完善的订单管理信息系统，不仅减少人为操作的麻烦和失误，还可以对商品信息进行科学的管理，提高数据交易的准备性和效率，从而减少不必要的损失，使企业在现在日益激烈的市场竞争中占据有利地位，赢得更高的效益。2.4.2 美的公司的运行状况美的集团创建于1968年。1980年，正式进入家电业。1981年，开始使用美的品牌。1993年，集团下辖的广东

8、美的集团股份有限公司在深交所上市，成为全国第一家由乡镇企业改制而成的上市公司。2001年，美的转制为民营企业。2003年，美的集团相继收购云南、湖南的客车企业，正式进入汽车业。从上个世纪八十年代打造出中国第一台全塑型风扇开始，美的产品就一直在国内市场占据着十分重要的地位，目前美的家电产品基本都在国内市场中位居前列。力争到2012年，集团整体从单一的家电制造企业发展成长为国内知名的综合性、国际化制造企业集团。2.4.3 开发条件美的公司的信息管理部门负责人和广大的信息管理人员要求开发先进的订单管理信息系统，以解决公司在订单处理过程中所面临的不必要的麻烦。系统的开发由我们小组人员负责，可提供高素质

9、的开发人才，美的公司可以提供给我们精神和物资上的奖励，我们将全力开发出快捷方便的订单管理信息系统。2.5 开发策略我们采用“自上而下”的开发策略，从整体上协调和规划，由全局到局部，由长远到近期，从美的公司的高层管理着手，考虑了美的公司的目标，确定了需要实现的功能。本课题设计开发了一个实用的产品订单管理信息系统，系统采用小型数据库管理系统中优秀的软件“Visual FoxPro 6.0” 作为系统开发工具，在美的公司订单管理信息系统体系进行充分分析和系统论证的基础上开发研制的。2.6 可行性分析2.6.1 管理上的可行性研究订单管理是企业经营管理的一个重要组成部分，企业利润的实现过程实际上就是客

10、户订单执行的过程，所以有效的管理订单是企业销售部门的重要工作之一。原材料采购、物流管理、资金管理时做出最有效的决策。因此，美的公司的领导人员对订单管理的重要深入了解和认识，迫切希望通过建立订单计算机管理信息系统，使企业管理工作更进一步规范化、制度化和程序化，避免订单管理的随意性，提高订单管理信息处理的速度和准备性，以便及时、准备地把握企业订单的信息，改变固定资产管理混乱的现状，以提高领导决策的水平。2.6.2 技术上的可行性研究软件分析：由于Windows Xp操作系统是有人机变互的友好界面，很容易掌握及操作，程序界面相对较容易实现等特点。1、Windows Xp操作系统易学易用，而且可以满足

11、需求，故决定采用Windows Xp平台开发。2、采用SQL Server 2005数据库系统作为超市进销存管理系统的后台数据库。3、由于MyEclipse具有面向对象可视化编程的特点，是创建Windows 应用程序最简便、最快捷的开发工具之一，故采用MyEclipse7.1为开发工具。硬件分析：硬 件：中央处理器（CPU）： P4 以上内 存：512M硬 盘：40G显 示 器：一般品牌打 印 机：一般品牌人员分析：此系统操作简单，使用人员无需具有专业的计算机操作基础，因此对工作人员来说应用此系统是不成问题的。2.6.3 经济上的可行性研究 本系统由我们小组自主开发，免费使用。管理和维护比较简

12、单，除了必要地设备投资外，后期只需要少量资金就可确保运转。因此，对于美的公司在经济上完全可以接受。投入：除软件开发成本，一台中等电脑，现价4000元左右，完全可以良好的运行系统，完成硬件平台的要求，而且经济实用。2.7 结论综上所述，无论是从技术方面、经济方面还是管理方面看开发此系统均是可行的。3 系统分析3.1 业务流程图通过对美的公司的订单管理系统的调查、分析，对该公司的业务流程管理系统中主要的业务单位、处理过程等有了进一步了解，具体的业务流程图如图3.1所示。图3.1 订单管理业务流程图3.2 数据流程图通过对美的公司订单管理系统的分析，得知该公司的主要外部实体及关键数据流。美的公司订单

13、管理系统的主要外部实体为客户及采购部门。订单管理的顶层数据流程图如图3.2所示。图3.2 订单管理顶层数据流程图将系统内部划分为几个主要的操作部分，并明确相互之间的联系，确定输入输出信息，用数据流将相关的加工连接起来。得到订单管理的一级数据流程图，如图3.3所示。3.3 订单管理一层数据流程图绘制定单处理的二层数据流程图时要对一层数据流程图中的处理过程进行细化，得到更加完善、功能齐全的二层数据流程图，如图3.4所示。图3.4 订单管理二层数据流程图3.3 数据字典3.3.1 数据项定义表格 3.1 数据项定义数据项编号名 称类型长度取值范围简 述A01产品编号字符型80某产品的编号A02产品名

14、称字符型400某产品的名称A03产品单位字符型100某产品的单位A04产品单价数值型80某产品的销售单价A05产品类别字符型200某产品的类别A06产品产地字符型400某产品的产地A07客户编号字符型80某客户编号A08客户名称字符型400某客户名称A09联系人字符型200某业务的联系人A10客户地址字符型400某客户地址A11客户邮编字符型60某客户邮编A12联系人电话字符型120某联系人电话A13订单编号字符型100客户下的订单编号A14订购数量数值型80客户订购的产品的数量A15订单总额字符型120客户订购的产品的总额A16发货单编号字符型100向客户发货的订单编号A17 应收账款编号字

15、符型100应收账款单的编号3.3.2 数据结构定义表格3.2 数据结构定义DS03客户订货单A13订单编号A15订购数量A16订单总额DS01产品信息客户信息DS02客户信息A01产品编号A07客户编号A02产品名称A08客户名称A03产品单位A09联系人A04产品单价A10客户地址A05产品类别A11客户邮编A06产品产地A12联系人电话3.3.3 数据流定义表格3.3 数据流定义数据流编 号数据流名 称简 述数据流来源数据流去 向数据流组成数据流流 量高峰期流 量F1订货单客户开出的订货单客户订单审核模块客户名称+订购产品名称+产品数量15份/时20份/时F1.1合格的定货单经审核合格的订

16、货单订单审核模块查询库存模块客户名称+订购产品名称+产品数量13份/时17份/时F1.2不合格的订单经审核不合格的订货单订单审核模块客户客户名称+订购产品名称+产品数量2份/时3份/时F2能满足的订单经查询能满足的订单查询库存模块确定发货模块客户名称+订购产品名称+产品数量12份/时15份/时F3未能满足的订单经查询未满足的订单查询库存模块缺货登记模块产品名称+缺货数量1份/时2份/时F4到货通知单暂缺货物到货通知采购部门确定发货模块产品名称+产品数量1份/时2份/时F5发货单确定向客户确定发货模块客户客户名称+订购产品名称+产品数量+产品单价12份/时15份/时3.3.4数据处理定义表格3.

17、4 数据处理定义名称编号简述输入的数据流处理输出的数据流处理频率定单审核P1对客户下的定单进行审核客户订货单对照产品信息确定订单是否合格一是合格的订货单，二是不合格订单每时对收到的订单进行审核查询库存P2根据订单查询库存合格的订货单查询库存是否满足订单一是能满足的订单，二是不能满足订单每时根据订单查询库存确定发货P3将能满足的订单进行发货处理能满足的订单将能满足的订单进行发货处理发货单每时根据订单进行发货处理修改库存P4根据开出的发货单修改库存发货单根据发货单修改库存修改后的库存信息每次发货后对库存进行修改财务登记P5对已发出的订货单进行登记发货单根据发货单单进行财务登记应收账款每次发货后对进

18、行财务登记3.3.5数据存储定义表格3.5 数据存储定义编号名称简述数据存储组成关键字相关联的处理D1产品信息产品的编号、名称、单位、类别、产地产品编号+产品名称+产品单位+产品类别+产品产地产品编号订单审核D2库存账库存产品的编号、名称、数量产品编号+产品名称+产品数量产品编号查询库存、修改库存D3发货记录发出的产品编号、名称、数量、以及客户的编号、名称、地址、邮编、联系电话、订购总额产品编号+产品名称+产品数量+客户编号+客户名称+客户地址+客户邮编+联系电话+订购总额产品编号、客户编号修改库存D4应收账款客户编号、产品编号、订单总额客户编号+产品编号+订单总额产品编号、客户编号财务登记4

19、 系统设计4.1 总体设计订单管理信息系统详细的功能进结构图如图4.1所示。图4.1 订单管理信息系统模块结构图4.2 详细设计4.2.1 代码设计（1）产品代码设计商品代码由两部分组成，第一部分为大写字母，代表产品的种类，第二部分为数字，代表产品的规格。（如图4.2所示）图4.2 商品代码设计（2）订单代码设计考虑到公司每天订单数量的不确定性，订单代码由两部分组成，第一部分由四位数组成，代表当天的日期。第二部分为顺序码，也为四位数，代表当天的第几张订单。（如图4.3所示）图4.3 订单代码设计4.2.2 输出设计本系统中的输出模块包括产品信息浏览功能和客户信息浏览功能，分别由“产品信息浏览”

20、和“客户信息浏览”两个表单来实现，每个表单分别担当两个角色信息浏览和信息选择，其中“产品信息浏览”设计如表4.1所示。表格4.1 “产品信息浏览”表单4.2.3 输入设计订单管理信息系统中设计的输入模块包括系统登录、修改密码、添加用户、修改和删除用户5项功能，其中修改和删除用户功能在本系统中是集成在一个表单，此外，还包括产品信息管理、客户信息管理和订单信息管理3个功能，主要由“产品信息管理”、“客户信息管理”和“订单信息管理”3个表单来完成。其中“产品信息管理”设计如表4.2所示。表格4.2 “产品信息管理”表单4.2.4 数据库结构设计（1）概念结构设计（E-R图）本系统规划出的实体有：订单

21、信息实体、客户信息实体、产品信息实体以及用户信息实体。各个实体具体的描述E-R图下。“订单信息”、“客户信息”和“产品信息”实体之间关系的E-R图如图4.4所示。 图4.4 实体之间关系E-R图“产品信息”实体的E-R图如图4.5所示。图4.5 “产品信息”实体E-R图（2）逻辑结构设计（关系结构模型）根据概念结构设计的实体联系图所转换成的关系如下，其中用“*”号表示的是关键字：产品信息（编号*，品名，单位，单价，类别，产地，说明）客户信息（编号*，名称，联系人，电话，地址，邮编）订单信息（订单编号*，产品编号，产品数量，客户编号，联系人，联系电话，送货地址，下单日期，说明）(3)物理结构设计

22、使用Visual FoxPro开发时可以直接使用Visual FoxPro自带的数据库，订单管理信息系统中“产品信息”数据表的字段设置举例如表4.3所示。表4.3 产品信息表字段设置5 系统的实施5.1 登录设计新建一个表单，命名为“系统登录”。在“登录表单”表单上放置2个标签Label，2个文本框Text,2个命令按钮Command，更改其中控件的Caption属性，表单如图5.1所示。图 5.1 “登录系统”表单具体代码编写如下：（1）“确定”按钮的Click事件代码:SET EXACT ONTHISFORM.i=THISFORM.i+1IF EMPTY(ALLTRIM(账号)MESSAG

23、EBOX("请输入账号名称" ,48, "订单管理系统")THISFORM.txt账号.SetFocusELSESELECT UserInfoLOCATE FOR ALLTRIM(账号)=ALLTRIM(THISFORM.txt账号.VALUE)IF FOUND() .AND. ALLTRIM（密码）=ALLTRIM(THISFORM.txt密码.VALUE) CUser=账号 IsAdmin=管理 THISFORM.RELEASE() DO FORM LOGOELSE IF THISRORM.i<3 MESSAGEBOX("账号或密码错

24、误，请重新输入" ,48, "订单管理系统")THISFORM.txt账号.VALUE= "" THISFORM.txt密码.VALUE="" THISFORM.txt账号.SetFocus ELSE MESSAGEBOX("密码错误3次，系统无法启动" ,48, "订单管理系统") THISFORM.RELEASE CLEAR EVENTS QUIT ENDIFENDIFENDIFSET EXACT OFF（2）“取消”按钮的Click事件代码LOCAL YNYN= MESSAGEB

25、OX("确定退出" ,4+32, "订单管理系统")IF YN=6 THISFORM.RELEASE CLEAR EVENTS QUITENDIF5.2 修改密码设计新建一个表单，命名为“修改密码”。把表单Caption属性设置为“修改密码”；在“修改密码”表单上放置相应的控件，3个标签Label，4个文本框Text，2个命令按钮Command，更改其中控件的Caption属性，表单如图5.2所示。图 5.2 “修改密码”表单具体代码编写如下：(1)“修改密码”表单的Init事件代码：THISFORM.txt用户名.VALUE=cuser(2) “确定”

26、按钮的Click事件代码:LOCAL OKOK=.T.SET EXACT ONDO CASE CASE EMPTY(ALLTRIM(THISFORM.txt新密码.VALUE).AND.EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE) MESSAGEBOX("新密码不能为空" ,48, "订单管理系统")THISFORM.txt新密码.SETFOCUSOK=.F.CASE ALLTRIM(THISFORM.txt密码.Value) <> ALLTRIM(THISFORM.txt确认密码.VALUE) MESSAGEB

27、OX("新密码与确认密码不一致" ,48, "订单管理系统")THISFORM.txt密码.SETFOCUSOK=.F.ENDCASEIF OK=.T.SELECT USERINFOLOCATE FOR ALLTRIM(账号)=ALLTRIM(cuser) .AND. ALLTRIM(密码)=ALLTRIM(THISFORM.txt原密码.VALUE)IF FOUND()LOCAL NewPassNewPass=ALLTRIM(THISFORM.txt新密码.VALUE)UPDATE USERINFO SET 密码=NewPassMESSAGEBOX(&

28、quot;修改成功",64,"订单管理系统")THISFORM.RELEASEELSEMESSAGEBOX("原密码错误",48,"订单管理系统")THISFORM.txt原密码.SETFOCUSENDIFENDIFSET EXACT OFF(3)“退出”按钮的Click事件代码如下：LOCAL OKYN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6THISFORM.ReleaseENDIF5.3 修改与删除用户设计新建一个表单，命名为“修改用户”。把

29、表单Caption属性设置为“修改用户”；在“修改用户”表单上放置相应的控件，5个标签Label，4个文本框Text，2个命令按钮Command，1个复选框Check，1个组合框Combol更改其中控件的Caption属性，表单如图5.3所示。图 5.3 “修改与删除用户”表单具体代码编写如下：（1）“确定”按钮的Click事件代码:IF THIS.CAPTION="修改"THISFORM.bModify=.T.THISFORM.ModeControlTHISFORM.txt密码.Width=95THIS.CAPTION="确定"THISFORM.Cmd

30、CCL.CAPTION="取消"THISFORM.txt密码.Value=""THISFORM.txt确认密码.Value=""THISFORM.RefreshELSEIF THIS.CAPTION="确定"LOCAL OKOK=.T.DO CASECASE EMPTY(ALLTRIM(THISFORM.txt密码.VALUE) .AND. EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("新密码不能为空",48,"订单管理系统"

31、;)OK=.F.THISFORM.txt密码.SETFOCUSCASE ALLTRIM(THISFORM.txt密码.VALUE)<>ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("密码与确认密码不一致",48,"订单管理系统")OK=.F.THISFORM.txt密码.SETFOCUSCASE ALLTRIM(THISFORM.Cmb用户名.DisplayValue)=Cuser .AND. THISFORM.CHK账号管理.Value=.F.MESSAGEBOX("你不能取消当前用户的账号管

32、理功能",48,"订单管理系统")THISFORM.CHK账号管理.Value=.T.THISFORM.CHK账号管理.SETFOCUSOK=.F.ENDCASEIF OK=.T.TABLEUPDATE(.F.)MESSAGEBOX("用户信息修改成功",64,"订单管理系统")THISFORM.bModify=.F.THISFORM.ModeControlTHISFORM.txt密码.Width=200THISFORM.CmdOK.Caption="修改"THISFORM.CmdCCL.Caption=

33、"退出"THISFORM.RefreshENDIFELSEIF THIS.CAPTION="删除"YN=MESSAGEBOX("确认删除",4+32,"订单管理系统")IF YN=6IF ALLTRIM(THISFORM.Cmb用户名.Value)="sysadmin" MESSAGEBOX("不能删除默认的用户管理员",48,"订单管理系统")ReturnENDIFIF ALLTRIM(THISFORM.cmb用户名.Value)=ALLTRIM(cus

34、er)MESSAGEBOX("不能删除当前登录用户",48,"订单管理系统")ReturnENDIFSELECT USERINFODELETEPACKIF BOF()SKIPELSESKIP-1ENDIFTHISFORM.RefreshENDIFENDIFENDIFENDIF（2） “退出”按钮的Click事件代码:IF THIS.CAPTION="退出"YN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6THISFORM.ReleaseENDIFELSEIF T

35、HIS.CAPTION="取消"YN=MESSAGEBOX("确认取消",4+32,"订单管理系统")IF YN=6TABLEREVERT(.F.)THISFORM.bModify=.F.THISFORM.ModeControlTHISFORM.txt密码.Width=200THISFORM.CmdOK.Caption="修改"THISFORM.CmdCCL.CAPTION="退出"THISFORM.RefreshENDIFENDIFENDIF5.4 添加用户设计新建一个表单，命名为“添加用户”

36、。把表单Caption属性设置为“添加用户”；在“添加用户”表单上放置相应的控件，5个标签Label，4个文本框Text，2个命令按钮Command，1个复选框Check，更改其中控件的Caption属性，表单如图5.4所示。图 5.4 “添加用户”表单具体代码编写如下：（1）“确定”按钮的Click事件代码:LOCAL OKOK=.T.SET EXACT ONDO CASECASE EMPTY(THISFORM.txt账号.VALUE)MESSAGEBOX("用户名不能为空",48,"订单管理系统")THISFORM.txt账号.SetFocusOK=

37、.F.CASE EMPTY(THISFORM.txt姓名.Value)MESSAGEBOX("姓名不能为空",48,"订单管理系统")THISFORM.txt姓名.SetFocusOK=.F.CASE EMPTY(ALLTRIM(THISFORM.txt密码.Value).AND. EMPTY(ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("密码不能为空",48,"订单管理系统")THISFORM.txt密码.SetFocusOK=.F.CASE ALLTRIM(THISFOR

38、M.txt密码.Value) <> ALLTRIM(THISFORM.txt确认密码.VALUE)MESSAGEBOX("密码与确认密码不一致",48,"订单管理系统")THISFORM.txt密码.SetFocusOK=.F.ENDCASEIF OK=.T.LOCAL sUser,cName,cPart,cPass,nNumsUser=ALLTRIM(THISFORM.txt账号.Value)SELECT UserinfoCount FOR 账号=sUser TO nNumIF nNum>0MESSAGEBOX("要添加的账

39、号已经存在",48,"订单管理系统")THISFORM.txt账号.Value=""THISFORM.txt账号.SetfocusELSEcName=ALLTRIM(THISFORM.txt姓名.Value)cPart=ALLTRIM(THISFORM.txt部门.Value)cPass=ALLTRIM(THISFORM.txt密码.Value)IF THISFORM.CHK账号管理.Value=1bAdmin=.T.ELSEbAdmin=.F.ENDIFYN=MESSAGEBOX("确定保存",4+32,"订单管

40、理系统")IF YN=6INSERT INTO USERINFO VALUES (sUser,cPass,cName,cPart,bAdmin)MESSAGEBOX("添加成功",64,"订单管理系统")THISFORM.ReleaseENDIFENDIFENDIFSET EXACT OFF（2） “退出”按钮的Click事件代码:YN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6THISFORM.ReleaseENDIF5.5 产品信息浏览设计新建一个表单，命名为“产品

41、信息浏览”。把表单Caption属性设置为“产品信息浏览”；在“产品信息浏览”表单上放置相应的控件，2个标签Label，2个文本框Text，3个按钮控Command和一个表格控件Grid。表单如图5.5所示。图 5.5 “选择产品”表单 具体代码如下: (1)Unload事件代码如下：IF THISFORM.FormMode="cSelect"Return THISFORM.SelectedproENDIF (2)DblClick事件代码如下：IF THISFORM.FormMode="cSelect"THISFORM.SelectedPro=ALLTR

42、IM(THIS.VALUE)THISFORM.ReleaseENDIF （3）Cmdser按钮的Click事件代码如下:SelTJ=".T."IF .NOT. EMPTY(ALLTRIM(THISFORM.txt产品编号.Value)SelTJ=SelTJ + " AND '" + ALLTRIM(THISFORM.txt产品编号.Value) + "' $ 编号"ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.txt产品名称.VALUE)SelTJ=SelTJ + " AND &#

43、39;" + ALLTRIM(THISFORM.txt产品名称.Value)+ "' $ 品名"ENDIFSELECT ProductInfoSET FILTER TOSET FILTER TO &SelTJTHISFORM.Refresh (4)“退出”代码如下：YN=MESSAGEBOX("确定退出",4+32,"订单管理系统")IF YN=6IF THISFORM.FormMode="cSelect"THISFORM.SelectedPro=""ENDIFTHIS

44、FORM.ReleaseENDIF5.6 客户信息浏览设计新建一个表单，命名为“客户信息浏览”。把表单Caption属性设置为“客户信息浏览”；在“客户信息浏览”表单上放置相应的控件，3个标签Label，3个文本框text，1个表格Grid，1个查询CmdSer,1个打印CmdPrint,更改其中控件的Caption属性，表单如图5.6所示。图 5.6 “选择用户”表单具体代码编写如下：（1) “查询”按钮的Click事件代码：SelTJ=".T."IF .NOT. EMPTY(ALLTRIM(THISFORM.txt编号.Value)SelTJ=SelTJ + "

45、; AND '" + ALLTRIM(THISFORM.txt编号.Value) + "' $ 编号"ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.txt名称.VALUE)SelTJ=SelTJ + " AND '" + ALLTRIM(THISFORM.txt名称.Value)+ "' $ 名称"ENDIFIF .NOT. EMPTY(ALLTRIM(THISFORM.txt联系人.VALUE)SelTJ=SelTJ + " AND '"

46、; + ALLTRIM(THISFORM.txt联系人.Value)+ "' $ 联系人"ENDIFSELECT ClientInfoSET FILTER TOSET FILTER TO &SelTJTHISFORM.Refresh（2） “打印”按钮的Click事件代码：REPORT FORM ClientInfo Preview FOR &SelTJ5.7 产品信息管理设计新建一个表单，命名为“产品信息管理”。把表单Caption属性设置为“产品信息管理”；在“产品信息管理”表单上放置相应的控件，7个标签Label，7个文本框Text,个命令按钮

47、CommandGroup，1个移动记录工具栏MoveRecord,更改其中控件的Caption属性，表单如图5.7所示。图 5.7 “产品信息管理”表单 具体代码如下： （1）“增加”按钮Clicks事件代码如下：THISFORM.OldRecord=RECNO()SELECT ProductInfoAPPEND BLANKTHISFORM.bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.Refresh (2)“修改”按钮Click事件代码如下：THISFORM.OldRecord=RECNO()THISFORM.bMod

48、ify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.ReFresh （3）“删除”按钮的Click事件代码如下：LOCAL YNYN=Messagebox("确定删除",4+32,"订单管理系统")IF YN=6SELECT ProductInfoDELETEPACKIF Eof() AND BOF() OR RECCOUNT()=0Messagebox("数据表中已经无数据",48,"订单管理系统")THISFORM.INITELSEIf Bof()Sk

49、ipElseIf Eof()SKip-1ENDIFEndIFENDIFENDIFTHISFORM.Refresh （4）“打印”按钮的Click事件代码如下:REPORT FORM ProductInfo Preview FOR ALLTRIM(编号)=ALLTRIM(THISFORM.txt编号.Value) (5)“保存”按钮的Click事件代码如下：LOCAL OK,YNOK=.T.DO CASECASE EMPTY(ALLTRIM(THISFORM.txt编号.Value)MESSAGEBOX("编号不能为空",48,"订单管理系统")THISF

50、ORM.txt编号.SetFocusOK=.F.CASE EMPTY(ALLTRIM(THISFORM.txt品名.Value)MESSAGEBOX("品名不能为空",48,"订单管理系统")THISFORM.txt品名.SetFocusOK=.F.CASE EMPTY(ALLTRIM(THISFORM.txt单位.Value)MESSAGEBOX("单位不能为空",48,"订单管理系统")THISFORM.txt单位.SetFocusOK=.F.CASE THISFORM.txt单价.Value=0MESSAGE

51、BOX("单价不能为空",48,"订单管理系统")THISFORM.txt单价.SetFocusOK=.F.EndCaseIF OK=.T.YN=MESSAGEBOX("确定保存记录",4+32,"订单管理系统")IF YN=6SELECT ProductInfoIF TABLEUPDATE(.F.)=.F.MESSAGEBOX("编号错误",48,"订单管理系统")THISFORM.txt编号.SetFocusElseTHISFORM.bModify=.F.THISFORM

52、.bBrowse=.F.THISFORM.ModeControlTHISFORM.RefreshEndIfEndIfENDIF （6）“取消”按钮的Click事件代码如下：Local OKYN=MESSAGEBOX("确定取消",4+32,"订单管理系统")IF YN=6SELECT ProductInfoTABLEREVERT(.F.)If RECCOUNT()=0 OR EOF() .AND. BOF()THISFORM.INITElseGO THISFORM.OldRecordTHISFORM.bModify=.F.THISFORM.bBrowse

53、=.F.THISFORM.ModeControlENDIFTHISFORM.RefreshEndIf5.8 客户信息管理设计新建一个表单，命名为“客户信息管理”。把表单Caption属性设置为“客户信息管理”；在“客户信息管理”表单上放置相应的控件，7个标签Label，7个文本框text，1个命令按钮组，1个移动记录工具栏，更改其中控件的Caption属性，表单如图5.8所示。图 5.8 客户信息管理表单具体代码编写如下： （1）“增加”按钮Clicks事件代码如下：SELECT ClientInfoTHISFORM.OldRecord=RECNO()APPEND BLANKTHISFORM.

54、bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.Refresh （2）“修改”按钮Click事件代码如下：SELECT ClientInfoTHISFORM.OldRecord=RECNO()THISFORM.bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.ReFresh （3）“删除”按钮的Click事件代码如下：LOCAL YNYN=Messagebox("确定删除",4+32,"订单管理系统")IF YN=6SELECT C