小型饭店信息管理系统.doc

1、小型饭店信息管理系统1第1章绪论11系统开发背景在饭店行业竞争激烈的今天，如何借助现代科技，实现现代化管理，使饭店经营管理一体化，是现代饭店管理成功的关键。先进科学技术为饭店提供了全面科学化、数字化、效率化和精细化的管理。科技已成为饭店业关心的焦点。饭店业的发展将进入信息与科技时代。科技在饭店中的应用与发展已是必然趋势。环保技术在饭店的应用已越来越广泛，它为饭店节能降耗、降低成本以及改善饭店环境提供了强有力的支持。新的环保技术和环保产品在饭店业的应用已成为新潮流。饭店业属于以人为本的劳动密集型服务行业，由于行业间本质上的差异，部分技术密集型行业，把最先进的产品设备或解决方案推销给饭店，其结果通

2、常是饭店付出了昂贵的代价却不尽如人意。由此，许多饭店人士也发出感慨，饭店需要更为实用的科技产品，为饭店经营提供服务，因此我们在感受部分饭店科技、智能化水平落后的同时，也需要明晰科技的实际应用技术功能与饭店需求是否错位饭店面临的关键问题是什么供应商和饭店在利益上是否一致等等。饭店是一个以服务为本的行业，依靠客人对各项服务的满意度来提升饭店的入住率和经营效益。饭店科技、信息化的实施，意味着饭店又增加了一项新的服务，即信息服务。许多行业外公司负责策划和实施，但通常不承担日后的服务，因为他们不属于服务行业。然而，倘若服务的责任落到饭店自身头上，饭店能应付的了吗由于服务不到位，使系统不能充分发挥作用的已

3、屡见不鲜，怎样来为饭店提供服务呢饭店科技的发展趋势是什么“饭店智能管理”作为一个综合概念，给饭店业带来经营管理理念的巨大变革。这一变革要经过不断的建设和发展，渐渐形成一个涵盖数据采集、信息保存、信息处理、传输控制等。这些信息库的建立将成为饭店信息化管理和办公自动化的重要基础。从前台客人入住登记、结账到后台的财务管理系统、人事管理系统、采购管理系统、仓库管理系统都将与智能管理系统连接融合构成一套完整的饭店科学信息化体系，不同类别、不同管理模式的饭店需求是不同的，如何根据不同的饭店需求为饭店提供科学信息化系统，对饭店科技配套商家也是一项挑战。正是基于这样一个理念，我们决心开发一个中小型饭店管理系统

4、，科技化，信息化我们的中小饭店，让饭店的管理更加科学，更加合理。12我的构想下面我将简要介绍一下我对饭店信息化的一些构想直接饭店消费通过网站了解，朋友介绍饭店上游供应商中小型饭店最终顾客潜在顾客以饭店为中心的信息共享平台陕西科技大学毕业论文（设计说明书）2图11饭店信息构想我作为一个饭店的经理，首先第一要解决的问题是采购问题。第一，找客户。我希望在当地的各个菜市场中找到一些质量好而且价格又相对便宜的供应商。我相信这些供应商也希望能够找到一些稳定的，效益好的客户。这样的话，当在我们之间建好一个平台，让我们彼此都能自由的选择对方这就好像将一个大型的经济交流会放到了网上，而且这个交流会一刻也不会停，

5、每时每刻都在交易。这样那些好的供应商依靠自己物美价廉的产品自然会找到自己的客户，同时省去了大量的交易成本。第二，与供应商合作。当我们饭店与供应商建立了合作关系后，我要让我们的合作都要信息化。我要把我们饭店的存货信息实时地在我和供应商的平台上公布，这样的话，当供应商见到我们的存货信息达到了需要供应的数量时，他们会结合我们饭店的需求订单自发的供应蔬菜等产品。这个平台的建立最好由第三方来建立。接下来要解决的问题是企业的内部管理问题。这个问题主要就是要靠我们现在这个软件来实现。对于我们这个小型的饭店来说，主要的收入来源就是靠卖饭菜来实现的所以我们这个系统也就主要围绕这个点菜功能来实现的。在和一些小型饭

