pm_oppobalance_h.dfm

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

inherited Frm_Pm_OpPoBalance_H: TFrm_Pm_OpPoBalance_H
  Left = 7
  Top = 73
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '供应商代码/订单号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'PoTmpFlag'
          PickList.Strings = (
            ''
            '已结算')
          Title.Alignment = taCenter
          Title.Caption = '结算标志'
          Width = 73
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单号'
          Width = 118
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          Width = 279
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '下达日期'
          Width = 146
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Head: 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'
    SQL.Strings = (
      'Select Po.PoTmpFlag'
      '    ,Po.PoNo'
      '    ,Po.VendorCode'
      '    ,Vendor.VendorName'
      '    ,Po.PoDate'
      '     From Po'
      '     Join Vendor On Vendor.VendorCode=Po.VendorCode'
      '     Where Po.PoType=1'
      '     And  Po.PoNo Not In'
      '     (Select Distinct PoNo From PoLine Where PoLineStatus<>7)')
    object AdoQry_HeadPoTmpFlag: TIntegerField
      FieldName = 'PoTmpFlag'
      Origin = 'Po'
    end
    object AdoQry_HeadPoNo: TStringField
      FieldName = 'PoNo'
      Origin = 'Po'
      Size = 16
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'Po'
      Size = 12
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_HeadPoDate: TDateTimeField
      FieldName = 'PoDate'
      Origin = 'Po'
    end
  end
end