unit5.~dfm

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

object FormPayMan: TFormPayMan
  Left = 214
  Top = 128
  Width = 426
  Height = 320
  Caption = #32467#36134#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 = 0
    Top = 34
    Width = 401
    Height = 169
    DataSource = DataSourcePay
    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 = #39184#26700#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ShouldPay'
        Title.Caption = #24212#20184
        Width = 41
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ActuallyPay'
        Title.Caption = #23454#20184
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Charge'
        Title.Caption = #25214#38646
        Width = 33
        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 = 'UserID'
        Title.Caption = #25805#20316#21592
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 80
    Top = 2
    Width = 240
    Height = 25
    DataSource = DataSourcePay
    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 DBMemo1: TDBMemo
    Left = 8
    Top = 220
    Width = 401
    Height = 65
    DataField = 'Description'
    DataSource = DataSourcePay
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object StaticText1: TStaticText
    Left = 8
    Top = 204
    Width = 52
    Height = 17
    Caption = #25551#36848#20449#24687
    TabOrder = 3
  end
  object DataSourcePay: TDataSource
    DataSet = TablePay
    Left = 192
    Top = 138
  end
  object TablePay: TTable
    DatabaseName = 'Ch14'
    TableName = 'Pay.db'
    Left = 152
    Top = 138
    object TablePayTableNum: TIntegerField
      FieldName = 'TableNum'
    end
    object TablePayShouldPay: TFloatField
      FieldName = 'ShouldPay'
    end
    object TablePayActuallyPay: TFloatField
      FieldName = 'ActuallyPay'
    end
    object TablePayCharge: TFloatField
      FieldName = 'Charge'
    end
    object TablePayDate: TDateField
      FieldName = 'Date'
    end
    object TablePayTime: TTimeField
      FieldName = 'Time'
    end
    object TablePayDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 100
    end
    object TablePayUserID: TIntegerField
      FieldName = 'UserID'
    end
  end
end