roomyud.~dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 637 行 · 第 1/2 页

~DFM
637
字号
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'phone'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#30005#35805
          Width = 64
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'room_id'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #39044#23450#25151#38388#21495
          Width = 64
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'state_time'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #24320#22987#26102#38388
          Width = 64
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'end_time'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #32467#26463#26102#38388
          Width = 64
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'memo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Width = 150
          Visible = True
        end>
    end
    object Edit4: TEdit
      Left = 65
      Top = 25
      Width = 105
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
    end
    object Button1: TButton
      Left = 192
      Top = 23
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 272
      Top = 23
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 3
      OnClick = Button2Click
    end
    object Edit5: TEdit
      Left = 86
      Top = 60
      Width = 97
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 4
    end
    object Edit6: TEdit
      Left = 208
      Top = 60
      Width = 97
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 5
    end
  end
  object GroupBox4: TGroupBox
    Left = 372
    Top = -1
    Width = 189
    Height = 411
    Caption = #23458#25151#20449#24687
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label6: TLabel
      Left = 8
      Top = 32
      Width = 48
      Height = 13
      Caption = #26102#38388#65306#20174
    end
    object Label7: TLabel
      Left = 42
      Top = 64
      Width = 12
      Height = 13
      Caption = #33267
    end
    object Label8: TLabel
      Left = 8
      Top = 257
      Width = 48
      Height = 13
      Caption = #23458#25151#31561#32423
    end
    object Label9: TLabel
      Left = 8
      Top = 320
      Width = 24
      Height = 13
      Caption = #22791#27880
    end
    object Label13: TLabel
      Left = 8
      Top = 229
      Width = 48
      Height = 13
      Caption = #23458#25151#32534#21495
    end
    object Label14: TLabel
      Left = 8
      Top = 289
      Width = 48
      Height = 13
      Caption = #23458#25151#29366#24577
    end
    object DBGrid1: TDBGrid
      Left = 14
      Top = 96
      Width = 163
      Height = 113
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clBlue
      TitleFont.Height = -16
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Room_id'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#32534#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 70
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Room_state'
          Title.Alignment = taCenter
          Title.Caption = #25151#38388#29366#24577
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 80
          Visible = True
        end>
    end
    object DBEdit1: TDBEdit
      Left = 68
      Top = 257
      Width = 97
      Height = 21
      DataField = 'Room_level'
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 64
      Top = 32
      Width = 105
      Height = 21
      DataField = 'state_time'
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 64
      Top = 64
      Width = 105
      Height = 21
      DataField = 'end_time'
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 3
    end
    object DBMemo1: TDBMemo
      Left = 24
      Top = 344
      Width = 145
      Height = 57
      DataField = 'Room_memo'
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 4
    end
    object DBEdit4: TDBEdit
      Left = 68
      Top = 226
      Width = 97
      Height = 21
      DataField = 'Room_id'
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 5
    end
    object DBEdit5: TDBEdit
      Left = 68
      Top = 289
      Width = 97
      Height = 21
      DataField = 'Room_state'
      DataSource = DBFrm.Room_DataSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 6
    end
  end
end

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?