datefmu.dfm

图书馆管理系统设计详细资料

object datefm: Tdatefm
  Left = 362
  Top = 205
  Width = 328
  Height = 238
  Caption = #26102#38388#35774#23450
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panelsrf: TPanel
    Left = 0
    Top = 0
    Width = 319
    Height = 209
    Hint = #36873#25321#30456#24212#36755#20837#27861#65292#28857#20987#30830#23450
    BevelInner = bvLowered
    BorderWidth = 4
    BorderStyle = bsSingle
    Color = 10219733
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object grpboxDate: TGroupBox
      Left = 10
      Top = 12
      Width = 294
      Height = 177
      Caption = #26102#38388#35774#23450
      Color = 10219733
      ParentColor = False
      TabOrder = 0
      object Label1: TLabel
        Left = 30
        Top = 32
        Width = 24
        Height = 12
        Caption = #24180#24230
      end
      object Label2: TLabel
        Left = 166
        Top = 32
        Width = 24
        Height = 12
        Caption = #26376#20221
      end
      object Calendar: TCalendar
        Left = 5
        Top = 56
        Width = 284
        Height = 113
        Color = clCream
        StartOfWeek = 0
        TabOrder = 1
        OnKeyDown = CalendarKeyDown
      end
      object cmboBoxMonth: TComboBox
        Left = 198
        Top = 24
        Width = 65
        Height = 20
        ItemHeight = 12
        TabOrder = 2
        OnChange = cmboBoxMonthChange
        Items.Strings = (
          '01'
          '02'
          '03'
          '04'
          '05'
          '06'
          '07'
          '08'
          '09'
          '10'
          '11'
          '12')
      end
      object udYear: TUpDown
        Left = 127
        Top = 24
        Width = 17
        Height = 20
        Associate = edtYear
        Min = 0
        Max = 2050
        Position = 2002
        TabOrder = 3
        Thousands = False
        Wrap = False
      end
      object edtYear: TEdit
        Left = 62
        Top = 24
        Width = 65
        Height = 20
        TabOrder = 0
        Text = '2002'
        OnChange = edtYearChange
        OnKeyPress = edtYearKeyPress
      end
    end
  end
end