pur120_02.dfm.svn-base

一个用Delphi开发的ERP软件

    Width = 121
    Height = 20
    ImeName = ''
    TabOrder = 7
    OnKeyPress = edtPriceKeyPress
  end
  object edtUnit: TEdit [18]
    Left = 456
    Top = 72
    Width = 57
    Height = 20
    Color = clBtnFace
    Enabled = False
    ImeName = ''
    TabOrder = 8
  end
  object edtItem: TEdit [19]
    Left = 80
    Top = 48
    Width = 121
    Height = 20
    ImeName = ''
    TabOrder = 9
    OnExit = edtItemExit
  end
  object edtItemName: TEdit [20]
    Left = 232
    Top = 48
    Width = 281
    Height = 20
    Color = clBtnFace
    Enabled = False
    ImeName = ''
    TabOrder = 10
  end
  inherited pmUISet: TPopupMenu
    Top = 144
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select * from PUR120 order by P120_001,P120_002,P120_003,P120_00' +
        '4')
    Top = 144
    object ADOQuery1O150_002: TStringField
      DisplayLabel = #20379#24212#21830#21495
      FieldKind = fkLookup
      FieldName = 'O150_002'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'P120_001'
      Lookup = True
    end
    object ADOQuery1O150_003: TStringField
      DisplayLabel = #20379#24212#21830#21517
      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 = #20135#21697#32534#21495
      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 = #20135#21697#21517#31216
      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 = #35268#26684#22411#21495
      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 = #21333#20301#32534#21495
      FieldKind = fkLookup
      FieldName = 'I140_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I140_002'
      KeyFields = 'P120_002'
      Lookup = True
    end
    object ADOQuery1I140_003: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldKind = fkLookup
      FieldName = 'I140_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I140_003'
      KeyFields = 'P120_002'
      Lookup = True
    end
    object ADOQuery1G100_002: TStringField
      DisplayLabel = #24065#21035
      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 = #29983#25928#26085#26399
      FieldName = 'P120_004'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1P120_005: TFloatField
      DisplayLabel = #37319#36141#20215#26684
      FieldName = 'P120_005'
      DisplayFormat = ',0.00'
    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 = 152
    Top = 40
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv150I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryInv150I140_002: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object qryInv150I140_003: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
      Size = 50
    end
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 280
    Top = 88
    object qryGld100G100_001: TAutoIncField
      FieldName = 'G100_001'
      ReadOnly = True
    end
    object qryGld100G100_002: TWideStringField
      FieldName = 'G100_002'
      Size = 10
    end
    object qryGld100G100_003: TWideStringField
      FieldName = 'G100_003'
      Size = 30
    end
    object qryGld100G100_004: TBooleanField
      FieldName = 'G100_004'
    end
    object qryGld100G100_005: TFloatField
      FieldName = 'G100_005'
    end
    object qryGld100G100_006: TWideStringField
      FieldName = 'G100_006'
      Size = 10
    end
  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 = 104
    Top = 16
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150O150_002: TWideStringField
      DisplayLabel = #20379#24212#21830#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TWideStringField
      DisplayLabel = #20379#24212#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
  end
end