6、店的老板交流过程中，我们仔细研究了他们的需求后。总结出简单，易用，数据准确，提供财务分析功能这样几个重要的功能。所以我们的软件也就主要针对这几个方面。在此软件的开发过程中，我们参考了一些市场的用得较多的饭店管理软件，以及点菜系统以后，我们根据我们所能采用的技术层次，挑选了一些他们的实现方式，运用我们的技术来实现点菜功能。而对于套餐设置这块，我们也是自己尝试地使用了一些我们认为客户操作比较方便方式来实现。还有在信息管理这个模块上，我们调查了这些饭店老板在经营决策上最希望得到的信息，我们具体实现了这些信息的查询方式。还有在资料的管理方式上，我们将资料的录入，查询，修改，删除都放到了一个页面中去进行

7、，就是为了实现简单这个特点。而在用户权限设置这个模块中，我们采取了行业应用软件普遍的方式来进行设置，易用，方便。在下面的几个章节中，我们会陆续地向您介绍这个软件的功能及设计过程。第三，客户对于一个饭店来说，是置关重要的所以对于客户的管理也必须为重中之重。我们在这个方面，主要采取的是方针是在饭店内部，建立客户关系管理系统，而将饭店的网站直接面对客户。在客户关系管理这块，我们在软件并没有实现，有待于今后扩充，而饭店的网站，我们也已经初步建立。便于常客管理管理和查询自己的信息。还有一点值得说明的就是。客户光临饭店后，可以在自己所坐的座位上点菜，而没有必要到前台去点菜。关于它的实现，我们为了便于在您面

8、前演示，我们采用了浏览器浏览的方式进行。以上就是自己在做这个系统过程中，总结出的一些想法。这些想法在市场上已经有了很多成功可行的实施方案，而对于我来说，这只是个开始，而且是未知的领域，我得去加把劲，在未来的工作岗位上继续学习，继续努力才能不断有前瞻的想法，有领先的技术。以客户为中心的CRM管理系统及饭店网站小型饭店信息管理系统3第2章开发工具介绍21DELPHI技术简介DELPHI是著名的BORLAND（现在已和INPRISE合并）公司开发的可视化软件开发工具。“真正的程序员用C，聪明的程序员用DELPHI”，这句话是对DELPHI最经典、最实在的描述。DELPHI被称为第四代编程语言，它具有

9、简单、高效、功能强大的特点。和VC相比，DELPHI更简单、更易于掌握，而在功能上却丝毫不逊色；和VB相比，DELPHI则功能更强大、更实用。可以说DELPHI同时兼备了VC功能强大和VB简单易学的特点。它一直是程序员至爱的编程工具。DELPHI是全新的可视化编程环境，为我们提供了一种方便、快捷的WINDOWS应用程序开发工具。它使用了MICROSOFTWINDOWS图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言陕西科技大学毕业论文（设计说明书）4OBJECTORIENTEDLANGUAGE、当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人

10、员来讲，使用DELPHI开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作DELPHI的每一个设计细节，都将带给您一份欣喜。DELPHI实际上是PASCAL语言的一种版本，但它与传统的PASCAL语言有天壤之别。一个DELPHI程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨架上即使没有附着任何东西，仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的程序。缺省的应用程序是一个空白的窗体FORM，您可以运行它，结果得到一个空白的窗口。这个窗口具有WINDOWS窗口的全部性质可以被放大缩小、移动、最大最小化等，但您却没有编写一行程序

11、。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开发打下了良好的基础。DELPHI已经为您做好了一切基础工作程序框架就是一个已经完成的可运行应用程序，只是不处理任何事情。您所需要做的，只是在程序中加入完成您所需功能的代码而已。在空白窗口的背后，应用程序的框架正在等待用户的输入。由于您并未告诉它接收到用户输入后作何反应，窗口除了响应WINDOWS的基本操作移动、缩放等外，它只是接受用户的输入，然后再忽略。DELPHI把WINDOWS编程的回调、句柄处理等繁复过程都放在一个不可见的ROMULAM覆盖物下面，这样您可以不为它们所困扰，轻松从容地对可视部件进行编程。211面向

12、对象编程的概念面向对象的程序设计OBJECTORIENTEDPROGRAMMING，简记为OOP是DELPHI诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数“封装”进WINDOWS编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而DELPHI是完全面向对象的，这

