毕业设计（论文）点菜管理系统的开发与实现.doc

《毕业设计（论文）点菜管理系统的开发与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）点菜管理系统的开发与实现.doc（44页珍藏版）》请在三一办公上搜索。

1、本科毕业设计(论文)正文目 录摘要1英文摘要11 概述31.1 本课题的研究背景31.2 点菜系统管理的发展现状31.3 设计定义31.4 开发工具的简介41.4.1 Visual Basic 6.041.4.2 数据库简介62 需求分析72.1 可行性分析72.1.1 技术可行性72.1.2 经济可行性72.1.3 管理可行性72.2 系统目标72.3 系统开发环境72.4 系统应该具备的功能82.4.1 基础数据管理82.4.2 业务信息管理82.4.3 查询统计信息82.4.4 人员权限管理83 系统总体设计93.1 系统结构图93.2 主要模块的流程图93.2.1 菜品类别设置93.2

2、.2 菜品信息设置103.2.3 客人点餐103.2.4 消费总结113.3 ER图113.4 数据字典124 系统程序实现144.1 系统登陆界面144.2 系统主界面144.3 主要功能模块144.3.1 基础数据管理144.3.2 业务信息管理244.3.3 查询统计信息345 软件测试406 结论41参考资料42点菜管理系统的开发与实现摘要： 餐饮行业是一个具有悠久历史的行业，随着人们步入信息时代的脚步加快，餐饮企业的运作管理模式也在不断的完善更新。以前依靠人工处理顾客垂询、服务落单送到厨房，厨房依照菜单存根制作菜肴，最后由服务员将菜肴递送给顾客的传统模式，随着餐厅的规模及顾客的流量日

3、益增大，经常会给酒店的经营与管理者带来了很多的烦恼和不必要的经济损失。为了适应行业竞争的需要，使餐饮管理更加规范化和科学化，我们提出了一套行之有效的计算机点餐系统解决方案。本系统点菜系统是根据餐饮企业的特点，为企业量身定做的餐饮管理软件。在设计过程中最大限度满足用户的要求，因此，该系统具有较强的实用性和针对性。本系统具有界面友好，操作简单，可维护性强等特点。实现了基础信息管理、菜品信息设置、客人消费管理、厨房做菜管理以及客人消费信息统计等功能。本软件使用Visual Basic 6.0开发，采用客户端/服务器的模型构架。数据库采用SQLServer 2000来实现。关键字：点餐；消费 Visu

4、al Basic 6.0；SQLServer 2000The development and implementation of ordering-management systemAbstract：Catering industry is a long 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 th

5、e sound. Before relying on manual handling customer inquiries, service-to-kitchen, the kitchen dishes in the menu stubs production, 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

6、 Hotel operators and managers brought a lot of headaches and unnecessary financial losses. In order to adapt to the needs of industry 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 cart

7、e system is based on the characteristics of catering enterprises, customized for the restaurant management software. In the design 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

8、 characteristics. To achieve a basis for information management, information set dishes, the guests consumption management, management 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 fra

9、mework. Database used to achieve SQLServer 2000. Key Words：Order food; consumption; Visual Basic 6.0; SQLServer 20001 概述1.1 本课题的研究背景随着经济的高速发展，信息化建设也在如火如荼地进行，由于餐饮行业客户群的不断扩大，餐饮行业本身传统的模式不能更好的适应不断膨胀的消费群体、更好的管理餐饮企业，因此在计算机科学技术日益发展和成熟的今天，运用其先进的技术性来管理日常餐饮企业的各种消费信息数据，就可以极大地提高餐饮企业的工作效率,节约更多的人力物力成本。1.2 点菜系统管理的

10、发展现状与国外同行业相比，国内企业管理起步较晚。在国内大部分的餐饮企业还在用手工的方式处理消费数据的时候，国外的同行业企业已经使用上了先进的计算机管理企业信息数据，点餐模式采用网络模式，或手持终端模式，较国内相比，效率和成本有了极大的提高。1.3 设计定义客人点菜管理信息系统(以下简称点餐)系统是一套既实用、操作简单、功能齐全、便于维护、管理和查询的软件。采用了c/s模型架构，分成数据访问层、业务规则表示层这二层。其中前端表示层包括基础数据设置、业务信息管理（客人消费管理）、厨房管理(厨房做菜)、查询统计信息及人员权限管理等功能。本系统以点菜为中心，涵盖了部门人员、菜系菜品、客人消费，厨房做菜

