senguoqiunit.dfm

这是一个有DELPHI编写的自动作息时间打铃控制程序,具有灵活的权限分配,能灵活编写作时间,并有手动打铃功能,能自已加入铃声.你自己看吧

object senguoqi: Tsenguoqi
  Left = 337
  Top = 175
  BorderStyle = bsDialog
  Caption = #21319#22269#26071
  ClientHeight = 129
  ClientWidth = 306
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 3
    Height = 13
  end
  object BitBtn1: TBitBtn
    Left = 16
    Top = 88
    Width = 75
    Height = 25
    Caption = #20202#24335#24320#22987
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 112
    Top = 88
    Width = 75
    Height = 25
    Caption = #21809#22269#27468
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 208
    Top = 88
    Width = 75
    Height = 25
    Caption = #20202#24335#32467#26463
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object memo1: TMemo
    Left = 16
    Top = 8
    Width = 281
    Height = 65
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    Lines.Strings = (
      #21319#26071#20202#24335#24320#22987','#20840#20307#32899#31435','#26071#25163
      #23601#20301'.'#35831#20840#20307#32769#24072#21516#23398#34892#27880#30446
      #31036'.'#21319#26071','#20945#22269#27468)
    ParentFont = False
    TabOrder = 3
  end
end