《毕业设计(论文)-点菜管理系统的开发与实现.doc》由会员分享,可在线阅读,更多相关《毕业设计(论文)-点菜管理系统的开发与实现.doc(44页珍藏版)》请在三一文库上搜索。
1、本科毕业设计本科毕业设计( (论文论文) )正文正文 目目 录录 摘要 1 英文摘要 1 1 概述 .3 1.1 本课题的研究背景 .3 1.2 点菜系统管理的发展现状 .3 1.3 设计定义 .3 1.4 开发工具的简介 .4 1.4.1 Visual Basic 6.0 .4 1.4.2 数据库简介 .6 2 需求分析 .7 2.1 可行性分析 .7 2.1.1 技术可行性 .7 2.1.2 经济可行性 .7 2.1.3 管理可行性 .7 2.2 系统目标 .7 2.3 系统开发环境.7 2.4 系统应该具备的功能 .8 2.4.1 基础数据管理 .8 2.4.2 业务信息管理 .8 2.
2、4.3 查询统计信息 .8 2.4.4 人员权限管理 .8 3 系统总体设计 .9 3.1 系统结构图 9 3.2 主要模块的流程图 .9 3.2.1 菜品类别设置 .9 3.2.2 菜品信息设置 10 3.2.3 客人点餐 10 3.2.4 消费总结 11 3.3 ER 图11 3.4 数据字典 12 4 系统程序实现 14 4.1 系统登陆界面 14 4.2 系统主界面 14 4.3 主要功能模块 14 4.3.1 基础数据管理 14 4.3.2 业务信息管理 24 4.3.3 查询统计信息 34 5 软件测试 40 6 结论 41 参考资料 .42 点菜管理系统的开发与实现 1 点菜管理
3、系统的开发与实现点菜管理系统的开发与实现 摘要摘要: 餐饮行业是一个具有悠久历史的行业,随着人们步入信息时代的脚步加快,餐饮 企业的运作管理模式也在不断的完善更新。以前依靠人工处理顾客垂询、服务落单送到厨房, 厨房依照菜单存根制作菜肴,最后由服务员将菜肴递送给顾客的传统模式,随着餐厅的规模及 顾客的流量日益增大,经常会给酒店的经营与管理者带来了很多的烦恼和不必要的经济损失。 为了适应行业竞争的需要,使餐饮管理更加规范化和科学化,我们提出了一套行之有效的计算 机点餐系统解决方案。 本系统点菜系统是根据餐饮企业的特点,为企业量身定做的餐饮管理软件。在设计过 程中最大限度满足用户的要求,因此,该系统
4、具有较强的实用性和针对性。本系统具有界面友 好,操作简单,可维护性强等特点。 实现了基础信息管理、菜品信息设置、客人消费管理、厨房做菜管理以及客人消费信息统 计等功能。 本软件使用 Visual Basic 6.0 开发,采用客户端/服务器的模型构架。数据库采用 SQLServer 2000 来实现。 关键字:关键字:点餐;消费 Visual Basic 6.0;SQLServer 2000 The development and implementation of ordering-management system Abstract:Catering industry is a long
5、history of the industry, as people entered the information age to speed up the pace, catering operation and management of the enterprise model are also constantly update the sound. Before relying on manual handling customer inquiries, service-to-kitchen, the kitchen dishes in the menu stubs producti
6、on, the final dishes will be transmitted by the attendants to the traditional model of customers, with the restaurants size and increasing the flow of customers, often give Hotel operators and managers brought a lot of headaches and unnecessary financial losses. In order to adapt to the needs of ind
7、ustry competition, catering to more standardized and scientific management, we have proposed a set of effective computer a la carte system solutions. The system - a la carte system is based on the characteristics of catering enterprises, customized for the restaurant management software. In the desi
8、gn process to maximize meet user requirements, therefore, the system has strong practical and targeted. The system is user-friendly, easy to use, maintainability, and other characteristics. To achieve a basis for information management, information set dishes, the guests consumption management, mana
9、gement of the kitchen cooking and guests consumer information statistics, and other functions. The use of Visual Basic 6.0 software development, a client / server model framework. 点菜管理系统的开发与实现 2 Database used to achieve SQLServer 2000. Key Words:Order food; consumption; Visual Basic 6.0; SQLServer 2
10、000 点菜管理系统的开发与实现 3 1 1 概述概述 1.11.1 本课题的研究背景本课题的研究背景 随着经济的高速发展,信息化建设也在如火如荼地进行,由于餐饮行业客户 群的不断扩大,餐饮行业本身传统的模式不能更好的适应不断膨胀的消费群体、 更好的管理餐饮企业,因此在计算机科学技术日益发展和成熟的今天,运用其先 进的技术性来管理日常餐饮企业的各种消费信息数据,就可以极大地提高餐饮企 业的工作效率,节约更多的人力物力成本。 1.21.2 点菜系统管理的发展现状点菜系统管理的发展现状 与国外同行业相比,国内企业管理起步较晚。 在国内大部分的餐饮企业还在用手工的方式处理消费数据的时候,国外的同 行
11、业企业已经使用上了先进的计算机管理企业信息数据,点餐模式采用网络模式, 或手持终端模式,较国内相比,效率和成本有了极大的提高。 1.31.3 设计定义设计定义 客人点菜管理信息系统(以下简称点餐)系统是一套既实用、操作简单、功能 齐全、便于维护、管理和查询的软件。采用了 c/s 模型架构,分成数据访问层、 业务规则表示层这二层。其中前端表示层包括基础数据设置、业务信息管理(客 人消费管理) 、厨房管理(厨房做菜)、查询统计信息及人员权限管理等功能。 本系统以点菜为中心,涵盖了部门人员、菜系菜品、客人消费,厨房做菜、 以及查询、显示等功能,具有高效率、安全性强、数据完整有条理等优点。满足 操作人
12、员的各种需求。 为了能结构化的管理和实施系统的开发,采用软件工程的方法来设计软件, 其基本思想是:用系统的思想和系统工程的方法,结构化,模块化地自上而下的 对生命周期进行分析和设计。我们可以将整个系统开始过程分为以下 4 个一次连 接的阶段: (1) 系统规划阶段 (2) 系统开发阶段 (3) 系统运行维护阶段 (4) 系统更新阶段 这四个阶段共同构成了系统开发的生命周期。系统规划是酒企销售系统的起 始阶段。这一阶段的主要任务是:明确企业对管理系统的需求,以制定酒企销售 的设计总计划。包括对酒企销售系统的规划、需求分析和资源分配三个主要阶段。 系统开发是酒企销售系统建设的一个最重要的阶段。系统
13、开发的生命周期一般分 为以下三个阶段:系统分析、系统设计和系统实施。系统运行与维护阶段优势整 个生命周期中历时最久的阶段,也是酒企销售系统实现其功能,获得效益的阶段。 点菜管理系统的开发与实现 4 而系统更新阶段是新旧系统并存的时期。 1.41.4 开发工具的简介开发工具的简介 1.4.11.4.1 VisualVisual BasicBasic 6.06.0 Visual Basic,简称 VB,是 Microsoft 公司推出的一种 Windows 应用程序开发 工具。是当今世界上使用最广泛的编程语言之一,它也被公认为是编程效率最高 的一种编程方法。无论是开发功能强大、性能可靠的商务软件,
14、还是编写能处理 实际问题的实用小程序,VB 都是最快速、最简便的方法。 何谓 Visual Basic?“Visual”指的是采用可视化的开发图形用户界面 (GUI)的方法,一般不需要编写大量代码去描述界面元素的外观和位置,而只要 把需要的控件拖放到屏幕上的相应位置即可;“Basic”指的是 BASIC 语言,因为 VB 是在原有的 BASIC 语言的基础上发展起来的,至今包含了数百条语句、函数及 关键词,其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能,而初学者只要掌握几个关键词就可以建 立实用的应用程序。
15、 VB 提供了学习版、专业版和企业版,用以满足不同的开发需要。学习版使编 程人员很容易地开发 Windows 和 Windows NT 的应用程序;专业版为专业编程人员 提供了功能完备的开发工具;企业版允许专业人员以小组的形式来创建强健的分 布式应用程序。 VB 有以下特点: (1) 可视化编程。用传统程序设计语言设计程序时,都是通过编写程序代码 来设计用户界面,在设计过程中看不到界面的实际显示效果,必须编译后运行程 序才能观察。如果对界面的效果不满意,还要回到程序中修改。有时候,这种编 程-编译-修改的操作可能要反复多次,大大影响了软件开发效率。Visual Basic 提供了可视化设计工具
16、,把 Windows 界面设计的复杂性“封装”起来,开发人员 不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局,用系统提 供的工具,在屏幕上画出各种“部件” ,即图形对象,并设置这些图形对象的属性。 Visual Basic 自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的效率。 (2) 面向对象的设计。4.0 版以后的 Visual Basic 支持面向对象的程序设计, 但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序 设计语言中,对象由程序代码和数据组成,是抽象的概念;而 Visual Basic 则是
17、 应用面向对象的程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为 每个对象赋予应有的属性,使对象成为实在的东西。在设计对象时,不必编写建 立和描述每个对象的程序代码,而是用工具画在界面上,Visual Basic 自动生成 点菜管理系统的开发与实现 5 对象的程序代码并封装起来。每个对象以图形方式显示在界面上,都是可视的。 (3) 结构化程序设计语言。Visual Basic 是在 BASIC 语言的基础上发展起来 的,具有高级程序设计语言的语句结构,接近于自然语言和人类的逻辑思维方式。 Visual Basic 语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查, 同时
18、具有功能强大且使用灵活的调试器和编译器。 Visual Basic 是解释型语言,在输入代码的同时,解释系统将高级语言分解 翻译成计算机可以识别的机器指令,并判断每个语句的语法错误。在设计 Visual Basic 程序的过程中,随时可以运行程序,而在整个程序设计好之后,可 以编译生成可执行文件(.EXE),脱离 Visual Basic 环境,直接在 Windows 环境下 运行。 (4) 事件驱动编程机制。Visual Basic 通过事件来执行对象的操作。一个对 象可能会产生多个事件,每个事件都可以通过一段程序来响应。例如,命令按钮 是一个对象,当用户单击该按钮时,将产生一个“单击“(C
19、LICK)事件,而在产生 该事件时将执行一段程序,用来实现指定的操作。 在用 Visual Basic 设计大型应用软件时,不必建立具有明显开始和结束的程 序,而是编写若干个微小的子程序,即过程。这些过程分别面向不同的对象,由 用户操作引发某个事件来驱动完成某种特定的功能,或者由事件驱动程序调用通 用过程来执行指定的操作,这样可以方便编程人员,提高效率。 (5)访问数据库 Visual Basic 具有强大的数据库管理功能,利用数据控件 和数据库管理窗口,可以直接建立或处理 Microsoft Access 格式的数据库,并提 供了强大的数据存储和检索功能。同时,Visual Basic 还能
20、直接编辑和访问其他 外部数据库,如 dBASE,FoxPro,Paradox 等,这些数据库格式都可以用 Visual Basic 编辑和处理。 Visual Basic 提供开放式数据连接,即 ODBC 功能,可通过直接访问或建立连 接的方式使用并操作后台大型网络数据库,如 SQL Server,Oracle 等。在应用程 序中,可以使用结构化查询语言 SQL 数据标准,直接访问服务器上的数据库,并 提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据 库的 SQL 的编程技术,为单机上运行的数据库提供了 SQL 网络接口,以便在分布 式环境中快速而有效地实现客户/服务器(
21、client/server)方案。 (6)动态数据交换(DDE) 利用动态数据交换(Dynamic Data Exchange)技术, 可以把一种应用程序中的数据动态地链接到另一种应用程序中,使两种完全不同 的应用程序建立起一条动态数据链路。当原始数据变化时,可以自动更新链接的 数据。Visual Basic 提供了动态数据交换的编程技术,可以在应用程序中与其他 Windows 应用程序建立动态数据交换,在不同的应用程序之间进行通信。 点菜管理系统的开发与实现 6 (7)对象的链接与嵌入(OLE) 对象的链接与嵌入(OLE)将每个应用程序都看 做是一个对象(object),将不同的对象链接(l
22、ink)起来,再嵌入(embed)某个应用 程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式 的文件。OLE 技术是 Microsoft 公司对象技术的战略,它把多个应用程序合为一体, 将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的技术。 利用 OLE 技术,可以方便地建立复合式文档(compound document),这种文档由来 自多个不同应用程序的对象组成,文档中的每个对象都与原来的应用程序相联系, 并可执行与原来应用程序完全相同的操作。 (8)动态链接库(DLL) Visual Basic 是一种高级程序设计语言,不具备低级 语言的功能,对访
23、问机器硬件的操作不太容易实现。但它可以通过动态链接库技 术将 C/C+或汇编语言编写的程序加入到 Visual Basic 应用程序中,可以像调用 内部函数一样调用其他语言编写的函数。此外,通过动态链接库,还可以调用 Windows 应用程序接口(API)函数,实现 SDK 所具有的功能。 1.4.21.4.2 数据库简介数据库简介 随着科学技术的进步,信息已成为各行各业的重要资源。数据库以其强大的 操作和管理功能成为高速信息表达的途经。据我所知,数据库的类型有很多,比 如:“sqlserver“,“vf“,“framework“,“access“,“Oracle“MySQL“SYBASE“D
24、B2“ 等等,然而本软件选择了用 SQL Server2000 来作为数据库软件。 (1)关于 SQL Server2000 的介绍: Microsoft SQL Server2000 是由 Microsoft 公司开发的,在 Microsoft SQL Server 的发展历程中,有两版本具有重要的意义。那就是在 1996 年推出的 SQL Server6.5 和在 2000 年 8 月推出的 SQL Server2000 版本。6.5 版本使 SQL Server 得到了广泛的应用,而 2000 版本在功能和易用性上有很大的增强,并推出了简体 中文版,它包括企业版,标准版,开发版和个人版
25、4 个版本。 Microsoft SQL Server2000(简称 SQL Server)由一系列相互协作的组件构 成,能满足最大的 Web 站点和企业数据处理系统存储和分析数据的需求。 (2)用 SQL Server2000 作为数据库软件的理由为: 由于本软件的开发采用 C/S(客户/服务器)模式,而 SQLserver2000 是基于 客户/服务器的数据库管理系统。它提供了功能强大的客户服务器平台,高性能客 户服务器结构的数据库管理系统可以将 VB6.0 作为客户端开发工具,用户通过使 用客户系统从服务器检索信息并进行本地操作,服务器关注数据库进程,而客户 则关注信息的表示。而 SQL
26、 Server 作为存储数据的后台服务器软件,负责创建和 维护表和索引等数据库对象,确保数据完整性和安全性,能够在出现各种错误时 恢复数据。 点菜管理系统的开发与实现 7 2 2 需求分析需求分析 2.12.1 可行性分析可行性分析 2.1.12.1.1 技术可行性技术可行性 随着国内软件开发的日益发展壮大,各种中小企事业单位已具备独立开发各 种类型的软件的能力,能够满足不同行业的特别的需求。而这个系统尽管其在组 织关系上存在着很大的复杂性,繁琐性,但是就整个系统的技术构成上来看,它 还是属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删 除、查找、编辑等。所以就单纯的数据库应
27、用来看,暂不存在太大的技术问题。 2.1.22.1.2 经济可行性经济可行性 对于整个系统而言,在系统未运行之前,初期投资比较大,花费相对而言比较 多。各部门必须配置电脑、服务器及相关的网络设备,但是现在计算机已经普及 了,并且在整个系统投入运行之后,相关的人员培训费可以减少很多。而同时又 减少了数据的流通环节,不必要花费那么多的时间,也就是说最重要的就是提高 了效率,而又保证了各项数据的准确性,也避免了工作人员的流动造成的收据丢 失等问题,适应了当前的发展形式。 2.1.32.1.3 管理可行性管理可行性 随着时代的发展,人员素质己逐步提高,不论是对于电脑系统的基本操作还是 对于系统的维护都
28、有了一定的基础。同时还可以配置专业的电脑维护人员来维护 电脑,不必担心电脑故障问题。 2.22.2 系统目标系统目标 我们一般设计系统都要完成以下的几个要求,以便于用户进行操作。这样才能 使系统易学易用。 (1)合理的设计数据库 尽量合理地减少数据库数据的冗余,使重复的数据保持在最小限度,这样将不 必要的多占用存储空间,减少产生混乱影响的危险,还能提高计算机的运行速度。 (2)设计出友好的界面 界面的友好与否是用户评价一个软件优劣的重要方面之一,使用户有一个良好 的心情。 (3)实现基本功能和一些特殊功能的操作 该系统要求除了能实现信息的录入,删除,查询等基本功能之外,还要求能 够根据用户的需
29、要进行操作。 2.32.3 系统开发环境系统开发环境 (1)开发环境 点菜管理系统的开发与实现 8 操作系统: Microsoft Windows XP Professional 开发工具: VB 6.0 数据库选择: SQL Server2000 (2)程序运行环境 a软件配置 操作系统:Windows XP Professional 数据库选择: SQL Server2000 开发平台: VB 6.0 b硬件配置 CPU:AMD Athlon XP, 1000 MHz (5 x 200) 内存:2GB 或以上(服务器) 硬盘:160GB 以上(服务器) CPU:AMD Athlon XP,
30、 1000 MHz (5 x 200)或以上(客户机) 内存:1GB 或以上(客户机) 硬盘:60GB 以上(客户机) 显示器:VGA 或更高 2.42.4 系统应该具备的功能系统应该具备的功能 2.4.12.4.1 基础数据管理基础数据管理 (1)部门人员设置:对部门、人员进行添加、修改和删除操作。 (2)菜品类别:对客菜品类别信息进行添加、修改和删除操作。 (3)菜品信息:对菜品信息、信息进行添加、修改和删除操作。 2.4.22.4.2 业务信息管理业务信息管理 (1)客人消费:对客人进行订餐登记,点餐,以及参考厨房做菜等操作。 (2)厨房做菜:对客人订的菜品进行制作,并将制作好的菜品通知
31、操作员。 2.4.32.4.3 查询查询统计信息统计信息 (1)消费总结:可以对客人消费的信息通过起始时间、客户名称或操作员进 行查询操作,查看详细信息,并统计出业务笔数、总消费金额。 2.4.42.4.4 人员权限管理人员权限管理 (1)权限管理:可以对本单位的人员进行权限设置,做到系统功能完善使用。 点菜管理系统的开发与实现 9 3 3 系统总体设计系统总体设计 3.13.1 系统结构图系统结构图 根据需求分析,点菜系统的结构如图 3-1 所示。 客人点菜系统 业务信息管理 基础数据设置 查询信息管理 部门设置 人员设置 菜品信息 客人消费 厨房做菜 权限管理 消费总结 人员权限管理 退出
32、系统 重新登陆 菜品类别 身份认证 系统主界面 认证成功 认证失败 图 3-1 点菜系统功能图 3.23.2 主要模块的流程图主要模块的流程图 3.2.13.2.1 菜品类别设置菜品类别设置 新类别 类别名称是否 为空、重复 新的类别信息 添加完成 取消 否 是 删除修改 类别名称是否 为空、重复 此类别是否有 商品信息 菜品类 别设置 是是 类别信息删除 完成 类别信息修改 完成 否否 图 3-2 菜品类别设置流程图 点菜管理系统的开发与实现 10 3.2.23.2.2 菜品信息设置菜品信息设置 菜品信 息设置 新菜品 菜品信息添 加完成 菜品名称或新 类别是否为空 删除修改 菜品名称或新
33、类别是否为空 菜品信息添 加完成 菜品信息添 加完成 结束 否 是是 否 图 3-3 菜品信息维护流程图 3.2.33.2.3 客人点餐客人点餐 客人消 费管理 新单 取消 结束 查看 双击某一记录 可以结账 新的客人登 记 客人点完菜 将信息保存 查看客人已 经结账单据 信息 查看客人正 在消费的账 单信息 查看厨房的 做菜信息 图 3-3 客人点餐流程图 点菜管理系统的开发与实现 11 3.2.43.2.4 消费消费总结总结 消费总 结 查询取消 输入查询条件 显示查询结果 结束 是 否 详细信息 选择某一记录 显示该记录详 细信息 图 3-4 消费总结流程图 3.33.3 E ER R
34、图图 人员 部门 菜品信息 菜品类别 点菜 菜单 处理 调用 1 N N N 1 拥有 拥有 1 N 1 N 1 图 3-5 E-R 图 点菜管理系统的开发与实现 12 3.43.4 数据字典数据字典 (1)数据库名称为 dc.mdf (2)数据库中的表格设置 表 3-1 部门设置 部门设置(bm) 序号字段名称类型长度索引说明 1部门代码(bmid)String6无重复B001 2部门名称(bmmc)String20 表 3-2 人员管理 人员信息(ry) 序号字段名称类型长度索引说明 1人员代码(ryid)String6无重复R001 2人员名称(rymc)String20 3性别(xb)
35、String2 4年龄(nl)Integer 5联系方式(lxfs)String20 6家庭住址(jtzz)String50 7部门代码(bmid)String6关联部门设置表 表 3-3 菜系类别 菜系类别(splb) 序号字段名称类型长度索引说明 1类别代码(lbid)String6无重复L001 2类别名称(lbmc)String20 表 3-4 菜系信息 菜系信息(spxx) 序号字段名称类型长度索引说明 1商品代码(spid)String6无重复S001 2商品名称(spmc)String20 3类别代码(lbid)String6关联商品类别 4商品规格(spgg)String10包
36、,箱等 5计量单位(jldw)String10千克、个等 6单价(dj)Single(float) 7备注(bz)Sting255存当前商品的一些连带信息 表 3-5 点餐 点餐(dc) 序号字段名称类型长度索引说明 1业务代码(ywid)String20无重复Y+Date+Time(hh)+001 2客户名称(khmc)String50存储消费者或桌位 3消费日期(xfrq)Date存储消费日期(Date+time(hh) 4总消费额(zxfe)Single 5操作员代码(ryid)String6关联人员信息 6交费金额(jfje)Single存储交费金额(作为是否交费 点菜管理系统的开发与
37、实现 13 的标志) 表 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)Int 4厨房管理(cfgl)Int 5查询统计(cxtj)Int 6权限管理(qxgl)Int 表
38、 3-8 菜单 菜单(cd) 序号字段名称类型长度索引说明 1流水号(ID)自动编号 客户(kh)String50 2商品代码(spid)String6关联商品表 3标志(bz)String已做完 未做完 4数量(sl)Int 5预定时间(ydsj) 6完成时间(wcsj)Datetime 点菜管理系统的开发与实现 14 4 4 系统程序实现系统程序实现 4.14.1 系统登陆界面系统登陆界面 进入本系统后会弹出一个登录窗口,选择人员名称,输入密码,验证用户信 息,根据用户信息权限,点击【确定】按钮,进入相应的主界面,具体的登录界 面如图 4-1 所示。 图 4-1 系统登陆界面 4.24.2
39、 系统主界面系统主界面 系统主界面显示系统的各个子模块,方面用户进行各项功能操作。如图 4-2 所示。 图 4-2 系统主界面 4.34.3 主要功能模块主要功能模块 4.3.14.3.1 基础数据管理基础数据管理 由于部门人员和菜品信息维护类似,下面以菜品信息维护程序实现为例进行 说明。 (1)菜品类别维护 点菜管理系统的开发与实现 15 此模块可以对商品类别进行维护,添加、修改和删除操作。添加、修改时判 断类别名称是否为空、重复;删除时判断商品类别下是否有商品信息。如图 4-3 所示。 图 4-3 商品类别维护 其代码实现如下: Private Sub btn 添加_Click() 判断信
40、息的正确性 更新商品类别表中的信息记录 1 If Trim(Me.Text3.Text) = “ Then MsgBox “类别名称不能为空!“ Exit Sub End If If ExecSql(“select * from splb where lbid 0 Then MsgBox “类别名称不能重复!“ Exit Sub End If 2 Dim strResult As String strResult = Exec_SqL(“update splb set lbmc= “ & Trim(Me.Text3.Text) & “ where lbid=“ & Me.Text2.Text
41、& “) If strResult 0 Then MsgBox “此类别下有商品信息,不能删除!“ Exit Sub End If strResult = Exec_SqL(“delete from splb where lbid=“ & Me.Text2.Text & “) If strResult 0 Then MsgBox “类别代码不能重复!“ Exit Sub End If If ExecSql(“select * from splb where lbmc=“ & Trim(Me.Text3.Text) & “).RecordCount 0 Then MsgBox “类别名称不能重复
42、!“ Exit Sub End If 2 Dim strResult As String strResult = Exec_SqL(“insert into splb (lbid,lbmc) values (“ & Trim(Me.Text2.Text) & “,“ & Trim(Me.Text3.Text) & “)“) If strResult 0 Then Call SavePicture(Picture1.Image, “picture.tmp“) Open “picture.tmp“ For Binary As #1 ReDim aa(1 To LOF(1) As Byte Get
43、#1, 1, aa() Close #1 Kill “picture.tmp“ .Fields(“pic“).Value = aa() End If .Update End With frmSpxx.updatelist Unload Me End Sub Private Sub Form_Activate() 得到数据库中商品信息表中的最大的商品编号 绑定类别数据到 DataCombo1 中 If Me.Text2.Tag = “ Then Me.Text2.Text = Format(GetMaxNum(“select max(spid) from spxx“), “000000“) En
44、d If Call Combo 数据邦定(Me.DataCombo1, “select lbid,lbmc from splb“) Me.Combo1.ListIndex = 0 End Sub Private Sub Form_Resize() 动态改变窗体的标题和样式 Call FormFace(Me, TopPicture, KKShape) Call TopCaption(Me.TopPicture, Label2.Caption) End Sub 点菜管理系统的开发与实现 21 Private Sub Text6_LostFocus() 判断单价文本框的输入必须为数字 If IsNu
45、meric(Me.Text6.Text) = False Then MsgBox “单价必须是数字!“ Me.Text6.Text = 2.5 End If End Sub Private Sub TopPicture_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 准备窗体移动标志 intOldX = x intOldy = y boolMouseFlag = True End Sub Private Sub TopPicture_MouseMove(Button As Integer, Shi
46、ft As Integer, x As Single, y As Single) 存储窗提议动前的 left,top Dim intLeft, intTop As Integer intLeft = Me.Left intTop = Me.Top If Me.WindowState = 2 Then Exit Sub If boolMouseFlag = True Then Me.Left = intLeft + (x - intOldX) Me.Top = intTop + (y - intOldy) End If End Sub Private Sub TopPicture_MouseUp
47、(Button As Integer, Shift As Integer, x As Single, y As Single) 还原当前的窗体移动标志 boolMouseFlag = False 点菜管理系统的开发与实现 22 End Sub Private Sub UserControl11_Click() 关闭窗体 Unload Me End Sub Private Sub UserControl12_Click() 删除当前的商品 If MsgBox(“您确实要删除当前的商品么?“, 4 + 256 + 64, “) = vbNo Then Exit Sub Dim strResult
48、As String strResult = Exec_SqL(“delete from spxx where spid=“ & Me.Text2.Text & “) If strResult 0 Then MsgBox “商品代码不能重复!“ Exit Sub End If Dim strResult As String Dim tmprs As New ADODB.Recordset With tmprs 点菜管理系统的开发与实现 23 .CursorLocation = adUseClient If .State = 1 Then .Close .Open “spxx“, conn, ad
49、OpenDynamic, adLockOptimistic .AddNew .Fields(“spid“).Value = Trim(Me.Text2.Text) .Fields(“spmc“).Value = Trim(Me.Text1.Text) .Fields(“jldw“).Value = Me.Combo1.Text .Fields(“dj“).Value = Val(Me.Text6.Text) .Fields(“spgg“).Value = Trim(Me.Text4.Text) .Fields(“bz“).Value = Trim(Me.Text5.Text) .Fields(“lbid“).Value = Me.DataCombo1.BoundText If Me.Picture2.Picture “ Then Me.Picture2.Picture = LoadPicture(.FileName) Call PaintPic(Me.Picture1, Me.Picture2) End If 点菜管理系统的开发与实现 24 End With End Sub 4.3.24.3.2 业务信
链接地址:https://www.31doc.com/p-3947546.html