unit4.~dfm

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

object FormListMan: TFormListMan
  Left = 196
  Top = 154
  Width = 505
  Height = 293
  Caption = #24050#28857#33756#21333#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 = 8
    Top = 56
    Width = 481
    Height = 185
    DataSource = DataSourceOrdered
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DishNum'
        Title.Caption = #33756#35889#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TableNum'
        Title.Caption = #39184#26700#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Date'
        Title.Caption = #26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Time'
        Title.Caption = #26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Amount'
        Title.Caption = #25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Status'
        Title.Caption = #29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UserID'
        Title.Caption = #25805#20316#21592
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 16
    Width = 240
    Height = 25
    DataSource = DataSourceOrdered
    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 TableOrdered: TTable
    DatabaseName = 'Ch14'
    TableName = 'Ordered.DB'
    Left = 96
    Top = 144
    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
  object DataSourceOrdered: TDataSource
    DataSet = TableOrdered
    Left = 128
    Top = 144
  end
end