mrp_qry_chginfomo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_ChgInfoMo: TFrm_Mrp_Qry_ChgInfoMo
  Left = -68
  Top = 104
  Caption = '生产订单表体操作日志'
  ClientWidth = 761
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 761
  end
  inherited Pnl_Title: TPanel
    Width = 761
    Caption = '生产订单表体操作日志'
  end
  inherited Pnl_Head: TPanel
    Width = 761
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '生产订单号/订单行号/操作时间'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 761
  end
  inherited Pnl_Body: TPanel
    Width = 761
    inherited DBGridEh: TDBGridEh
      Width = 761
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'MoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产订单号'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代号'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 206
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineStatus'
          PickList.Strings = (
            '1 系统建议'
            '5 准备'
            '6 下达'
            '7 关闭'
            '8 永久关闭')
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 53
          KeyList.Strings = (
            '1'
            '5'
            '6'
            '7'
            '8')
        end
        Item
          FieldName = 'MoQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MOStArtWorkDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定开工日'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货日'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoNoFinishQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未未结量'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoRealInQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际入库量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CloseRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '关闭备注'
          Width = 313
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作类型'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员代号'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgTime'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作时间'
          Width = 121
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Backflush'
          PickList.Strings = (
            ''
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否拉式领料'
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 384
    Top = 304
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select MoNo,MoLineNo,MoLineHistory.ItemCode,MoLineHistory.Backfl' +
        'ush,MoLineHistory.ItemCode+'#39' '#39'+Item.ItemName As ItemFalg,MoLineS' +
        'tatus,MoQty,MOStArtWorkDate,'
      
        'MoLineDate,MoNoFinishQty,MoRealInQty,CloseRemArk,chgType,chgempl' +
        'oyeeCode,Employee.EmployeeName, chgTime '
      
        'from MoLineHistory join Employee on MoLineHistory.chgEmployeecod' +
        'e=Employee.EmployeeCode'
      '              join Item on MoLineHistory.ItemCode=Item.ItemCode')
    Left = 528
    Top = 289
    object AdoQry_MainMoNo: TStringField
      FieldName = 'MoNo'
      Origin = 'MoLineHistory'
      Size = 16
    end
    object AdoQry_MainMoLineNo: TIntegerField
      FieldName = 'MoLineNo'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'MoLineHistory'
      Size = 16
    end
    object AdoQry_MainItemFalg: TStringField
      FieldName = 'ItemFalg'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainMoLineStatus: TIntegerField
      FieldName = 'MoLineStatus'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainMoQty: TFloatField
      FieldName = 'MoQty'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainMOStArtWorkDate: TDateTimeField
      FieldName = 'MOStArtWorkDate'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainMoLineDate: TDateTimeField
      FieldName = 'MoLineDate'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainMoNoFinishQty: TFloatField
      FieldName = 'MoNoFinishQty'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainMoRealInQty: TFloatField
      FieldName = 'MoRealInQty'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainCloseRemArk: TStringField
      FieldName = 'CloseRemArk'
      Origin = 'MoLineHistory'
      Size = 60
    end
    object AdoQry_MainchgType: TStringField
      FieldName = 'chgType'
      Origin = 'MoLineHistory'
      Size = 10
    end
    object AdoQry_MainchgEmployeeCode: TStringField
      FieldName = 'chgEmployeeCode'
      Origin = 'MoLineHistory'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Size = 60
    end
    object AdoQry_MainchgTime: TDateTimeField
      FieldName = 'chgTime'
      Origin = 'MoLineHistory'
    end
    object AdoQry_MainBackflush: TIntegerField
      FieldName = 'Backflush'
    end
  end
  inherited DataSource: TDataSource
    Left = 432
    Top = 249
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 152
    Top = 305
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 264
    Top = 297
  end
end