11、、以及查询、显示等功能，具有高效率、安全性强、数据完整有条理等优点。满足操作人员的各种需求。为了能结构化的管理和实施系统的开发，采用软件工程的方法来设计软件，其基本思想是：用系统的思想和系统工程的方法，结构化，模块化地自上而下的对生命周期进行分析和设计。我们可以将整个系统开始过程分为以下4个一次连接的阶段：（1） 系统规划阶段（2） 系统开发阶段（3） 系统运行维护阶段（4） 系统更新阶段这四个阶段共同构成了系统开发的生命周期。系统规划是酒企销售系统的起始阶段。这一阶段的主要任务是：明确企业对管理系统的需求，以制定酒企销售的设计总计划。包括对酒企销售系统的规划、需求分析和资源分配三个主要阶段。

12、系统开发是酒企销售系统建设的一个最重要的阶段。系统开发的生命周期一般分为以下三个阶段：系统分析、系统设计和系统实施。系统运行与维护阶段优势整个生命周期中历时最久的阶段，也是酒企销售系统实现其功能，获得效益的阶段。而系统更新阶段是新旧系统并存的时期。1.4 开发工具的简介1.4.1 Visual Basic 6.0Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法

13、。 何谓 Visual Basic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。 VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发

14、Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。 VB有以下特点：(1) 可视化编程。用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局

15、，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 (2) 面向对象的设计。4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而VisualBasic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立

16、和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。(3) 结构化程序设计语言。Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。 VisualBasic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计VisualBasic程

17、序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。(4) 事件驱动编程机制。Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。 在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件

18、来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。（5）访问数据库 VisualBasic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用VisualBasic编辑和处理。 VisualBasic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQLSer

19、ver，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。（6）动态数据交换(DDE) 利用动态数据交换(DynamicDataExchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。VisualBasic提供了动态数据交换

20、的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。（7）对象的链接与嵌入(OLE) 对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compounddocument)，这种文档由来自多个不同

21、应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。（8）动态链接库(DLL) VisualBasic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到VisualBasic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.4.2 数据库简介随着科学技术的进步，信息已成为各行各业的重要资源。数据库以其强大的操作和管理功能成为高速信息表达的途经。据我

22、所知，数据库的类型有很多，比如：sqlserver,vf,framework,access,OracleMySQLSYBASEDB2等等，然而本软件选择了用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版本在功能和易用性上

23、有很大的增强，并推出了简体中文版，它包括企业版，标准版，开发版和个人版4个版本。Microsoft SQL Server2000（简称SQL Server）由一系列相互协作的组件构成，能满足最大的Web站点和企业数据处理系统存储和分析数据的需求。（2）用SQL Server2000作为数据库软件的理由为：由于本软件的开发采用C/S（客户/服务器）模式，而SQLserver2000是基于客户/服务器的数据库管理系统。它提供了功能强大的客户服务器平台，高性能客户服务器结构的数据库管理系统可以将VB6.0作为客户端开发工具，用户通过使用客户系统从服务器检索信息并进行本地操作，服务器关注数据库进程，而

24、客户则关注信息的表示。而SQL Server作为存储数据的后台服务器软件，负责创建和维护表和索引等数据库对象，确保数据完整性和安全性，能够在出现各种错误时恢复数据。 2 需求分析2.1 可行性分析2.1.1 技术可行性随着国内软件开发的日益发展壮大，各种中小企事业单位已具备独立开发各种类型的软件的能力，能够满足不同行业的特别的需求。而这个系统尽管其在组织关系上存在着很大的复杂性，繁琐性，但是就整个系统的技术构成上来看，它还是属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。所以就单纯的数据库应用来看，暂不存在太大的技术问题。2.1.2 经济可行性对于整个系统而

