汇编语言期末总结(地大)

汇编语言期末总结(地大)点菜管理系统的开发与实现点菜管理系统的开发与实现点菜管理系统的开发与实现HYPERLINK\l"_第_一_部"本科毕业设计(论文)正文目录TOC\t"标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 1,2,标题2,3,标题,1"摘要PAGEREF_Toc293741065\h1英文摘要PAGEREF_Toc293741066\h11概述PAGEREF_Toc293741067\h31.1本课题的研究背景PAGEREF_Toc293741068\h31.2点菜系统管理的发展现状PAGEREF_Toc293741069\h31.3设计定义PAGEREF_Toc293741070\h31.4开发工具的简介PAGEREF_Toc293741071\h4VisualBasic6.0PAGEREF_Toc293741072\h4数据库简介PAGEREF_Toc293741073\h62需求分析PAGEREF_Toc293741074\h72.1可行性分析PAGEREF_Toc293741075\h7技术可行性PAGEREF_Toc293741076\h7经济可行性PAGEREF_Toc293741077\h7管理可行性PAGEREF_Toc293741078\h72.2系统目标PAGEREF_Toc293741079\h72.3系统开发环境PAGEREF_Toc293741080\h72.4系统应该具备的功能PAGEREF_Toc293741081\h8基础数据管理PAGEREF_Toc293741082\h8业务信息管理PAGEREF_Toc293741083\h8查询统计信息PAGEREF_Toc293741084\h8人员权限管理PAGEREF_Toc293741085\h83系统总体设计PAGEREF_Toc293741086\h93.1系统结构图PAGEREF_Toc293741087\h93.2主要模块的流程图PAGEREF_Toc293741088\h9菜品类别设置PAGEREF_Toc293741089\h9菜品信息设置PAGEREF_Toc293741090\h10客人点餐PAGEREF_Toc293741091\h103.2.4消费总结PAGEREF_Toc293741092\h113.3E－R图PAGEREF_Toc293741093\h113.4数据字典PAGEREF_Toc293741094\h124系统程序实现PAGEREF_Toc293741095\h144.1系统登陆界面PAGEREF_Toc293741096\h144.2系统主界面PAGEREF_Toc293741097\h144.3主要功能模块PAGEREF_Toc293741098\h14基础数据管理PAGEREF_Toc293741099\h14业务信息管理PAGEREF_Toc293741100\h24查询统计信息PAGEREF_Toc293741101\h345软件测试PAGEREF_Toc293741102\h406结论PAGEREF_Toc293741103\h41参考资料PAGEREF_Toc293741105\h42PAGE2点菜管理系统的开发与实现摘要：餐饮行业是一个具有悠久历史的行业，随着人们步入信息时代的脚步加快，餐饮企业的运作管理模式也在不断的完善更新。以前依靠人工处理顾客垂询、服务落单送到厨房，厨房依照菜单存根制作菜肴，最后由服务员将菜肴递送给顾客的传统模式，随着餐厅的规模及顾客的流量日益增大，经常会给酒店的经营与管理者带来了很多的烦恼和不必要的经济损失。为了适应行业竞争的需要，使餐饮管理更加规范化和科学化，我们提出了一套行之有效的计算机点餐系统解决 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 。本系统——点菜系统是根据餐饮企业的特点，为企业量身定做的餐饮管理软件。在设计过程中最大限度满足用户的要求，因此，该系统具有较强的实用性和针对性。本系统具有界面友好，操作简单，可维护性强等特点。实现了基础信息管理、菜品信息设置、客人消费管理、厨房做菜管理以及客人消费信息统计等功能。本软件使用VisualBasic6.0开发，采用客户端/服务器的模型构架。数据库采用SQLServer2000来实现。关键字：点餐；消费VisualBasic6.0；SQLServer2000Thedevelopmentandimplementationofordering-managementsystemAbstract：Cateringindustryisalonghistoryoftheindustry,aspeopleenteredtheinformationagetospeedupthepace,cateringoperationandmanagementoftheenterprisemodelarealsoconstantlyupdatethesound.Beforerelyingonmanualhandlingcustomerinquiries,service-to-kitchen,thekitchendishesinthemenustubsproduction,thefinaldisheswillbetransmittedbytheattendantstothetraditionalmodelofcustomers,withtherestaurant'ssizeandincreasingtheflowofcustomers,oftengiveHoteloperatorsandmanagersbroughtalotofheadachesandunnecessaryfinanciallosses.Inordertoadapttotheneedsofindustrycompetition,cateringtomorestandardizedandscientificmanagement,wehaveproposedasetofeffectivecomputeralacartesystemsolutions.Thesystem-alacartesystemisbasedonthecharacteristicsofcateringenterprises,customizedfortherestaurantmanagementsoftware.Inthedesignprocesstomaximizemeetuserrequirements,therefore,thesystemhasstrongpracticalandtargeted.Thesystemisuser-friendly,easytouse,maintainability,andothercharacteristics.Toachieveabasisforinformationmanagement,informationsetdishes,theguestsconsumptionmanagement,managementofthekitchencookingandguestsconsumerinformationstatistics,andotherfunctions.TheuseofVisualBasic6.0softwaredevelopment,aclient/servermodelframework.DatabaseusedtoachieveSQLServer2000.KeyWords：Orderfood;consumption;VisualBasic6.0;SQLServer20001概述1.1本课题的研究背景随着经济的高速发展，信息化建设也在如火如荼地进行，由于餐饮行业客户群的不断扩大，餐饮行业本身传统的模式不能更好的适应不断膨胀的消费群体、更好的管理餐饮企业，因此在计算机科学技术日益发展和成熟的今天，运用其先进的技术性来管理日常餐饮企业的各种消费信息数据，就可以极大地提高餐饮企业的工作效率,节约更多的人力物力成本。1.2点菜系统管理的发展现状与国外同行业相比，国内企业管理起步较晚。在国内大部分的餐饮企业还在用手工的方式处理消费数据的时候，国外的同行业企业已经使用上了先进的计算机管理企业信息数据，点餐模式采用网络模式，或手持终端模式，较国内相比，效率和成本有了极大的提高。1.3设计定义客人点菜管理信息系统(以下简称点餐)系统是一套既实用、操作简单、功能齐全、便于维护、管理和查询的软件。采用了c/s模型架构，分成数据访问层、业务规则表示层这二层。其中前端表示层包括基础数据设置、业务信息管理（客人消费管理）、厨房管理(厨房做菜)、查询统计信息及人员权限管理等功能。本系统以点菜为中心，涵盖了部门人员、菜系菜品、客人消费，厨房做菜、以及查询、显示等功能，具有高效率、安全性强、数据完整有条理等优点。满足操作人员的各种需求。为了能结构化的管理和实施系统的开发，采用软件工程的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 来设计软件，其基本思想是：用系统的思想和系统工程的方法，结构化，模块化地自上而下的对生命周期进行分析和设计。我们可以将整个系统开始过程分为以下4个一次连接的阶段：系统规划阶段系统开发阶段系统运行维护阶段系统更新阶段这四个阶段共同构成了系统开发的生命周期。系统规划是酒企销售系统的起始阶段。这一阶段的主要任务是：明确企业对管理系统的需求，以制定酒企销售的设计总 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 。包括对酒企销售系统的规划、需求分析和资源分配三个主要阶段。系统开发是酒企销售系统建设的一个最重要的阶段。系统开发的生命周期一般分为以下三个阶段：系统分析、系统设计和系统实施。系统运行与维护阶段优势整个生命周期中历时最久的阶段，也是酒企销售系统实现其功能，获得效益的阶段。而系统更新阶段是新旧系统并存的时期。1.4开发工具的简介VisualBasic6.0VisualBasic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。何谓VisualBasic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和WindowsGUI有直接关系。专业人员可以用VisualBasic实现其它任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和WindowsNT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。VB有以下特点：(1)可视化编程。用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。VisualBasic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。VisualBasic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。(2)面向对象的设计。4.0版以后的VisualBasic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual?Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，VisualBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。(3)结构化程序设计语言。VisualBasic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual?Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual?Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual?Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离VisualBasic环境，直接在Windows环境下运行。(4)事件驱动编程机制。VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用VisualBasic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。（5）访问数据库Visual?Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理MicrosoftAccess格式的数据库，并提供了强大的数据存储和检索功能。同时，VisualBasic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual?Basic编辑和处理。Visual?Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL?Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。（6）动态数据交换(DDE)利用动态数据交换(Dynamic?Data?Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual?Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。（7）对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound?document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。（8）动态链接库(DLL)Visual?Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到Visual?Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。数据库简介随着科学技术的进步，信息已成为各行各业的重要资源。数据库以其强大的操作和管理功能成为高速信息表达的途经。据我所知，数据库的类型有很多，比如："sqlserver","vf","framework","access","Oracle""MySQL""SYBASE""DB2"等等，然而本软件选择了用SQLServer2000来作为数据库软件。（1）关于SQLServer2000的介绍：MicrosoftSQLServer2000是由Microsoft公司开发的，在MicrosoftSQLServer的发展历程中，有两版本具有重要的意义。那就是在1996年推出的SQLServer6.5和在2000年8月推出的SQLServer2000版本。6.5版本使SQLServer得到了广泛的应用，而2000版本在功能和易用性上有很大的增强，并推出了简体中文版，它包括企业版，标准版，开发版和个人版4个版本。MicrosoftSQLServer2000（简称SQLServer）由一系列相互协作的组件构成，能满足最大的Web站点和企业数据处理系统存储和分析数据的需求。（2）用SQLServer2000作为数据库软件的理由为：由于本软件的开发采用C/S（客户/服务器）模式，而SQLserver2000是基于客户/服务器的数据库管理系统。它提供了功能强大的客户服务器平台，高性能客户服务器结构的数据库管理系统可以将VB6.0作为客户端开发工具，用户通过使用客户系统从服务器检索信息并进行本地操作，服务器关注数据库进程，而客户则关注信息的表示。而SQLServer作为存储数据的后台服务器软件，负责创建和维护表和索引等数据库对象，确保数据完整性和安全性，能够在出现各种错误时恢复数据。2需求分析2.1可行性分析技术可行性随着国内软件开发的日益发展壮大，各种中小企事业单位已具备独立开发各种类型的软件的能力，能够满足不同行业的特别的需求。而这个系统尽管其在组织关系上存在着很大的复杂性，繁琐性，但是就整个系统的技术构成上来看，它还是属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。所以就单纯的数据库应用来看，暂不存在太大的技术问题。经济可行性对于整个系统而言，在系统未运行之前，初期投资比较大，花费相对而言比较多。各部门必须配置电脑、服务器及相关的网络设备，但是现在计算机已经普及了，并且在整个系统投入运行之后，相关的人员培训费可以减少很多。而同时又减少了数据的流通环节，不必要花费那么多的时间，也就是说最重要的就是提高了效率，而又保证了各项数据的准确性，也避免了工作人员的流动造成的收据丢失等问题，适应了当前的发展形式。管理可行性随着时代的发展，人员素质己逐步提高，不论是对于电脑系统的基本操作还是对于系统的维护都有了一定的基础。同时还可以配置专业的电脑维护人员来维护电脑，不必担心电脑故障问题。2.2系统目标我们一般设计系统都要完成以下的几个要求，以便于用户进行操作。这样才能使系统易学易用。（1）合理的设计数据库尽量合理地减少数据库数据的冗余，使重复的数据保持在最小限度，这样将不必要的多占用存储空间，减少产生混乱影响的危险，还能提高计算机的运行速度。（2）设计出友好的界面界面的友好与否是用户评价一个软件优劣的重要方面之一，使用户有一个良好的心情。（3）实现基本功能和一些特殊功能的操作该系统要求除了能实现信息的录入，删除，查询等基本功能之外，还要求能够根据用户的需要进行操作。2.3系统开发环境（1）开发环境操作系统：MicrosoftWindowsXPProfessional开发工具：VB6.0数据库选择：SQLServer2000（2）程序运行环境a．软件配置操作系统：WindowsXPProfessional数据库选择：SQLServer2000开发平台：VB6.0b．硬件配置CPU：AMDAthlonXP,1000MHz(5x200)内存：2GB或以上（服务器）硬盘：160GB以上（服务器）CPU：AMDAthlonXP,1000MHz(5x200)或以上（客户机）内存：1GB或以上（客户机）硬盘：60GB以上（客户机）显示器：VGA或更高2.4系统应该具备的功能基础数据管理（1）部门人员设置：对部门、人员进行添加、修改和删除操作。（2）菜品类别：对客菜品类别信息进行添加、修改和删除操作。（3）菜品信息：对菜品信息、信息进行添加、修改和删除操作。业务信息管理（1）客人消费：对客人进行订餐登记，点餐，以及参考厨房做菜等操作。（2）厨房做菜：对客人订的菜品进行制作，并将制作好的菜品 通知 关于发布提成方案的通知关于xx通知关于成立公司筹建组的通知关于红头文件的使用公开通知关于计发全勤奖的通知 操作员。查询统计信息（1）消费总结：可以对客人消费的信息通过起始时间、客户名称或操作员进行查询操作，查看详细信息，并统计出业务笔数、总消费金额。人员权限管理（1）权限管理：可以对本单位的人员进行权限设置，做到系统功能完善使用。3系统总体设计3.1系统结构图根据需求分析，点菜系统的结构如图3-1所示。图3-1点菜系统功能图3.2主要模块的流程图3.2.1菜品类别设置图3-2菜品类别设置流程图菜品信息设置图3-3菜品信息维护流程图客人点餐图3-3客人点餐流程图消费总结图3-4消费总结流程图3.3E－R图图3-5E-R图3.4数据字典（1）数据库名称为dc.mdf（2）数据库中的表格设置表3-1部门设置部门设置（bm）序号字段名称类型长度索引说明1部门代码(bmid)String6无重复B0012部门名称(bmmc)String20表3-2人员管理人员信息（ry）序号字段名称类型长度索引说明1人员代码(ryid)String6无重复R0012人员名称(rymc)String203性别(xb)String24年龄(nl)Integer5联系方式(lxfs)String206家庭住址(jtzz)String507部门代码(bmid)String6关联部门设置表表3-3菜系类别菜系类别（splb）序号字段名称类型长度索引说明1类别代码(lbid)String6无重复L0012类别名称(lbmc)String20表3-4菜系信息菜系信息（spxx）序号字段名称类型长度索引说明1商品代码(spid)String6无重复S0012商品名称(spmc)String203类别代码(lbid)String6关联商品类别4商品规格(spgg)String10包,箱等5计量单位(jldw)String10千克、个等6单价(dj)Single(float)7备注(bz)Sting255存当前商品的一些连带信息表3-5点餐点餐（dc）序号字段名称类型长度索引说明1业务代码(ywid)String20无重复Y+Date+Time(hh)+0012客户名称(khmc)String50存储消费者或桌位3消费日期(xfrq)Date存储消费日期(Date+time(hh))4总消费额(zxfe)Single5操作员代码(ryid)String6关联人员信息6交费金额(jfje)Single存储交费金额(作为是否交费的标志)表3-6点餐明细点餐明细（dcmx）序号字段名称类型长度索引说明1业务代码(ywid)String6无重复关联点餐，存储格式相同2商品代码(spid)String6关联商品信息3数量(sl)Single(float)4金额(je)Single(float)表3-7权限权限（qx）序号字段名称类型长度索引说明1人员代码(ryid)String6无重复关联人员信息2基础数据设置(jcsjsz)Int1可用;0不可用3点餐管理(dcgl)Int4厨房管理(cfgl)Int5查询统计(cxtj)Int6权限管理(qxgl)Int表3-8菜单菜单（cd）序号字段名称类型长度索引说明1流水号(ID)自动编号客户(kh)String502商品代码(spid)String6关联商品表3标志(bz)String已做完未做完4数量(sl)Int5预定时间(ydsj)6完成时间(wcsj)Datetime4系统程序实现4.1系统登陆界面进入本系统后会弹出一个登录窗口，选择人员名称，输入密码，验证用户信息，根据用户信息权限，点击【确定】按钮，进入相应的主界面，具体的登录界面如图4-1所示。图4-1系统登陆界面4.2系统主界面系统主界面显示系统的各个子模块，方面用户进行各项功能操作。如图4-2所示。图4-2系统主界面4.3主要功能模块基础数据管理由于部门人员和菜品信息维护类似，下面以菜品信息维护程序实现为例进行说明。（1）菜品类别维护此模块可以对商品类别进行维护，添加、修改和删除操作。添加、修改时判断类别名称是否为空、重复；删除时判断商品类别下是否有商品信息。如图4-3所示。图4-3商品类别维护其代码实现如下：PrivateSubbtn添加_Click()'判断信息的正确性'更新商品类别表中的信息记录'1MsgBox"类别名称不能为空!"ExitSubEndIfMsgBox"类别名称不能重复!"ExitSubEndIf'2DimstrResultAsStringstrResult=Exec_SqL("updatesplbsetlbmc=IfstrResult<>"OK"ThenMsgBoxstrResultEndIffrmSpxx.UserControl12_ClickUnloadMeEndSubPrivateSubForm_Activate()'得到商品类表表中最大的类别编号=Format(GetMaxNum("selectmax(lbid)fromsplb"),"000000")EndIfEndSubPrivateSubForm_Resize()'动态改变窗体的样式和标题CallFormFace(Me,TopPicture,KKShape)CallTopCaption(Me.TopPicture,Label2.Caption)EndSubPrivateSubTopPicture_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'准备窗体移动标志intOldX=xintOldy=yboolMouseFlag=TrueEndSubPrivateSubTopPicture_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'存储窗提议动前的left,topDimintLeft,intTopAsIntegerintLeft=Me.LeftintTop=Me.TopIfMe.WindowState=2ThenExitSubIfboolMouseFlag=TrueThenMe.Left=intLeft+(x-intOldX)Me.Top=intTop+(y-intOldy)EndIfEndSubPrivateSubTopPicture_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'还原当前的窗体移动标志boolMouseFlag=FalseEndSubPrivateSubUserControl11_Click()'关闭窗体UnloadMeEndSubPrivateSubUserControl12_Click()'删除商品类别(如果商品类别下有商品信息，则不允许删除)DimstrResultAsString'").RecordCount>0ThenMsgBox"此类别下有商品信息,不能删除!"ExitSubEndIfIfstrResult<>"OK"ThenMsgBoxstrResultEndIffrmSpxx.UserControl12_ClickUnloadMeEndSubPrivateSubUserControl13_Click()'判断信息的正确性'添加一条商品类别纪录'1MsgBox"类别名称不能为空!"ExitSubEndIfMsgBox"类别代码不能重复!"ExitSubEndIfMsgBox"类别名称不能重复!"ExitSubEndIf'2DimstrResultAsStringIfstrResult<>"OK"ThenMsgBoxstrResultEndIffrmSpxx.UserControl12_ClickUnloadMeEndSub（2）商品信息维护此模块可以对商品信息进行维护，添加、修改和删除操作。添加、修改时，输入商品代码,商品名称,计量单位,单价，商品规格，备注，选择类别等如图4-4所示。图4-4商品信息维护其中操作人员还可以把菜品的图片保存到菜品信息中，在点餐时可以动态的让客人看菜品的样子，做到还没有做好就能让客人回味的感觉。其代码如下所示：PrivateSubbtn添加_Click()'校验信息的正确性''更新商品信息记录MsgBox"商品名称或新类别不能为空!"ExitSubEndIfDimtmprsAsNewADODB.RecordsetWithtmprs.CursorLocation=adUseClientIf.State=1Then.CloseCallSavePicture(Picture1.Image,"picture.tmp")Open"picture.tmp"ForBinaryAs#1ReDimaa(1ToLOF(1))AsByteGet#1,1,aa()Close#1Kill"picture.tmp".Fields("pic").Value=aa()EndIf.UpdateEndWithfrmSpxx.updatelistUnloadMeEndSubPrivateSubForm_Activate()'得到数据库中商品信息表中的最大的商品编号'绑定类别数据到DataCombo1中EndIfCallCombo数据邦定(Me.DataCombo1,"selectlbid,lbmcfromsplb")EndSubPrivateSubForm_Resize()'动态改变窗体的标题和样式CallFormFace(Me,TopPicture,KKShape)CallTopCaption(Me.TopPicture,Label2.Caption)EndSubPrivateSubText6_LostFocus()'判断单价文本框的输入必须为数字MsgBox"单价必须是数字!"EndIfEndSubPrivateSubTopPicture_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'准备窗体移动标志intOldX=xintOldy=yboolMouseFlag=TrueEndSubPrivateSubTopPicture_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'存储窗提议动前的left,topDimintLeft,intTopAsIntegerintLeft=Me.LeftintTop=Me.TopIfMe.WindowState=2ThenExitSubIfboolMouseFlag=TrueThenMe.Left=intLeft+(x-intOldX)Me.Top=intTop+(y-intOldy)EndIfEndSubPrivateSubTopPicture_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'还原当前的窗体移动标志boolMouseFlag=FalseEndSubPrivateSubUserControl11_Click()'关闭窗体UnloadMeEndSubPrivateSubUserControl12_Click()'删除当前的商品IfMsgBox("您确实要删除当前的商品么?",4+256+64,"")=vbNoThenExitSubDimstrResultAsStringIfstrResult<>"OK"ThenMsgBoxstrResultEndIffrmSpxx.updatelistUnloadMeEndSubPrivateSubUserControl13_Click()'1.校验信息的正确性'2.添加一条商品信息记录MsgBox"商品名称或新类别不能为空!"ExitSubEndIfMsgBox"商品代码不能重复!"ExitSubEndIfDimstrResultAsStringDimtmprsAsNewADODB.RecordsetWithtmprs.CursorLocation=adUseClientIf.State=1Then.Close.Open"spxx",conn,adOpenDynamic,adLockOptimistic.AddNewCallSavePicture(Picture1.Image,"picture.tmp")Open"picture.tmp"ForBinaryAs#1ReDimaa(1ToLOF(1))AsByteGet#1,1,aa()Close#1Kill"picture.tmp".Fields("pic").Value=aa()EndIf.UpdateEndWithfrmSpxx.updatelistUnloadMeEndSubPrivateSubUserControl14_Click()WithMe.CommonDialog1.ShowOpenIf.FileName<>""ThenCallPaintPic(Me.Picture1,Me.Picture2)EndIfEndWithEndSub业务信息管理（1）客人点菜此模块是一个综合性功能模块，它可以管理客人从坐下点餐到厨房做菜以及客人用餐、最后到客人结账的详细的操作，如：登记时需选择菜品，列表中显示登记的商品名称、商品类别、商品规格、计量单位、单价、数量和金额。列表下边显示总数量、总金额、记录人和备注，同时移动列表中选择的菜品可以看其做好后的效果图。如图4-5所示。图4-5客人点菜其代码实现如下：PrivateSubbtn添加_Click()'判断当前的信息是不是允许等待结账(等待结帐指:用户先用餐,最后结账!)'存储等待结账的信息'1MsgBox"当前没有任何的消费商品!"ExitSubEndIfMsgBox"有交费金额不能等待结帐!"ExitSubEndIf'2CalladdData(0)CallfrmSell.updatelist(frmSell.boolShow单据)UnloadMeEndSubPrivateSubddd_DblClick()'将当前的表格内容信息显示在frmSpxz中Ifddd.TextMatrix(ddd.Row,0)=""ThenExitSubCallShowPicture(frmSpXZ.Picture1,Trim(ddd.TextMatrix(ddd.Row,0)))frmSpXZ.Show1EndSubPrivateSubddd_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'显示当前商品的图片Ifddd.Row<=0ThenExitSubIfddd.TextMatrix(ddd.Row,0)=""ThenExitSubIfShowPicture(Me.Picture1,ddd.TextMatrix(ddd.Row,0))=FalseThenExitSubEndSubPrivateSubddd_RowColChange()CallMoveRow(ddd,ddd.Row)EndSubPrivateSubForm_Activate()'得到点菜表中的最大的业务编号EndIfEndSubPrivateSubForm_Load()'设置表格标题和样式DimarrName()arrName=Array("商品代码","商品名称","商品类别","商品规格","计量单位","单价(元)","数量","金额(元)")DimarrColwidth()arrColwidth=Array(0,2000,1500,1000,1000,1000,1500,1500)ddd.Cols=8ddd.Rows=2DimiAsLongFori=0Toddd.Cols-1ddd.ColWidth(i)=arrColwidth(i)ddd.TextMatrix(0,i)=arrName(i)ddd.TextMatrix(1,i)=""Nextddd.Rows=50EndSubPrivateSubForm_Resize()'设置窗体边框和标题CallFormFace(Me,TopPicture,KKShape)CallTopCaption(Me.TopPicture,Label2.Caption)EndSubPrivateSubText6_Change()EndSubPrivateSubTopPicture_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'准备窗体移动标志intOldX=xintOldy=yboolMouseFlag=TrueEndSubPrivateSubTopPicture_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'存储窗提议动前的left,topDimintLeft,intTopAsIntegerintLeft=Me.LeftintTop=Me.TopIfMe.WindowState=2ThenExitSubIfboolMouseFlag=TrueThenMe.Left=intLeft+(x-intOldX)Me.Top=intTop+(y-intOldy)EndIfEndSubPrivateSubTopPicture_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'还原当前的窗体移动标志boolMouseFlag=FalseEndSubPrivateSubUserControl11_Click()'关闭窗体UnloadMeEndSubPrivateSubUserControl12_Click()'校验信息的正确性'存储结账信息MsgBox"当前没有任何的消费商品!"ExitSubEndIfMsgBox"付款金额小于消费金额，不能结账!"ExitSubEndIfCallfrmSell.updatelist(frmSell.boolShow单据)UnloadMeEndSubPrivateSubUserControl13_Click()'设置frmSpXZ的窗体标志frmSpXZ.Tag="选择商品"frmSpXZ.Show1EndSubPrivateSubaddData(sing交费金额AsSingle)'存储菜单主信息'存储商品信息'1DimiAsLong'2Fori=1Toddd.Rows-1Ifddd.TextMatrix(i,0)<>""Then&"'"&Trim(ddd.TextMatrix(i,0))&"',"&Val(ddd.TextMatrix(i,ddd.Cols-2))&","&Val(ddd.TextMatrix(i,ddd.Cols-1))&")")EndIfNextEndSubPrivateSubUserControl14_Click()MsgBox"您还没有消费商品不能操作菜品!"ExitSubEndIfMsgBox"客户名称为空"ExitSubEndIfDimiAsLongWithfrmCzcp.ddd.TextMatrix(i,2)=Trim(ddd.TextMatrix(i,0)).ddd.TextMatrix(i,3)=Trim(ddd.TextMatrix(i,1)).ddd.TextMatrix(i,4)=Trim(ddd.TextMatrix(i,3)).ddd.TextMatrix(i,5)=Trim(ddd.TextMatrix(i,4)).ddd.TextMatrix(i,6)=Trim(ddd.TextMatrix(i,6))EndIfNextEndWithfrmCzcp.Show1EndSub（2）厨房做菜模块此模块可以查看客人预定菜，以及将做好的菜品时时的传递给服务员。如图4-6所示。图4-6厨房做菜其代码实现如下：PrivateSubddd_DblClick()'选择商品信息(方式双击表格的第一列)Ifddd.Row<=0ThenExitSubIfddd.Col<>0ThenExitSubIfddd.TextMatrix(ddd.Row,2)=""ThenExitSubIfddd.TextMatrix(ddd.Row,0)="√"Thenddd.TextMatrix(ddd.Row,0)=""Elseddd.TextMatrix(ddd.Row,0)="√"EndIfEndSubSubupdatelist()'设置表格标题和样式DimarrName()arrName=Array("操作完成","流水号","商品代码","商品名称","客户名称","数量","预定时间")DimarrColwidth()arrColwidth=Array(800,0,0,3000,2000,2000,2000)ddd.Cols=7ddd.Rows=2DimiAsLongFori=0Toddd.Cols-1ddd.ColWidth(i)=arrColwidth(i)ddd.TextMatrix(0,i)=arrName(i)ddd.TextMatrix(1,i)=""Nextddd.Rows=20ddd.MergeCol(4)=TrueCallUpdateDDD1(ddd,ExecSql("V制作菜单"),1)EndSubPrivateSubddd_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'显示当前商品的图片Ifddd.Row<=0ThenExitSubIfddd.TextMatrix(ddd.Row,2)=""ThenExitSubIfShowPicture(Me.Picture1,ddd.TextMatrix(ddd.Row,2))=FalseThenExitSubEndSubPrivateSubddd_RowColChange()CallMoveRow(ddd,ddd.Row)EndSubPrivateSubForm_Load()CallupdatelistEndSubPrivateSubForm_Resize()'动态改变窗体的样式和标题CallFormFace(Me,TopPicture,KKShape)CallTopCaption(Me.TopPicture,Label2.Caption)EndSubPrivateSubTimer1_Timer()CallupdatelistEndSubPrivateSubTopPicture_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'准备窗体移动标志intOldX=xintOldy=yboolMouseFlag=TrueEndSubPrivateSubTopPicture_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'存储窗提议动前的left,topDimintLeft,intTopAsIntegerintLeft=Me.LeftintTop=Me.TopIfMe.WindowState=2ThenExitSubIfboolMouseFlag=TrueThenMe.Left=intLeft+(x-intOldX)Me.Top=intTop+(y-intOldy)EndIfEndSubPrivateSubTopPicture_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'还原当前的窗体移动标志boolMouseFlag=FalseEndSubPrivateSubUserControl11_Click()UnloadMeEndSubPrivateSubUserControl12_Click()'将选中的制作完成菜品信息传递到前台IfMsgBox("您确认选择的菜品已经制作完成么?",4+256+64,"")=vbYesThenDimiAsLongFori=1Toddd.Rows-1Ifddd.TextMatrix(i,0)="√"ThenCallExec_SqL("updatecdsetbz='已完成',wcsj='"&Format(Now,"yyyy-mm-ddhh:mm:ss")&"'whereid="&Val(ddd.TextMatrix(i,1))&"")EndIfNextEndIfCallupdatelistEndSub查询统计信息（1）消费总结此页面可以通过选择、输入查询条件进行查询，列表中显示采购日期、供应商名称、总数量、总金额、记录人、备注，统计信息中显示业务笔数、消费金额等，为了管理者能更好的管理公司业务提供良好的帮助。如图4-7所示。图4-7消费总结其代码实现如下：PrivateSubbtn添加_Click()'1.设置表格样式和标题'2.以不同的查询模式更新显示列表'3.计算业务量,总金额和交费金额'1DimarrName()arrName=Array("业务代码","客户名称","消费日期","总消费额(元)","交费金额(元)","操作员")DimarrColwidth()arrColwidth=Array(2500,2500,2000,1500,1500,1500)ddd.Cols=6ddd.Rows=2DimiAsLongFori=0Toddd.Cols-1ddd.ColWidth(i)=arrColwidth(i)ddd.TextMatrix(0,i)=arrName(i)ddd.TextMatrix(1,i)=""Nextddd.Rows=27