unit2.~dfm

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

object FormClassDishMan: TFormClassDishMan
  Left = 198
  Top = 156
  Width = 449
  Height = 364
  AutoSize = True
  Caption = #33756#21697'/'#33756#35889#24211#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 177
    Height = 273
    Indent = 19
    ReadOnly = True
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 184
    Top = 0
    Width = 257
    Height = 41
    Caption = #33756#21697#20449#24687
    TabOrder = 1
    object StaticText1: TStaticText
      Left = 101
      Top = 16
      Width = 52
      Height = 17
      Caption = #33756#21697#21517#31216
      TabOrder = 0
    end
    object StaticText2: TStaticText
      Left = 5
      Top = 16
      Width = 52
      Height = 17
      Caption = #33756#21697#32534#21495
      TabOrder = 1
    end
    object DBEditClassNum: TDBEdit
      Left = 53
      Top = 13
      Width = 36
      Height = 21
      DataField = 'ClassNum'
      DataSource = DataSourceClass
      ReadOnly = True
      TabOrder = 2
    end
    object DBEditClassName: TDBEdit
      Left = 160
      Top = 13
      Width = 89
      Height = 21
      DataField = 'ClassName'
      DataSource = DataSourceClass
      MaxLength = 18
      ReadOnly = True
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 184
    Top = 40
    Width = 257
    Height = 233
    Caption = #33756#35889#20449#24687
    TabOrder = 2
    object StaticText3: TStaticText
      Left = 5
      Top = 16
      Width = 52
      Height = 17
      Caption = #33756#35889#21517#31216
      TabOrder = 0
    end
    object DBEditDishName: TDBEdit
      Left = 53
      Top = 13
      Width = 99
      Height = 21
      DataField = 'DishName'
      DataSource = DataSourceDish
      MaxLength = 18
      ReadOnly = True
      TabOrder = 1
    end
    object StaticText4: TStaticText
      Left = 5
      Top = 35
      Width = 52
      Height = 17
      Caption = #33756#35889#32534#21495
      TabOrder = 2
    end
    object DBEditDishNum: TDBEdit
      Left = 53
      Top = 33
      Width = 52
      Height = 21
      DataField = 'DishNum'
      DataSource = DataSourceDish
      ReadOnly = True
      TabOrder = 3
    end
    object StaticText5: TStaticText
      Left = 146
      Top = 35
      Width = 42
      Height = 17
      Caption = #25240#25187'(%)'
      TabOrder = 4
    end
    object DBEditDisCount: TDBEdit
      Left = 191
      Top = 33
      Width = 57
      Height = 21
      DataField = 'DisCount'
      DataSource = DataSourceDish
      ReadOnly = True
      TabOrder = 5
    end
    object StaticText7: TStaticText
      Left = 23
      Top = 57
      Width = 28
      Height = 17
      Caption = #21333#20301
      TabOrder = 6
    end
    object DBEditUnitName: TDBEdit
      Left = 53
      Top = 57
      Width = 52
      Height = 21
      DataField = 'DishUnitName'
      DataSource = DataSourceDish
      ReadOnly = True
      TabOrder = 7
    end
    object StaticText8: TStaticText
      Left = 144
      Top = 58
      Width = 46
      Height = 17
      Caption = #21333#20215'('#20803')'
      TabOrder = 8
    end
    object DBEditDishPrice: TDBEdit
      Left = 191
      Top = 57
      Width = 57
      Height = 21
      DataField = 'DishPrice'
      DataSource = DataSourceDish
      ReadOnly = True
      TabOrder = 9
    end
    object DBMemoDishDescription: TDBMemo
      Left = 8
      Top = 96
      Width = 241
      Height = 129
      DataField = 'Description'
      DataSource = DataSourceDish
      MaxLength = 100
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 10
    end
    object StaticText6: TStaticText
      Left = 7
      Top = 78
      Width = 76
      Height = 17
      Caption = #33756#35889#25551#36848#20449#24687
      TabOrder = 11
    end
    object StaticText9: TStaticText
      Left = 155
      Top = 15
      Width = 52
      Height = 17
      Caption = #25152#23646#33756#21697
      TabOrder = 12
    end
    object DBComboBoxDishClass: TDBComboBox
      Left = 204
      Top = 11
      Width = 44
      Height = 21
      Style = csDropDownList
      DataField = 'ClassNum'
      DataSource = DataSourceDish
      Enabled = False
      ItemHeight = 13
      ReadOnly = True
      TabOrder = 13
    end
  end
  object BitBtnAdd: TBitBtn
    Left = 328
    Top = 312
    Width = 65
    Height = 25
    Caption = #22686#21152
    TabOrder = 3
    OnClick = BitBtnAddClick
  end
  object BitBtnDelete: TBitBtn
    Left = 232
    Top = 312
    Width = 65
    Height = 25
    Caption = #21024#38500
    TabOrder = 4
    OnClick = BitBtnDeleteClick
  end
  object MemoHint: TMemo
    Left = 0
    Top = 274
    Width = 441
    Height = 36
    Lines.Strings = (
      #25552#31034#25991#26412)
    ScrollBars = ssVertical
    TabOrder = 5
  end
  object BitBtnModify: TBitBtn
    Left = 120
    Top = 312
    Width = 89
    Height = 25
    Caption = #20999#25442#33267#20462#25913#27169#24335
    TabOrder = 6
    OnClick = BitBtnModifyClick
  end
  object BitBtnReload: TBitBtn
    Left = 0
    Top = 312
    Width = 89
    Height = 25
    Caption = #37325#26032#36733#20837#25968#25454#24211
    TabOrder = 7
    OnClick = BitBtnReloadClick
  end
  object DataSourceClass: TDataSource
    DataSet = TableClass
    Left = 120
    Top = 32
  end
  object TableClass: TTable
    DatabaseName = 'Ch14'
    TableName = 'Class.db'
    Left = 88
    Top = 32
    object TableClassClassNum: TStringField
      FieldName = 'ClassNum'
      Size = 1
    end
    object TableClassClassName: TStringField
      FieldName = 'ClassName'
    end
  end
  object TableDish: TTable
    DatabaseName = 'Ch14'
    TableName = 'Dish.DB'
    Left = 88
    Top = 72
    object TableDishDishNum: TIntegerField
      FieldName = 'DishNum'
    end
    object TableDishDishName: TStringField
      FieldName = 'DishName'
    end
    object TableDishClassNum: TStringField
      FieldName = 'ClassNum'
      Size = 1
    end
    object TableDishDishPrice: TFloatField
      FieldName = 'DishPrice'
    end
    object TableDishDishUnitName: TStringField
      FieldName = 'DishUnitName'
      Size = 6
    end
    object TableDishDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 100
    end
    object TableDishDisCount: TFloatField
      FieldName = 'DisCount'
    end
  end
  object DataSourceDish: TDataSource
    DataSet = TableDish
    Left = 120
    Top = 72
  end
end