inv_realopqty_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_RealOpQty_B: TFrm_Inv_RealOpQty_B
  Left = -106
  Top = 24
  Caption = '委外加工产品入库核定'
  ClientHeight = 517
  ClientWidth = 786
  Position = poMainformCenter
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 786
    inherited ToolBar: TToolBar
      inherited ToolButton2: TToolButton
        Action = Act_Check
        Enabled = False
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 786
    Height = 39
    Caption = '委外加工产品入库核定'
  end
  inherited Pnl_Head: TPanel
    Top = 69
    Width = 786
    Height = 41
    object Label1: TLabel
      Left = 17
      Top = 2
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label4: TLabel
      Left = 416
      Top = 2
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label5: TLabel
      Left = 659
      Top = 19
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Label10: TLabel
      Left = 648
      Top = 2
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object Lbl_WhCode: TLabel
      Left = 53
      Top = 2
      Width = 60
      Height = 12
      Caption = 'Lbl_WhCode'
    end
    object lbl_WhPositionCode: TLabel
      Left = 461
      Top = 2
      Width = 108
      Height = 12
      Caption = 'lbl_WhPositionCode'
    end
    object Label2: TLabel
      Left = 378
      Top = 19
      Width = 72
      Height = 12
      Caption = '采购订单号：'
    end
    object Lbl_PoNo: TLabel
      Left = 453
      Top = 19
      Width = 48
      Height = 12
      Caption = 'Lbl_PoNo'
    end
    object Label9: TLabel
      Left = 5
      Top = 19
      Width = 48
      Height = 12
      Caption = '供应商：'
    end
    object Lbl_Vendor: TLabel
      Left = 53
      Top = 19
      Width = 60
      Height = 12
      Caption = 'Lbl_Vendor'
    end
    object Lbl_BillNo: TLabel
      Left = 696
      Top = 2
      Width = 60
      Height = 12
      Caption = 'Lbl_BillNo'
    end
    object Lbl_Date: TLabel
      Left = 696
      Top = 19
      Width = 48
      Height = 12
      Caption = 'Lbl_Date'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 332
    Width = 786
    Height = 185
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 786
      Height = 185
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGridEhDblClick
      OnGetCellParams = DBGridEh1GetCellParams
      Columns = <
        Item
          FieldName = 'ItemCode'
          Title.Alignment = taCenter
          Title.Caption = '子项物料代码'
          Width = 125
        end
        Item
          FieldName = 'ItemName'
          Title.Alignment = taCenter
          Title.Caption = '子项物料描述'
          Width = 250
        end
        Item
          FieldName = 'RealOpQty'
          Title.Alignment = taCenter
          Title.Caption = '定额'
          Width = 91
        end
        Item
          FieldName = 'RealOPScrAp_Percent'
          Title.Alignment = taCenter
          Title.Caption = '损耗'
          Width = 74
        end
        Item
          FieldName = 'RealOpQtyNew'
          Title.Alignment = taCenter
          Title.Caption = '实际定额'
          Width = 65
        end
        Item
          FieldName = 'RealOPScrAp_PercentNew'
          Title.Alignment = taCenter
          Title.Caption = '实际损耗'
          Width = 72
        end>
    end
  end
  inherited Pnl_Body: TPanel
    Width = 786
    Height = 222
    inherited DBGridEh: TDBGridEh
      Width = 786
      Height = 189
      OnDblClick = nil
      Columns = <
        Item
          FieldName = 'polineno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单行号'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BilllineremArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 96
          KeyList.Strings = ()
        end>
    end
    object Panel2: TPanel
      Left = 0
      Top = 189
      Width = 786
      Height = 33
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label3: TLabel
        Left = 8
        Top = 11
        Width = 96
        Height = 12
        Caption = '当前行物料描述：'
      end
      object DBText1: TDBText
        Left = 112
        Top = 11
        Width = 42
        Height = 12
        AutoSize = True
        DataField = 'ItemName'
        DataSource = DataSource
      end
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Visible = False
    end
    inherited Act_Save: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Hint: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Mange: TAction
      Caption = '定额修改'
      Hint = '定额修改'
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      'select '
      '  bl.polineno,'
      '  bl.BilllineremArk,'
      '  bl.InvBillid,'
      '  bl.InvBilllineno,'
      '  bl.InvBillqty,'
      '  bl.ItemCode,'
      '  i.ItemName,'
      '  u.UomName,'
      '  bl.InvBillPrice,'
      '  bl.InvBillAmount,'
      '  bl.InvBillnotaxPrice,'
      '  bl.InvBillnotaxAmount, '
      '  bl.Valuation'
      'from InvInBillline bl,Item i,Uom u '
      'where bl.InvBillid=1'
      '  and bl.ItemCode=i.ItemCode '
      '  and i.UomCode=u.UomCode ')
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
  end
  object AdoQry_Material: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB;Use Encryption for Data=False;Tag with co'
    CurSorType = ctStatic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      'Select RealOpQty.InvBillId'
      '    ,RealOpQty.InvBillLineNo'
      '    ,RealOpQty.Ite_ItemCode'
      '    ,RealOpQty.ItemCode'
      '    ,Item2.ItemName'
      '    ,RealOpQty.Ite_ItemCode+'#39' '#39'+Item1.ItemName As Ite_ItemName'
      '    ,RealOpQty.RealOpQty'
      '    ,RealOpQty.RealOPScrAp_Percent'
      '    ,RealOpQty.RealOpQtyNew'
      '    ,RealOpQty.RealOPScrAp_PercentNew'
      '     From RealOpQty'
      
        '     Left Join Item Item1 On RealOpQty.Ite_ItemCode=Item1.ItemCo' +
        'de'
      '     Left Join Item Item2 On RealOpQty.ItemCode=Item2.ItemCode'
      ' ')
    Left = 176
    Top = 460
    object AdoQry_MaterialInvBillId: TIntegerField
      FieldName = 'InvBillId'
    end
    object AdoQry_MaterialInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      Size = 10
    end
    object AdoQry_MaterialIte_ItemCode: TStringField
      FieldName = 'Ite_ItemCode'
      Size = 16
    end
    object AdoQry_MaterialItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MaterialItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_MaterialIte_ItemName: TStringField
      FieldName = 'Ite_ItemName'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MaterialRealOpQty: TFloatField
      FieldName = 'RealOpQty'
      DisplayFormat = '0.########'
    end
    object AdoQry_MaterialRealOPScrAp_Percent: TFloatField
      FieldName = 'RealOPScrAp_Percent'
      DisplayFormat = '0.########'
    end
    object AdoQry_MaterialRealOpQtyNew: TFloatField
      FieldName = 'RealOpQtyNew'
      DisplayFormat = '0.########'
    end
    object AdoQry_MaterialRealOPScrAp_PercentNew: TFloatField
      FieldName = 'RealOPScrAp_PercentNew'
      DisplayFormat = '0.########'
    end
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Material
    Left = 120
    Top = 460
  end
end