inv_opoutsale_h.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 190 行

inherited Frm_Inv_OpOutSale_H: TFrm_Inv_OpOutSale_H
  Left = -5
  Top = 127
  Caption = ''
  ClientHeight = 442
  Position = poDefault
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 144
      Caption = '供应商，订单号，订单行号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 412
    Height = 30
    object Label1: TLabel
      Left = 7
      Top = 11
      Width = 72
      Height = 12
      Caption = '当前供应商：'
    end
    object Label2: TLabel
      Left = 360
      Top = 11
      Width = 60
      Height = 12
      Caption = '当前物料：'
    end
    object DBText1: TDBText
      Left = 81
      Top = 10
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
    end
    object DBText2: TDBText
      Left = 419
      Top = 10
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 315
    inherited DBGridEh: TDBGridEh
      Height = 315
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OnDblClick = Act_NewExecute
      Columns = <
        Item
          FieldName = 'Vendor'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 155
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Item'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 293
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PolineDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货期'
          Width = 73
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      Caption = '增加'
      Enabled = False
      Hint = '增加'
      ShortCut = 45
      Visible = False
    end
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Look: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select Po.PoNo,PoLine.PoLineNo,PoLine.ItemCode,Item.ItemName,PoL' +
        'ine.PoQty,Poline.PolineDate,po.PoSpecial,po.VendorCode,'
      
        '      Po.VendorCode+'#39' '#39'+V.VendorName Vendor,PoLine.ItemCode+'#39' '#39'+' +
        'Item.ItemName Item,v.VendorName'
      '  from PoLine '
      'join Po  on Po.PoNo=PoLine.PoNo'
      '         and Poline.PolineStatus=6'
      'Join Item on Item.ItemCode=PoLine.ItemCode'
      'Join Vendor V on V.VendorCode=Po.VendorCode'
      ''
      '')
    object AdoQry_HeadPoNo: TStringField
      FieldName = 'PoNo'
      Size = 16
    end
    object AdoQry_HeadPoLineNo: TIntegerField
      FieldName = 'PoLineNo'
    end
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_HeadPoQty: TFloatField
      FieldName = 'PoQty'
    end
    object AdoQry_HeadPolineDate: TDateTimeField
      FieldName = 'PolineDate'
    end
    object AdoQry_HeadPoSpecial: TIntegerField
      FieldName = 'PoSpecial'
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_HeadVendor: TStringField
      FieldName = 'Vendor'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadItem: TStringField
      FieldName = 'Item'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
  end
end