ualarm.dfm

Delphi写的小型桌面日历不错的！

object FAlarm: TFAlarm
  Left = 363
  Top = 154
  Width = 400
  Height = 327
  Caption = 'FAlarm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 32
    Width = 26
    Height = 13
    Caption = 'From:'
  end
  object Label2: TLabel
    Left = 32
    Top = 64
    Width = 16
    Height = 13
    Caption = 'To:'
  end
  object Label3: TLabel
    Left = 32
    Top = 96
    Width = 23
    Height = 13
    Caption = 'Title:'
  end
  object Label4: TLabel
    Left = 32
    Top = 128
    Width = 26
    Height = 13
    Caption = 'Who:'
  end
  object Label5: TLabel
    Left = 32
    Top = 160
    Width = 40
    Height = 13
    Caption = 'Content:'
  end
  object startTime: TDateTimePicker
    Left = 88
    Top = 32
    Width = 186
    Height = 21
    Date = 38063.590069212970000000
    Time = 38063.590069212970000000
    TabOrder = 0
  end
  object EndTime: TDateTimePicker
    Left = 88
    Top = 64
    Width = 186
    Height = 21
    Date = 38063.590168541670000000
    Time = 38063.590168541670000000
    TabOrder = 1
  end
  object edt_Title: TEdit
    Left = 88
    Top = 96
    Width = 185
    Height = 21
    TabOrder = 2
  end
  object edt_who: TEdit
    Left = 88
    Top = 128
    Width = 185
    Height = 21
    TabOrder = 3
  end
  object content: TMemo
    Left = 88
    Top = 152
    Width = 185
    Height = 129
    TabOrder = 4
  end
  object BitBtn1: TBitBtn
    Left = 304
    Top = 56
    Width = 75
    Height = 25
    TabOrder = 5
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 304
    Top = 88
    Width = 75
    Height = 25
    TabOrder = 6
    Kind = bkRetry
  end
  object BitBtn3: TBitBtn
    Left = 304
    Top = 120
    Width = 75
    Height = 25
    TabOrder = 7
    Kind = bkClose
  end
  object ADOConn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cal.mdb;Persist Sec' +
      'urity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 304
    Top = 8
  end
  object tb_client: TADOTable
    Connection = ADOConn
    TableName = 'tbl_alarm'
    Left = 336
    Top = 8
  end
end