unit4.dfm

飞思科技的书不错

object Form_Date: TForm_Date
  Left = 223
  Top = 136
  BorderStyle = bsDialog
  Caption = #36755#20837#26085#26399
  ClientHeight = 540
  ClientWidth = 736
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 40
    Top = 16
    Width = 80
    Height = 25
    Caption = #20986#29983#26085#26399
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 400
    Top = 16
    Width = 120
    Height = 25
    Caption = #21442#21152#20826#27966#26102#38388
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 40
    Top = 264
    Width = 80
    Height = 25
    Caption = #24037#20316#26102#38388
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 392
    Top = 256
    Width = 140
    Height = 25
    Caption = #36827#20837#26412#21333#20301#26102#38388
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object MC_birth: TMonthCalendar
    Left = 32
    Top = 48
    Width = 288
    Height = 183
    Date = 37145.8073881944
    ShowToday = False
    TabOrder = 0
  end
  object MC_party: TMonthCalendar
    Left = 392
    Top = 48
    Width = 288
    Height = 183
    Date = 37145.8073881944
    ShowToday = False
    TabOrder = 1
  end
  object MC_work: TMonthCalendar
    Left = 32
    Top = 296
    Width = 288
    Height = 183
    Date = 37145.8073881944
    ShowToday = False
    TabOrder = 2
  end
  object MC_Enter: TMonthCalendar
    Left = 400
    Top = 296
    Width = 288
    Height = 183
    Date = 37145.8073881944
    ShowToday = False
    TabOrder = 3
  end
  object Button1: TButton
    Left = 336
    Top = 504
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 4
    OnClick = Button1Click
  end
end