13、就使得DELPHI成为一种触手可及的促进软件重用的开发工具，从而具有强大的吸引力。一些早期的具有OOP性能的程序语言如C,PASCAL,SMALLTALK等，虽然具有面向对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然要编写大量的代码。DELPHI的推出，填补了这项空白。您不必自己建立对象，只要在提供的程序框架中加入完成功能的代码，其余的都交给DELPHI去做。欲生成漂亮的界面和结构良好的程序丝毫不必绞尽脑汁，DELPHI将帮助您轻松地完成。它允许在一个具有真正OOP扩展的可视化编程环境中，使用它的OBJECTPASCAL语言。这种革命性的组合，使得可视化编程与面向对象的

14、开发框架紧密地结合起来。DELPHI环境为避免隐藏在DELPHI后的PROGRAMMANAGER和曾经运行过的其它程序扰乱版面，分散您的注意力，不妨在启动DELPHI前关掉其它应用程序；启动DELPHI后，再最小化隐藏在后面的DELPHI20程序组。这样屏幕上就只留下DELPHI窗口可见了。小型饭店信息管理系统5首次加载DELPHI，屏幕上会出现四个窗口1标题为“DELPHIPROJECT1”的DELPHI主窗口2OBJECTINSPECTOR窗口3标题为“FORM1”的窗体FORM窗口4标题为“UNIT1PAS”的代码编辑窗口。刚启动时这一窗口的大部分被“FORM1”窗体所掩盖。将“FORM

15、1”窗体移开，或单击FORM1窗体下方的状态行，可以使其全部可见。在“FORM1”窗体的任意可见位置单击鼠标，可以恢复主窗体可见以下我们将对这四个窗口分别进行介绍。212DELPHI可视化编程环境介绍1主窗口MAINFORMDELPHI的主窗口位于屏幕的上端，包括MENU菜单、SPEEDBAR加速条和COMPONENTPANEL部件选项板。MENU是下拉式主菜单。SPEEDBAR位于主窗口的左下端，由两排共14个加速按钮组成。这些按钮是菜单功能的快捷方式，各种图标直观地表示了它能执行的动作。COMPONENTPANEL由一行、若干页对象按钮所组成，利用它来选择需要的部件并将它放到窗体中去。2O

16、BJECTINSPECTOR对象检视器OBJECTINSPECTOR窗口含有两页PROPERTIES页显示窗体中当前被选择部件的属性信息，并允许改变对象的属性；EVENTS页列出了当前部件可以响应的事件。按动OBJECTINSPECTOR下端的“EVENTS”页标签，使得EVENTS页可见，这一定的事件后边的空白处，可以定义对象接受到相应事件时执行的动作。首次启动时，OBJECTINSPECTOR窗口显示的是当前窗体FORM1的属性。OBJECTINSPECTOR根据对象属性的多少，决定是否有滚行显示。移动滚行条，可以查看当前对象的全部属性。此外，OBJECTINSPECTOR上还有OBJEC

17、TSELECTOR对象选择器，位于OBJECTINSPECTOR上方的下拉式菜单中。它显示了窗体上所有部件的名称和类型，也包含窗体本身。您可以用OBJECTSELECTOR很容易地在窗体的各个部件之间切换，也可以快速地回到窗体本身。当窗体中含有较多的对象时，您会发现这是切换对象尤其是回到窗体的最快捷途径。想使OBJECTINSPECTOR一直可见，可将鼠标移到OBJECTINSPECTOR上，按动右键，以启动OBJECTINSPECTOR的弹出式菜单，将其设置为STAYONTOP。这对初学者常是一个很重要的设置方式。3窗体窗口FORMS窗口是开展大部分设计的工作区域。首次启动DELPHI20时

18、显示的是窗体FORM1。可以把部件放在窗体中，通过移动位置、改变尺寸等操作随心所欲地安排它们，以此来开发应用程序的用户界面。您可以把窗体想象成一个可以放置其它部件的容器。窗体上有栅格GRIDS，供放置部件时对齐位置用，在程序运行时GRIDS是不可见的。陕西科技大学毕业论文（设计说明书）6一个真正的应用程序可能有不止一个窗口，您可以选用不同的窗体进行设计。其它窗体可以是对话框DIALOGBOX、数据录入框等。4代码窗口代码窗口一开始处于窗体窗口之下。因为在DELPHI中，设计用户界面直接在窗体中进行，运行结果和设计样板完全一致。当部件被放到窗体上时，DELPHI会自动生成大部分的用户界面代码。您

