mrp_qry_informaltotalmrp_sys.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_InformalTotalMrp_Sys: TFrm_Mrp_Qry_InformalTotalMrp_Sys
  Left = 26
  Top = 93
  Caption = '系统建议表'
  ClientWidth = 729
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 729
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 729
    Caption = '系统建议表'
  end
  inherited Pnl_Head: TPanel
    Width = 729
    Height = 7
    inherited Lbl_OrderTitle: TLabel
      Top = 58
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 43
    end
    inherited Lbl_Condition: TLabel
      Top = 43
    end
    inherited Lbl_Order: TLabel
      Top = 58
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 729
  end
  inherited Pnl_Body: TPanel
    Top = 64
    Width = 729
    Height = 339
    inherited DBGridEh: TDBGridEh
      Width = 729
      Height = 339
      FrozenCols = 5
      Columns = <
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptVendorCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptFlag'
          PickList.Strings = ()
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Width = 171
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 29
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SSSysInfoFlag'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ssName'
          PickList.Strings = ()
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OrderNo'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OrderLineNo'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OrderLineStatus'
          PickList.Strings = (
            '5 准备'
            '6 下达'
            '7 关闭'
            '8 永久关闭')
          Width = 44
          KeyList.Strings = (
            '5'
            '6'
            '7'
            '8')
        end
        Item
          FieldName = 'SSQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReMainQty'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'duedate'
          PickList.Strings = ()
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SSDate'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 165
    Top = 115
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 168
  end
  inherited AdoQry_Main: TAdoQuery
    SQL.Strings = (
      'Select InformalSS.*,Item.ItemName,UomName,Dept.DeptName,'
      '     Dept.DeptCode,'
      '     ssName='#39'fdsdfdsffdsdsffdgfd'#39','
      'EmployeeCode=Employee.EmployeeCode,'
      'EmployeeName=Employee.EmployeeName,'
      'Employeeflag=Employee.EmployeeCode+'#39' '#39'+Employee.EmployeeName,'
      'Item.ItemCode+'#39' '#39'+Item.ItemName As ItemFlag,'
      'Dept.DeptCode+'#39' '#39'+Dept.DeptName As DeptFlag'
      'From InformalSS'
      'Join Item On InformalSS.ItemCode=Item.ItemCode'
      
        'left outer join Employee on Item.Pla_EmployeeCode=Employee.emplo' +
        'yeeCode'
      'Left Outer Join Uom On '
      'Item.UomCode=Uom.UomCode'
      'Left Outer Join Dept On InformalSS.DeptVendorCode=Dept.DeptCode'
      
        '      Order by InformalSS.DeptVendorCode,InformalSs.ItemCode,inf' +
        'ormalSS.SSDate')
    Left = 224
    Top = 225
    object AdoQry_MainSSId: TAutoIncField
      FieldName = 'SSId'
      ReadOnly = True
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainSSSysInfoFlag: TIntegerField
      DisplayLabel = '建议信息'
      FieldName = 'SSSysInfoFlag'
    end
    object AdoQry_MaInOrderNo: TStringField
      DisplayLabel = '订单号'
      FieldName = 'OrderNo'
      Size = 16
    end
    object AdoQry_MaInOrderLineNo: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'OrderLineNo'
    end
    object AdoQry_MainSSDate: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'SSDate'
    end
    object AdoQry_MainSSQty: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'SSQty'
    end
    object AdoQry_MainPmType: TIntegerField
      FieldName = 'PmType'
    end
    object AdoQry_MainGrossRequireQty: TFloatField
      FieldName = 'GrossRequireQty'
    end
    object AdoQry_MaInPlanInvQty: TFloatField
      FieldName = 'PlanInvQty'
    end
    object AdoQry_MaInOrderLineStatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'OrderLineStatus'
    end
    object AdoQry_MainDeptVendorCode: TStringField
      FieldName = 'DeptVendorCode'
      Size = 12
    end
    object AdoQry_Mainduedate: TDateTimeField
      DisplayLabel = '约定开工日'
      FieldName = 'duedate'
    end
    object AdoQry_MainReMainQty: TFloatField
      DisplayLabel = '系统建议余量'
      FieldName = 'ReMainQty'
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料名称'
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Size = 40
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Size = 8
    end
    object AdoQry_MainItemFlag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainDeptFlag: TStringField
      DisplayLabel = '部门标识'
      FieldName = 'DeptFlag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Size = 60
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '计划员ID'
      FieldName = 'Employeeflag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainssName: TStringField
      DisplayLabel = '建议信息'
      FieldName = 'ssName'
      ReadOnly = True
      Size = 19
    end
  end
end