analysefrm.dfm

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

object AnalyseForm: TAnalyseForm
  Left = 83
  Top = 119
  Width = 1023
  Height = 739
  Caption = 'AnalyseForm'
  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 BitBtn1: TBitBtn
    Left = 736
    Top = 676
    Width = 75
    Height = 25
    Caption = #29983#25104#25968#25454
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 832
    Top = 676
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object PageControl1: TPageControl
    Left = 2
    Top = 7
    Width = 1012
    Height = 661
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #32771#21220#25968#25454#20998#26512
      OnShow = TabSheet1Show
      object DBChart1: TDBChart
        Left = 0
        Top = -1
        Width = 1001
        Height = 553
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -14
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Title.Text.Strings = (
          #32771#21220#25968#25454#20998#26512#34920)
        MaxPointsPerPage = 10
        TabOrder = 0
        object SpeedButton1: TSpeedButton
          Left = 907
          Top = 528
          Width = 38
          Height = 22
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
            00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
            70E337F33333373337F3E0F33333033370E337F33333773337F3E0F333300333
            70E337F33337773337F3E0F33300033370E337F33377773337F3E0F330000333
            70E337F33FF7773337F3E0F33300033370E337F333FF773337F3E0F333300333
            70E337F3333FF73337F3E0F33333033370E337F33333F33337F3E0F333333333
            70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
            00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton25Click
        end
        object SpeedButton2: TSpeedButton
          Left = 946
          Top = 528
          Width = 38
          Height = 22
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
            00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
            70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
            70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
            70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
            70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
            70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
            00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
          NumGlyphs = 2
        end
        object Series1: TBarSeries
          Marks.ArrowLength = 20
          Marks.Visible = True
          DataSource = DM.TBWorker_L
          SeriesColor = clRed
          Title = 'S_Kaoqin'
          XLabelsSource = 'M_Name'
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'M_LateNum'
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 559
        Width = 1001
        Height = 62
        TabOrder = 1
        object GroupBox1: TGroupBox
          Left = 16
          Top = 6
          Width = 985
          Height = 51
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object Label1: TLabel
            Left = 24
            Top = 23
            Width = 16
            Height = 16
            Caption = #20174
          end
          object Label2: TLabel
            Left = 232
            Top = 23
            Width = 16
            Height = 16
            Caption = #21040
          end
          object Label4: TLabel
            Left = 456
            Top = 23
            Width = 64
            Height = 16
            Caption = #26597#35810#26465#20214
            OnClick = Label4Click
          end
          object DateTimePicker1: TDateTimePicker
            Left = 51
            Top = 19
            Width = 152
            Height = 24
            CalAlignment = dtaLeft
            Date = 38274.6600837268
            Time = 38274.6600837268
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object DateTimePicker2: TDateTimePicker
            Left = 259
            Top = 19
            Width = 152
            Height = 24
            CalAlignment = dtaLeft
            Date = 38274.6601354514
            Time = 38274.6601354514
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 1
          end
          object ComboBox2: TComboBox
            Left = 536
            Top = 19
            Width = 145
            Height = 24
            ItemHeight = 16
            TabOrder = 2
            Text = 'ComboBox2'
            Items.Strings = (
              #27491#28857
              #36831#21040
              #32570#21220
              #32602#37329#24635#39069)
          end
        end
      end
    end
  end
end