pm_fakepc_h.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_FakePc_H: TFrm_Pm_FakePc_H
  Left = 33
  Top = 88
  Caption = '付款合同维护'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '付款合同维护'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FakePcno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '合同号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'pcdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '签约日期'
          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'
    CurSorType = ctStatic
    SQL.Strings = (
      'select '
      '  FakePc.FakePcno,'
      '  FakePc.VendorCode,'
      '  Vendor.VendorName,'
      '  FakePc.taxrate,'
      '  FakePc.hastax,'
      '  FakePc.pcdate,'
      '  FakePc.signlocation,'
      '  FakePc.pcType,'
      '  FakePc.pcno,'
      '  FakePc.term1,'
      '  FakePc.term2,'
      '  FakePc.term3,'
      '  FakePc.term4,'
      '  FakePc.term5,'
      '  FakePc.term6,'
      '  FakePc.term7,'
      '  FakePc.term8,'
      '  FakePc.term9,'
      '  FakePc.term10'
      'from FakePc'
      '  join Vendor on FakePc.VendorCode=Vendor.VendorCode')
    object AdoQry_HeadFakePcno: TStringField
      FieldName = 'FakePcno'
      Origin = 'FakePc'
      Size = 16
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'FakePc'
      Size = 12
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_Headtaxrate: TIntegerField
      FieldName = 'taxrate'
    end
    object AdoQry_Headhastax: TIntegerField
      FieldName = 'hastax'
    end
    object AdoQry_Headpcdate: TDateTimeField
      FieldName = 'pcdate'
      Origin = 'FakePc'
    end
    object AdoQry_Headsignlocation: TStringField
      FieldName = 'signlocation'
      Size = 200
    end
    object AdoQry_HeadpcType: TIntegerField
      FieldName = 'pcType'
    end
    object AdoQry_Headpcno: TStringField
      FieldName = 'pcno'
      Size = 16
    end
    object AdoQry_Headterm1: TStringField
      FieldName = 'term1'
      Size = 250
    end
    object AdoQry_Headterm2: TStringField
      FieldName = 'term2'
      Size = 250
    end
    object AdoQry_Headterm3: TStringField
      FieldName = 'term3'
      Size = 250
    end
    object AdoQry_Headterm4: TStringField
      FieldName = 'term4'
      Size = 250
    end
    object AdoQry_Headterm5: TStringField
      FieldName = 'term5'
      Size = 250
    end
    object AdoQry_Headterm6: TStringField
      FieldName = 'term6'
      Size = 250
    end
    object AdoQry_Headterm7: TStringField
      FieldName = 'term7'
      Size = 250
    end
    object AdoQry_Headterm8: TStringField
      FieldName = 'term8'
      Size = 250
    end
    object AdoQry_Headterm9: TStringField
      FieldName = 'term9'
      Size = 250
    end
    object AdoQry_Headterm10: TStringField
      FieldName = 'term10'
      Size = 250
    end
  end
end