19、所应做的只是在它为您生成的框架中加入完成所需功能的程序段而已。点动FORM1的状态行使代码窗口可见。这个窗口中是代码编辑器。可以在其中书写DELPHI应用程序的源代码。当程序中含有不止一个窗口时，会有几个库单元的源程序出现在代码编辑器中。代码编辑器的标题条中显示了当前正在编辑的库单元文件名。要查看某一特定程序的源代码，只需用鼠标点动写有该库单元文件名的页标签，就可以对该库单元进行编辑了。DELPHI7特点DELPHI具有以下的特性基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与WINDOWS编程紧密结合，强大而成熟的组件技术。但最重要的还是OBJECTPASCAL语言，它才是一切的

20、根本。OBJECTPASCAL语言是在PASCAL语言的基础上发展起来的，简单易学。DELPHI提供了各种开发工具，包括集成环境、图像编辑（IMAGEEDITOR），以及各种开发数据库的应用程序，如DESKTOPDATABASEEXPERT等。除此之外，还允许用户挂接其它的应用程序开发工具，如BORLAND公司的资源编辑器（RESOURSEWORKSHOP）。在DELPHI众多的优势当中，它在数据库方面的特长显得尤为突出适应于多种数据库结构，从客户机服务机模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的企业组件。DELPHI发展至今，从D

21、ELPHI、DELPHI到现在的DELPHI7，不断添加和改进各种特性，功能越来越强大。DELPHI添加了对IDE（集成开发环境）的很多改进新特性，扩展了数据库支持（ADO和INTERBASE数据库），带有INTERNET支持的MIDAS改进版，TEAMSOUSE版本控制工具，转换功能，框架概念以及很多的新组件与新特性。DELPHI7功能十分完善和强大，本栏目将以它为基础，介绍DELPHI的开发环境、基本概念、控件的使用、常用的编程方法和编程技巧。本栏目的对象为DELPHI初学者，主旨是帮助初学者更快更好掌握DELPHI基本的编程方法和技巧。为满足不同层次开发人员需要,DELPHI7共有个版本

22、PESONAL个人版,提供初学者和一般用途开发人员的版本PROFESSIONAL专业版,适用于专业开发人员进行较高层次实际开发的版本ENTERPRISE企业版,适用于企业开发人员进行多层次数据库开发的版本ARCHITEREDITION架构版，包含可了企业版的所有功能。另外增加了BOLDSOFT公司的BOLD工具的专DELPHI专用版本小型饭店信息管理系统722SQLSEVER的介绍SQL的历史在70年代初，EECODD首先提出了关系模型。70年代中期，IBM公司在研制SYSTEMR关系数据库管理系统中研制了SQL语言，最早的SQL语言叫SEQUEL2是在1976年11月的IBMJOURNALO

23、FR/声明操作权限函数ENABLEDKEYBEGINIFPOSA,KEY0THEN/具有“A“类权限BEGINMAINFORMN1ENABLEDTRUEMAINFORMTOOLBUTTON2ENABLEDTRUE/打开开台管理MAINFORMN8ENABLEDTRUE陕西科技大学毕业论文（设计说明书）18MAINFORMTOOLBUTTON3ENABLEDTRUEMAINFORMN9ENABLEDTRUEEND52系统登陆界面1实现目标程序启动后，首先进入“系统登陆”界面验证操作员密码。系统登陆窗口主要实现如下功能A以形象的图标形式显示操作员，并凭口令进入主界面。B操作员错误或密码错误提醒并返

24、回错误点，三次口令错误，退出系统。C支持键盘操作，系统管理员拥有管理系统的一切权力。系统登陆界面如图52所示。图系统登陆主界面2实现过程A添加新窗体,设置窗体NAME属性为USER,设置窗体CAPTION属性为”系统登陆窗口”B向窗体中添加DATASOURCE、QUERY、DBEDIT、EDIT、LISTCVIEW、IMAGELIST、BEVEL、IMAGE、PANEL、TIME、LABEL等控件，并设置相应属性。C详细程序代码如附录12窗体启动后，首先关闭钥匙，然后将所有操作员添加到操作员列表。PROCEDURETUSERFORMSHOWSENDERTOBJECTVARLISTARRAY01

