inv_qry_invcancelmps.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Qry_InvCancelMps: TFrm_Inv_Qry_InvCancelMps
  Left = 36
  Caption = '生产入库核销主计划查询'
  ClientWidth = 717
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 717
  end
  inherited Pnl_Title: TPanel
    Width = 717
    Caption = '生产入库核销主计划查询'
    inherited Image2: TImage
      Width = 717
    end
  end
  inherited Pnl_Head: TPanel
    Width = 717
    inherited Image1: TImage
      Width = 717
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 30
      Caption = 'MpsID'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 717
    inherited Image4: TImage
      Width = 717
    end
  end
  inherited Pnl_Body: TPanel
    Width = 717
    inherited Image3: TImage
      Width = 717
    end
    inherited DBGridEh: TDBGridEh
      Width = 717
      Columns = <
        Item
          FieldName = 'MpsID'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 274
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产入库单号'
          Width = 107
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '生产入库单行号'
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CancelQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '核销主计划量'
          Width = 116
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 613
    Top = 1
  end
  inherited ActionList: TActionList
    Left = 453
    Top = 1
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=ExtDATAS' +
      'ERVER;Use procedure for Prepare=1;Auto Translate=True;Packet Siz' +
      'e=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select Inv_InvCancelMps.MpsID,'
      '   '
      '     InvInBillline.ItemCode,'
      '     Item.ItemName,'
      '     InvInBillline.ItemCode+'#39' '#39'+Item.ItemName as ItemCodeName,'
      '     InvInBill.InvBillno,'
      ' '#9'Inv_InvCancelMps.InvBillLineNo,'
      #9'Inv_InvCancelMps.CancelQty '
      
        'from Inv_InvCancelMps left join InvInBillline on Inv_InvCancelMp' +
        's.InvBillid=InvInBillline.InvBillid '
      
        '                                     and Inv_InvCancelMps.Invbil' +
        'llineNo=InvInBillline.InvBilllineNo'
      
        'left join InvInBill on InvInBill.InvBillid=InvInBillline.InvBill' +
        'id'
      'left join Item on InvInBillline.ItemCode=Item.ItemCode')
    Left = 485
    Top = 1
    object AdoQry_MainMpsID: TIntegerField
      FieldName = 'MpsID'
      Origin = 'Inv_InvCancelMps'
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'InvInBillline'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_MainItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainInvBillno: TStringField
      FieldName = 'InvBillno'
      Origin = 'InvInBill'
      Size = 10
    end
    object AdoQry_MainInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      Origin = 'Inv_InvCancelMps'
      Size = 10
    end
    object AdoQry_MainCancelQty: TFloatField
      FieldName = 'CancelQty'
      Origin = 'Inv_InvCancelMps'
    end
  end
  inherited DataSource: TDataSource
    Left = 517
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 549
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 581
    Top = 1
  end
end