unit2.~dfm

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

object Form2: TForm2
  Left = 207
  Top = 215
  Width = 696
  Height = 480
  Caption = #29992#25143#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 20
    Width = 629
    Height = 93
    Caption = #29992#25143#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 36
      Width = 44
      Height = 13
      Caption = 'ip'#22320#22336#65306
    end
    object Label2: TLabel
      Left = 248
      Top = 40
      Width = 48
      Height = 13
      Caption = #29992#25143#22995#21517
    end
    object Editip: TEdit
      Left = 96
      Top = 36
      Width = 89
      Height = 21
      TabOrder = 0
    end
    object Editname: TEdit
      Left = 308
      Top = 36
      Width = 133
      Height = 21
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 28
    Top = 116
    Width = 625
    Height = 57
    Caption = #25805#20316
    TabOrder = 1
    object BitBtnadd: TBitBtn
      Left = 28
      Top = 16
      Width = 81
      Height = 29
      Caption = #26032#22686
      TabOrder = 0
      OnClick = BitBtnaddClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
        44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
        00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
        33833F333383F33300003333AA463362A433333333383F333833F33300003333
        6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
        33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
        6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
        000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
        333383333333F3330000333333322AAA4333333333333833333F333300003333
        333322A4333333333333338333F333330000333333344A433333333333333338
        3F333333000033333336A24333333333333333833F333333000033333336AA43
        33333333333333833F3333330000333333336663333333333333333888333333
        0000}
      NumGlyphs = 2
    end
    object BitBtndel: TBitBtn
      Left = 120
      Top = 16
      Width = 77
      Height = 29
      Caption = #21024#38500
      TabOrder = 1
      OnClick = BitBtndelClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtnsave: TBitBtn
      Left = 216
      Top = 16
      Width = 81
      Height = 29
      Caption = #20445#23384
      TabOrder = 2
      OnClick = BitBtnsaveClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtnexit: TBitBtn
      Left = 312
      Top = 16
      Width = 85
      Height = 29
      Caption = #36864#20986
      TabOrder = 3
      OnClick = BitBtnexitClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 28
    Top = 176
    Width = 629
    Height = 241
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ip'
        Title.Caption = 'ID'
        Width = 200
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Username'
        Title.Caption = #29992#25143#22995#21517
        Width = 200
        Visible = True
      end>
  end
  object DBEdit1: TDBEdit
    Left = 512
    Top = 256
    Width = 97
    Height = 21
    DataField = 'id'
    DataSource = DataSource1
    TabOrder = 3
    Visible = False
    OnChange = DBEdit1Change
  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 = 544
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 584
    Top = 28
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 600
    Top = 64
  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 usermessage')
    Left = 560
    Top = 64
  end
end