25、OFTLISTITEMBEGINTIMER1ENABLEDTRUEUSER_CLOSE0/打开关闭钥匙QUERY1CLOSE小型饭店信息管理系统19QUERY1OPENLISTVIEW1ITEMSCLEARWHILENOTQUERY1EOFDOBEGINLIST0LISTVIEW1ITEMSADDLIST0CAPTIONQUERY1FIELDBYNAME姓名ASSTRINGIFQUERY1FIELDBYNAME编号ASSTRINGCONTROLLERTHENBEGINLIST0IMAGEINDEX0ENDELSEBEGINLIST0IMAGEINDEX1ENDQUERY1NEXTENDEND单

26、击“登陆”按钮，将判断操作员、操作员密码是否正确，如果正确进入主界面并根据操作员权限设置菜单和工具栏是否可用。如果操作员错误或密码错误将提醒并返回错误点，三次口令错误，退出系统。53前台管理模块本模块主要实现点菜,买单,结帐分析等功能531点菜管理窗口设计1实现目标点菜管理模块主要实现如下功能A在编号栏输入菜编号，将自动录入菜的信息，输入点菜数量，将自动计算合计金额。B自动生成结帐编号，自动计算总金额。C可实现挂单，放弃开台，读单等操作。点菜服务窗口如图53所示。陕西科技大学毕业论文（设计说明书）20图53点菜服务窗口2实现过程A添加新窗体，设置窗体NAME属性为DCFY_LR，设置窗体CAP

27、TION属性为“点菜服务窗口”。B向窗体中添加QUERY、GROUPBOX、PANEL、DBTEXT、IMAGELIST、LISTBOX、STRINGGRID、BEVEL、IMAGE、LABEL、BITBTN等控件，并设置相应属性。C程序代码如下PROCEDURETDCFY_LRFORMCREATESENDERTOBIECTBEGINTLCYGLXTCPFYXXBOPENTLCYGLXTSJFYXXBOPENTLCYGLXTCJFYXXBOPENEND下面这段代码主要设置表格控件的列题和行号PROCEDURETDCFY_LRFORMCREATESENDERTOBJECTVARA,B,CINTE

28、GERBEGINDCGRIDCELLS1,0编号；DCGRIDCELLS2,0名称；DCGRIDCELLS3,0类型；DCGRIDCELLS4,0单位；DCGRIDCELLS5,0数量；DCGRIDCELLS6,0价格；DCGRIDCELLS7,0状态；小型饭店信息管理系统21DCGRIDCELLS8,0合计；FORA1TODCGRIDROWCOUNT1DOBEGINDCGRIDCELLS0,AINTTOSTRAENDEND单击“开始点菜”按钮，程序要打开库存水酒记录、设置房台状态为“开台”。PROCEDURETDCFY_LRBITBTN2CLICKSENDEROBJECTBEGINQUERY

29、1OPENTLCYGLXTKT_FJTHXXBTLCYGLXTKT_FJTHXXBFIELDBYNAME状态ASSTRING开台；TLCYGLXTKT_FJTHXXBPOSTDCGRIDENABLEDTRUEBITBTN4ENABLEDTRUEBITBTN5ENABLEDTRUEDCGRIDSETFOCUSEND532客人买单窗口设计1实现目标A提供客人买单、挂帐等特权。B提供查看消费金额窗口。C查看相应房台消费。客人买单界面如图54所示。陕西科技大学毕业论文（设计说明书）22图54客人买单2实现过程A添加新窗口，设置NAME为KRMD,设置窗体CAPTION属性为“买单”B向窗体中添加QUE

30、RY、CHECKBOX、DATASOURE、LISTVIEW、BITBTN、LABEL、EDIT、IMGAGELIST、BEVEL等控件，并设置相应属性。C程序代码如下PROCEDURETKRMDFROMSHOWSENDERTOBJECTBEGINADDLISTVIEWEDIT1SETFOVCUSEND533结帐数据分析窗口1实现目标A类如资源管理器，使用方便、快捷。B以列表形式显示结帐后菜单信息。C自动汇总总金额。结帐数据分析界面如图55所示。2实现过程A添加新窗体，设置窗体NAME属性为JZSJFX，设置窗体CAPTION属性为“结帐数据分析”B向窗体中添加QUERY、DATASOURCE

