tas220_01.dfm.svn-base

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

      Top = 8
      Width = 121
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 0
      OnExit = edtCustExit
    end
    object edtItem: TEdit
      Left = 380
      Top = 8
      Width = 121
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 1
      OnExit = edtItemExit
    end
    object edtMachine: TEdit
      Left = 596
      Top = 8
      Width = 121
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 2
      OnExit = edtMachineExit
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'T510_001'
      OnDblClick = dxDBGrid1DblClick
      Filter.Criteria = {00000000}
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 267
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1I150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1T510_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 134
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_001'
      end
      object dxDBGrid1T510_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 241
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_002'
      end
      object dxDBGrid1T120_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 94
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T120_003'
      end
      object dxDBGrid1T100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 96
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T100_002'
      end
      object dxDBGrid1T510_006: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_006'
      end
      object dxDBGrid1T510_007: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_007'
      end
      object dxDBGrid1T510_027: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_027'
      end
      object dxDBGrid1T510_028: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_028'
      end
      object dxDBGrid1T510_013: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_013'
        Nullable = False
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select '#39'['#39'+O150_002+'#39'] ['#39'+O150_003+'#39']'#39' as O150_002,'#39'['#39'+I150_002+' +
        #39'] ['#39'+T510_018+'#39']'#39' as I150_002,'
      
        '       T510_001,T510_002,T120_003,T100_002,T510_006,T510_007,T51' +
        '0_013,T510_027,T510_028'
      'from TAS510,TAS100,TAS120,INV150,ORD150'
      'where T510_004=T100_001 and T510_003=T120_001 and'
      '      T510_016=O150_001 and T510_017=I150_001'
      'order by T510_016,T510_017,T510_018,T510_001')
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1T510_001: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T510_001'
      Size = 30
    end
    object ADOQuery1T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
    object ADOQuery1T120_003: TWideStringField
      DisplayLabel = #20219#21153#29366#24577
      FieldName = 'T120_003'
      Size = 50
    end
    object ADOQuery1T100_002: TWideStringField
      DisplayLabel = #20219#21153#31867#21035
      FieldName = 'T100_002'
      Size = 50
    end
    object ADOQuery1T510_006: TDateTimeField
      DisplayLabel = #30003#25253#26085#26399
      FieldName = 'T510_006'
    end
    object ADOQuery1T510_007: TDateTimeField
      DisplayLabel = #38656#27714#26085#26399
      FieldName = 'T510_007'
    end
    object ADOQuery1T510_027: TDateTimeField
      DisplayLabel = #23454#38469#24320#22987
      FieldName = 'T510_027'
    end
    object ADOQuery1T510_028: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104
      FieldName = 'T510_028'
    end
    object ADOQuery1T510_013: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T510_013'
      Precision = 8
      Size = 2
    end
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select O150_001,O150_002,O150_003 from ORD150 order by O150_002')
    Left = 432
    Top = 72
    object qryOrd150O150_001: TIntegerField
      FieldName = 'O150_001'
      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 qryOrd153: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select C.I150_002,A.O153_003,C.I150_003,C.I150_004,D.I120_003,E.' +
        'O150_002,E.O150_003,C.I150_001'
      'from ORD153 A, ORD150 B, INV150 C, INV120 D, ORD150 E'
      
        'where A.O153_001=B.O150_001 and A.O153_002=C.I150_001 and C.I150' +
        '_007=D.I120_001 and C.I150_041=E.O150_001')
    Left = 624
    Top = 88
    object qryOrd153I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryOrd153I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryOrd153I120_003: TWideStringField
      DisplayLabel = #20135#21697#31867#21035
      FieldName = 'I120_003'
      Size = 50
    end
    object qryOrd153O150_002: TWideStringField
      DisplayLabel = #21046#36896#21830#21495
      FieldName = 'O150_002'
    end
    object qryOrd153O150_003: TWideStringField
      DisplayLabel = #21046#36896#21830#21517
      FieldName = 'O150_003'
      Size = 60
    end
    object qryOrd153I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
  end
end