inv_opout_h.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OpOut_H: TFrm_Inv_OpOut_H
  Left = 110
  Top = 121
  Caption = ''
  ClientHeight = 442
  Position = poDefault
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  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 = 412
    Height = 30
    inherited Image4: TImage
      Height = 30
    end
    object Label1: TLabel
      Left = 7
      Top = 11
      Width = 72
      Height = 12
      Caption = #24403#21069#20379#24212#21830#65306
    end
    object Label2: TLabel
      Left = 360
      Top = 11
      Width = 60
      Height = 12
      Caption = #24403#21069#29289#26009#65306
    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 Image3: TImage
      Height = 315
    end
    inherited DBGridEh: TDBGridEh
      Height = 315
      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 = 155
        end
        Item
          EditButtons = <>
          FieldName = 'PoNo'
          Footers = <>
          Title.Caption = #37319#36141#35746#21333#21495
          Width = 90
        end
        Item
          EditButtons = <>
          FieldName = 'PoLineNo'
          Footers = <>
          Title.Caption = #35746#21333#34892#21495
        end
        Item
          EditButtons = <>
          FieldName = 'Item'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'PoQty'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#37327
          Width = 68
        end
        Item
          EditButtons = <>
          FieldName = 'PolineDate'
          Footers = <>
          Title.Caption = #32422#23450#20132#36135#26399
          Width = 73
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      Caption = #22686#21152
      Enabled = False
      Hint = #22686#21152
      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