restaurant.dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· DFM 代码 · 共 316 行

object RestFrm: TRestFrm
  Left = 192
  Top = 107
  Width = 403
  Height = 378
  BorderIcons = [biSystemMenu]
  Caption = #39184#39278#31995#32479#31649#29702
  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 PageControl1: TPageControl
    Left = 4
    Top = 0
    Width = 385
    Height = 345
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26700#20301#31649#29702
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Label1: TLabel
        Left = 12
        Top = 200
        Width = 48
        Height = 13
        AutoSize = False
        Caption = #26700#20301#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 12
        Top = 240
        Width = 64
        Height = 20
        AutoSize = False
        Caption = #26700#20301#29366#24577
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 196
        Top = 200
        Width = 30
        Height = 13
        AutoSize = False
        Caption = #22791#27880
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid1: TDBGrid
        Left = 14
        Top = 16
        Width = 347
        Height = 169
        Color = clBtnFace
        DataSource = DBFrm.restable_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'table_name'
            Title.Alignment = taCenter
            Title.Caption = #26700#20301#21495
            Width = 116
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'table_state'
            Title.Alignment = taCenter
            Title.Caption = #26700#20301#29366#24577
            Width = 90
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'table_disc'
            Title.Alignment = taCenter
            Title.Caption = #22791#27880
            Width = 100
            Visible = True
          end>
      end
      object DBEdit5: TDBEdit
        Left = 83
        Top = 200
        Width = 97
        Height = 21
        DataField = 'Table_name'
        DataSource = DBFrm.restable_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
      end
      object DBEdit6: TDBEdit
        Left = 83
        Top = 240
        Width = 97
        Height = 21
        DataField = 'Table_state'
        DataSource = DBFrm.restable_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object DBMemo1: TDBMemo
        Left = 233
        Top = 200
        Width = 121
        Height = 63
        DataField = 'Table_disc'
        DataSource = DBFrm.restable_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
      end
      object DBNavigator2: TDBNavigator
        Left = 8
        Top = 272
        Width = 360
        Height = 33
        DataSource = DBFrm.restable_DataSource
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = #33756#30446#31649#29702
      ImageIndex = 1
      object Label4: TLabel
        Left = 8
        Top = 216
        Width = 36
        Height = 13
        Caption = #33756#31867#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 248
        Width = 91
        Height = 19
        AutoSize = False
        Caption = #33756#30446#32534#21495#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 195
        Top = 216
        Width = 36
        Height = 13
        Caption = #33756#21517#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 197
        Top = 248
        Width = 36
        Height = 13
        Caption = #20215#26684#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid2: TDBGrid
        Left = 16
        Top = 16
        Width = 337
        Height = 185
        Color = clBtnFace
        DataSource = DBFrm.Dish_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Dish_type'
            Title.Alignment = taCenter
            Title.Caption = #33756#31867
            Width = 100
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Dish_id'
            Title.Alignment = taCenter
            Title.Caption = #33756#30446#32534#21495
            Width = 70
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Dish_name'
            Title.Alignment = taCenter
            Title.Caption = #33756#21517
            Width = 150
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Dish_cost'
            Title.Alignment = taCenter
            Title.Caption = #20215#26684
            Width = 80
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 16
        Top = 277
        Width = 350
        Height = 33
        DataSource = DBFrm.Dish_DataSource
        TabOrder = 1
      end
      object DBEdit1: TDBEdit
        Left = 77
        Top = 216
        Width = 105
        Height = 21
        DataField = 'Dish_type'
        DataSource = DBFrm.Dish_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 77
        Top = 248
        Width = 105
        Height = 21
        DataField = 'Dish_id'
        DataSource = DBFrm.Dish_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
      end
      object DBEdit3: TDBEdit
        Left = 242
        Top = 216
        Width = 105
        Height = 21
        DataField = 'Dish_name'
        DataSource = DBFrm.Dish_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 4
      end
      object DBEdit4: TDBEdit
        Left = 242
        Top = 248
        Width = 105
        Height = 21
        DataField = 'Dish_cost'
        DataSource = DBFrm.Dish_DataSource
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 5
      end
    end
  end
end