mc_help.~pas

这是我的毕业设计,希望看了能给我一个满意的答复

unit MC_Help;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ImgList, ExtCtrls, Buttons, ShellApi;

type
  THelp = class(TForm)
    GroupBox1: TGroupBox;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    GroupBox2: TGroupBox;
    RichEdit1: TRichEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    Function Help_TLCYGLXT : Integer;//酒店前台收银系统使用说明
    Function Help_HTGL : Integer;//后台管理
    Function Help_CJXXSZ : Integer;//餐具信息设置
    Function Help_SJXXSZ : Integer;//水酒信息设置
    Function Help_CPXXSZ : Integer;//菜谱信息设置
    Function Help_FJTHGL : Integer;//房间台号管理
    Function Help_QTGL : Integer;//前台管理
    Function Help_KTGL : Integer;//开台管理
    Function Help_KRMD : Integer;//客人买单
    Function Help_JZSJFX : Integer;//结帐数据分析
    Function Help_RJS : Integer;//日结算
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Help: THelp;

implementation

{$R *.DFM}
 Function THelp.Help_TLCYGLXT;
begin
 RichEdit1.Lines.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('                                      酒店前台收银管理系统');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('      　面对商场上花样繁多的餐饮软件，我突出重点开发一个针对前台管理的餐饮软件，从专业');
 RichEdit1.Lines.Add('    角度出发，主要突出点菜、结帐上。突出了点菜和结帐的速度快、准确度高、使用方便等特点。');
 RichEdit1.Lines.Add('　　点菜方面主要采取图形加数据的方式使用户能直观的管理数据信息，并能有效的管理每个开台的');
 RichEdit1.Lines.Add('　　房间台号所点的酒菜信息。让用户操作觉得非常的方便。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　结帐方面也采取图形界面加数据的操作方式，让用户可以动态的管理现有的信息，这里突出');
 RichEdit1.Lines.Add('　　了重要的两点：');
 RichEdit1.Lines.Add('　　　　　　　　　－是：操作管理的信息准确无误，可让用户放心。');
 RichEdit1.Lines.Add('　　　　　　　　　二是：操作管理的速度快、管理方便、实用性高。');
 RichEdit1.Lines.Add('       这里还提供了特殊的选项，比如说：［来此吃饭的人是饭店经理的朋友，因此经理要给他免');
 RichEdit1.Lines.Add('    ，这里开设了一项（特权结帐）管理的功能。在这里可以对这些类似的结帐方式进行管');
 RichEdit1.Lines.Add('　　理和记录，已备查询。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('        另外本软件还提供了菜系分类和酒水分类，可针对管理，突出本店的特色菜进行宣传。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('');
end;

Function Thelp.Help_HTGL;
begin
 RichEdit1.Lines.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('                                         [后台管理]');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('        后台管理主要是对：进货、出货、库存信息的管理和维护。还包括员工的信息管理和水酒、');
 RichEdit1.Lines.Add('    菜谱、餐具的费用设置等管理 。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　内容如下：');
 RichEdit1.Lines.Add('　　　　　　　　　　1：餐具信息管理');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　2：水酒信息管理');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　3：菜系信息管理');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　4：房间台号信息管理');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　5：员工信息管理');
end;

Function THelp.Help_CJXXSZ;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【餐具信息设置】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　餐具信息设置是用来管理餐具费用信息，如果这里不录入餐具的费用信息的话，');
 RichEdit1.Lines.Add('客人在开台点菜时就无法为顾客提供餐具服务。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　例如：纸巾、筷子、刀叉．．．．．．等。');
 RichEdit1.Lines.Add('　　　　　用户必需在此录入，这样在开台管理中用户便可为顾客填写这些餐具的');
 RichEdit1.Lines.Add('　　　　　使用信息。');
end;

Function THelp.Help_SJXXSZ;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【水酒信息设置】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　水酒信息设置是用来登记管理水酒费用信息的。在这里用户可将库存中的酒水信息');
 RichEdit1.Lines.Add('在此作个标价，让顾客在点酒时能够知道酒水的价格。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　在进行水酒信息设置时，用户应对照库存水酒编号录入。因为系统在顾客结帐买单');
 RichEdit1.Lines.Add('时，会从库存中对应的编号货物进行修改。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　例如：我在［主仓库］中放了１００瓶的［银瀑啤酒］它的编号是［１０］，这样');
 RichEdit1.Lines.Add('我们在水酒信息设置管理中添加一条新记录将它的[库存货号]设置成[１０]，这样它的');
 RichEdit1.Lines.Add('信息就会和库存的信息挂钩。这样在顾客点［银瀑啤酒］时将会从库存中减少，当少到');
 RichEdit1.Lines.Add('用户设置的［欲警下限］时系统会提示用户库存不足。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　这样我们便可针对性的进货来补充库存商品的数量。');
end;

Function THelp.Help_CPXXSZ;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【菜谱信息设置】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　菜谱信息设置是用来管理点菜的费用信息。用户在这里可以填写本店的菜谱信息。');
 RichEdit1.Lines.Add('特色菜是什么、属于那种菜系、价位是多少。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　在这里系统为每条菜谱信息提供了一个唯一的编号，编号是在４００００开始的。');
 RichEdit1.Lines.Add('这表示菜谱信息是从４００００开始的。酒水是从１００００至２００００之间的。餐具');
 RichEdit1.Lines.Add('是从３００００－４００００之间的。');
 RichEdit1.Lines.Add('');
end;