31、、GROUPBOX、DBGRID、IMGAGELIST、TREEVIEW、LABLE等控件，并设置相应属性。图55结帐数据分析小型饭店信息管理系统23C代码如下ROCEDURETKRMD_JZFORMSHOWSENDERTOBJECT/启动时将焦点跳转到不打折结账按钮BEGINBITBTN1SETFOCUSENDPROCEDURETKRMD_JZQUICKREP1PREVIEWSENDERTOBJECTBEGINDYYLBROSEQRPREVIEW1QRPRINTERQUICKREP1QRPRINTERENDPROCEDURETKRMD_JZBITBTN4CLICKSENDERTOBJECT/

32、打印点菜信息BEGINQRLABEL18CAPTIONLABEL12CAPTIONQRLABEL16CAPTIONLABEL14CAPTIONDYYLBROSESHOWQUICKREP1PREVIEWEND54财务管理541日结算窗口设计1实现目标A实现日结算功能B提供营业查询分析窗口日结算管理界面如图56所示。图56日结算管理2实现过程陕西科技大学毕业论文（设计说明书）24A添加新窗体,设置窗体NAME属性为RJSG1,设置窗体CAPTION属性为”日结算管理”B向窗体中添加QUREY、DATASOURCE、LABEL、PANEL、BITBTN、BEVEL等控件，并设置相应属性C代码如下PR

33、OCEDURETRJSGLFORMSHOWSENDERTOBJECTBEGINANIMATEWINDOWHANDLE,300,AW_SLIDEAW_VER_POSITIVEPANEL1REFRESHPANEL2REFRESHIMAGE1REFRESHIMAGE2REFRESHENDPROCEDURETRJSGLFORMCLOSEQUERYSENDERTOBJECTVARCANCLOSEBOOLEANBEGINANIMATEWINDOWHANDLE,300,AW_SLIDEAW_VER_NEGATIVEAW_HIDEQUERY1CLOSEENDPROCEDURETRJSGLQUICKREP1PR

34、EVIEWSENDERTOBJECTBEGINDYYLBROSEQRPREVIEW1QRPRINTERQUICKREP1QRPRINTEREND/打印当天单据PROCEDURETRJSGLBITBTN2CLICKSENDERTOBJECTBEGINDYYLBROSESHOWQUICKREP1PREVIEWENDPROCEDURETRJSGLFORMCREATESENDERTOBJECTBEGINQUERY1OPENIFQUERY1RECORDCOUNT0THENBEGINBITBTN1ENABLEDFALSEBITBTN2ENABLEDFALSE小型饭店信息管理系统25ENDEND542营业查

35、询分析窗口设计1实现目标A统计某天或某段时间的营业信息，并进行汇总B单击结帐信息表记录，可查看该记帐记录的详细营业信息。营业查询界面如图57所示。图57营业查询分析2实现过程A添加新窗体，设置窗体NAME属性为YYCXFX，设置窗体CAPTION属性为“营业查询分析”B向窗体中添加QUERY、DATASOURCE、DBGRID、EDIT等控件，并设置相应属性。C详细代码如附录13PROCEDURETYYCXFXBITBTN1CLICKSENDERTOBJECT/统计营业信息BEGINQUERY1CLOSEQUERY1SQLCLEARQUERY1SQLADDSELECTFROM月结算费用信息表W

36、HERE日期AAND日期AAND日期0THEN/具有“A“类权限BEGINMAINFORMN1ENABLEDTRUEMAINFORMTOOLBUTTON2ENABLEDTRUE/打开开台管理MAINFORMN8ENABLEDTRUEMAINFORMTOOLBUTTON3ENABLEDTRUEMAINFORMN9ENABLEDTRUEENDELSEIFPOSB,KEY0THEN/具有“B“类权限BEGINMAINFORMN58ENABLEDTRUEMAINFORMN5ENABLEDTRUEMAINFORMN48ENABLEDTRUEMAINFORMN52ENABLEDTRUEMAINFORMN5

