unit1.~dfm

此程序是本人按老板要求开发的自动打铃软件

object Form1: TForm1
  Left = 478
  Top = 131
  Width = 472
  Height = 467
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25171#38083#31995#32479
  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 Label3: TLabel
    Left = 29
    Top = 29
    Width = 112
    Height = 16
    Caption = #24403#21069#25171#38083#26102#38388#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 222
    Top = 31
    Width = 56
    Height = 16
    Caption = #26143' '#26399#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 305
    Top = 32
    Width = 80
    Height = 16
    Caption = #25171#38083#26102#38271#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 420
    Top = 34
    Width = 16
    Height = 16
    Caption = #31186
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 2
    Top = 408
    Width = 144
    Height = 16
    Caption = #28322#27888#29615#20445#65306#25171#38083#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 268
    Top = 28
    Width = 11
    Height = 21
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -21
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 457
    Top = 58
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 0
    Visible = False
  end
  object Edit2: TEdit
    Left = 457
    Top = 95
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 1
    Visible = False
  end
  object Edit3: TEdit
    Left = 457
    Top = 136
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 2
    Visible = False
  end
  object Edit4: TEdit
    Left = 457
    Top = 178
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 3
    Visible = False
  end
  object Edit5: TEdit
    Left = 457
    Top = 218
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 4
    Visible = False
  end
  object Edit6: TEdit
    Left = 457
    Top = 263
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 5
    Visible = False
  end
  object Edit7: TEdit
    Left = 457
    Top = 307
    Width = 35
    Height = 21
    Enabled = False
    TabOrder = 6
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 29
    Top = 67
    Width = 205
    Height = 329
    Caption = #35774#32622#25171#38083#26102#38388#26143#26399
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    object Label1: TLabel
      Left = 22
      Top = 35
      Width = 40
      Height = 16
      Caption = #26102' '#38388
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 29
      Top = 61
      Width = 21
      Height = 21
      Caption = #65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 61
      Top = 61
      Width = 21
      Height = 21
      Caption = #65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object BitBtn4: TBitBtn
      Left = 11
      Top = 289
      Width = 80
      Height = 25
      Caption = #21462#28040
      TabOrder = 0
      OnClick = BitBtn4Click
    end
    object BitBtn3: TBitBtn
      Left = 11
      Top = 241
      Width = 80
      Height = 25
      Caption = #21024#38500
      TabOrder = 1
      OnClick = BitBtn3Click
    end
    object BitBtn5: TBitBtn
      Left = 11
      Top = 100
      Width = 80
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = BitBtn5Click
    end
    object BitBtn2: TBitBtn
      Left = 11
      Top = 191
      Width = 80
      Height = 25
      Caption = #25552#20132
      TabOrder = 3
      OnClick = BitBtn2Click
    end
    object BitBtn1: TBitBtn
      Left = 11
      Top = 145
      Width = 80
      Height = 25
      Caption = #26032#22686
      TabOrder = 4
      OnClick = BitBtn1Click
    end
    object CheckBox1: TCheckBox
      Left = 113
      Top = 37
      Width = 80
      Height = 17
      Caption = #26143#26399#19968
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 113
      Top = 77
      Width = 80
      Height = 17
      Caption = #26143#26399#20108
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 113
      Top = 125
      Width = 80
      Height = 17
      Caption = #26143#26399#19977
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = CheckBox3Click
    end
    object CheckBox4: TCheckBox
      Left = 113
      Top = 165
      Width = 80
      Height = 17
      Caption = #26143#26399#22235
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = CheckBox4Click
    end
    object CheckBox5: TCheckBox
      Left = 113
      Top = 213
      Width = 80
      Height = 17
      Caption = #26143#26399#20116
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = CheckBox5Click
    end
    object CheckBox6: TCheckBox
      Left = 113
      Top = 253
      Width = 80
      Height = 17
      Caption = #26143#26399#20845
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnClick = CheckBox6Click
    end
    object CheckBox7: TCheckBox
      Left = 113
      Top = 297
      Width = 80
      Height = 17
      Caption = #26143#26399#26085
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = CheckBox7Click
    end
    object DBEdit1: TDBEdit
      Left = 11
      Top = 62
      Width = 21
      Height = 24
      DataField = #23567#26102
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 12
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit2: TDBEdit
      Left = 38
      Top = 62
      Width = 23
      Height = 24
      DataField = #20998#38047
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 13
      OnKeyPress = DBEdit2KeyPress
    end
    object DBEdit3: TDBEdit
      Left = 69
      Top = 62
      Width = 22
      Height = 24
      DataField = #31186#38047
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 14
      OnKeyPress = DBEdit3KeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 234
    Top = 67
    Width = 197
    Height = 329
    Caption = #25171#38083#26102#38388
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    object Label2: TLabel
      Left = 6
      Top = 23
      Width = 40
      Height = 19
      Caption = 'Time'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 54
      Width = 186
      Height = 271
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object Edit10: TEdit
    Left = 377
    Top = 29
    Width = 25
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
    Text = '20'
  end
  object UpDown1: TUpDown
    Left = 402
    Top = 29
    Width = 16
    Height = 24
    Associate = Edit10
    Min = 20
    Max = 90
    Position = 20
    TabOrder = 10
    OnChanging = UpDown1Changing
    OnMouseDown = UpDown1MouseDown
    OnMouseUp = UpDown1MouseUp
  end
  object Edit8: TEdit
    Left = 131
    Top = 28
    Width = 73
    Height = 24
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 417
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 432
    Top = 344
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=TimeSys.mdb;Persist Security Info=True'
    CursorType = ctStatic
    TableName = 'TimeSys'
    Left = 433
    Top = 280
    object ADOTable1DSDesigner: TWideStringField
      FieldName = #23567#26102
      Size = 2
    end
    object ADOTable1DSDesigner2: TWideStringField
      FieldName = #20998#38047
      Size = 2
    end
    object ADOTable1DSDesigner3: TWideStringField
      FieldName = #31186#38047
      Size = 2
    end
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 20000
    OnTimer = Timer3Timer
    Left = 425
    Top = 120
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=TimeSys' +
      '.mdb;Persist Security Info=True'
    Parameters = <>
    Left = 425
    Top = 232
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 432
    Top = 168
  end
  object Timer4: TTimer
    Interval = 100
    OnTimer = Timer4Timer
    Left = 280
    Top = 408
  end
end