formdorset.dfm

pasa人力资源考勤管理系统

object formdoorset: Tformdoorset
  Left = 85
  Top = 186
  Width = 800
  Height = 546
  Caption = '门禁设置'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 40
    Width = 792
    Height = 452
    ActivePage = TabSheet3
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '联机操作'
      object Label18: TLabel
        Left = 8
        Top = 296
        Width = 3
        Height = 13
      end
      object Label23: TLabel
        Left = 8
        Top = 268
        Width = 396
        Height = 42
        AutoSize = False
        Caption = 
          '建议显示屏在800 X 600 下运行 ,如有问题或好的建议请尽快联系我们！' +
          '！邮件：'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label28: TLabel
        Left = 160
        Top = 284
        Width = 146
        Height = 16
        Cursor = crHandPoint
        Caption = '[e-mail]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        OnClick = Label28Click
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 16
        Width = 489
        Height = 241
        Caption = '端口设置'
        TabOrder = 0
        object Label2: TLabel
          Left = 24
          Top = 24
          Width = 24
          Height = 13
          Caption = '机号'
        end
        object Label3: TLabel
          Left = 24
          Top = 60
          Width = 24
          Height = 13
          Caption = '端口'
        end
        object Label16: TLabel
          Left = 24
          Top = 104
          Width = 27
          Height = 13
          Caption = '速率:'
        end
        object edClockID: TEdit
          Left = 64
          Top = 21
          Width = 121
          Height = 21
          TabOrder = 0
          Text = '01'
        end
        object cbRate: TComboBox
          Left = 64
          Top = 100
          Width = 125
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Text = '9600'
          Items.Strings = (
            '9600'
            '19200'
            '38400'
            '57600')
        end
        object cbPort: TComboBox
          Left = 64
          Top = 57
          Width = 125
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Text = 'COM1'
        end
        object Button1: TButton
          Left = 360
          Top = 56
          Width = 75
          Height = 25
          Caption = '联机'
          TabOrder = 3
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 360
          Top = 104
          Width = 75
          Height = 25
          Caption = '脱机'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = Button2Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '实时采集'
      ImageIndex = 1
      object Bevel1: TBevel
        Left = 397
        Top = 0
        Width = 226
        Height = 424
        Align = alClient
        Style = bsRaised
      end
      object Panel1: TPanel
        Left = 391
        Top = 0
        Width = 393
        Height = 424
        Align = alRight
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Shape2: TShape
          Left = 149
          Top = 9
          Width = 239
          Height = 223
        end
        object Label10: TLabel
          Left = 8
          Top = 16
          Width = 24
          Height = 13
          Caption = '工号'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 8
          Top = 49
          Width = 24
          Height = 13
          Caption = '卡号'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 8
          Top = 83
          Width = 24
          Height = 13
          Caption = '姓名'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 8
          Top = 116
          Width = 24
          Height = 13
          Caption = '部门'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 8
          Top = 149
          Width = 24
          Height = 13
          Caption = '时间'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 8
          Top = 183
          Width = 24
          Height = 13
          Caption = '机号'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Image2: TImage
          Left = 148
          Top = 8
          Width = 242
          Height = 225
          Stretch = True
        end
        object DBText1: TDBText
          Left = 34
          Top = 16
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'workno'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object DBText2: TDBText
          Left = 34
          Top = 49
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'cardno'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object DBText4: TDBText
          Left = 34
          Top = 183
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'noid'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object DBText5: TDBText
          Left = 34
          Top = 83
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'name'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object DBText6: TDBText
          Left = 34
          Top = 116
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'dept'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object DBText7: TDBText
          Left = 34
          Top = 149
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'times'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object DBText14: TDBText
          Left = 34
          Top = 216
          Width = 112
          Height = 16
          Color = clHighlightText
          DataField = 'reReader'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
        end
        object Label15: TLabel
          Left = 8
          Top = 216
          Width = 24
          Height = 13
          Caption = '读头'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []