unit3.~dfm

餐厅结账管理程序提供中小型餐厅所需要的点菜结账功能

object FormTableMan: TFormTableMan
  Left = 234
  Top = 150
  Width = 341
  Height = 358
  Caption = #39184#26700#24211#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 24
    Top = 40
    Width = 129
    Height = 257
    DataSource = DataSourceTable
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'TableNum'
        Title.Caption = #26700#21495
        Width = 32
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TableType'
        ReadOnly = True
        Title.Caption = #39184#26700#31867#22411
        Width = 73
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 24
    Top = 8
    Width = 240
    Height = 25
    DataSource = DataSourceTable
    Hints.Strings = (
      #36339#33267#31532#19968#20010#32426#24405
      #36339#33267#21069#19968#20010#35760#24405
      #36339#33267#21518#19968#20010#35760#24405
      #36339#33267#26368#21518#19968#20010#35760#24405
      #25554#20837#32426#24405
      #21024#38500#32426#24405
      #32534#36753#32426#24405
      #20445#23384#20462#25913
      #21462#28040#20462#25913
      #21047#26032#25968#25454)
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object DBComboBox1: TDBComboBox
    Left = 217
    Top = 57
    Width = 88
    Height = 21
    Style = csDropDownList
    DataField = 'TableType'
    DataSource = DataSourceTable
    ItemHeight = 13
    Items.Strings = (
      #21452#20154#26700
      #22235#20154#26700
      #20845#20154#26700
      #20843#20154#26700
      #21253#38388)
    TabOrder = 2
  end
  object StaticText1: TStaticText
    Left = 160
    Top = 61
    Width = 52
    Height = 17
    Caption = #39184#26700#31867#22411
    TabOrder = 3
  end
  object StaticText2: TStaticText
    Left = 160
    Top = 117
    Width = 52
    Height = 17
    Caption = #39184#26700#29366#24577
    TabOrder = 4
  end
  object DBComboBox2: TDBComboBox
    Left = 216
    Top = 112
    Width = 89
    Height = 21
    Style = csDropDownList
    DataField = 'TableStatus'
    DataSource = DataSourceTable
    ItemHeight = 13
    Items.Strings = (
      #31354#38386
      #20351#29992
      #39044#23450)
    TabOrder = 5
  end
  object Memo1: TMemo
    Left = 160
    Top = 176
    Width = 145
    Height = 121
    Lines.Strings = (
      #25805#20316#35828#26126#65306
      #30001#19978#26041#30340#25353#38062#36827#34892#35760#24405
      #30340#31227#21160#12289#22686#21024#31561#25805#20316#12290
      #22312#26629#26684#20013#21482#33021#26356#25913#26700#21495
      #65292#39184#26700#31867#22411#21644#29366#24577#30001#19979
      #25289#33756#21333#26356#25913#12290)
    ScrollBars = ssVertical
    TabOrder = 6
  end
  object DataSourceTable: TDataSource
    DataSet = TableTable
    Left = 56
    Top = 96
  end
  object TableTable: TTable
    DatabaseName = 'Ch14'
    TableName = 'Table.DB'
    Left = 56
    Top = 128
    object TableTableTableNum: TIntegerField
      FieldName = 'TableNum'
    end
    object TableTableTableType: TStringField
      FieldName = 'TableType'
      Size = 10
    end
    object TableTableTableStatus: TStringField
      FieldName = 'TableStatus'
      Size = 10
    end
  end
end