ddwh.~dfm

来自「应对服装行业的生产成本控制系统」· ~DFM 代码 · 共 1,467 行 · 第 1/3 页

      Top = 543
      Width = 104
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnChange = tkhmcChange
      OnKeyPress = tkhmcKeyPress
    end
    object tcpdw: TEdit
      Left = 904
      Top = 543
      Width = 100
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnKeyPress = tcpdwKeyPress
    end
    object tddh: TEdit
      Left = 65
      Top = 543
      Width = 108
      Height = 19
      AutoSize = False
      Color = clWhite
      Ctl3D = False
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      OnKeyPress = tddhKeyPress
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 396
      Width = 1013
      Height = 127
      Color = clWhite
      DataSource = DataSource1
      FixedColor = clYellow
      TabOrder = 5
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnExit = DBGrid2Exit
      OnKeyPress = DBGrid2KeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'xh'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #24207#21495
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ms'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #30721#25968
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 113
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ys'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #39068#33394
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 97
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'ts'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #22871#25968
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 138
          Visible = True
        end>
    end
    object tcpmc: TEdit
      Left = 577
      Top = 543
      Width = 91
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
      OnChange = tcpmcChange
      OnKeyPress = tcpmcKeyPress
    end
    object tdj: TEdit
      Left = 577
      Top = 582
      Width = 91
      Height = 19
      BiDiMode = bdRightToLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 7
      OnChange = tslChange
      OnKeyPress = tdjKeyPress
    end
    object tbz: TEdit
      Left = 904
      Top = 582
      Width = 100
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
      OnKeyPress = tbzKeyPress
    end
    object tsl: TEdit
      Left = 397
      Top = 582
      Width = 104
      Height = 19
      BiDiMode = bdRightToLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 9
      OnChange = tslChange
      OnKeyPress = tslKeyPress
    end
    object DBGrid4: TDBGrid
      Left = 615
      Top = 396
      Width = 289
      Height = 127
      Color = clWhite
      DataSource = DataModule1.DataSource13
      FixedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 10
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlue
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid4DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'cpmc'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#21517#31216
          Title.Color = clMoneyGreen
          Width = 106
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cpfl'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#20998#31867
          Title.Color = clMoneyGreen
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cpdw'
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#21333#20301
          Title.Color = clMoneyGreen
          Width = 71
          Visible = True
        end>
    end
    object jglx: TDBLookupComboBox
      Left = 246
      Top = 542
      Width = 106
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      KeyField = 'fylb'
      ListField = 'fylb'
      ListFieldIndex = 1
      ListSource = DataModule1.DataSource16
      ParentFont = False
      TabOrder = 11
      OnKeyPress = jglxKeyPress
    end
    object tcpfl: TEdit
      Left = 744
      Top = 544
      Width = 89
      Height = 19
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 12
      OnChange = tkhmcChange
      OnKeyPress = tcpflKeyPress
    end
    object DBGrid3: TDBGrid
      Left = 452
      Top = 396
      Width = 162
      Height = 127
      Color = clWhite
      DataSource = DataModule1.DataSource7
      FixedColor = clWhite
      ReadOnly = True
      TabOrder = 13
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid3DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'wjgdw'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clFuchsia
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#21333#20301
          Title.Color = clMoneyGreen
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -11
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 132
          Visible = True
        end>
    end
    object jhrq: TDateTimePicker
      Left = 245
      Top = 582
      Width = 106
      Height = 21
      BevelInner = bvNone
      BevelOuter = bvNone
      Date = 38907.000000000000000000
      Time = 38907.000000000000000000
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 14
      OnKeyPress = jhrqKeyPress
    end
    object tje: TEdit
      Left = 744
      Top = 582
      Width = 89
      Height = 19
      BiDiMode = bdRightToLeft
      Color = clWhite
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 15
      OnKeyPress = tjeKeyPress
    end
    object pq: TPanel
      Left = 2
      Top = 2
      Width = 1008
      Height = 69
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clSkyBlue
      TabOrder = 16
      object csq: TCheckBox
        Left = 12
        Top = 40
        Width = 57
        Height = 17
        Caption = #25509#36215
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object cddh: TCheckBox
        Left = 12
        Top = 11
        Width = 57
        Height = 16
        Caption = #35746#21333
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object qddh: TEdit
        Left = 58
        Top = 11
        Width = 80
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 2
      end
      object cjglx: TCheckBox
        Left = 152
        Top = 11
        Width = 57
        Height = 16
        Caption = #21152#24037
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object csz: TCheckBox
        Left = 152
        Top = 40
        Width = 57
        Height = 17
        Caption = #25509#27490
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object sz: TDateTimePicker
        Left = 199
        Top = 40
        Width = 81
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Date = 38907.000000000000000000
        Time = 38907.000000000000000000
        TabOrder = 5
      end
      object qjglx: TEdit
        Left = 199
        Top = 11
        Width = 81
        Height = 21
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 6
      end
      object ckhmc: TCheckBox
        Left = 293
        Top = 11
        Width = 57
        Height = 17
        Caption = #23458#25143
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue