main.~dfm

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

      end
      object sbFile: TButton
        Left = 488
        Top = 272
        Width = 23
        Height = 22
        Caption = '...'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = sbFileClick
      end
      object btTime: TGroupBox
        Left = 16
        Top = 16
        Width = 497
        Height = 73
        Caption = '   '#21551#29992#23450#26102#25509#25910
        TabOrder = 0
        object Label6: TLabel
          Left = 16
          Top = 24
          Width = 30
          Height = 12
          Caption = #26102#38388'1'
        end
        object Label7: TLabel
          Left = 80
          Top = 24
          Width = 30
          Height = 12
          Caption = #26102#38388'2'
        end
        object Label21: TLabel
          Left = 144
          Top = 24
          Width = 30
          Height = 12
          Caption = #26102#38388'3'
        end
        object Label22: TLabel
          Left = 208
          Top = 24
          Width = 30
          Height = 12
          Caption = #26102#38388'4'
        end
        object Label27: TLabel
          Left = 272
          Top = 24
          Width = 30
          Height = 12
          Caption = #26102#38388'5'
        end
        object meTime1: TMaskEdit
          Left = 16
          Top = 40
          Width = 57
          Height = 20
          EditMask = '!99:99;0; '
          MaxLength = 5
          TabOrder = 0
          OnExit = meTime1Exit
        end
        object meTime2: TMaskEdit
          Left = 80
          Top = 40
          Width = 57
          Height = 20
          EditMask = '!99:99;0; '
          MaxLength = 5
          TabOrder = 1
          OnExit = meTime1Exit
        end
        object meTime3: TMaskEdit
          Left = 144
          Top = 40
          Width = 57
          Height = 20
          EditMask = '!99:99;0; '
          MaxLength = 5
          TabOrder = 2
          OnExit = meTime1Exit
        end
        object meTime4: TMaskEdit
          Left = 208
          Top = 40
          Width = 57
          Height = 20
          EditMask = '!99:99;0; '
          MaxLength = 5
          TabOrder = 3
          OnExit = meTime1Exit
        end
        object meTime5: TMaskEdit
          Left = 272
          Top = 40
          Width = 57
          Height = 20
          EditMask = '!99:99;0; '
          MaxLength = 5
          TabOrder = 4
          OnExit = meTime1Exit
        end
        object cbSynTime: TCheckBox
          Left = 336
          Top = 40
          Width = 145
          Height = 17
          Caption = #23450#26102#26356#26032#26102#38388
          TabOrder = 5
        end
      end
      object edFileName: TEdit
        Left = 16
        Top = 272
        Width = 473
        Height = 20
        TabOrder = 1
      end
      object edFMTStr: TComboBox
        Left = 16
        Top = 328
        Width = 497
        Height = 20
        ItemHeight = 12
        TabOrder = 2
        Text = 
          '[devid][year][month][day][hour][min][sec][mark][card][times][bal' +
          'ance][consume]'
        Items.Strings = (
          
            '[card]\t[year][month][day][hour][min][sec]\t[devid]\t[mark]\t[fl' +
            'ag]\t[door]\t[times]\t[balance]\t[consume]'
          
            '[devid][year][month][day][hour][min][sec][mark][card][times][bal' +
            'ance][consume]'
          
            '[empid]\t[card]\t[year]-[month]-[day] [hour]:[min]:[sec]\t[mark]' +
            '\t[flag]'
          
            '[card]\t[year][month][day][hour][min][sec]\t[devid]\t[mark]\t[fl' +
            'ag]\t[door]\t[times]\t[balance]\t[consume]\t[Clock_ver]\t[Clock_' +
            'id]\t[POS_Sequ]\t[Card_Sequ]\t[Op_CardNo]'
          '')
      end
      object cbUseFMT: TCheckBox
        Left = 16
        Top = 310
        Width = 257
        Height = 17
        Caption = #36755#20986#25968#25454#20351#29992#26684#24335#23383#31526#20018
        TabOrder = 3
        OnClick = cbUseFMTClick
      end
      object rgOnError: TRadioGroup
        Left = 16
        Top = 99
        Width = 497
        Height = 65
        Caption = #35835#25968#25454#20986#38169#22788#29702
        Columns = 3
        ItemIndex = 2
        Items.Strings = (
          #24573#30053
          #22987#32456#37325#35797
          #37325#35797'3'#27425#21518#24573#30053)
        TabOrder = 5
      end
      object rbSave: TRadioGroup
        Left = 16
        Top = 171
        Width = 497
        Height = 65
        Caption = #20445#23384#26041#27861
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          #27599#22825#29983#25104#19968#20010#26032#25991#20214
          #27599#27425#25805#20316#29983#25104#19968#20010#26032#25991#20214
          #27599#21488#35774#22791#29983#25104#19968#20010#25991#20214)
        TabOrder = 6
      end
      object cbAutoClearClock: TCheckBox
        Left = 352
        Top = 248
        Width = 161
        Height = 17
        Caption = #35835#25968#25454#23436#25104#33258#21160#28165#38500#35774#22791
        Checked = True
        State = cbChecked
        TabOrder = 7
      end
      object cbTimeReceive: TCheckBox
        Left = 24
        Top = 13
        Width = 18
        Height = 17
        TabOrder = 8
        OnClick = cbTimeReceiveClick
      end
    end
    object tsAbout: TTabSheet
      Caption = #20851#20110
      ImageIndex = 8
      object lbBuild: TLabel
        Left = 448
        Top = 352
        Width = 60
        Height = 12
        Caption = '2005.05.01'
      end
      object lbVersion: TLabel
        Left = 32
        Top = 32
        Width = 5
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 431
    Width = 549
    Height = 43
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 8
      Width = 48
      Height = 12
      Caption = #28040#24687#26639#65306
    end
    object msg: TLabel
      Left = 72
      Top = 8
      Width = 401
      Height = 33
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object edInspector: TStaticText
      Left = 496
      Top = 10
      Width = 33
      Height = 17
      Alignment = taCenter
      AutoSize = False
      BorderStyle = sbsSunken
      Caption = #33073#26426
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ShowAccelChar = False
      TabOrder = 0
      OnDblClick = edInspectorDblClick
    end
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 236
    Top = 423
  end
  object OpenDlg: TOpenDialog
    DefaultExt = '.lst;.txt'
    Filter = 
      #21345#21495#21015#34920#25991#20214' (*.lst,*.txt)|*.lst;*.txt|'#21015#34920#25991#20214' (*.lst)|*.lst|'#25991#26412#25991#20214' (*.txt)' +
      '|*.txt|'#25152#26377#25991#20214' (*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 188
    Top = 439
  end
  object TrayPopMenu: TPopupMenu
    Left = 144
    Top = 431
    object popShowForm: TMenuItem
      Caption = #26174#31034#20027#31383#21475
      OnClick = popShowFormClick
    end
    object popExit: TMenuItem
      Caption = #36864#20986#25509#21475#31243#24207
      OnClick = popExitClick
    end
  end
  object pmClocks: TPopupMenu
    Left = 84
    Top = 431
    object miSelectAll: TMenuItem
      Caption = #20840#36873
      OnClick = miSelectAllClick
    end
    object miInvertSelect: TMenuItem
      Caption = #21453#21521#36873#25321
      OnClick = miInvertSelectClick
    end
    object miCancelAllSelect: TMenuItem
      Caption = #21462#28040#20840#36873
      OnClick = miCancelAllSelectClick
    end
  end
  object ilImages: TImageList
    Left = 48
    Top = 431
    Bitmap = {
      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000007C007C
      007C007C007C0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007CF75EFF7F
      FF7FFF7FF75E007C007C00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000007C007CFF7FFF7FFF7F
      1F00FF7FFF7FFF7F007C007C0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000007CFF7FFF7FFF7FFF7F
      FF7FFF7FFF7F1F00FF7F007C0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007CF75EFF7FFF7F0000FF7F
      FF7FFF7FFF7FFF7FFF7FF75E007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007CFF7FFF7FFF7FFF7F0000
      FF7FFF7FFF7FFF7FFF7FFF7F007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007CFF7F1F00FF7FFF7FFF7F
      007C0000000000000000FF7F007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007CFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007CF75EFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FF75E007C000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000007CFF7F1F00FF7FFF7F
      FF7FFF7FFF7F1F00FF7F007C0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000007C007CFF7FFF7FFF7F
      1F00FF7FFF7FFF7F007C007C0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000007C007CF75EFF7F
      1F00FF7FF75E007C007C00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000007C007C
      007C007C007C0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFF000000000000F83F000000000000
      E00F000000000000C00700000000000080030000000000008003000000000000
      0001000000000000000100000000000000010000000000000001000000000000
      000100000000000080030000000000008003000000000000C007000000000000
      E00F000000000000F83F00000000000000000000000000000000000000000000
      000000000000}
  end
  object XPManifest1: TXPManifest
    Left = 280
    Top = 423
  end
  object SaveDlg: TSaveDialog
    DefaultExt = '.txt'
    Filter = 
      #21345#21495#21015#34920#25991#20214' (*.lst,*.txt)|*.lst;*.txt|'#21015#34920#25991#20214' (*.lst)|*.lst|'#25991#26412#25991#20214' (*.txt)' +
      '|*.txt|'#25152#26377#25991#20214' (*.*)|*.*'
    FilterIndex = 3
    Left = 328
    Top = 422
  end
  object pmLists: TPopupMenu
    Left = 376
    Top = 413
    object miSetSelectLists: TMenuItem
      Caption = #19979#36733#36873#20013#21345#21495
      OnClick = miSetSelectListsClick
    end
    object miSetAllLists: TMenuItem
      Caption = #19979#36733#25152#26377#21345#21495
      OnClick = miSetAllListsClick
    end
    object miDownloadFromSel: TMenuItem
      Caption = #20174#36873#23450#20301#32622#24320#22987#19979#36733
      OnClick = miDownloadFromSelClick
    end
  end
end