37、1ENABLEDTRUEMAINFORMN14ENABLEDTRUEMAINFORMN24ENABLEDTRUEMAINFORMN15ENABLEDTRUEMAINFORMN12121ENABLEDTRUEMAINFORMN4ENABLEDTRUEMAINFORMN23ENABLEDTRUEMAINFORMN6ENABLEDTRUEMAINFORMN22ENABLEDTRUEMAINFORMN40ENABLEDTRUEMAINFORMN15ENABLEDTRUEMAINFORMN16ENABLEDTRUEMAINFORMN29ENABLEDTRUEMAINFORMN30ENABLEDTRUEM

38、AINFORMN35ENABLEDTRUEMAINFORMN36ENABLEDTRUEMAINFORMN37ENABLEDTRUEMAINFORMN32ENABLEDTRUEMAINFORMN39ENABLEDTRUEMAINFORMN57ENABLEDTRUE陕西科技大学毕业论文（设计说明书）36MAINFORMN55ENABLEDTRUEMAINFORMN17ENABLEDTRUEMAINFORMN18ENABLEDTRUEENDELSEIFPOSC,KEY0THEN/具有“C“类权限BEGINIFPOSD,KEY0THEN/具有“D“类权限BEGINMAINFORMN1ENABLEDTR

39、UEMAINFORMTOOLBUTTON2ENABLEDTRUE/打开开台管理MAINFORMN8ENABLEDTRUEENDIFPOSE,KEY0THEN/具有“E“类权限BEGINMAINFORMN1ENABLEDTRUEMAINFORMTOOLBUTTON3ENABLEDTRUEMAINFORMN9ENABLEDTRUEENDIFPOSF,KEY0THEN/具有“F“类权限BEGINMAINFORMN1ENABLEDTRUEMAINFORMTOOLBUTTON1ENABLEDTRUEMAINFORMN11ENABLEDTRUEEND下面代码主要在窗体启动时，判断使用者是否可以登陆系统，如

40、果登陆成功，在主窗体状态栏上显示系统日期与时间。PROCEDURETMAINFORMFORMSHOWSENDERTOBJECTVARYEAR,MONTH,DAYWORDBEGINCLOSE_11USERSHOWMODAL/调用系统登陆窗口IFCLOSE_10THENCLOSEELSE小型饭店信息管理系统37BEGINPANEL2REFRESHAPPLICATIONMAINFORMWINDOWSTATEWSMAXIMIZEDAPPLICATIONMAINFORMWINDOWSTATEWSNORMALDECODEDATESTRTODATEDATETOSTRDATE,YEAR,MONTH,DAY/分

41、解日期STATUSBAR1PANELS2TEXT系统日期INTTOSTRYEAR年INTTOSTRMONTH月INTTOSTRDAY日ENDENDPROCEDURETMAINFORMFORMCREATESENDERTOBJECTBEGINAPPLICATIONONHINTDISPLAYHINT/与应用项目的提示信息挂钩END代码12PROCEDURETUSERBITBTN1CLICKSENDERTOBJECT/登陆BEGINMAINFORMTOOLBUTTON1ENABLEDTRUEMAINFORMTOOLBUTTON2ENABLEDTRUEMAINFORMTOOLBUTTON3ENABLED

42、TRUEMAINFORMTOOLBUTTON4ENABLEDTRUEMAINFORMTOOLBUTTON5ENABLEDTRUEMAINFORMTOOLBUTTON11ENABLEDTRUEMAINFORMN12121ENABLEDTRUEMAINFORMN5ENABLEDTRUEMAINFORMN48ENABLEDTRUEMAINFORMN52ENABLEDTRUEMAINFORMN51ENABLEDTRUEMAINFORMN33ENABLEDTRUEMAINFORMN7ENABLEDTRUEMAINFORMN4ENABLEDTRUEMAINFORMN23ENABLEDTRUEMAINFOR

43、MN6ENABLEDTRUEMAINFORMN22ENABLEDTRUEMAINFORMN24ENABLEDTRUEMAINFORMN1ENABLEDTRUE陕西科技大学毕业论文（设计说明书）38MAINFORMN8ENABLEDTRUEMAINFORMN9ENABLEDTRUEMAINFORMN28ENABLEDTRUEMAINFORMN11ENABLEDTRUEMAINFORMN2ENABLEDTRUEMAINFORMN55ENABLEDTRUEMAINFORMN17ENABLEDTRUEMAINFORMN18ENABLEDTRUEMAINFORMN5ENABLEDTRUEMAINFORM

