u_childloaddata.dfm

中控800型号考勤机的自动采集数据程序。能够手动采集

object frm_ChildLoadData: Tfrm_ChildLoadData
  Left = 171
  Top = 138
  Align = alClient
  BorderStyle = bsNone
  Caption = 'frm_ChildLoadData'
  ClientHeight = 421
  ClientWidth = 705
  Color = 15520176
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 279
    Width = 705
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object tbChild: TToolBar
    Left = 0
    Top = 0
    Width = 705
    Height = 30
    Cursor = crHandPoint
    AutoSize = True
    BorderWidth = 1
    ButtonWidth = 75
    Caption = 'tbChild'
    DisabledImages = ToolbarImages3
    DragCursor = crHandPoint
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = ToolbarImages1
    List = True
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object btnSetPort: TToolButton
      Left = 0
      Top = 0
      Caption = #31471#21475
      ImageIndex = 6
      Visible = False
    end
    object ToolButton1: TToolButton
      Left = 75
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 5
      Style = tbsDivider
    end
    object btnColl: TToolButton
      Left = 83
      Top = 0
      Hint = #24320#22987#37319#38598
      AutoSize = True
      Caption = #24320#22987#37319#38598
      ImageIndex = 2
      OnClick = btnCollClick
    end
    object btnGrant: TToolButton
      Left = 162
      Top = 0
      AutoSize = True
      Caption = #35774#22791#25480#26435
      ImageIndex = 2
      Visible = False
    end
    object ToolButton2: TToolButton
      Left = 241
      Top = 0
      Width = 14
      ImageIndex = 6
      Style = tbsDivider
    end
    object btnStop: TToolButton
      Left = 255
      Top = 0
      Hint = #20572#27490#37319#38598
      AutoSize = True
      Caption = #20572#27490
      Enabled = False
      ImageIndex = 3
    end
    object btnClose: TToolButton
      Left = 310
      Top = 0
      Hint = #36864#20986#31995#32479
      AutoSize = True
      Caption = #36864#20986
      ImageIndex = 4
      Visible = False
    end
  end
  object CZKEM1: TCZKEM
    Left = 72
    Top = 136
    Width = 81
    Height = 41
    TabOrder = 1
    Visible = False
    ControlData = {100700005F0800003D040000}
  end
  object TabControl: TTabControl
    Left = 0
    Top = 30
    Width = 705
    Height = 249
    Align = alTop
    TabOrder = 2
    Tabs.Strings = (
      #37319#38598#29366#24577)
    TabIndex = 0
    object DevLV: TListView
      Left = 4
      Top = 24
      Width = 697
      Height = 221
      Align = alClient
      Columns = <
        item
          Caption = #35774#22791'ID'
          Width = 160
        end
        item
          Caption = #35774#22791#22411#21495
          Width = 60
        end
        item
          Caption = #35774#22791#29256#26412
          Width = 100
        end
        item
          Caption = #32852#32593#29366#24577
          Width = 90
        end
        item
          Caption = #35760#24405#25968
          Width = 100
        end
        item
          Caption = #24403#21069#35760#24405#25968
          Width = 100
        end
        item
          Caption = #37319#38598#29366#24577
          Width = 120
        end>
      ColumnClick = False
      GridLines = True
      HideSelection = False
      ReadOnly = True
      SmallImages = DevTreeImage
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 399
    Width = 705
    Height = 22
    Panels = <
      item
        Alignment = taCenter
        Text = #21551#21160#26102#38388
        Width = 70
      end
      item
        Width = 140
      end
      item
        Text = #32771#21220#25968#25454#33258#21160#37319#38598#31995#32479
        Width = 200
      end
      item
        Alignment = taCenter
        Text = #26085#26399
        Width = 50
      end
      item
        Width = 80
      end
      item
        Alignment = taCenter
        Text = #26102#38388
        Width = 50
      end
      item
        Width = 80
      end
      item
        Alignment = taCenter
        Width = 50
      end>
    ParentColor = True
  end
  object TabControl1: TTabControl
    Left = 0
    Top = 282
    Width = 705
    Height = 117
    Align = alClient
    HotTrack = True
    Images = MsgImageList
    TabOrder = 4
    TabPosition = tpBottom
    Tabs.Strings = (
      #25152#26377#20449#24687
      #24322#24120#20449#24687
      #25253#35686#20107#20214
      #25171#21345#35760#24405)
    TabIndex = 0
    object PunchList: TListView
      Left = 4
      Top = 4
      Width = 697
      Height = 90
      Align = alClient