csh510_02.dfm

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

        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTasCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 20
      end>
    Parameters = <>
    StoreDefs = True
    Left = 200
    Top = 384
    object adsCsh510BFInvCode: TStringField
      DisplayLabel = #21457#31080#32534#21495
      DisplayWidth = 20
      FieldName = 'FInvCode'
    end
    object adsCsh510BFTasCode: TStringField
      DisplayLabel = #20219#21153#24037#21333
      DisplayWidth = 20
      FieldName = 'FTasCode'
    end
    object adsCsh510BFLineNo: TIntegerField
      DisplayLabel = #25910#25903#34892#21495
      DisplayWidth = 10
      FieldName = 'FLineNo'
    end
    object adsCsh510BFClass: TStringField
      DisplayLabel = #19994#21153#20998#31867
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'FClass'
      LookupDataSet = qryClass
      LookupKeyFields = 'C140_001'
      LookupResultField = 'C140_002'
      KeyFields = 'FClassNo'
      Lookup = True
    end
    object adsCsh510BFClassNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FClassNo'
    end
    object adsCsh510BFRecAmount: TFloatField
      DisplayLabel = #24212#25910#37329#39069
      DisplayWidth = 10
      FieldName = 'FRecAmount'
    end
    object adsCsh510BFAmount: TFloatField
      DisplayLabel = #23454#25910#37329#39069
      DisplayWidth = 10
      FieldName = 'FAmount'
    end
    object adsCsh510BFProject: TStringField
      DisplayLabel = #39033#30446#32534#21495
      DisplayWidth = 10
      FieldName = 'FProject'
      LookupDataSet = qryProject
      LookupKeyFields = 'C150_001'
      LookupResultField = 'C150_002'
      KeyFields = 'FProjectNo'
    end
    object adsCsh510BFDept: TStringField
      DisplayLabel = #37096#38376#32534#21495
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'FDept'
      LookupDataSet = qryDept
      LookupKeyFields = 'H100_001'
      LookupResultField = 'H100_002'
      KeyFields = 'FDeptNo'
      Lookup = True
    end
    object adsCsh510BFRemark: TStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 20
      FieldName = 'FRemark'
    end
    object adsCsh510BFInvLineNo: TIntegerField
      DisplayLabel = #21457#31080#34892#21495
      DisplayWidth = 10
      FieldName = 'FInvLineNo'
    end
    object adsCsh510BFCode: TStringField
      DisplayLabel = #25910#25903#21333#21495
      DisplayWidth = 20
      FieldName = 'FCode'
    end
    object adsCsh510BFProjectNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FProjectNo'
    end
    object adsCsh510BFDeptNo: TIntegerField
      DisplayWidth = 10
      FieldName = 'FDeptNo'
    end
  end
  object qryCsh510B: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select B.*'
      
        ' from CSH510A A,CSH510B B                                       ' +
        '                                                                ' +
        '     '
      ' where B.C510B_001=A.C510A_001')
    Left = 152
    Top = 392
    object qryCsh510BC510B_001: TWideStringField
      FieldName = 'C510B_001'
      Size = 30
    end
    object qryCsh510BC510B_002: TIntegerField
      FieldName = 'C510B_002'
    end
    object qryCsh510BC510B_003: TWideStringField
      FieldName = 'C510B_003'
      Size = 30
    end
    object qryCsh510BC510B_004: TIntegerField
      FieldName = 'C510B_004'
    end
    object qryCsh510BC510B_005: TFloatField
      FieldName = 'C510B_005'
    end
    object qryCsh510BC510B_006: TFloatField
      FieldName = 'C510B_006'
    end
    object qryCsh510BC510B_007: TIntegerField
      FieldName = 'C510B_007'
    end
    object qryCsh510BC510B_008: TIntegerField
      FieldName = 'C510B_008'
    end
    object qryCsh510BC510B_009: TIntegerField
      FieldName = 'C510B_009'
    end
    object qryCsh510BC510B_010: TWideStringField
      FieldName = 'C510B_010'
      Size = 30
    end
    object qryCsh510BC510B_011: TWideStringField
      FieldName = 'C510B_011'
      Size = 60
    end
  end
  object qryClass: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CSH140')
    Left = 360
    Top = 352
    object qryClassC140_001: TAutoIncField
      FieldName = 'C140_001'
      ReadOnly = True
    end
    object qryClassC140_002: TWideStringField
      FieldName = 'C140_002'
      Size = 50
    end
    object qryClassC140_003: TSmallintField
      FieldName = 'C140_003'
    end
    object qryClassC140_004: TIntegerField
      FieldName = 'C140_004'
    end
    object qryClassC140_005: TBooleanField
      FieldName = 'C140_005'
    end
  end
  object qryProject: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CSH150')
    Left = 480
    Top = 344
    object qryProjectC150_001: TAutoIncField
      FieldName = 'C150_001'
      ReadOnly = True
    end
    object qryProjectC150_002: TWideStringField
      FieldName = 'C150_002'
      Size = 50
    end
    object qryProjectC150_003: TIntegerField
      FieldName = 'C150_003'
    end
    object qryProjectC150_004: TBooleanField
      FieldName = 'C150_004'
    end
  end
  object qryDept: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM100')
    Left = 616
    Top = 344
    object qryDeptH100_001: TAutoIncField
      FieldName = 'H100_001'
      ReadOnly = True
    end
    object qryDeptH100_002: TWideStringField
      FieldName = 'H100_002'
      Size = 50
    end
    object qryDeptH100_003: TIntegerField
      FieldName = 'H100_003'
    end
    object qryDeptH100_004: TBooleanField
      FieldName = 'H100_004'
    end
  end
  object qryCsh550: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CSH550')
    Left = 288
    Top = 64
    object qryCsh550C550_001: TAutoIncField
      FieldName = 'C550_001'
      ReadOnly = True
    end
    object qryCsh550C550_002: TWideStringField
      FieldName = 'C550_002'
      Size = 50
    end
    object qryCsh550C550_003: TWideStringField
      FieldName = 'C550_003'
      Size = 50
    end
    object qryCsh550C550_004: TSmallintField
      FieldName = 'C550_004'
    end
    object qryCsh550C550_005: TIntegerField
      FieldName = 'C550_005'
    end
    object qryCsh550C550_006: TIntegerField
      FieldName = 'C550_006'
    end
    object qryCsh550C550_007: TDateTimeField
      FieldName = 'C550_007'
    end
    object qryCsh550C550_008: TFloatField
      FieldName = 'C550_008'
    end
  end
  object qryItems: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    Left = 96
    Top = 336
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 640
    Top = 88
    object AutoIncField1: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object WideStringField1: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryOrd150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001 as FNo,O150_002 as FCode,O150_003 as FName from ' +
        'ORD150 order by O150_002')
    Left = 304
    Top = 120
    object qryOrd150FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150FCode: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'FCode'
    end
    object qryOrd150FName: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 60
    end
  end
  object ADODataSet1: TADODataSet
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 56
    Top = 448
  end
  object qryCsh140: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 96
    Top = 176
  end
  object dsClass: TDataSource
    DataSet = qryClass
    Left = 344
    Top = 336
  end
  object dsProject: TDataSource
    DataSet = qryProject
    Left = 464
    Top = 328
  end
  object dsDept: TDataSource
    DataSet = qryDept
    Left = 600
    Top = 336
  end
end