25、言，在系统未运行之前，初期投资比较大，花费相对而言比较多。各部门必须配置电脑、服务器及相关的网络设备，但是现在计算机已经普及了，并且在整个系统投入运行之后，相关的人员培训费可以减少很多。而同时又减少了数据的流通环节，不必要花费那么多的时间，也就是说最重要的就是提高了效率，而又保证了各项数据的准确性，也避免了工作人员的流动造成的收据丢失等问题，适应了当前的发展形式。2.1.3 管理可行性随着时代的发展，人员素质己逐步提高，不论是对于电脑系统的基本操作还是对于系统的维护都有了一定的基础。同时还可以配置专业的电脑维护人员来维护电脑，不必担心电脑故障问题。2.2 系统目标我们一般设计系统都要完成以下的

26、几个要求，以便于用户进行操作。这样才能使系统易学易用。（1）合理的设计数据库尽量合理地减少数据库数据的冗余，使重复的数据保持在最小限度，这样将不必要的多占用存储空间，减少产生混乱影响的危险，还能提高计算机的运行速度。（2）设计出友好的界面界面的友好与否是用户评价一个软件优劣的重要方面之一，使用户有一个良好的心情。（3）实现基本功能和一些特殊功能的操作该系统要求除了能实现信息的录入，删除，查询等基本功能之外，还要求能够根据用户的需要进行操作。2.3 系统开发环境（1）开发环境 操作系统： Microsoft Windows XP Professional 开发工具： VB 6.0 数据库选择：

27、SQL Server2000（2）程序运行环境a软件配置操作系统：Windows XP Professional数据库选择： SQL Server2000开发平台： VB 6.0b硬件配置CPU：AMD Athlon XP, 1000 MHz (5 x 200)内存：2GB或以上（服务器）硬盘：160GB以上（服务器）CPU：AMD Athlon XP, 1000 MHz (5 x 200)或以上（客户机）内存：1GB或以上（客户机）硬盘：60GB以上（客户机）显示器：VGA或更高2.4 系统应该具备的功能2.4.1 基础数据管理（1）部门人员设置：对部门、人员进行添加、修改和删除操作。（2）

28、菜品类别：对客菜品类别信息进行添加、修改和删除操作。（3）菜品信息：对菜品信息、信息进行添加、修改和删除操作。2.4.2 业务信息管理（1）客人消费：对客人进行订餐登记，点餐，以及参考厨房做菜等操作。（2）厨房做菜：对客人订的菜品进行制作，并将制作好的菜品通知操作员。2.4.3 查询统计信息（1）消费总结：可以对客人消费的信息通过起始时间、客户名称或操作员进行查询操作，查看详细信息，并统计出业务笔数、总消费金额。2.4.4 人员权限管理（1）权限管理：可以对本单位的人员进行权限设置，做到系统功能完善使用。3 系统总体设计3.1 系统结构图根据需求分析，点菜系统的结构如图3-1所示。图3-1 点

29、菜系统功能图3.2 主要模块的流程图3.2.1 菜品类别设置图3-2 菜品类别设置流程图3.2.2 菜品信息设置图3-3 菜品信息维护流程图3.2.3 客人点餐图3-3 客人点餐流程图3.2.4 消费总结图3-4 消费总结流程图3.3 ER图图3-5 E-R图3.4 数据字典（1）数据库名称为 dc.mdf（2）数据库中的表格设置表3-1 部门设置部门设置（bm）序号字段名称类型长度索引说明1部门代码(bmid)String6无重复B0012部门名称(bmmc)String20表3-2 人员管理人员信息（ry）序号字段名称类型长度索引说明1人员代码(ryid)String6无重复R0012人员

30、名称(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)Stri

31、ng10包,箱等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 点餐明细点餐明细（d

32、cmx）序号字段名称类型长度索引说明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)Str

