bas_bombatchreplace.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_BomBatchReplace: TFrm_Bas_BomBatchReplace
  Left = -22
  Top = 148
  ActiveControl = ExtEdt_ItemCode1
  Caption = '子项成批替换'
  ClientHeight = 446
  ClientWidth = 759
  FormStyle = fsMDIChild
  Visible = True
  Windowstate = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 759
    inherited ToolBar: TToolBar
      Width = 178
      object ToolButton7: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object Tlbtn_Hint: TToolButton
        Left = 31
        Top = 0
        Action = Act_Hint
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton5: TToolButton
        Left = 54
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 62
        Top = 0
        Action = Act_next
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton3: TToolButton
        Left = 85
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object tlbtn_Preview: TToolButton
        Left = 93
        Top = 0
        Action = Act_Preview
      end
      object ToolButton4: TToolButton
        Left = 116
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object tlbtn_Print: TToolButton
        Left = 124
        Top = 0
        Action = Act_Print
      end
      object ToolButton1: TToolButton
        Left = 147
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 43
        Style = tbsSeparator
      end
      object TlBtn_Exit: TToolButton
        Left = 155
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 759
    BevelOuter = bvRaised
    Caption = '子项成批替换'
  end
  inherited Pnl_Head: TPanel
    Width = 759
    Height = 112
    BevelOuter = bvRaised
    object Label1: TLabel
      Left = 16
      Top = 10
      Width = 66
      Height = 12
      Caption = '物料代码1：'
    end
    object Label2: TLabel
      Left = 15
      Top = 34
      Width = 36
      Height = 12
      Caption = '替换成'
    end
    object Label3: TLabel
      Left = 14
      Top = 59
      Width = 66
      Height = 12
      Caption = '物料代码2：'
    end
    object Label4: TLabel
      Left = 14
      Top = 87
      Width = 60
      Height = 12
      Caption = '替换范围：'
    end
    object Label5: TLabel
      Left = 215
      Top = 10
      Width = 66
      Height = 12
      Caption = '物料名称1：'
    end
    object Lbl_ItemName1: TLabel
      Left = 280
      Top = 10
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 215
      Top = 59
      Width = 66
      Height = 12
      Caption = '物料名称2：'
    end
    object Lbl_ItemName2: TLabel
      Left = 281
      Top = 59
      Width = 6
      Height = 12
    end
    object Label9: TLabel
      Left = 215
      Top = 87
      Width = 60
      Height = 12
      Caption = '物料代码：'
    end
    object Lbl_ProjectName: TLabel
      Left = 459
      Top = 87
      Width = 6
      Height = 12
    end
    object Lbl_ProjectName1: TLabel
      Left = 424
      Top = 87
      Width = 60
      Height = 12
      Caption = '物料名称：'
    end
    object CmBx_EScope: TComboBox
      Left = 79
      Top = 82
      Width = 125
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      OnChange = CmBx_EScopeChange
      OnExit = CmBx_EScopeExit
      OnKeyPress = CmBx_EScopeKeyPress
    end
    object ExtEdt_ItemCode1: TExtEdit
      Left = 79
      Top = 8
      Width = 125
      Height = 20
      TabOrder = 1
      OnExit = ExtEdt_ItemCode1Exit
      DispLabel = Lbl_ItemName1
    end
    object ExtEdt_ItemCode2: TExtEdit
      Left = 80
      Top = 56
      Width = 125
      Height = 20
      TabOrder = 2
      OnChange = ExtEdt_ItemCode2Change
      OnExit = ExtEdt_ItemCode2Exit
      DispLabel = Lbl_ItemName2
    end
    object Extedt_ProjectCode: TExtEdit
      Left = 274
      Top = 82
      Width = 125
      Height = 20
      TabOrder = 3
      OnExit = Extedt_ProjectCodeExit
      DispLabel = Lbl_ProjectName
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 420
    Width = 759
    BevelOuter = bvRaised
  end
  inherited Pnl_Body: TPanel
    Top = 169
    Width = 759
    Height = 251
    BevelOuter = bvRaised
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 757
      Height = 249
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        Item
          FieldName = 'PItemCodeName'
          Title.Alignment = taCenter
          Title.Caption = '父项物料标识'
          Width = 351
        end
        Item
          FieldName = 'SItemCodeName'
          Title.Alignment = taCenter
          Title.Caption = '子项物料标识'
          Width = 394
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    LockType = ltBatchOptimistic
    Prepared = True
    SQL.Strings = (
      ''
      ''
      ''
      '')
    Left = 264
    Top = 0
  end
  inherited ActionList: TActionList
    Left = 336
    Top = 0
    inherited Act_next: TAction
      Caption = '执行'
      Hint = '执行'
      ShortCut = 119
      OnExecute = Act_nextExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
    object Action4: TAction
      Caption = 'Action4'
      ShortCut = 120
      OnExecute = Action4Execute
    end
  end
  object AdoQry_Main: TAdoQuery
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      ' ')
    Left = 234
    Top = 2
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Main
    Left = 194
    Top = 2
  end
  object ExtPrintReport1: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    DataSet = AdoQry_Main
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = '宋体'
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = '宋体'
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = '宋体'
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = '宋体'
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 378
    Top = 2
  end
end