mrp_qry_informaluprightmrp_d_mo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_InformalUpRightMrp_D_Mo: TFrm_Mrp_Qry_InformalUpRightMrp_D_Mo
  Left = 181
  Top = 101
  Caption = '生产订单对应表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '生产订单对应表'
  end
  inherited Pnl_Head: TPanel
    Height = 60
    inherited Lbl_OrderTitle: TLabel
      Top = 71
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 62
    end
    inherited Lbl_Condition: TLabel
      Top = 56
    end
    inherited Lbl_Order: TLabel
      Top = 71
    end
    object Label2: TLabel
      Left = 179
      Top = 15
      Width = 48
      Height = 12
      Caption = '下单日期'
    end
    object Label1: TLabel
      Left = 16
      Top = 15
      Width = 60
      Height = 12
      Caption = '生产订单号'
    end
    object Label6: TLabel
      Left = 5
      Top = 39
      Width = 72
      Height = 12
      Caption = '销售类型代码'
    end
    object Label11: TLabel
      Left = 199
      Top = 39
      Width = 24
      Height = 12
      Caption = '备注'
    end
    object Label4: TLabel
      Left = 307
      Top = 13
      Width = 72
      Height = 12
      Caption = '受单部门代码'
    end
    object Edt_DeptCode: TEdit
      Left = 383
      Top = 7
      Width = 106
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 0
    end
    object MEdt_MoDate: TMaskEdit
      Left = 229
      Top = 7
      Width = 71
      Height = 20
      Enabled = False
      EditMask = '!9999.99.99;1;'
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
    end
    object Edt_MoNo: TEdit
      Left = 78
      Top = 7
      Width = 81
      Height = 20
      Enabled = False
      MaxLength = 16
      TabOrder = 2
    end
    object Edt_SaleType: TEdit
      Left = 78
      Top = 31
      Width = 81
      Height = 20
      Enabled = False
      MaxLength = 30
      TabOrder = 3
    end
    object Edt_MoRemArk: TEdit
      Left = 229
      Top = 31
      Width = 286
      Height = 20
      Enabled = False
      MaxLength = 150
      ReadOnly = True
      TabOrder = 4
    end
  end
  inherited Pnl_Body: TPanel
    Top = 117
    Height = 286
    inherited DBGridEh: TDBGridEh
      Height = 286
      Columns = <
        Item
          FieldName = 'MoLineNO'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 179
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Caption = '单位'
          Width = 32
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineDATE'
          PickList.Strings = ()
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MOQTY'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQTY'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 205
    Top = 139
  end
  inherited ActionList: TActionList
    Left = 192
    Top = 184
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      'Select mo.DeptCode,mo.mono,mo.modate,mo.SaleType,'
      '     mo.moremArk,'
      '      MoLine.*,Item.ItemName,Uom.UomName,'
      '      Itemflag=MoLine.ItemCode+'#39' '#39'+Item.ItemName'
      '      From MoLine'
      '      join mo on mo.mono=MoLine.mono'
      '      Left Outer Join Item On MoLine.ItemCode=Item.ItemCode'
      '      Left Outer Join Uom On Item.UomCode=Uom.UomCode')
    Left = 296
    Top = 225
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Size = 8
    end
    object AdoQry_Mainmono: TStringField
      FieldName = 'mono'
      Size = 16
    end
    object AdoQry_Mainmodate: TDateTimeField
      FieldName = 'modate'
    end
    object AdoQry_MainSaleType: TStringField
      FieldName = 'SaleType'
    end
    object AdoQry_MainmoremArk: TStringField
      FieldName = 'moremArk'
      Size = 150
    end
    object AdoQry_MainMONO_1: TStringField
      FieldName = 'MONO_1'
      Size = 16
    end
    object AdoQry_MainMoLineNO: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'MoLineNO'
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainMOQTY: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'MOQTY'
    end
    object AdoQry_MainMoLineDATE: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'MoLineDATE'
    end
    object AdoQry_MainMoNoFinishQTY: TFloatField
      DisplayLabel = '未结量'
      FieldName = 'MoNoFinishQTY'
    end
    object AdoQry_MainMoLineSTATUS: TIntegerField
      FieldName = 'MoLineSTATUS'
    end
    object AdoQry_MainMOStArtWorkDate: TDateTimeField
      FieldName = 'MOStArtWorkDate'
    end
    object AdoQry_MainMoRealInQty: TFloatField
      FieldName = 'MoRealInQty'
    end
    object AdoQry_MainMoInQty: TFloatField
      FieldName = 'MoInQty'
    end
    object AdoQry_MainMoLineCheck: TIntegerField
      FieldName = 'MoLineCheck'
    end
    object AdoQry_MainSSQty: TFloatField
      FieldName = 'SSQty'
    end
    object AdoQry_MainCloseRemArk: TStringField
      FieldName = 'CloseRemArk'
      Size = 60
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 177
  end
end