unit2.dfm

来自「用Delphi做一个公寓管理系统」· DFM 代码 · 共 117 行

object Form_floorconfig1: TForm_floorconfig1
  Left = 402
  Top = 172
  Width = 353
  Height = 385
  Caption = #27004#23618#35774#32622'1'
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 345
    Height = 347
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 45
      Top = 85
      Width = 48
      Height = 13
      Caption = #27004#25151#21495'    '
    end
    object Label2: TLabel
      Left = 45
      Top = 133
      Width = 48
      Height = 13
      Caption = #23618'     '#25968'   '
    end
    object Label3: TLabel
      Left = 35
      Top = 181
      Width = 75
      Height = 13
      Caption = #27599#23618#25151#38388#25968'     '
    end
    object Label4: TLabel
      Left = 120
      Top = 224
      Width = 124
      Height = 13
      Caption = '*    '#20197#19978#19977#39033#37117#19981#33021#20026#31354
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Edit_floorNum: TEdit
      Left = 149
      Top = 85
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object But_submit1: TButton
      Left = 201
      Top = 288
      Width = 52
      Height = 25
      Caption = #23436'   '#25104
      TabOrder = 1
      OnClick = But_submit1Click
    end
    object But_next1: TButton
      Left = 120
      Top = 288
      Width = 55
      Height = 25
      Caption = #19979#19968#27493
      Default = True
      TabOrder = 2
      OnClick = But_next1Click
    end
    object Edit_floorcount: TEdit
      Left = 152
      Top = 136
      Width = 121
      Height = 21
      TabOrder = 3
      OnKeyPress = Edit_floorcountKeyPress
    end
    object Edit_roomcount: TEdit
      Left = 152
      Top = 176
      Width = 121
      Height = 21
      TabOrder = 4
      OnKeyPress = Edit_roomcountKeyPress
    end
    object Button1: TButton
      Left = 272
      Top = 288
      Width = 53
      Height = 25
      Caption = #21462'  '#28040
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object Query1: TQuery
    DatabaseName = 'main'
    Left = 448
    Top = 16
  end
end