personel.dfm

这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限

            #22899)
        end
        object cbDept: TdxLookupEdit
          Left = 515
          Top = 19
          Width = 73
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 3
          ListFieldName = 'DeptName'
          KeyFieldName = 'DeptId'
          ListSource = dsDept
          LookupKeyValue = ''
        end
        object cbWorkType: TdxLookupEdit
          Left = 53
          Top = 56
          Width = 75
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 4
          ListFieldName = 'WorkName'
          KeyFieldName = 'WorkID'
          ListSource = dsWorktype
          LookupKeyValue = ''
        end
        object dtInDate: TDateTimePicker
          Left = 212
          Top = 57
          Width = 86
          Height = 20
          CalAlignment = dtaLeft
          Date = 37488
          Time = 37488
          DateFormat = dfShort
          DateMode = dmComboBox
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Kind = dtkDate
          ParseInput = False
          ParentFont = False
          TabOrder = 5
        end
        object cedtBasepay: TdxCurrencyEdit
          Left = 372
          Top = 56
          Width = 75
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 6
        end
        object cedtServiceAward: TdxCurrencyEdit
          Left = 516
          Top = 55
          Width = 72
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 7
        end
        object cedtSubsidy: TdxCurrencyEdit
          Left = 53
          Top = 95
          Width = 74
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 8
        end
        object memNotes: TdxMemo
          Left = 54
          Top = 135
          Width = 562
          Style.BorderStyle = xbsFlat
          Style.ButtonStyle = btsFlat
          TabOrder = 9
          Height = 140
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20154#20107#21015#34920
      ImageIndex = 113
      object grdPersonel: TdxDBGrid
        Left = 0
        Top = 0
        Width = 654
        Height = 316
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        BandFont.Charset = DEFAULT_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -11
        BandFont.Name = 'MS Sans Serif'
        BandFont.Style = []
        DataSource = dsPersonel
        Filter.Criteria = {00000000}
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -11
        PreviewFont.Name = 'MS Sans Serif'
        PreviewFont.Style = []
        ShowPreviewGrid = False
        OnChangeNode = grdPersonelChangeNode
        object grdPersonelPersonID: TdxDBGridMaskColumn
          Caption = #24037#21495
          Width = 53
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PersonID'
        end
        object grdPersonelName: TdxDBGridMaskColumn
          Caption = #22995#21517
          Width = 62
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Name'
        end
        object grdPersonelSex: TdxDBGridMaskColumn
          Caption = #24615#21035
          Width = 53
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Sex'
        end
        object grdPersonelDept: TdxDBGridMaskColumn
          Caption = #36710#38388
          Width = 67
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Dept'
        end
        object grdPersonelWorkType: TdxDBGridMaskColumn
          Caption = #24037#31181
          Width = 70
          BandIndex = 0
          RowIndex = 0
          FieldName = 'WorkType'
        end
        object grdPersonelInDate: TdxDBGridDateColumn
          Caption = #36827#21378#26085#26399
          Width = 71
          BandIndex = 0
          RowIndex = 0
          FieldName = 'InDate'
        end
        object grdPersonelBasePay: TdxDBGridCurrencyColumn
          Caption = #22522#26412#24037#36164
          Width = 68
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BasePay'
          Nullable = False
        end
        object grdPersonelServiceAward: TdxDBGridCurrencyColumn
          Caption = #24037#40836#22870
          Width = 51
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ServiceAward'
          Nullable = False
        end
        object grdPersonelSubsidy: TdxDBGridCurrencyColumn
          Caption = #34917#36148
          Width = 54
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Subsidy'
          Nullable = False
        end
        object grdPersonelNotes: TdxDBGridMemoColumn
          Caption = #22791#27880
          Width = 81
          BandIndex = 0
          RowIndex = 0
          FieldName = 'Notes'
        end
      end
    end
  end
  object dsPersonel: TDataSource
    DataSet = DmData.aquPersonel
    Left = 416
    Top = 56
  end
  object ImageList1: TImageList
    Left = 608
    Top = 8
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FD7FFD7F00000000FD7FFD7F00000000
      FD7FFD7F00000000FD7FFD7F00000000FD7FF83F00000000FD7FF83F00000000
      FC7FF83F00000000F45FF45F00000000F45FF45F00000000F55FF45F00000000
      F11FF45F00000000F11FF01F00000000FBBFFBBF00000000FC7FFC7F00000000
      FC7FFC7F00000000FC7FFC7F0000000000000000000000000000000000000000
      000000000000}
  end
  object dsDept: TDataSource
    DataSet = DmData.atblDept
    Left = 544
    Top = 80
  end
  object dsWorktype: TDataSource
    DataSet = DmData.atblWorkType
    Left = 80
    Top = 128
  end
end