unit7.~dfm

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

object FormOrder: TFormOrder
  Left = 179
  Top = 157
  Width = 533
  Height = 303
  Caption = #28857'('#21152#12289#36864')'#33756
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TreeViewOrder: TTreeView
    Left = 16
    Top = 16
    Width = 169
    Height = 241
    Indent = 19
    ReadOnly = True
    TabOrder = 0
  end
  object ListView1: TListView
    Left = 240
    Top = 40
    Width = 265
    Height = 217
    Columns = <
      item
        Caption = #33756#21517
        Width = 100
      end
      item
        Caption = #25968#37327
      end
      item
        Caption = #21333#20215'('#20803')'
        Width = 60
      end
      item
        Caption = #33756#35889#32534#21495
        Width = 0
      end
      item
        Caption = #25240#25187'(%)'
      end>
    TabOrder = 1
    ViewStyle = vsReport
  end
  object BitBtnAdd: TBitBtn
    Left = 196
    Top = 102
    Width = 33
    Height = 25
    Caption = '>'
    TabOrder = 2
    OnClick = BitBtnAddClick
  end
  object BitBtnDel: TBitBtn
    Left = 196
    Top = 160
    Width = 33
    Height = 25
    Caption = '<'
    TabOrder = 3
    OnClick = BitBtnDelClick
  end
  object ComboBoxTable: TComboBox
    Left = 240
    Top = 16
    Width = 113
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    OnChange = ComboBoxTableChange
  end
  object DataSourceOrdered: TDataSource
    DataSet = TableOrdered
    Left = 48
    Top = 112
  end
  object TableOrdered: TTable
    DatabaseName = 'Ch14'
    TableName = 'Ordered.DB'
    Left = 88
    Top = 112
    object TableOrderedDishNum: TIntegerField
      FieldName = 'DishNum'
    end
    object TableOrderedTableNum: TIntegerField
      FieldName = 'TableNum'
    end
    object TableOrderedDate: TDateField
      FieldName = 'Date'
    end
    object TableOrderedTime: TTimeField
      FieldName = 'Time'
    end
    object TableOrderedAmount: TFloatField
      FieldName = 'Amount'
    end
    object TableOrderedStatus: TStringField
      FieldName = 'Status'
      Size = 10
    end
    object TableOrderedUserID: TIntegerField
      FieldName = 'UserID'
    end
  end
end