ts.dfm

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

object tsForm: TtsForm
  Left = 235
  Top = 191
  BorderStyle = bsSingle
  Caption = #29305#27530#21151#33021#26102#38388#34920#32534#36753
  ClientHeight = 302
  ClientWidth = 520
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 505
    Height = 289
    Caption = 'Panel1'
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Top = 72
      Width = 481
      Height = 209
      Caption = #20020#26102#26102#38388#34920#32534#36753
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 8
        Top = 24
        Width = 465
        Height = 137
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object DBNavigator1: TDBNavigator
        Left = 8
        Top = 168
        Width = 460
        Height = 33
        DataSource = DataSource1
        Hints.Strings = (
          #27983#35272#26368#21069#19968#20010#21709#38083#26102#21051
          #27983#35272#21069#38754#19968#20010#21709#38083#26102#21051
          #27983#35272#21518#38754#19968#20010#21709#38083#26102#21051
          #27983#35272#26368#21518#19968#20010#21709#38083#26102#21051
          #25554#20837#19968#20010#21709#38083#26102#21051
          #21024#38500#19968#20010#21709#38083#26102#21051
          #35201#20462#25913#24403#21069#21709#38083#26102#21051#21450#38083#22768#35831#20808#25353#27492#32534#36753#38062
          #35201#30475#20462#25913#21518#30340#32467#26524#35831#25353#27492#25552#20132#38062
          #22914#26524#23545#21018#25165#30340#20462#25913#21518#24724#20102#35831#25353#27492#21462#28040#38062
          #22914#26524#21018#25165#30340#20462#25913#31526#21512#20320#30340#35201#27714#35831#25353#27492#21047#26032#38062
          '')
        TabOrder = 1
        TabStop = True
      end
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 8
      Width = 193
      Height = 57
      Caption = #36873#25321#38083#22768
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object ComboBox1: TComboBox
        Left = 25
        Top = 20
        Width = 145
        Height = 24
        ItemHeight = 16
        TabOrder = 0
        OnChange = ComboBox1Change
        OnClick = ComboBox1Click
        Items.Strings = (
          #19978#35838#38083#22768'.mp3'
          #19979#35838#38083#22768'.mp3')
      end
    end
    object Panel2: TPanel
      Left = 209
      Top = 17
      Width = 280
      Height = 48
      BevelInner = bvLowered
      Caption = 'Panel2'
      TabOrder = 2
      object BitBtn1: TBitBtn
        Left = 15
        Top = 10
        Width = 73
        Height = 30
        Caption = #24320#22987#25191#34892
        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 = 103
        Top = 10
        Width = 73
        Height = 30
        Caption = #20572#27490#25191#34892
        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 = 191
        Top = 10
        Width = 73
        Height = 30
        Caption = #21462'    '#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn3Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 152
    Top = 120
  end
  object Table1: TTable
    Left = 224
    Top = 120
  end
end