cpml.~dfm

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

object Frmcpml: TFrmcpml
  Left = 268
  Top = 118
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #12304#20135#21697#30446#24405#12305
  ClientHeight = 481
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000007777
    77777777777777777777777777707888888888888FFFFFFFFFFFFFFFFF707888
    888888888FFFFFFFFFFFFFFFFF707888888888888FFFFFFFFFFFFFFFFF700666
    6000660666677777777777777F700666066600F0660FFFFFFFFFFFFFFF707060
    0660FFF000777777777777777F707800660FFF008FFFFFFFFFFFFFFFFF707880
    00FF88088F777777777777777F7078770FFF7000055505555FFFFFFFFF707870
    07FFFFFF070050500FFFFFFFFF70787077FFFFFF7888500FFFFFFFFFFF707807
    80FFFF7008880044444444444F707078880FFFFF08870444444444444F707088
    870FFFFFF0800FFFFFFFFFFFFF70708880FFFFFF088880FFFFFFFFFFFF70708F
    80FFFFF7888880FFFFFFFFFFFF7070FF8807FFF0888880FFFFFFFFFFFF7070FF
    FFFFFFF08888880FFFFFFFFFFF70787FFFFFFFF888888880FFFFFFFFFF70780F
    FFFFFFF00888880FFFFFFFFFFF70777007FFF007788887777777777777700000
    00000888778880000000000000000000000FF888878880000000000000000000
    0007FF888877780000000000000000000000FFF8888888000000000000000000
    000077FFFFF70000000000000000000000000077000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFF00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000FC003FFFFC003FFFFE001FFFFE00
    1FFFFF003FFFFFC1FFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    0000000000008777777FFFFFFFF08777777FFFFFFFF080660060888888F08700
    FF0FFFFFFFF0870FF005050888F08000FFF070FFFFF0077FFFF0704444F00770
    FFFF070FFFF00770FF00770FFFF007770FF07770FFF080777770700888800000
    00087700000000000888880000000000000000000000FFFF0000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000800F0000C01F0000F83F0000}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 628
    Height = 481
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 6
      Top = 5
      Width = 611
      Height = 420
      Caption = #20135#21697#24405#20837
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label8: TLabel
        Left = 32
        Top = 212
        Width = 169
        Height = 20
        AutoSize = False
        Caption = #8595#20135#21697#35760#24405#34920#8595
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 392
        Top = 212
        Width = 169
        Height = 20
        AutoSize = False
        Caption = #65342#30456#20284#35760#24405#21306#65342
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 18
        Width = 589
        Height = 191
        TabOrder = 0
        object Label2: TLabel
          Left = 15
          Top = 159
          Width = 36
          Height = 13
          Caption = #22791#27880#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 15
          Top = 115
          Width = 36
          Height = 13
          Caption = #21333#20301#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 15
          Top = 70
          Width = 36
          Height = 13
          Caption = #20998#31867#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 15
          Top = 27
          Width = 36
          Height = 13
          Caption = #21517#31216#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBEdit2: TDBEdit
          Left = 55
          Top = 110
          Width = 153
          Height = 21
          DataField = 'cpdw'
          DataSource = DataModule1.DataSource13
          TabOrder = 2
        end
        object cpdw: TDBLookupComboBox
          Left = 55
          Top = 110
          Width = 153
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'cpdw'
          ListField = 'cpdw'
          ListSource = DataModule1.DataSource6
          ParentFont = False
          TabOrder = 1
          OnKeyPress = cpdwKeyPress
        end
        object edit2: TDBEdit
          Left = 55
          Top = 154
          Width = 153
          Height = 21
          DataField = 'bz'
          DataSource = DataModule1.DataSource13
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object DBEdit1: TDBEdit
          Left = 55
          Top = 66
          Width = 153
          Height = 21
          DataField = 'cpfl'
          DataSource = DataModule1.DataSource13
          TabOrder = 3
        end
        object cpfl: TDBLookupComboBox
          Left = 55
          Top = 65
          Width = 153
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'cpfl'
          ListField = 'cpfl'
          ListSource = DataModule1.DataSource12
          ParentFont = False
          TabOrder = 4
          OnKeyPress = cpflKeyPress
        end
        object DBEdit3: TDBEdit
          Left = 55
          Top = 22
          Width = 153
          Height = 21
          DataField = 'cpmc'
          DataSource = DataModule1.DataSource13
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnChange = DBEdit3Change
          OnKeyPress = DBEdit3KeyPress
        end
      end
      object DBGrid2: TDBGrid
        Left = 234
        Top = 31
        Width = 343
        Height = 169
        DataSource = DataModule1.DataSource28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'cpmc'
            Title.Alignment = taCenter
            Title.Caption = #21517#31216
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 72
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cpfl'
            Title.Alignment = taCenter
            Title.Caption = #20998#31867
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []
            Width = 72
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cpdw'
            Title.Alignment = taCenter
            Title.Caption = #21333#20301
            Title.Color = clMoneyGreen
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clTeal
            Title.Font.Height = -11
            Title.Font.Name = 'MS Sans Serif'
            Title.Font.Style = []