formdorset.dfm

pasa人力资源考勤管理系统

        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlue
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'monthy'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clBlack
            Title.Font.Height = -13
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'workno'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clBlack
            Title.Font.Height = -13
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clBlack
            Title.Font.Height = -13
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clBlack
            Title.Font.Height = -13
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clBlack
            Title.Font.Height = -13
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'monthycount'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clBlack
            Title.Font.Height = -13
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Visible = True
          end>
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 171
        Width = 784
        Height = 253
        Align = alClient
        DataSource = DDormonthy1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'rq'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'daytimes'
            Visible = True
          end>
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 32
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 2
        object Label21: TLabel
          Left = 8
          Top = 8
          Width = 24
          Height = 13
          Caption = '月份'
        end
        object Label22: TLabel
          Left = 120
          Top = 8
          Width = 111
          Height = 13
          Caption = '工号/卡号/姓名/部门'
        end
        object Label29: TLabel
          Left = 368
          Top = 8
          Width = 48
          Height = 13
          Caption = '部门名称'
        end
        object MaskEdit3: TMaskEdit
          Left = 40
          Top = 4
          Width = 65
          Height = 21
          EditMask = '9999/99;1;_'
          MaxLength = 7
          TabOrder = 0
          Text = '    /  '
        end
        object Edit2: TEdit
          Left = 248
          Top = 5
          Width = 97
          Height = 21
          TabOrder = 1
        end
        object ComboBox5: TComboBox
          Left = 424
          Top = 4
          Width = 95
          Height = 21
          ItemHeight = 13
          TabOrder = 2
        end
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 40
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 72
    Caption = 'ToolBar1'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '新细明体'
    Font.Style = []
    Images = formmain.ImageList1
    ParentFont = False
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = '资料库维护'
      ImageIndex = 54
      OnClick = ToolButton1Click
    end
    object ToolButton5: TToolButton
      Left = 72
      Top = 2
      AutoSize = True
      Caption = '刷新'
      Enabled = False
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
    object ToolButton2: TToolButton
      Left = 109
      Top = 2
      AutoSize = True
      Caption = '浏览'
      Enabled = False
      ImageIndex = 128
      OnClick = ToolButton2Click
    end
    object tbnfind: TToolButton
      Left = 146
      Top = 2
      Hint = '根据条件查询您要的记录'
      AutoSize = True
      Caption = '查找'
      Enabled = False
      ImageIndex = 20
      ParentShowHint = False
      ShowHint = True
      OnClick = tbnfindClick
    end
    object ToolButton6: TToolButton
      Left = 183
      Top = 2
      AllowAllUp = True
      AutoSize = True
      Caption = '统计'
      Enabled = False
      ImageIndex = 7
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton6Click
    end
    object tbnprint: TToolButton
      Left = 220
      Top = 2
      Hint = '打印'
      AutoSize = True
      Caption = '打印'
      Enabled = False
      ImageIndex = 24
      ParentShowHint = False
      ShowHint = True
      OnClick = tbnprintClick
    end
    object DBNavigator1: TDBNavigator
      Left = 257
      Top = 2
      Width = 204
      Height = 36
      DataSource = DDorInit
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Hints.Strings = (
        '首项'
        '上项'
        '下项'
        '未项')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object ToolButton4: TToolButton
      Left = 461
      Top = 2
      Hint = '退出'
      AutoSize = True
      Caption = '退出'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton4Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 492
    Width = 792
    Height = 27
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 2
    object Msg: TLabel
      Left = 7
      Top = 6
      Width = 393
      Height = 16
      AutoSize = False
      Caption = '就绪'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object Panel10: TPanel
    Left = 168
    Top = 128
    Width = 314
    Height = 167
    BevelInner = bvSpace
    BevelOuter = bvLowered
    BevelWidth = 3
    Color = clAqua
    TabOrder = 3
    Visible = False
    object Label39: TLabel
      Left = 8
      Top = 83
      Width = 48
      Height = 13
      Caption = '开始日期'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label40: TLabel
      Left = 168
      Top = 83
      Width = 48
      Height = 13
      Caption = '结束日期'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label41: TLabel
      Left = 12
      Top = 66
      Width = 99
      Height = 13
      Caption = '正在处理资料.........'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Animate2: TAnimate
      Left = 11
      Top = 4
      Width = 272
      Height = 60
      Active = False
      CommonAVI = aviCopyFiles
      StopFrame = 34
    end
    object DateTimePicker5: TDateTimePicker
      Left = 28
      Top = 99
      Width = 97
      Height = 21
      CalAlignment = dtaLeft
      Date = 37918.4164116088
      Time = 37918.4164116088
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 286
      Top = 6
      Width = 21
      Height = 21
      Caption = 'X'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      TabStop = False
      OnClick = BitBtn1Click
    end
    object DateTimePicker6: TDateTimePicker
      Left = 188
      Top = 99
      Width = 97
      Height = 21