inv600_02.dfm.svn-base

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

    Left = 24
    Top = 272
    Width = 137
    Height = 20
    OnCustomDlg = edtItemIDCustomDlg
    ShowButton = True
    Style = csDropDown
    ReadOnly = True
    TabOrder = 4
    WordWrap = False
    UnboundDataType = wwDefault
  end
  inherited ActionList1: TActionList
    Top = 16
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select * from INV600A,INV100 where I600A_004=I100_001 order by I' +
        '600A_001')
    Top = 184
    object ADOQuery1I600A_001: TWideStringField
      DisplayLabel = #30424#28857#21333#21495
      FieldName = 'I600A_001'
      Size = 30
    end
    object ADOQuery1I600A_002: TWideStringField
      DisplayLabel = #30424#28857#21517#31216
      FieldName = 'I600A_002'
      Size = 60
    end
    object ADOQuery1I600A_003: TSmallintField
      DisplayLabel = #30424#28857#29366#24577
      FieldName = 'I600A_003'
    end
    object ADOQuery1I100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object ADOQuery1I100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
    object ADOQuery1I600A_004: TIntegerField
      FieldName = 'I600A_004'
      Visible = False
    end
    object ADOQuery1I600A_005: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987
      FieldName = 'I600A_005'
    end
    object ADOQuery1I600A_006: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104
      FieldName = 'I600A_006'
    end
    object ADOQuery1I600A_007: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987
      FieldName = 'I600A_007'
    end
    object ADOQuery1I600A_008: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104
      FieldName = 'I600A_008'
    end
    object ADOQuery1I600A_009: TIntegerField
      DisplayLabel = #39033#30446#25968#37327
      FieldName = 'I600A_009'
    end
    object ADOQuery1I600A_010: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'I600A_010'
    end
    object ADOQuery1I600A_011: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'I600A_011'
    end
    object ADOQuery1I600A_012: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'I600A_012'
    end
    object ADOQuery1I600A_013: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'I600A_013'
    end
    object ADOQuery1I600A_014: TMemoField
      FieldName = 'I600A_014'
      Visible = False
      BlobType = ftMemo
    end
  end
  inherited DataSource1: TDataSource
    Top = 184
  end
  object dsInv600B: TDataSource
    DataSet = adsInv600B
    Left = 64
    Top = 312
  end
  object adsInv600B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsInv600BBeforePost
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FItemSpec'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FUnitID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FLocNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FLocID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FLocName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FIsPrint'
        Attributes = [faFixed]
        DataType = ftBoolean
      end
      item
        Name = 'FIsFinish'
        Attributes = [faFixed]
        DataType = ftBoolean
      end>
    Parameters = <>
    StoreDefs = True
    Left = 96
    Top = 312
    object adsInv600BFItemID: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      DisplayWidth = 23
      FieldName = 'FItemID'
      Size = 30
    end
    object adsInv600BFItemName: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      DisplayWidth = 43
      FieldName = 'FItemName'
      Size = 60
    end
    object adsInv600BFItemSpec: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 37
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsInv600BFUnitName: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      DisplayWidth = 13
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsInv600BFLocID: TWideStringField
      DisplayLabel = #24211#20301#32534#21495
      DisplayWidth = 12
      FieldName = 'FLocID'
    end
    object adsInv600BFLocName: TWideStringField
      DisplayLabel = #24211#20301#21517#31216
      DisplayWidth = 26
      FieldName = 'FLocName'
      Size = 50
    end
    object adsInv600BFQty: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      DisplayWidth = 15
      FieldName = 'FQty'
    end
    object adsInv600BFIsPrint: TBooleanField
      DisplayLabel = #24050#25171#21360#21542
      DisplayWidth = 10
      FieldName = 'FIsPrint'
    end
    object adsInv600BFIsFinish: TBooleanField
      DisplayLabel = #24050#23436#25104#21542
      DisplayWidth = 10
      FieldName = 'FIsFinish'
    end
    object adsInv600BFNo: TIntegerField
      DisplayLabel = #30424#28857#21345#21495
      DisplayWidth = 10
      FieldName = 'FNo'
      Visible = False
    end
    object adsInv600BFLocNo: TIntegerField
      DisplayLabel = #24211#20301#32534#21495
      DisplayWidth = 10
      FieldName = 'FLocNo'
      Visible = False
    end
    object adsInv600BFItemNo: TIntegerField
      DisplayLabel = #26009#21697#32534#21495
      DisplayWidth = 10
      FieldName = 'FItemNo'
      Visible = False
    end
    object adsInv600BFUnitID: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      DisplayWidth = 15
      FieldName = 'FUnitID'
      Visible = False
    end
  end
  object pmInv600B: TPopupMenu
    OnPopup = pmInv600BPopup
    Left = 392
    Top = 344
    object mmiAdd: TMenuItem
      Caption = #26032#22686'(&I)'
      ShortCut = 32841
      OnClick = mmiAddClick
    end
    object mmiEdit: TMenuItem
      Caption = #20462#25913'(&U)'
      ShortCut = 32853
      OnClick = mmiEditClick
    end
    object mmiDel: TMenuItem
      Caption = #21024#38500'(&E)'
      ShortCut = 32837
      OnClick = mmiDelClick
    end
  end
  object qryInv100: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I100_001,I100_002,I100_003 from INV100 order by I100_002')
    Left = 136
    Top = 88
    object qryInv100I100_001: TAutoIncField
      FieldName = 'I100_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv100I100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object qryInv100I100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
  end
  object qryInv501: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,I100_002,I100_003,I110_003,I110_004,I150_002,I150_003' +
        ',I150_004,I140_002,I140_003 '
      'from ((((INV501 A left join INV100 B on A.I501_001=B.I100_001)'
      '        left join INV110 C on A.I501_002=C.I110_001)'
      '        left join INV150 D on A.I501_003=D.I150_001)'
      '        left join INV140 E on D.I150_011=E.I140_001)'
      'order by I100_002,I110_003,I150_002')
    Left = 80
    Top = 272
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <>
    Parameters = <>
    StoreDefs = True
    Left = 144
    Top = 312
  end
  object qryInv600B: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.I110_003,B.I110_004,C.I150_002,C.I150_003,C.I150_00' +
        '4,D.I140_002,D.I140_003'
      
        'from ((INV600B A left join INV110 B on A.I600B_004=B.I110_001) l' +
        'eft join INV150 C on A.I600B_003=C.I150_001) left join INV140 D ' +
        'on C.I150_011=D.I140_001'
      'order by I600B_002')
    Left = 96
    Top = 344
  end
end