mrp_enter_oblongssmo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_OblongSsMo: TFrm_Mrp_Enter_OblongSsMo
  Left = 173
  Top = 102
  Caption = '横式生产建议'
  ClientHeight = 436
  ClientWidth = 772
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 772
  end
  inherited Pnl_Title: TPanel
    Width = 772
    Caption = '横式生产建议'
    inherited Image2: TImage
      Width = 772
    end
  end
  inherited Pnl_Head: TPanel
    Width = 772
    Height = 88
    inherited Image1: TImage
      Width = 772
      Height = 88
    end
    inherited Lbl_Condition: TLabel
      Left = 74
      Top = 55
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 13
      Top = 55
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 13
      Top = 70
    end
    inherited Lbl_Order: TLabel
      Left = 73
      Top = 70
      Width = 102
      Caption = '物料代码,数据类型'
    end
    object Lbl_WhCodeFlag: TLabel
      Left = 582
      Top = 55
      Width = 6
      Height = 12
    end
    object Button1: TButton
      Left = 23
      Top = 0
      Width = 94
      Height = 25
      Caption = '物料主文件联查'
      Enabled = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 257
      Top = 0
      Width = 94
      Height = 25
      Caption = '订单联查'
      Enabled = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button6: TButton
      Left = 463
      Top = 1
      Width = 94
      Height = 25
      Caption = '父项物料反查'
      Enabled = False
      TabOrder = 2
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 23
      Top = 28
      Width = 94
      Height = 25
      Caption = '多层Bom反查'
      Enabled = False
      TabOrder = 3
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 257
      Top = 28
      Width = 94
      Height = 25
      Caption = 'Mrp竖式报表'
      Enabled = False
      TabOrder = 4
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 463
      Top = 28
      Width = 94
      Height = 25
      Caption = 'Mrp横式报表'
      Enabled = False
      TabOrder = 5
      OnClick = Button9Click
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 392
    Width = 772
    Height = 44
    inherited Image4: TImage
      Width = 772
      Height = 44
    end
    object Label1: TLabel
      Left = 10
      Top = 17
      Width = 54
      Height = 12
      Caption = '物料标识:'
      TransParent = True
    end
    object DBText1: TDBText
      Left = 70
      Top = 16
      Width = 49
      Height = 14
      AutoSize = True
      DataField = 'ItemFlag'
      DataSource = DataSource
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 145
    Width = 772
    Height = 247
    inherited Image3: TImage
      Width = 772
      Height = 247
    end
    inherited DBGridEh: TDBGridEh
      Width = 772
      Height = 247
      FixedColor = clScrollBar
      ReadOnly = False
      OnExit = DBGridEhExit
      OnKeyPress = DBGridEhKeyPress
      OnTitleClick = DBGridEhTitleClick
      RowHeight = 4
      RowLines = 1
      SumList.Active = True
      SumList.ExternalRecalc = True
      SumList.VirtualRecords = True
      OptionsEh = [dghFixed3D, dghResizeWholeRightPArt, dghHighlightFocus, dghclearSelection, dghFitRowHeightToText, dghAutoSortMArking]
      Columns = <
        Item
          Color = clWhite
          PickList.Strings = (
            '1'
            '0')
          Title.Alignment = taCenter
          Title.Caption = '标记'
          Title.Color = 16744576
          Width = 31
          Footer.ValueType = fvtSum
          Footer.FieldName = '2002.08.15'
          Footer.WordWrAp = True
          KeyList.Strings = ()
          DblClickNextVal = True
          Checkboxes = True
        end
        Item
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 105
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 39
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '工时定额'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数据类型'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量合计'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '能力需求合计'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 349
    Top = 235
  end
  inherited ActionList: TActionList
    Left = 224
    Top = 216
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Save: TAction
      Caption = '暂存记录'
      Hint = '暂存记录'
      OnExecute = Act_SaveExecute
    end
    inherited Act_Order: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_SetColumn: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    BeforeEdit = AdoQry_MainBeforeEdit
    BeforePost = AdoQry_MainBeforePost
    OnNewRecord = AdoQry_MainNewRecord
    SQL.Strings = (
      'Exec SP_OblongSsMo '#39'630021'#39','#39'2002.08.31'#39','#39'2002.09.25'#39','#39'0'#39)
    Left = 304
    Top = 265
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Top = 209
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 280
    Top = 233
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 273
  end
end