inv_opsumout_h.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OpSumOut_H: TFrm_Inv_OpSumOut_H
  Left = -85
  Top = 125
  Caption = #22996#22806#21152#24037#21512#24182#39046#26009
  ClientHeight = 453
  Position = poDefault
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #22996#22806#21152#24037#21512#24182#39046#26009
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 144
      Caption = #20379#24212#21830#65292#35746#21333#21495#65292#35746#21333#34892#21495
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 423
    Height = 30
    inherited Image4: TImage
      Height = 30
    end
    object Label1: TLabel
      Left = 5
      Top = 12
      Width = 72
      Height = 12
      Caption = #24403#21069#20379#24212#21830#65306
    end
    object Label2: TLabel
      Left = 372
      Top = 12
      Width = 60
      Height = 12
      Caption = #24403#21069#29289#26009#65306
    end
    object DBText1: TDBText
      Left = 75
      Top = 12
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
    end
    object DBText2: TDBText
      Left = 432
      Top = 12
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 326
    inherited Image3: TImage
      Height = 326
    end
    inherited DBGridEh: TDBGridEh
      Height = 326
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OnDblClick = Act_NewExecute
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'Vendor'
          Footers = <>
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 208
        end
        Item
          EditButtons = <>
          FieldName = 'PoNo'
          Footers = <>
          Title.Caption = #37319#36141#35746#21333#21495
          Width = 75
        end
        Item
          EditButtons = <>
          FieldName = 'PoLineNo'
          Footers = <>
          Title.Caption = #35746#21333#34892#21495
          Width = 56
        end
        Item
          EditButtons = <>
          FieldName = 'Item'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 252
        end
        Item
          EditButtons = <>
          FieldName = 'PoQty'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#37327
          Width = 72
        end
        Item
          EditButtons = <>
          FieldName = 'PolineDate'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#26085#26399
          Width = 78
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      Enabled = False
      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'
    SQL.Strings = (
      
        'select po.VendorCode+'#39' '#39'+VendorName Vendor,Vendor.VendorName,Po.' +
        'PoNo,PoLine.PoLineNo,PoLine.ItemCode+'#39' '#39'+Item.ItemName Item,PoLi' +
        'ne.PoQty,Poline.PolineDate,po.PoSpecial,Item.ItemName,po.Vendorc' +
        'ode,poline.ItemCode'
      '  from PoLine '
      'join Po  on Po.PoNo=PoLine.PoNo'
      '         and Poline.PolineStatus=6'
      'Join Item on Item.ItemCode=PoLine.ItemCode'
      'join Vendor on Vendor.VendorCode=po.VendorCode'
      ''
      ''
      '')
    object AdoQry_HeadVendor: TStringField
      FieldName = 'Vendor'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadPoNo: TStringField
      FieldName = 'PoNo'
      Size = 16
    end
    object AdoQry_HeadPoLineNo: TIntegerField
      FieldName = 'PoLineNo'
    end
    object AdoQry_HeadItem: TStringField
      FieldName = 'Item'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_HeadPoQty: TFloatField
      FieldName = 'PoQty'
    end
    object AdoQry_HeadPolineDate: TDateTimeField
      FieldName = 'PolineDate'
    end
    object AdoQry_HeadPoSpecial: TIntegerField
      FieldName = 'PoSpecial'
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_HeadItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
  end
end