mprocess.dfm

科思ERP部分源码及控件

inherited frmMprocess: TfrmMprocess
  Left = 71
  Top = 42
  Height = 513
  Caption = '标准工序维护'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 445
  end
  inherited CoolBar1: TCoolBar
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 616
      end>
  end
  object PageControl1: TPageControl [2]
    Left = 329
    Top = 39
    Width = 287
    Height = 406
    ActivePage = BaseInfo
    Align = alClient
    Style = tsButtons
    TabOrder = 2
    TabStop = False
    object BaseInfo: TTabSheet
      Caption = '基本资料  '
      object FloatPanel1: TFloatPanel
        Left = 0
        Top = 0
        Width = 279
        Height = 376
        Align = alClient
        Color = clWhite
        Caption = 'FloatPanel1'
        ParentColor = False
        TabOrder = 0
        object Label22: TLabel
          Left = 8
          Top = 16
          Width = 54
          Height = 12
          Caption = '工序代码:'
        end
        object Label1: TLabel
          Left = 8
          Top = 41
          Width = 54
          Height = 12
          Caption = '工序名称:'
        end
        object Label2: TLabel
          Left = 8
          Top = 93
          Width = 54
          Height = 12
          Caption = '工作中心:'
        end
        object Label3: TLabel
          Left = 8
          Top = 118
          Width = 54
          Height = 12
          Caption = '在制货位:'
        end
        object Label4: TLabel
          Left = 8
          Top = 142
          Width = 54
          Height = 12
          Caption = '生效日期:'
        end
        object Label5: TLabel
          Left = 8
          Top = 167
          Width = 54
          Height = 12
          Caption = '失效日期:'
        end
        object Label6: TLabel
          Left = 8
          Top = 192
          Width = 54
          Height = 12
          Caption = '工序类型:'
        end
        object Label7: TLabel
          Left = 8
          Top = 216
          Width = 54
          Height = 12
          Caption = '工序状态:'
        end
        object Label8: TLabel
          Left = 8
          Top = 241
          Width = 54
          Height = 12
          Caption = '外协费率:'
        end
        object TLabel
          Left = 31
          Top = 266
          Width = 30
          Height = 12
          Caption = '说明:'
        end
        object seProcessCode: TSDEdit
          Left = 64
          Top = 11
          Width = 178
          Height = 18
          Ctl3D = False
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 0
          Text = 'seProcessCode'
          SplitSymbol = ' | '
        end
        object seProcessName: TSDEdit
          Left = 64
          Top = 36
          Width = 178
          Height = 18
          Ctl3D = False
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 1
          Text = 'seProcessName'
          SplitSymbol = ' | '
        end
        object deProcessEdate: TDateEdit
          Left = 64
          Top = 139
          Width = 88
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2003-02-10'
          InitDate = '2003-02-10'
          ModalResult = 0
          TabOrder = 5
          Color = 50331647
          Ctl3D = False
          ParentCtl3D = False
        end
        object deProcessIdate: TDateEdit
          Left = 64
          Top = 164
          Width = 88
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2003-02-10'
          InitDate = '2003-02-10'
          ModalResult = 0
          TabOrder = 6
          Color = 50331647
          Ctl3D = False
          ParentCtl3D = False
        end
        object scProcessLoc: TSDComboBox
          Left = 64
          Top = 109
          Width = 170
          Height = 20
          Style = csDropDownList
          Color = clWhite
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 4
          KeyItem = cbItem2
        end
        object cheChkFlg: TCheckBox
          Left = 64
          Top = 66
          Width = 77
          Height = 19
          Caption = '检验标识'
          TabOrder = 2
        end
        object cheWxFlg: TCheckBox
          Left = 152
          Top = 66
          Width = 74
          Height = 19
          Caption = '外协标识'
          TabOrder = 3
          OnClick = cheWxFlgClick
        end
        object scProcessState: TSDComboBox
          Left = 64
          Top = 209
          Width = 135
          Height = 20
          Style = csDropDownList
          Color = clWhite
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 8
          Items.Strings = (
            '1-预备'
            '2-确定'
            '3-停用'
            '4-作废')
        end
        object scProcessType: TSDComboBox
          Left = 64
          Top = 184
          Width = 135
          Height = 20
          Style = csDropDownList
          Color = clWhite
          Ctl3D = False
          ItemHeight = 12
          ParentCtl3D = False
          TabOrder = 7
          Items.Strings = (
            '1-正常'
            '2-平行'
            '3-交叉'
            '4-混合')
        end
        object seProcessWxAmt: TSDEdit
          Left = 64
          Top = 235
          Width = 132
          Height = 18
          Ctl3D = False
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 9
          SplitSymbol = ' | '
        end
        object memProcessDesc: TMemo
          Left = 64
          Top = 264
          Width = 182
          Height = 39
          Color = clWhite
          Ctl3D = False
          Lines.Strings = (
            '')
          ParentCtl3D = False
          TabOrder = 10
        end
        object scProcessWc: TSDComboBox
          Left = 64
          Top = 85
          Width = 170
          Height = 20
          Style = csDropDownList
          Color = clWhite
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 11
          KeyItem = cbItem2
        end
      end
    end
    object LtInfo: TTabSheet
      Caption = '提前期信息'
      ImageIndex = 1
      object FloatPanel2: TFloatPanel
        Left = 0
        Top = 0
        Width = 279
        Height = 376
        Align = alClient
        Color = clWhite
        Caption = 'FloatPanel1'
        ParentColor = False
        TabOrder = 0
        object Label25: TLabel
          Left = 10
          Top = 18
          Width = 54
          Height = 12
          Caption = '排队时间:'
        end
        object Label26: TLabel
          Left = 10
          Top = 100
          Width = 54
          Height = 12
          Caption = '加工时间:'
        end
        object Label27: TLabel
          Left = 10
          Top = 45
          Width = 54
          Height = 12
          Caption = '准备时间:'
        end
        object Label28: TLabel
          Left = 10
          Top = 73
          Width = 54
          Height = 12
          Caption = '等待时间:'
        end
        object Label29: TLabel
          Left = 10
          Top = 127
          Width = 54
          Height = 12
          Caption = '运输时间:'
        end
        object seProcessQlt: TSDEdit
          Left = 63
          Top = 12
          Width = 116
          Height = 18
          Ctl3D = False
          MaxLength = 12
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 0
          Text = '0'
          DigLen = 4
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
        object seProcessWlt: TSDEdit
          Left = 63
          Top = 67
          Width = 116
          Height = 18
          Ctl3D = False
          MaxLength = 12
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 1
          Text = '0'
          DigLen = 4
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
        object seProcessSlt: TSDEdit
          Left = 63
          Top = 40
          Width = 116
          Height = 18
          Ctl3D = False
          MaxLength = 12
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 2
          Text = '0'
          DigLen = 4
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
        object seProcessRlt: TSDEdit
          Left = 63
          Top = 95
          Width = 116
          Height = 18
          Ctl3D = False
          MaxLength = 12
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 3
          Text = '0'
          DigLen = 4
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
        object seProcessMlt: TSDEdit
          Left = 63
          Top = 122
          Width = 116
          Height = 18
          Ctl3D = False
          MaxLength = 12
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 4
          Text = '0'
          DigLen = 4
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
      end
    end
  end
  object sgProcess: TSDGrid [3]
    Left = 0
    Top = 39
    Width = 329
    Height = 406
    Align = alLeft
    Color = clWhite
    ColCount = 3
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 3
    OnClick = sgProcessClick
    SelectColor = clActiveCaption
    OddGridColor = clWindow
    Columns = <
      item
        ColumnFont.Charset = ANSI_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '工序代码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = ANSI_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '工序名称'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = ANSI_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '加工时间'
        ColumnWidth = 0
      end>
    ColWidths = (
      83
      123
      85)
  end
  inherited MainMenu1: TMainMenu
    Left = 178
    Top = 175
  end
  inherited ImageList1: TImageList
    Left = 178
    Top = 175
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 178
    Top = 175
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 178
    Top = 175
  end
end