33、ing502商品代码(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 主要功能模块4.3.1 基础数据管理由于部门人员和菜品信息维护类似，下面以菜品信息维护程序实

34、现为例进行说明。（1）菜品类别维护此模块可以对商品类别进行维护，添加、修改和删除操作。添加、修改时判断类别名称是否为空、重复；删除时判断商品类别下是否有商品信息。如图4-3所示。图4-3 商品类别维护其代码实现如下：Private Sub btn添加_Click()判断信息的正确性更新商品类别表中的信息记录1If Trim(Me.Text3.Text) = Then MsgBox 类别名称不能为空! Exit SubEnd IfIf ExecSql(select * from splb where lbid & Trim(Me.Text2.Text) & and lbmc= & Trim(Me

35、.Text3.Text) & ).RecordCount 0 Then MsgBox 类别名称不能重复! Exit SubEnd If2Dim strResult As StringstrResult = Exec_SqL(update splb set lbmc= & Trim(Me.Text3.Text) & where lbid= & Me.Text2.Text & )If strResult OK Then MsgBox strResultEnd IffrmSpxx.UserControl12_ClickUnload MeEnd SubPrivate Sub Form_Activate

36、()得到商品类表表中最大的类别编号If Me.Text2.Tag = Then Me.Text2.Text = Format(GetMaxNum(select max(lbid) from splb), 000000)End IfEnd SubPrivate Sub Form_Resize()动态改变窗体的样式和标题Call FormFace(Me, TopPicture, KKShape)Call TopCaption(Me.TopPicture, Label2.Caption)End SubPrivate Sub TopPicture_MouseDown(Button As Integer

37、, Shift As Integer, x As Single, y As Single)准备窗体移动标志intOldX = xintOldy = yboolMouseFlag = TrueEnd SubPrivate Sub TopPicture_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)存储窗提议动前的left,topDim intLeft, intTop As IntegerintLeft = Me.LeftintTop = Me.TopIf Me.WindowState = 2 The

38、n Exit SubIf boolMouseFlag = True Then Me.Left = intLeft + (x - intOldX) Me.Top = intTop + (y - intOldy)End IfEnd SubPrivate Sub TopPicture_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)还原当前的窗体移动标志boolMouseFlag = FalseEnd SubPrivate Sub UserControl11_Click()关闭窗体Unload MeEnd S

39、ubPrivate Sub UserControl12_Click()删除商品类别(如果商品类别下有商品信息，则不允许删除)Dim strResult As StringIf ExecSql(select * from spxx where lbid= & Me.Text2.Text & ).RecordCount 0 Then MsgBox 此类别下有商品信息,不能删除! Exit SubEnd IfstrResult = Exec_SqL(delete from splb where lbid= & Me.Text2.Text & )If strResult OK Then MsgBox

40、strResultEnd IffrmSpxx.UserControl12_ClickUnload MeEnd SubPrivate Sub UserControl13_Click()判断信息的正确性添加一条商品类别纪录1If Trim(Me.Text3.Text) = Then MsgBox 类别名称不能为空! Exit SubEnd IfIf ExecSql(select * from splb where lbid= & Trim(Me.Text2.Text) & ).RecordCount 0 Then MsgBox 类别代码不能重复! Exit SubEnd IfIf ExecSql(

41、select * from splb where lbmc= & Trim(Me.Text3.Text) & ).RecordCount 0 Then MsgBox 类别名称不能重复! Exit SubEnd If2Dim strResult As StringstrResult = Exec_SqL(insert into splb (lbid,lbmc) values ( & Trim(Me.Text2.Text) & , & Trim(Me.Text3.Text) & )If strResult OK Then MsgBox strResultEnd IffrmSpxx.UserCont

42、rol12_ClickUnload MeEnd Sub（2）商品信息维护此模块可以对商品信息进行维护，添加、修改和删除操作。添加、修改时，输入商品代码,商品名称,计量单位,单价，商品规格，备注，选择类别等如图4-4所示。图4-4 商品信息维护其中操作人员还可以把菜品的图片保存到菜品信息中，在点餐时可以动态的让客人看菜品的样子，做到还没有做好就能让客人回味的感觉。其代码如下所示：Private Sub btn添加_Click()校验信息的正确性更新商品信息记录If Trim(Me.Text1.Text) = Or Trim(Me.DataCombo1.BoundText) = Then MsgB

43、ox 商品名称或新类别不能为空! Exit SubEnd IfDim tmprs As New ADODB.RecordsetWith tmprs .CursorLocation = adUseClient If .State = 1 Then .Close .Open select * from spxx where spid= & Me.Text2.Text & , conn, adOpenDynamic, adLockOptimistic .Fields(spmc).Value = Trim(Me.Text1.Text) .Fields(jldw).Value = Me.Combo1.T

44、ext .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 0 Then Call SavePicture(Picture1.Image, picture.tmp) Open picture.tmp For Binary As #1 ReDim aa(1 To LOF(1) As Byte Get #1, 1, aa() Close #1