inv310_01.dfm.svn-base

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

        FieldName = 'FOutQty'
        SummaryFooterType = cstCount
        SummaryFooterFormat = ',0.00'
      end
      object dxDBGrid1FInvQty: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FInvQty'
      end
    end
  end
  inherited pmPrint: TPopupMenu
    Left = 440
    Top = 8
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FBillNo'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FTypeNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FType'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FWhsID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FWhsName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FLocID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FLocName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FInQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FOutQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FInvQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    IndexFieldNames = 'FWhsID;FLocID;FDate;FBillNo'
    StoreDefs = True
    object ADODataSet1FDate: TDateTimeField
      DisplayLabel = #36827#20986#26085#26399
      FieldName = 'FDate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADODataSet1FBillNo: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'FBillNo'
    end
    object ADODataSet1FType: TStringField
      DisplayLabel = #25805#20316#31867#22411
      FieldName = 'FType'
      Size = 30
    end
    object ADODataSet1FWhsID: TStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'FWhsID'
    end
    object ADODataSet1FWhsName: TStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'FWhsName'
      Size = 50
    end
    object ADODataSet1FLocID: TStringField
      DisplayLabel = #24211#20301#32534#21495
      FieldName = 'FLocID'
    end
    object ADODataSet1FLocName: TStringField
      DisplayLabel = #24211#20301#21517#31216
      FieldName = 'FLocName'
      Size = 50
    end
    object ADODataSet1FRemark: TStringField
      DisplayLabel = #25688#35201#35828#26126
      FieldName = 'FRemark'
      Size = 60
    end
    object ADODataSet1FInQty: TFloatField
      DisplayLabel = #20837#24211#25968#37327
      FieldName = 'FInQty'
      DisplayFormat = ',0.00'
    end
    object ADODataSet1FOutQty: TFloatField
      DisplayLabel = #20986#24211#25968#37327
      FieldName = 'FOutQty'
      DisplayFormat = ',0.00'
    end
    object ADODataSet1FInvQty: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      FieldName = 'FInvQty'
      DisplayFormat = ',0.00'
    end
    object ADODataSet1FTypeNo: TIntegerField
      FieldName = 'FTypeNo'
      Visible = False
    end
  end
  object qryInv500: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 160
    Top = 152
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I140_003 from INV150,INV140 wh' +
        'ere I150_011=I140_001')
    Left = 328
    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
    object qryInv150I140_003: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
  end
  object adsLists: TADODataSet
    CacheSize = 1000
    Connection = SYSDM.ADOC
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'FParent'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    Parameters = <>
    StoreDefs = True
    Left = 216
    Top = 56
    object adsListsFNo: TIntegerField
      FieldName = 'FNo'
    end
    object adsListsFName: TStringField
      FieldName = 'FName'
      Size = 100
    end
    object adsListsFParent: TIntegerField
      FieldName = 'FParent'
    end
  end
  object adsInv100: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'I100_001'
        DataType = ftInteger
      end
      item
        Name = 'I100_002'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'I100_003'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'I110_001'
        DataType = ftInteger
      end
      item
        Name = 'I110_003'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'I110_004'
        DataType = ftString
        Size = 50
      end>
    Parameters = <>
    StoreDefs = True
    Left = 336
    Top = 136
  end
end