mrp_qry_moh.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_MoH: TFrm_Mrp_Qry_MoH
  Left = 106
  Top = 94
  Caption = '生产订单查询'
  ClientWidth = 767
  Position = poDefault
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 767
  end
  inherited Pnl_Title: TPanel
    Width = 767
    Caption = '生产订单查询'
  end
  inherited Pnl_Head: TPanel
    Width = 767
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '部门代码/下单日期/生产订单号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 408
    Width = 767
    Height = 33
    object Label1: TLabel
      Left = 5
      Top = 6
      Width = 60
      Height = 12
      Caption = '部门标识：'
    end
    object DBText1: TDBText
      Left = 77
      Top = 6
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'DeptFlag'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 2
      Top = 21
      Width = 72
      Height = 12
      Caption = '生产订单号：'
    end
    object DBText2: TDBText
      Left = 77
      Top = 21
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'MONO'
      DataSource = DataSource
    end
    object Label3: TLabel
      Left = 647
      Top = 22
      Width = 60
      Height = 12
      Caption = '销售标识：'
    end
    object DBText3: TDBText
      Left = 709
      Top = 22
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SaleFlag'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 767
    Height = 311
    inherited DBGridEh: TDBGridEh
      Width = 767
      Height = 311
      Columns = <
        Item
          FieldName = 'MODATE'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '下单日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MONO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产订单号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门代码'
          Width = 50
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门名称'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门标识'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SysParamCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型'
          Width = 80
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SysParamValuec'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售描述'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售标识'
          Width = 120
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MORemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 150
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 218
    Top = 174
    inherited Act_Modify: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    SQL.Strings = (
      
        ' Select Mo.*,Dept.DeptName,SysParam.SysParamCode,SysParam.SysPAr' +
        'amValuec ,'
      '               Dept.DeptCode+'#39' '#39'+Dept.DeptName As DeptFlag,'
      
        '               SysParam.SysParamCode+'#39' '#39'+SysParam.SysParamValuec' +
        ' As SaleFlag'
      '                From Mo '
      
        '                Left Outer Join Dept On Mo.DeptCode=Dept.DeptCod' +
        'e'
      
        '                Join SysParam On SysParam.SysParamCode=Mo.Salety' +
        'pe')
    object AdoQry_HeadMONO: TStringField
      FieldName = 'MONO'
      Origin = 'mo'
      Size = 16
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'mo'
      Size = 8
    end
    object AdoQry_HeadMODATE: TDateTimeField
      FieldName = 'MODATE'
      Origin = 'mo'
      DisplayFormat = 'yyyy.mm.dd'
    end
    object AdoQry_HeadMORemArk: TStringField
      FieldName = 'MORemArk'
      Origin = 'mo'
      Size = 150
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_HeadMOSpecial: TIntegerField
      FieldName = 'MOSpecial'
      Origin = 'Mo'
    end
    object AdoQry_HeadSaleType: TStringField
      FieldName = 'SaleType'
      Origin = 'Mo'
    end
    object AdoQry_HeadSysParamCode: TStringField
      FieldName = 'SysParamCode'
      Origin = 'SysParam'
    end
    object AdoQry_HeadSysParamValuec: TStringField
      FieldName = 'SysParamValuec'
      Origin = 'SysParam'
      Size = 100
    end
    object AdoQry_HeadDeptFlag: TStringField
      FieldName = 'DeptFlag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadSaleFlag: TStringField
      FieldName = 'SaleFlag'
      ReadOnly = True
      Size = 121
    end
  end
end