mc_gzdcborse.dfm

异洲酒店管理系统

object GZDCBorse: TGZDCBorse
  Left = 0
  Top = 124
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '点菜信息窗口：'
  ClientHeight = 421
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 4
    Top = 80
    Width = 783
    Height = 294
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = '点单日期'
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = '结单日期'
        Title.Caption = '挂帐时间'
        Width = 119
        Visible = True
      end
      item
        Expanded = False
        FieldName = '编号'
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = '名称'
        Width = 142
        Visible = True
      end
      item
        Expanded = False
        FieldName = '类型'
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = '单位'
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = '数量'
        Width = 37
        Visible = True
      end
      item
        Expanded = False
        FieldName = '价格'
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = '状态'
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = '合计'
        Width = 65
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 3
    Width = 784
    Height = 70
    Caption = '基础信息：'
    TabOrder = 1
    object Label3: TLabel
      Left = 14
      Top = 22
      Width = 60
      Height = 12
      Caption = '房台编号：'
    end
    object Label4: TLabel
      Left = 76
      Top = 22
      Width = 12
      Height = 12
      Caption = '09'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 14
      Top = 46
      Width = 60
      Height = 12
      Caption = '房台名称：'
    end
    object Label6: TLabel
      Left = 76
      Top = 46
      Width = 42
      Height = 12
      Caption = '9号包房'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 160
      Top = 22
      Width = 60
      Height = 12
      Caption = '类型说明：'
    end
    object Label8: TLabel
      Left = 224
      Top = 22
      Width = 48
      Height = 12
      Caption = '破的要命'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 160
      Top = 46
      Width = 60
      Height = 12
      Caption = '餐饮部门：'
    end
    object Label10: TLabel
      Left = 224
      Top = 46
      Width = 36
      Height = 12
      Caption = '中餐部'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 320
      Top = 22
      Width = 48
      Height = 12
      Caption = '服务费：'
    end
    object Label12: TLabel
      Left = 384
      Top = 22
      Width = 18
      Height = 12
      Caption = '100'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 320
      Top = 46
      Width = 60
      Height = 12
      Caption = '简要说明：'
    end
    object Label14: TLabel
      Left = 384
      Top = 46
      Width = 102
      Height = 12
      Caption = '一般没有人用此房.'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label23: TLabel
      Left = 520
      Top = 22
      Width = 72
      Height = 12
      Caption = '服务员编号：'
    end
    object Label24: TLabel
      Left = 592
      Top = 22
      Width = 6
      Height = 12
      Caption = '1'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label25: TLabel
      Left = 640
      Top = 22
      Width = 72
      Height = 12
      Caption = '服务员姓名：'
    end
    object Label26: TLabel
      Left = 712
      Top = 22
      Width = 24
      Height = 12
      Caption = '李涛'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object Panel1: TPanel
    Left = 3
    Top = 381
    Width = 785
    Height = 34
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 615
      Top = 11
      Width = 84
      Height = 12
      Caption = '总计消费金额：'
    end
    object Label2: TLabel
      Left = 700
      Top = 11
      Width = 6
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 145
      Top = 11
      Width = 84
      Height = 12
      Caption = '总计点单数量：'
    end
    object Label16: TLabel
      Left = 233
      Top = 11
      Width = 6
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 269
      Top = 11
      Width = 84
      Height = 12
      Caption = '总计赠单数量：'
    end
    object Label18: TLabel
      Left = 352
      Top = 11
      Width = 6
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 394
      Top = 11
      Width = 60
      Height = 12
      Caption = '点单金额：'
    end
    object Label20: TLabel
      Left = 455
      Top = 11
      Width = 6
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 508
      Top = 11
      Width = 60
      Height = 12
      Caption = '赠单金额：'
    end
    object Label22: TLabel
      Left = 569
      Top = 11
      Width = 6
      Height = 12
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label27: TLabel
      Left = 9
      Top = 11
      Width = 60
      Height = 12
      Caption = '结帐编号：'
    end
    object Label28: TLabel
      Left = 66
      Top = 11
      Width = 42
      Height = 12
      Caption = 'Label28'
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object Query1: TQuery
    DatabaseName = 'CYGLDATE'
    SQL.Strings = (
      'select * From 挂帐点单表')
    Left = 408
    Top = 192
    object Query1BDEDesigner: TIntegerField
      Alignment = taLeftJustify
      FieldName = '房间台号'
      Origin = 'CYGLDATE.点菜历史信息表.房间台号'
    end
    object Query1BDEDesigner2: TStringField
      FieldName = '类别'
      Origin = 'CYGLDATE.点菜历史信息表.类别'
      FixedChar = True
      Size = 10
    end
    object Query1BDEDesigner3: TIntegerField
      Alignment = taLeftJustify
      FieldName = '编号'
      Origin = 'CYGLDATE.点菜历史信息表.编号'
    end
    object Query1BDEDesigner4: TStringField
      FieldName = '名称'
      Origin = 'CYGLDATE.点菜历史信息表.名称'
      FixedChar = True
    end
    object Query1BDEDesigner5: TStringField
      FieldName = '类型'
      Origin = 'CYGLDATE.点菜历史信息表.类型'
      FixedChar = True
    end
    object Query1BDEDesigner6: TStringField
      FieldName = '单位'
      Origin = 'CYGLDATE.点菜历史信息表.单位'
      FixedChar = True
      Size = 10
    end
    object Query1BDEDesigner7: TIntegerField
      Alignment = taLeftJustify
      FieldName = '数量'
      Origin = 'CYGLDATE.点菜历史信息表.数量'
    end
    object Query1BDEDesigner8: TFloatField
      Alignment = taLeftJustify
      FieldName = '价格'
      Origin = 'CYGLDATE.点菜历史信息表.价格'
    end
    object Query1BDEDesigner9: TFloatField
      Alignment = taLeftJustify
      FieldName = '合计'
      Origin = 'CYGLDATE.点菜历史信息表.合计'
    end
    object Query1BDEDesigner10: TDateTimeField
      FieldName = '点单日期'
      Origin = 'CYGLDATE.点菜历史信息表.点单日期'
    end
    object Query1BDEDesigner11: TDateTimeField
      FieldName = '结单日期'
      Origin = 'CYGLDATE.点菜历史信息表.结单日期'
    end
    object Query1BDEDesigner12: TIntegerField
      Alignment = taLeftJustify
      FieldName = '服务员编号'
      Origin = 'CYGLDATE.点菜历史信息表.服务员编号'
    end
    object Query1BDEDesigner13: TStringField
      FieldName = '服务员姓名'
      Origin = 'CYGLDATE.点菜历史信息表.服务员姓名'
      FixedChar = True
      Size = 12
    end
    object Query1BDEDesigner14: TStringField
      FieldName = '状态'
      Origin = 'CYGLDATE.点菜历史信息表.状态'
      FixedChar = True
      Size = 10
    end
    object Query1BDEDesigner15: TIntegerField
      Alignment = taLeftJustify
      FieldName = '结帐编号'
      Origin = 'CYGLDATE.点菜历史信息表.结帐编号'
    end
    object Query1BDEDesigner16: TStringField
      FieldName = '是否结单'
      Origin = 'CYGLDATE.点菜历史信息表.是否结单'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 448
    Top = 192
  end
  object Query2: TQuery
    DatabaseName = 'CYGLDATE'
    Left = 408
    Top = 272
  end
end