unit1.dfm

来自「很好地delphi书籍源码」· DFM 代码 · 共 86 行

object Form1: TForm1
  Left = 177
  Top = 177
  Width = 397
  Height = 172
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 35
    Width = 52
    Height = 13
    Caption = #20837#20303#26102#38388
  end
  object Label2: TLabel
    Left = 32
    Top = 64
    Width = 52
    Height = 13
    Caption = #31163#24215#26102#38388
  end
  object Label3: TLabel
    Left = 16
    Top = 11
    Width = 80
    Height = 13
    Caption = #25151#36153'('#20803'/'#26085') '
  end
  object EnterMaskEdit: TMaskEdit
    Left = 88
    Top = 32
    Width = 175
    Height = 21
    EditMask = '!99/99/00 90:00;1;_'
    MaxLength = 14
    TabOrder = 0
    Text = '04-08-01 12:10'
  end
  object LeaveMaskEdit: TMaskEdit
    Left = 88
    Top = 64
    Width = 174
    Height = 21
    EditMask = '!99/99/00 90:00;1;_'
    MaxLength = 14
    TabOrder = 1
    Text = '04-08-11 12:10'
  end
  object Button1: TButton
    Left = 128
    Top = 104
    Width = 75
    Height = 25
    Caption = #35745#31639
    TabOrder = 2
    OnClick = Button1Click
  end
  object RoomFeeEdit: TEdit
    Left = 88
    Top = 8
    Width = 177
    Height = 21
    TabOrder = 3
    Text = '100.00'
  end
  object GuestRG: TRadioGroup
    Left = 280
    Top = 8
    Width = 89
    Height = 81
    ItemIndex = 0
    Items.Strings = (
      #23486#39302'A'
      #23486#39302'B')
    TabOrder = 4
  end
end