Function THelp.Help_FJTHGL;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【房间台号管理】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　房间台号管理是用来管理本店现有的可营业的房间台号信息，在这里用户可对');
 RichEdit1.Lines.Add('它们进行管理和设置。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　在这里用户可对这些房间台号信息进行修改，添加和删除。这样在开台时便可');
 RichEdit1.Lines.Add('知道这些房台分别是哪个部门的、服务费用是多少、能容纳多少人等。');
 RichEdit1.Lines.Add('');
end;


Function THelp.Help_QTGL;
begin
 RichEdit1.Lines.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('                                         [前台管理]');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('        前台管理主要是对：开台管理、客人买单、结帐分析、日结算的管理');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　内容如下：');
 RichEdit1.Lines.Add('　　　　　　　　　　１：开台管理');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　２：客人买单');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　３：结帐分析');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　　４：日结算');
 RichEdit1.Lines.Add('');
end;

Function THelp.Help_KTGL;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【开台管理】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　开台管理使用来管理房台营业的子系统，用户在这里可以选择营业的房台，并为它');
 RichEdit1.Lines.Add('指派服务员和添加点菜信息和酒水信息。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('开台管理中为用户提供了以下小功能：');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　　　　　　　　１：开台设置');
 RichEdit1.Lines.Add('　　　　　　　　　２：并台管理');
 RichEdit1.Lines.Add('　　　　　　　　　３：转台管理');
 RichEdit1.Lines.Add('　　　　　　　　　４：点菜服务');
 RichEdit1.Lines.Add('　　　　　　　　　５：房台搜索');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('系统提供了两种操作模式１：图象２：数据');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　用户通过选择房台可查看到此房台当前的状态，如果在营业的话，左边会看到此房台的');
 RichEdit1.Lines.Add('点菜信息，及服务员是谁。总计消费金额是多少。');
end;

Function THelp.Help_KRMD;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【客人买单】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　客人买单管理使用来管理客人买单的子系统。在这里系统提供了四种结帐方式：');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　１：不打折结帐');
 RichEdit1.Lines.Add('　　２：打折结帐');
 RichEdit1.Lines.Add('　　３：优惠方式结帐');
 RichEdit1.Lines.Add('　　４：免单');
 RichEdit1.Lines.Add('　　５：消费统计');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　１：不打折结帐，是经常使用的。没有特殊情况使用它。');
 RichEdit1.Lines.Add('　　２：打折结帐，是为饭店在一定时间内打折营业而设的。');
 RichEdit1.Lines.Add('　　３：优惠方式结帐，是为了饭店在一定时间内发了一些带金券，此项功能是为此开设的。');
 RichEdit1.Lines.Add('　　４：免单，是为了一些特别的顾客而设的。');
 RichEdit1.Lines.Add('　　５：消费统计，是用来告诉顾客当前的消费总金额。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　本软件还带有一些打印部分，可以打印顾客点的菜及消费金额。');
end;

Function THelp.Help_JZSJFX;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【结帐数据分析】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　结帐数据分析使用来分析当天营业情况，可对不同部门、不同房台的点菜情况进行查看，');
 RichEdit1.Lines.Add('系统将会统计其结果在屏幕的下放。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　这里系统采用了导航图的方式查询，系统将房台信息划分在部门里使用可以通过点击鼠标');
 RichEdit1.Lines.Add('即可查看在这一天里，每个房台和部门的营业信息及统计结果。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　如果需要的话可将统计出的结果打印出来。');
end;

Function THelp.Help_RJS;
begin
 RichEdit1.Clear;
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　【日结算】');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　日结算是用来将一天的营业收入金额和点菜信息统一计算处理后加到月营业表中，');
 RichEdit1.Lines.Add('在日结算中为用户提供了单据打印管理，让用户可以打印出一天的营业单据信息，里面');
 RichEdit1.Lines.Add('记载了房台信息和点菜信息。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　当点击日结算按扭有系统会将数据加以处理并转存到月营业表中。并开始新的一天');
 RichEdit1.Lines.Add('的营业管理。');
 RichEdit1.Lines.Add('');
 RichEdit1.Lines.Add('　　用户请注意日结算一天只能用一次不要多用。');
end;

procedure THelp.FormShow(Sender: TObject);
begin
 TreeView1.Items[0].Expanded:=True;
 TreeView1.Items[0].Item[0].Expanded:=True;
 Help.Help_TLCYGLXT;//显示酒店前台收银管理软件的使用帮助
end;

procedure THelp.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure THelp.TreeView1Click(Sender: TObject);
var List:TTreeNode;
begin
List:=TreeView1.Selected;
if List.Text='酒店前台收银系统使用说明' then
 begin
      Help.Help_TLCYGLXT;
 end;
if List.Text='后台管理' then
 begin
      Help.Help_HTGL;
 end;
if List.Text='餐具信息设置' then
 begin
      Help.Help_CJXXSZ;
 end;
if List.Text='水酒信息设置' then
 begin
      Help.Help_SJXXSZ;
 end;
if List.Text='菜谱信息设置' then
 begin
      Help.Help_CPXXSZ;
 end;
if List.Text='房间台号管理' then
 begin
      Help.Help_FJTHGL;
 end;
if List.Text='前台管理' then
 begin
      Help.Help_QTGL;
 end;
if List.Text='开台管理' then
 begin
      Help.Help_KTGL;
 end;
if List.Text='客人买单' then
 begin
      Help.Help_KRMD;
 end;
if List.Text='结帐数据分析' then
 begin
      Help.Help_JZSJFX;
 end;
if List.Text='日结算管理' then
 begin
      Help.Help_RJS;
 end;
end;

end.