inv145_02.dfm

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

    Flat = True
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C006000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
      000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
      000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
      8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
      00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
      000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
      FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
      000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00FFFFFF80808080808000000000000000000000000000000000000000000000
      0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
      00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
      000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
      0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
      BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
      0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
      0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    OnClick = sbToIDClick
  end
  object lblConvert: TLabel [9]
    Tag = 1
    Left = 24
    Top = 128
    Width = 48
    Height = 12
    Caption = #36716#25442#31995#25968
  end
  inherited bbtnOk: TBitBtn
    Left = 344
    Top = 168
    TabOrder = 9
  end
  inherited bbtnExit: TBitBtn
    Left = 432
    Top = 168
    TabOrder = 10
  end
  object edtCustID: TEdit [12]
    Left = 80
    Top = 24
    Width = 121
    Height = 20
    TabOrder = 0
    OnExit = edtCustIDExit
  end
  object edtCustName: TEdit [13]
    Left = 232
    Top = 24
    Width = 265
    Height = 20
    Color = clBtnFace
    Enabled = False
    TabOrder = 1
  end
  object edtItemID: TEdit [14]
    Left = 80
    Top = 48
    Width = 121
    Height = 20
    TabOrder = 2
    OnExit = edtItemIDExit
  end
  object edtItemName: TEdit [15]
    Left = 232
    Top = 48
    Width = 265
    Height = 20
    Color = clBtnFace
    Enabled = False
    TabOrder = 3
  end
  object edtFromUnitID: TEdit [16]
    Left = 80
    Top = 72
    Width = 121
    Height = 20
    TabOrder = 4
    OnExit = edtFromUnitIDExit
  end
  object edtFromUnitName: TEdit [17]
    Left = 232
    Top = 72
    Width = 265
    Height = 20
    Color = clBtnFace
    Enabled = False
    TabOrder = 5
  end
  object edtToUnitID: TEdit [18]
    Left = 80
    Top = 96
    Width = 121
    Height = 20
    TabOrder = 6
    OnExit = edtToUnitIDExit
  end
  object edtToUnitName: TEdit [19]
    Left = 232
    Top = 96
    Width = 265
    Height = 20
    Color = clBtnFace
    Enabled = False
    TabOrder = 7
  end
  object edtConvert: TEdit [20]
    Left = 80
    Top = 120
    Width = 121
    Height = 20
    TabOrder = 8
    OnKeyPress = edtConvertKeyPress
  end
  inherited pmUISet: TPopupMenu
    Top = 168
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select A.*,B.O150_002,B.O150_003,C.I150_002,C.I150_003,D.I140_00' +
        '2 as FFromUnitID,D.I140_003 as FFromUnitName,E.I140_002 as FToUn' +
        'itID,E.I140_003 as FToUnitName'
      'from ((((INV145 A left join ORD150 B on A.I145_001=B.O150_001) '
      '         left join INV150 C on A.I145_002=C.I150_001)'
      '         left join INV140 D on A.I145_003=D.I140_001)'
      '         left join INV140 E on A.I145_004=E.I140_001)'
      'order by A.I145_001,A.I145_002,A.I145_003')
    Top = 168
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150 order by O150_002')
    Left = 96
    Top = 16
    object qryOrd150O150_001: TAutoIncField
      FieldName = 'O150_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryOrd150O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150 order by I150_002')
    Left = 104
    Top = 48
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
  end
  object qryInv140: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I140_001,I140_002,I140_003 from INV140 order by I140_002')
    Left = 128
    Top = 72
    object qryInv140I140_001: TAutoIncField
      FieldName = 'I140_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv140I140_002: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'I140_002'
    end
    object qryInv140I140_003: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'I140_003'
      Size = 50
    end
  end
end