pur120_01.dfm.svn-base

开源的网站整站程序,功能强大带采集系统.

inherited Pur120_01Form: TPur120_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = '采购价格维护'
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
      inherited ToolButton3: TToolButton
        Tag = 2
      end
      inherited ToolButton4: TToolButton
        Tag = 2
        Left = 296
      end
      inherited ToolButton7: TToolButton
        Left = 331
      end
      inherited ToolButton8: TToolButton
        Left = 384
      end
      inherited ToolButton5: TToolButton
        Left = 433
      end
      inherited tlbRefresh: TToolButton
        Left = 441
      end
      inherited tlbLocate: TToolButton
        Left = 476
      end
      inherited tlbSearch: TToolButton
        Left = 511
      end
      inherited tlbPrint: TToolButton
        Left = 546
      end
      inherited ToolButton6: TToolButton
        Left = 594
      end
      inherited tlbExit: TToolButton
        Left = 602
      end
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Filter.Criteria = {00000000}
      object dxDBGrid1O150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 300
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1I150_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 164
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 200
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1I150_004: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 200
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_004'
      end
      object dxDBGrid1I140_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I140_002'
      end
      object dxDBGrid1I140_003: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I140_003'
      end
      object dxDBGrid1G100_002: TdxDBGridLookupColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dxDBGrid1P120_004: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P120_004'
      end
      object dxDBGrid1P120_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'P120_005'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select * from PUR120 order by P120_001,P120_002,P120_003,P120_00' +
        '4')
    Top = 160
    object ADOQuery1O150_002: TStringField
      DisplayLabel = '供应商号'
      FieldKind = fkLookup
      FieldName = 'O150_002'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'P120_001'
      Lookup = True
    end
    object ADOQuery1O150_003: TStringField
      DisplayLabel = '供应商名'
      FieldKind = fkLookup
      FieldName = 'O150_003'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'P120_001'
      Size = 60
      Lookup = True
    end
    object ADOQuery1I150_002: TStringField
      DisplayLabel = '产品编号'
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'P120_002'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'P120_002'
      Size = 60
      Lookup = True
    end
    object ADOQuery1I150_004: TStringField
      DisplayLabel = '规格型号'
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'P120_002'
      Size = 60
      Lookup = True
    end
    object ADOQuery1I140_002: TStringField
      DisplayLabel = '单位编号'
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I140_002'
      KeyFields = 'P120_002'
      Lookup = True
    end
    object ADOQuery1I140_003: TStringField
      DisplayLabel = '单位名称'
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I140_003'
      KeyFields = 'P120_002'
      Lookup = True
    end
    object ADOQuery1G100_002: TStringField
      DisplayLabel = '币别'
      FieldKind = fkLookup
      FieldName = 'G100_002'
      LookupDataSet = qryGld100
      LookupKeyFields = 'G100_001'
      LookupResultField = 'G100_002'
      KeyFields = 'P120_003'
      Size = 10
      Lookup = True
    end
    object ADOQuery1P120_001: TIntegerField
      FieldName = 'P120_001'
      Visible = False
    end
    object ADOQuery1P120_002: TIntegerField
      FieldName = 'P120_002'
      Visible = False
    end
    object ADOQuery1P120_003: TIntegerField
      FieldName = 'P120_003'
      Visible = False
    end
    object ADOQuery1P120_004: TDateTimeField
      DisplayLabel = '生效日期'
      FieldName = 'P120_004'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1P120_005: TFloatField
      DisplayLabel = '采购价格'
      FieldName = 'P120_005'
      DisplayFormat = ',0.00'
    end
  end
  inherited ActionList1: TActionList
    inherited Action1: TAction
      Caption = '批增'
      ImageIndex = 17
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      Caption = '调价'
      ImageIndex = 18
      OnExecute = Action2Execute
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I140_001,I140_002,I14' +
        '0_003'
      'from INV150,INV140'
      'where I150_011=I140_001'
      'order by I150_002')
    Left = 112
    Top = 184
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 144
    Top = 184
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150 order by O150_002')
    Left = 80
    Top = 184
  end
end