choiceperson.dfm

一个鞋塑企业的计件工资系统.开发目录为：D:PieceRate

object frmChoicePerson: TfrmChoicePerson
  Left = 274
  Top = 249
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #36873#25321#32844#21592
  ClientHeight = 335
  ClientWidth = 546
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 8
    Top = 4
    Width = 530
    Height = 42
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 9
      Top = 16
      Width = 24
      Height = 12
      Caption = #24037#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 109
      Top = 16
      Width = 24
      Height = 12
      Caption = #22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 218
      Top = 16
      Width = 24
      Height = 12
      Caption = #36710#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 332
      Top = 16
      Width = 24
      Height = 12
      Caption = #24037#31181
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object edtPersonID: TdxEdit
      Left = 39
      Top = 11
      Width = 61
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Style.BorderStyle = xbsFlat
      Style.ButtonStyle = btsFlat
      Style.ButtonTransparence = ebtNone
      TabOrder = 0
    end
    object edtName: TdxEdit
      Left = 137
      Top = 11
      Width = 70
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Style.BorderStyle = xbsFlat
      Style.ButtonStyle = btsFlat
      Style.ButtonTransparence = ebtNone
      TabOrder = 1
    end
    object cbDept: TdxLookupEdit
      Left = 246
      Top = 11
      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 = 2
      ListFieldName = 'DeptName'
      KeyFieldName = 'DeptId'
      ListSource = dsDept
      LookupKeyValue = ''
    end
    object cbWorkType: TdxLookupEdit
      Left = 358
      Top = 11
      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 = 3
      ListFieldName = 'WorkName'
      KeyFieldName = 'WorkID'
      ListSource = dsWorkType
      LookupKeyValue = ''
    end
    object BitBtn4: TBitBtn
      Left = 443
      Top = 8
      Width = 75
      Height = 25
      Caption = '&S.'#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn4Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object BitBtn1: TBitBtn
    Left = 334
    Top = 302
    Width = 93
    Height = 27
    Caption = '&O.'#36873#20013#36820#22238
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 431
    Top = 302
    Width = 91
    Height = 27
    Caption = '&C.'#21462#28040#36820#22238
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Kind = bkCancel
  end
  object grdPersonel: TdxDBGrid
    Left = 8
    Top = 53
    Width = 530
    Height = 241
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    SummaryGroups = <>
    SummarySeparator = ', '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnDblClick = BitBtn1Click
    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
    object grdPersonelPersonID: TdxDBGridMaskColumn
      Caption = #24037#21495
      Width = 45
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PersonID'
    end
    object grdPersonelName: TdxDBGridMaskColumn
      Caption = #22995#21517
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Name'
    end
    object grdPersonelSex: TdxDBGridMaskColumn
      Caption = #24615#21035
      Width = 30
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Sex'
    end
    object grdPersonelDept: TdxDBGridMaskColumn
      Caption = #36710#38388
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Dept'
    end
    object grdPersonelWorkType: TdxDBGridMaskColumn
      Caption = #24037#31181
      BandIndex = 0
      RowIndex = 0
      FieldName = 'WorkType'
    end
    object grdPersonelInDate: TdxDBGridDateColumn
      Caption = #36827#21378#26085#26399
      Width = 73
      BandIndex = 0
      RowIndex = 0
      FieldName = 'InDate'
    end
    object grdPersonelBasePay: TdxDBGridCurrencyColumn
      Caption = #22522#26412#24037#36164
      Width = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = 'BasePay'
      Nullable = False
    end
    object grdPersonelServiceAward: TdxDBGridCurrencyColumn
      Caption = #24037#40836
      Width = 57
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ServiceAward'
      Nullable = False
    end
    object grdPersonelSubsidy: TdxDBGridCurrencyColumn
      Caption = #34917#36148
      Width = 56
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Subsidy'
      Nullable = False
    end
    object grdPersonelNotes: TdxDBGridMemoColumn
      Caption = #22791#27880
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Notes'
    end
  end
  object dsPersonel: TDataSource
    DataSet = DmData.aquPersonel
    Left = 57
    Top = 144
  end
  object dsDept: TDataSource
    DataSet = DmData.atblDept
    Left = 392
    Top = 40
  end
  object dsWorkType: TDataSource
    DataSet = DmData.atblWorkType
    Left = 432
    Top = 40
  end
end