applyfood.pas

详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...一个酒店管理系统VB+Access [学生学籍管理系统(VB+Acess).zip] - !这个是刚刚编的毕业设计,可能

unit ApplyFood;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs;

type
  TFormApplyFood=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGridDesk: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label6: TLabel;
    Label2: TLabel;
    Label10: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label3: TLabel;
    Bevel8: TBevel;
    Bevel13: TBevel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit5: TDBEdit;
    DBEdit2: TDBEdit;
    DBGridCustomer: TDBGrid;
    PageControl3: TPageControl;
    TabSheetApplyFood: TTabSheet;
    DBGridFood: TDBGrid;
    TabSheetApplySeat: TTabSheet;
    DBGridSeat: TDBGrid;
    DBGrid4: TDBGrid;
    Panel1: TPanel;
    SpbPost: TSpeedButton;
    SpbSum: TSpeedButton;
    SpbSaleSaveProc: TSpeedButton;
    SpbCreateTable: TSpeedButton;
    Spb2: TSpeedButton;
    Spb1: TSpeedButton;
    EditProc: TEdit;
    ToolBar1: TToolBar;
    CBIme: TComboBox;
    SpbIsHide: TSpeedButton;
    Bevel6: TBevel;
    SpbOpenDesk: TSpeedButton;
    Bevel9: TBevel;
    SpbAddDesk: TSpeedButton;
    Bevel12: TBevel;
    SpbSwichDesk: TSpeedButton;
    Bevel1: TBevel;
    SpbQuitDesk: TSpeedButton;
    Bevel3: TBevel;
    SpbCust: TSpeedButton;
    Bevel2: TBevel;
    SpbWaiter: TSpeedButton;
    Bevel14: TBevel;
    SpbSave: TSpeedButton;
    Bevel11: TBevel;
    SpbApplyFood: TSpeedButton;
    Bevel5: TBevel;
    SpbDeleteApply: TSpeedButton;
    Bevel4: TBevel;
    SpbCheckout: TSpeedButton;
    Bevel7: TBevel;
    SpbSaleSave: TSpeedButton;
    Bevel10: TBevel;
    SpeedButton1: TSpeedButton;
    Panel3: TPanel;
    Label13: TLabel;
    DBNavigator1: TDBNavigator;
    DsTmpCust: TDataSource;
    TabApplyFood: TTable;
    DsApplyFood: TDataSource;
    TabfCust: TTable;
    TabfApplyFood: TTable;
    TabApplySeat: TTable;
    TabApplySeatListNo: TStringField;
    TabApplySeatDeskSn: TSmallintField;
    TabApplySeatSeatSn: TSmallintField;
    TabApplySeatSeatName: TStringField;
    TabApplySeatPrice1: TCurrencyField;
    TabApplySeatCount1: TSmallintField;
    DsApplySeat: TDataSource;
    TabApplySeatFood: TTable;
    DsApplySeatFood: TDataSource;
    TabfApplySeat: TTable;
    TabfApplySeatFood: TTable;
    TabDeskUse: TTable;
    DsDeskUse: TDataSource;
    TabfDeskUse: TTable;
    TabDesk: TTable;
    QrCust: TQuery;
    QrCustListNo: TStringField;
    QrCustCustName: TStringField;
    QrCustCustNo: TStringField;
    QrCustApplyDate: TDateField;
    QrCustMealType: TStringField;
    QrCustDeskCount: TSmallintField;
    QrCustManCount: TSmallintField;
    QrCustIsCheckout: TStringField;
    QrCustMealMoney: TCurrencyField;
    QrCustServiceMoney: TCurrencyField;
    QrCustCheckoutMoney: TCurrencyField;
    QrCustCash: TCurrencyField;
    QrCustShouldGetMn: TCurrencyField;
    QrCustShouldGetTicket: TCurrencyField;
    QrCustBusiPlace: TStringField;
    QrCustCollector: TStringField;
    TabtCheckout: TTable;
    TabtApplyFood: TTable;
    TabtApplySeat: TTable;
    DsfCust: TDataSource;
    DsfApplySeat: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FormApplyFood: TFormApplyFood;


{This file is generated by DeDe Ver 3.00 Copyright (c) 1999-2001 DaFixer}

implementation

{$R *.DFM}


end.