unit1.~dfm

用ping 的方法实现日常的考勤工作

object Form1: TForm1
  Left = 190
  Top = 158
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 625
    Height = 69
    Caption = #25353#26085#26399#26597#35810
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 32
      Width = 48
      Height = 13
      Caption = #24320#22987#26085#26399
    end
    object Label2: TLabel
      Left = 236
      Top = 32
      Width = 48
      Height = 13
      Caption = #32467#26463#26085#26399
    end
    object starttime: TDateTimePicker
      Left = 76
      Top = 24
      Width = 125
      Height = 29
      CalAlignment = dtaLeft
      Date = 38604.4599611111
      Time = 38604.4599611111
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object endtime: TDateTimePicker
      Left = 316
      Top = 24
      Width = 117
      Height = 33
      CalAlignment = dtaLeft
      Date = 38604.4600079514
      Time = 38604.4600079514
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object BitBtndate: TBitBtn
      Left = 480
      Top = 24
      Width = 89
      Height = 29
      Caption = #26597#35810
      TabOrder = 2
      OnClick = BitBtndateClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 76
    Width = 645
    Height = 345
    DataSource = DataSource2
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ip'
        Title.Caption = 'ip'#22320#22336
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'username'
        Title.Caption = #22995#21517
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ddate'
        Title.Caption = #26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'timeon'
        Title.Caption = #19978#29677#26102#38388
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'timeout'
        Title.Caption = #19979#29677#26102#38388
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'islater'
        Title.Caption = #26159#21542#36831#21040
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'isearly'
        PickList.Strings = (
          #26159
          #21542)
        Title.Caption = #26159#21542#26089#36864
        Width = 55
        Visible = True
      end>
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 4
    Width = 625
    Height = 73
    Caption = #25353#22995#21517#26597#35810
    TabOrder = 2
    object Label3: TLabel
      Left = 12
      Top = 24
      Width = 24
      Height = 13
      Caption = #22995#21517
    end
    object edname: TEdit
      Left = 64
      Top = 24
      Width = 133
      Height = 21
      TabOrder = 0
      Text = 'edname'
    end
    object BitBtnname: TBitBtn
      Left = 284
      Top = 12
      Width = 93
      Height = 33
      Caption = #26597#35810
      TabOrder = 1
      OnClick = BitBtnnameClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 4
    Top = 4
    Width = 633
    Height = 73
    Caption = #25353#29366#24577#26597#35810
    TabOrder = 3
    object Label4: TLabel
      Left = 8
      Top = 32
      Width = 24
      Height = 13
      Caption = #26085#26399
    end
    object Label5: TLabel
      Left = 208
      Top = 28
      Width = 24
      Height = 13
      Caption = #36831#21040
    end
    object Label6: TLabel
      Left = 396
      Top = 24
      Width = 24
      Height = 13
      Caption = #26089#36864
    end
    object cmblater: TComboBox
      Left = 260
      Top = 24
      Width = 81
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        #26159
        #21542
        #32570#21220)
    end
    object cmbearly: TComboBox
      Left = 440
      Top = 20
      Width = 69
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        #26159
        #21542)
    end
    object BitBtn1: TBitBtn
      Left = 528
      Top = 20
      Width = 73
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object tpdate: TDateTimePicker
      Left = 52
      Top = 20
      Width = 137
      Height = 33
      CalAlignment = dtaLeft
      Date = 38604.4729105093
      Time = 38604.4729105093
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 3
    end
  end
  object Timer1: TTimer
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 584
  end
  object icmp: TIdIcmpClient
    OnReply = icmpReply
    Left = 552
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=duty;Data Source=ADMINIST-B4F935\SQLSER' +
      'VER2000'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from usermessage')
    Left = 484
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=duty;Data Source=ADMINIST-B4F935\SQLSER' +
      'VER2000'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dutymessage')
    Left = 620
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 520
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 636
    Top = 60
  end
  object MainMenu1: TMainMenu
    Left = 452
    object N10: TMenuItem
      Caption = #29992#25143#20449#24687#31649#29702
      OnClick = N10Click
    end
    object N1: TMenuItem
      Caption = #32771#21220#20449#24687#26597#35810
      object N4: TMenuItem
        Caption = #25353#26085#26399#26597#35810
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #25353#22995#21517#26597#35810
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #25353#29366#24577
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = #36864#20986#26597#35810
        OnClick = N7Click
      end
    end
    object N2: TMenuItem
      Caption = #21551#21160#32771#21220
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #20851#38381
      object N8: TMenuItem
        Caption = #20851#38381#32771#21220
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #20851#38381#31995#32479
        OnClick = N9Click
      end
    end
  end
end