44、N48ENABLEDTRUEMAINFORMN52ENABLEDTRUEMAINFORMN51ENABLEDTRUEMAINFORMN33ENABLEDTRUEIFQUERY1FIELDBYNAME编号ASSTRINGCONTROLLERTHEN/如果是系统管理员BEGINIFEDIT1TEXTQUERY1FIELDBYNAME密码ASSTRINGTHENBEGINSHOWMESSAGEQUERY1FIELDBYNAME姓名ASSTRING的口令错误/口令错误EDIT1SETFOCUSENDELSEBEGINMAINFORMSTATUSBAR1PANELS1TEXT用户QUERY1FIELDB

45、YNAME姓名ASSTRINGDYYLBROSESTATUSBAR1PANELS1TEXT用户QUERY1FIELDBYNAME姓名ASSTRINGMAINFORMUSER1QUERY1FIELDBYNAME姓名ASSTRINGUSER_CLOSE3TIMER1ENABLEDFALSECLOSEENDENDELSEBEGINMAINFORMTOOLBUTTON1ENABLEDFALSEMAINFORMTOOLBUTTON2ENABLEDFALSEMAINFORMTOOLBUTTON3ENABLEDFALSE小型饭店信息管理系统39MAINFORMTOOLBUTTON4ENABLEDFALSEM

46、AINFORMTOOLBUTTON5ENABLEDFALSEMAINFORMTOOLBUTTON11ENABLEDFALSEMAINFORMN12121ENABLEDFALSEMAINFORMN5ENABLEDFALSEMAINFORMN48ENABLEDFALSEMAINFORMN52ENABLEDFALSEMAINFORMN51ENABLEDFALSEMAINFORMN33ENABLEDFALSEMAINFORMN7ENABLEDFALSEMAINFORMN4ENABLEDFALSEMAINFORMN23ENABLEDFALSEMAINFORMN6ENABLEDFALSEMAINFORMN

47、22ENABLEDFALSEMAINFORMN24ENABLEDFALSEMAINFORMN1ENABLEDFALSEMAINFORMN8ENABLEDFALSEMAINFORMN9ENABLEDFALSEMAINFORMN28ENABLEDFALSEMAINFORMN11ENABLEDFALSEMAINFORMN2ENABLEDFALSEMAINFORMN55ENABLEDFALSEMAINFORMN17ENABLEDFALSEMAINFORMN18ENABLEDFALSEMAINFORMN5ENABLEDFALSEMAINFORMN48ENABLEDFALSEMAINFORMN52ENAB

48、LEDFALSEMAINFORMN51ENABLEDFALSEMAINFORMN33ENABLEDFALSEIFEDIT1TEXTQUERY1FIELDBYNAME密码ASSTRINGTHENBEGINSHOWMESSAGEQUERY1FIELDBYNAME姓名ASSTRING的口令错误EDIT1SETFOCUSENDELSE陕西科技大学毕业论文（设计说明书）40BEGINNAMEQUERY1FIELDBYNAME权限ASSTRINGMAINFORMENABLEDKEYNAME/设置操作员权限MAINFORMSTATUSBAR1PANELS1TEXT用户QUERY1FIELDBYNAME姓名A

49、SSTRINGDYYLBROSESTATUSBAR1PANELS1TEXT用户QUERY1FIELDBYNAME姓名ASSTRINGUSER_CLOSE3TIMER1ENABLEDFALSECLOSEENDENDENDPROCEDURETUSERLISTVIEW1CLICKSENDERTOBJECT/选择操作员VARLISTARRAY01OFTLISTITEMBEGINLIST0LISTVIEW1SELECTEDIFLIST0NILTHENBEGINQUERY1LOCATE姓名,LIST0CAPTION,LOCASEINSENSITIVE/查询姓名,但是如果有从名的按第一个算ENDENDPROCEDURETUSERTIMER1TIMERSENDERTOBJECTBEGINFLASHWINDOWAPPLICATIONHANDLE,TRUE/闪烁项目一次FLASHWINDOWHANDLE,TRUE/闪烁窗体一次ENDPROCEDURETUSEREDIT1KEYPRESSSENDERTOBJECTVARKE