u_foodorder.dfm

本系统分为前台和后台两部分：前台用来实现客户预订、入住等操作

object F_foodorder: TF_foodorder
  Left = 199
  Top = 181
  Width = 548
  Height = 376
  Caption = #28857#33756
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label6: TLabel
    Left = 11
    Top = 15
    Width = 30
    Height = 15
    Caption = #33756#35889
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 11
    Top = 197
    Width = 45
    Height = 15
    Caption = #35746#21333#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 7
    Top = 187
    Width = 315
    Height = 9
    Shape = bsTopLine
  end
  object Label9: TLabel
    Left = 335
    Top = 274
    Width = 90
    Height = 15
    Caption = #24212#20184#24635#37329#39069#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object dg_detail: TDBGrid
    Left = 8
    Top = 218
    Width = 313
    Height = 118
    DataSource = DS_foodetail
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'food_name'
        Title.Alignment = taCenter
        Title.Caption = #33756#21517
        Width = 127
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'number'
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 328
    Top = 16
    Width = 201
    Height = 209
    Caption = #28857#33756#21333
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 32
      Width = 45
      Height = 15
      Caption = #33756#21517#65306
    end
    object Label2: TLabel
      Left = 25
      Top = 137
      Width = 45
      Height = 15
      Caption = #25968#37327#65306
    end
    object Label3: TLabel
      Left = 24
      Top = 58
      Width = 45
      Height = 15
      Caption = #31181#31867#65306
    end
    object Label4: TLabel
      Left = 24
      Top = 82
      Width = 45
      Height = 15
      Caption = #39118#21619#65306
    end
    object Label5: TLabel
      Left = 24
      Top = 106
      Width = 45
      Height = 15
      Caption = #21333#20215#65306
    end
    object DBText1: TDBText
      Left = 75
      Top = 30
      Width = 89
      Height = 17
      Alignment = taCenter
      Color = clMedGray
      DataField = 'food_name'
      DataSource = DM_main.DS_foodmenu
      ParentColor = False
    end
    object DBText2: TDBText
      Left = 75
      Top = 54
      Width = 89
      Height = 17
      Alignment = taCenter
      Color = clMedGray
      DataField = 'type'
      DataSource = DM_main.DS_foodmenu
      ParentColor = False
    end
    object DBText3: TDBText
      Left = 75
      Top = 78
      Width = 89
      Height = 17
      Alignment = taCenter
      Color = clMedGray
      DataField = 'flavor'
      DataSource = DM_main.DS_foodmenu
      ParentColor = False
    end
    object DBText4: TDBText
      Left = 75
      Top = 102
      Width = 89
      Height = 17
      Alignment = taCenter
      Color = clMedGray
      DataField = 'price'
      DataSource = DM_main.DS_foodmenu
      ParentColor = False
    end
    object Label8: TLabel
      Left = 25
      Top = 170
      Width = 75
      Height = 15
      Caption = #39038#23458#22995#21517#65306
    end
    object edtNum: TEdit
      Left = 74
      Top = 131
      Width = 76
      Height = 23
      TabOrder = 0
      Text = '1'
    end
    object UpDown1: TUpDown
      Left = 150
      Top = 131
      Width = 15
      Height = 23
      Associate = edtNum
      Min = 1
      Position = 1
      TabOrder = 1
      Wrap = False
    end
    object edtName: TEdit
      Left = 95
      Top = 164
      Width = 71
      Height = 23
      TabOrder = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 36
    Width = 313
    Height = 145
    DataSource = DM_main.DS_foodmenu
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Alignment = taCenter
        Title.Caption = #24207#21495
        Width = 29
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'food_name'
        Title.Alignment = taCenter
        Title.Caption = #33756#21517
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'flavor'
        Title.Alignment = taCenter
        Title.Caption = #39118#21619
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'type'
        Title.Alignment = taCenter
        Title.Caption = #31181#31867
        Width = 48
        Visible = True
      end>
  end
  object btnOk: TBitBtn
    Left = 335
    Top = 240
    Width = 65
    Height = 25
    Caption = #30830#23450
    TabOrder = 3
    OnClick = btnOkClick
  end
  object btnPrt: TBitBtn
    Left = 465
    Top = 240
    Width = 64
    Height = 25
    Caption = #25171#21333
    Enabled = False
    TabOrder = 4
    OnClick = btnPrtClick
  end
  object p_fee: TPanel
    Left = 334
    Top = 296
    Width = 190
    Height = 41
    Color = clMedGray
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clInfoBk
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object btnCancel: TBitBtn
    Left = 400
    Top = 240
    Width = 65
    Height = 25
    Caption = #21462#28040
    TabOrder = 6
    OnClick = btnCancelClick
  end
  object B_neworder: TBitBtn
    Left = 247
    Top = 192
    Width = 65
    Height = 25
    Caption = #26032#24314
    TabOrder = 7
    OnClick = B_neworderClick
  end
  object DS_foodetail: TDataSource
    DataSet = Q_foodetail
    Left = 136
    Top = 256
  end
  object Q_foodetail: TQuery
    AfterScroll = Q_foodetailAfterScroll
    DatabaseName = 'PMISData'
    RequestLive = True
    SQL.Strings = (
      'select * from order_detail where order_id=:sid')
    Left = 88
    Top = 256
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sid'
        ParamType = ptUnknown
      end>
  end
end