rates.dfm

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

      C50EBBDEDB05F7CA6FF5DDFDD9DB3DC1165576B9DA87191F68EE79B729DB7251
      1DC7B9857BE0E59DA2FBD12C02A56CDF6F11041F75E39E8D87BF75AE913D8DD6
      DB07B7B65E77AE7B4367EDEDFBB1373D34549B8369EE9C6536630796829EAA0A
      EA65ACA0AB492191A96BA9629A27B078A68D5D0865047BAF74447E647F2E4DA7
      F2EF3DF17A9A4EC8DCFD37D5FF001E2BB7C8ADD81D494947B3EAF736DEDDFB57
      1DB5936D60373E1CD1556C4C5458BA0931F55152432475388AEA8A74581CA4CB
      EEB60D3A52F727F2CCF89FDC3D79D59B0D76AEE4EADC8744EDFA5DAFD1DDA1D4
      1BC337B37B73AA3094313454B8EDB5BF1E7C9E4ABE822591DBEDF2A3234FE591
      E508266327BF75EAF4613E3574B677A03A9F11D6DB97B9FB47BFB378EC966EBA
      B3B37B873D51B877AE5E0C864A797154359593CF3AA4184C32D3D2288CAACF24
      2F50CA249E41EFDD78F43DFBF75AEBDEFDD7BAF7BF75EEBDEFDD7BAFFFD3BE0F
      7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF
      75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BD
      FBAF75EF7EEBDD7BDFBAF75EF7EEBDD7BDFBAF75FFD9}
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 728
    Height = 41
    AutoSize = True
    BandBorderStyle = bsNone
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 37
        ParentBitmap = False
        Width = 724
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 711
      Height = 37
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 61
      Caption = 'ToolBar1'
      Flat = True
      HotImages = frmMain.ImageList1
      Images = frmMain.ImageList1
      ShowCaptions = True
      TabOrder = 0
      Transparent = True
      object ToolButton2: TToolButton
        Left = 0
        Top = 0
        Cursor = crHandPoint
        Caption = '&F.'#39318#35760#24405
        ImageIndex = 15
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 61
        Top = 0
        Cursor = crHandPoint
        Caption = '&P.'#19978#19968#20010
        ImageIndex = 17
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 122
        Top = 0
        Cursor = crHandPoint
        Caption = '&N.'#19979#19968#20010
        ImageIndex = 16
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 183
        Top = 0
        Cursor = crHandPoint
        Caption = '&L.'#23614#35760#24405
        ImageIndex = 14
        OnClick = ToolButton5Click
      end
      object ToolButton7: TToolButton
        Left = 244
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 252
        Top = 0
        Cursor = crHandPoint
        Caption = '&A.'#22686#21152
        ImageIndex = 54
        OnClick = ToolButton8Click
      end
      object ToolButton9: TToolButton
        Left = 313
        Top = 0
        Cursor = crHandPoint
        Caption = '&S.'#20445#23384
        ImageIndex = 191
        OnClick = ToolButton9Click
      end
      object ToolButton1: TToolButton
        Left = 374
        Top = 0
        Caption = '&C.'#21462#28040
        ImageIndex = 69
        OnClick = ToolButton1Click
      end
      object ToolButton6: TToolButton
        Left = 435
        Top = 0
        Caption = '&S.'#26597#35810
        ImageIndex = 36
        OnClick = ToolButton6Click
      end
      object ToolButton12: TToolButton
        Left = 496
        Top = 0
        Caption = '&O.'#23548#20986
        ImageIndex = 105
        OnClick = ToolButton12Click
      end
      object ToolButton10: TToolButton
        Left = 557
        Top = 0
        Cursor = crHandPoint
        Caption = '&E.'#21024#38500
        ImageIndex = 0
        OnClick = ToolButton10Click
      end
      object ToolButton13: TToolButton
        Left = 618
        Top = 0
        Width = 8
        Caption = 'ToolButton13'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object ToolButton11: TToolButton
        Left = 626
        Top = 0
        Cursor = crHandPoint
        Caption = '&R.'#36820#22238
        ImageIndex = 24
        OnClick = ToolButton11Click
      end
    end
  end
  object grdRatesList: TdxDBGrid
    Left = 14
    Top = 216
    Width = 699
    Height = 212
    TabStop = False
    Bands = <
      item
      end>
    DefaultLayout = False
    HeaderPanelRowCount = 1
    KeyField = 'ModelID'
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 2
    OnClick = grdRatesListClick
    DataSource = dsRates
    Filter.Criteria = {00000000}
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoEnterThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
    object grdRatesListModelID: TdxDBGridMaskColumn
      Caption = #27169#20855#22411#21495
      Width = 90
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ModelID'
    end
    object grdRatesListColor: TdxDBGridMaskColumn
      Caption = #33394#21035
      Width = 61
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Color'
    end
    object grdRatesListShoeSize: TdxDBGridMaskColumn
      Caption = #21495#30721
      Width = 59
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ShoeSize'
    end
    object grdRatesListRateA: TdxDBGridCurrencyColumn
      Caption = #30827#21270'A'#24037#20215
      Width = 80
      BandIndex = 0
      RowIndex = 0
      FieldName = 'RateA'
      DisplayFormat = #65509',0.000;-'#65509',0.000'
      Nullable = False
    end
    object grdRatesListRateB: TdxDBGridCurrencyColumn
      Caption = #30827#21270'B'#24037#20215
      Width = 79
      BandIndex = 0
      RowIndex = 0
      FieldName = 'RateB'
      DisplayFormat = #65509',0.000;-'#65509',0.000'
      Nullable = False
    end
    object grdRatesListRateC: TdxDBGridCurrencyColumn
      Caption = #30827#21270'C'#24037#20215
      Width = 74
      BandIndex = 0
      RowIndex = 0
      FieldName = 'RateC'
      DisplayFormat = #65509',0.000;-'#65509',0.000'
      Nullable = False
    end
    object grdRatesListPicecARate: TdxDBGridCurrencyColumn
      Caption = #20462#36793'A'#24037#20215
      Width = 74
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecARate'
      DisplayFormat = #65509',0.000;-'#65509',0.000'
      Nullable = False
    end
    object grdRatesListPicecBRate: TdxDBGridCurrencyColumn
      Caption = #20462#36793'B'#24037#20215
      Width = 74
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecBRate'
      DisplayFormat = #65509',0.000;-'#65509',0.000'
      Nullable = False
    end
    object grdRatesListcheckRate: TdxDBGridCurrencyColumn
      Caption = #26816#39564#24037#20215
      Width = 77
      BandIndex = 0
      RowIndex = 0
      FieldName = 'checkRate'
      DisplayFormat = #65509',0.000;-'#65509',0.000'
      Nullable = False
    end
  end
  object Panel1: TPanel
    Left = 15
    Top = 86
    Width = 698
    Height = 118
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 368
      Top = 24
      Width = 24
      Height = 12
      Caption = #21495#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end