unit6.~dfm

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

object FormEmployeeMan: TFormEmployeeMan
  Left = 221
  Top = 151
  Width = 481
  Height = 392
  Caption = #32844#21592#20449#24687#21644#26435#38480#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 = 40
    Width = 113
    Height = 241
    BiDiMode = bdLeftToRight
    DataSource = DataSourceRank
    ParentBiDiMode = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'RankNum'
        Title.Caption = #32423#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RankName'
        Title.Caption = #35828#26126
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 136
    Top = 40
    Width = 329
    Height = 241
    DataSource = DataSourceEmployee
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Caption = #32844#21592'ID'
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Password'
        Title.Caption = #23494#30721
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #22995#21517
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Gender'
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Age'
        Title.Caption = #24180#40836
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'IDCardNum'
        Title.Caption = #36523#20221#35777#21495
        Width = 108
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Remark'
        Title.Caption = #25551#36848#20449#24687
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Rank'
        Title.Caption = #32423#21035
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 8
    Width = 111
    Height = 25
    DataSource = DataSourceRank
    VisibleButtons = [nbInsert, nbDelete, nbRefresh]
    TabOrder = 2
  end
  object DBNavigator2: TDBNavigator
    Left = 136
    Top = 8
    Width = 320
    Height = 25
    DataSource = DataSourceEmployee
    TabOrder = 3
  end
  object DBMemoRemark: TDBMemo
    Left = 8
    Top = 288
    Width = 457
    Height = 57
    DataField = 'Remark'
    DataSource = DataSourceEmployee
    TabOrder = 4
  end
  object DataSourceRank: TDataSource
    DataSet = TableRank
    Left = 56
    Top = 128
  end
  object TableRank: TTable
    DatabaseName = 'Ch14'
    TableName = 'Rank.db'
    Left = 56
    Top = 160
    object TableRankRankNum: TStringField
      FieldName = 'RankNum'
      Size = 1
    end
    object TableRankRankName: TStringField
      FieldName = 'RankName'
    end
  end
  object DataSourceEmployee: TDataSource
    DataSet = TableEmployee
    Left = 160
    Top = 128
  end
  object TableEmployee: TTable
    DatabaseName = 'Ch14'
    TableName = 'Employee.DB'
    Left = 160
    Top = 160
    object TableEmployeeID: TIntegerField
      FieldName = 'ID'
    end
    object TableEmployeePassword: TStringField
      FieldName = 'Password'
      Size = 6
    end
    object TableEmployeeName: TStringField
      FieldName = 'Name'
      Size = 15
    end
    object TableEmployeeGender: TStringField
      FieldName = 'Gender'
      Size = 2
    end
    object TableEmployeeAge: TSmallintField
      FieldName = 'Age'
    end
    object TableEmployeeIDCardNum: TStringField
      FieldName = 'IDCardNum'
      Size = 18
    end
    object TableEmployeeRemark: TMemoField
      FieldName = 'Remark'
      BlobType = ftMemo
      Size = 100
    end
    object TableEmployeeRank: TStringField
      FieldName = 'Rank'
      Size = 1
    end
  end
end