prodratesearch.dfm

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

    end
    object BitBtn2: TBitBtn
      Left = 525
      Top = 39
      Width = 73
      Height = 26
      Caption = '&C.'#28165#31354
      TabOrder = 8
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333FFFFF333333000033333388888833333333333F888888FFF333
        000033338811111188333333338833FFF388FF33000033381119999111833333
        38F338888F338FF30000339119933331111833338F388333383338F300003391
        13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
        33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
        33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
        000039183811193333918338F8F833F83333838F000039118111933339118338
        F3833F83333833830000339111193333391833338F33F8333FF838F300003391
        11833338111833338F338FFFF883F83300003339111888811183333338FF3888
        83FF83330000333399111111993333333388FFFFFF8833330000333333999999
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object BitBtn3: TBitBtn
    Left = 218
    Top = 9
    Width = 77
    Height = 26
    Caption = '&O.'#25171#24320
    ModalResult = 1
    TabOrder = 2
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 303
    Top = 9
    Width = 77
    Height = 26
    Caption = '&E.'#21462#28040
    TabOrder = 3
    Kind = bkCancel
  end
  object grdOrder: TdxDBGrid
    Left = 12
    Top = 44
    Width = 623
    Height = 229
    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 = 4
    OnClick = grdOrderClick
    OnDblClick = grdOrderDblClick
    BandFont.Charset = DEFAULT_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -11
    BandFont.Name = 'MS Sans Serif'
    BandFont.Style = []
    DataSource = dsProdRate
    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, edgoExtMultiSelect, edgoImmediateEditor, edgoMouseScroll, 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 grdOrderOrderNo: TdxDBGridMaskColumn
      Caption = #21333#25454#21495
      BandIndex = 0
      RowIndex = 0
      FieldName = 'OrderNo'
    end
    object grdOrderOrderDate: TdxDBGridDateColumn
      Caption = #26085#26399
      Width = 98
      BandIndex = 0
      RowIndex = 0
      FieldName = 'OrderDate'
    end
    object grdOrderFirstTime: TdxDBGridMaskColumn
      Caption = #24320#22987#26102#38388
      Width = 54
      BandIndex = 0
      RowIndex = 0
      FieldName = 'FirstTime'
    end
    object grdOrderEndTime: TdxDBGridMaskColumn
      Caption = #32467#26463#26102#38388
      Width = 54
      BandIndex = 0
      RowIndex = 0
      FieldName = 'EndTime'
    end
    object grdOrderRateID: TdxDBGridMaskColumn
      Caption = #30827#21270#24037#21495
      Width = 54
      BandIndex = 0
      RowIndex = 0
      FieldName = 'RateID'
    end
    object grdOrderRateName: TdxDBGridMaskColumn
      Caption = #30827#21270#24037
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'RateName'
    end
    object grdOrderPicecID1: TdxDBGridMaskColumn
      Caption = #20462#36793#24037#21495'1'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecID1'
    end
    object grdOrderPicecName1: TdxDBGridMaskColumn
      Caption = #20462#36793#24037'1'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecName1'
    end
    object grdOrderCheckID1: TdxDBGridMaskColumn
      Caption = #26816#39564#24037#21495'1'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckID1'
    end
    object grdOrderCheckName1: TdxDBGridMaskColumn
      Caption = #26816#39564#24037'1'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckName1'
    end
    object grdOrderPicecID2: TdxDBGridMaskColumn
      Caption = #20462#36793#24037#21495'2'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecID2'
    end
    object grdOrderCheckID2: TdxDBGridMaskColumn
      Caption = #26816#39564#24037#21495'2'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckID2'
    end
    object grdOrderPicecName2: TdxDBGridMaskColumn
      Caption = #20462#36793#24037'2'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecName2'
    end
    object grdOrderCheckName2: TdxDBGridMaskColumn
      Caption = #26816#39564#24037'2'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckName2'
    end
    object grdOrderPicecID3: TdxDBGridMaskColumn
      Caption = #20462#36793#24037#21495'3'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecID3'
    end
    object grdOrderPicecName3: TdxDBGridMaskColumn
      Caption = #20462#36793#24037'3'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecName3'
    end
    object grdOrderCheckID3: TdxDBGridMaskColumn
      Caption = #26816#39564#24037#21495'3'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckID3'
    end
    object grdOrderCheckName3: TdxDBGridMaskColumn
      Caption = #26816#39564#24037'3'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckName3'
    end
    object grdOrderPicecID4: TdxDBGridMaskColumn
      Caption = #20462#36793#24037#21495'4'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecID4'
    end
    object grdOrderPicecName4: TdxDBGridMaskColumn
      Caption = #20462#36793#24037'4'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'PicecName4'
    end
    object grdOrderCheckID4: TdxDBGridMaskColumn
      Caption = #26816#39564#24037#21495'4'
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckID4'
    end
    object grdOrderCheckName4: TdxDBGridMaskColumn
      Caption = #26816#39564#24037'4'
      Width = 52
      BandIndex = 0
      RowIndex = 0
      FieldName = 'CheckName4'
    end
  end
  object dsProdRate: TDataSource
    DataSet = DmData.ADOQuery1
    Left = 510
    Top = 72
  end
end