ser200_01.dfm.svn-base

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

        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_010'
      end
      object dxDBGrid1S500_011: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 87
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_011'
      end
      object dxDBGrid1S500_012: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 95
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_012'
      end
      object dxDBGrid1S500_013: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 102
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_013'
      end
      object dxDBGrid1S500_014: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 99
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_014'
      end
      object dxDBGrid1S500_015: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_015'
      end
      object dxDBGrid1S500_016: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_016'
      end
      object dxDBGrid1S500_017: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_017'
      end
      object dxDBGrid1S500_019: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 89
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_019'
      end
      object dxDBGrid1S500_020: TdxDBGridCheckColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_020'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dxDBGrid1S500_027: TdxDBGridCheckColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_027'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dxDBGrid1S500_028: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_028'
      end
      object dxDBGrid1S500_029: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_029'
      end
      object dxDBGrid1S500_030: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_030'
      end
      object dxDBGrid1S500_031: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_031'
      end
      object dxDBGrid1S500_032: TdxDBGridMaskColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_032'
      end
      object dxDBGrid1S500_034: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_034'
      end
      object dxDBGrid1S500_035: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 111
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_035'
      end
      object dxDBGrid1S500_036: TdxDBGridDateColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 92
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_036'
      end
      object dxDBGrid1S500_037: TdxDBGridColumn
        Alignment = taLeftJustify
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 83
        BandIndex = 0
        RowIndex = 0
        FieldName = 'S500_037'
      end
    end
  end
  inherited DataSource1: TDataSource
    AutoEdit = False
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select SER500.*,S110_003,S100_003'
      'from SER500,SER110,SER100'
      'where S500_003=S110_001 and S500_004=S100_001')
    object ADOQuery1S500_001: TWideStringField
      DisplayLabel = #26469#30005#32534#21495
      FieldName = 'S500_001'
      Size = 30
    end
    object ADOQuery1S500_002: TWideStringField
      DisplayLabel = #26469#30005#21517#31216
      FieldName = 'S500_002'
      Size = 50
    end
    object ADOQuery1S500_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'S500_005'
    end
    object ADOQuery1S500_006: TSmallintField
      DisplayLabel = #26469#30005#31867#22411
      FieldName = 'S500_006'
    end
    object ADOQuery1S500_007: TDateTimeField
      DisplayLabel = #26469#30005#26085#26399
      FieldName = 'S500_007'
    end
    object ADOQuery1S500_008: TIntegerField
      DisplayLabel = #26469#30005#26102#38388
      FieldName = 'S500_008'
    end
    object ADOQuery1S500_009: TBCDField
      DisplayLabel = #25509#21548#26102#38388
      FieldName = 'S500_009'
      Precision = 8
      Size = 2
    end
    object ADOQuery1S500_010: TIntegerField
      DisplayLabel = #21463#29702#20154#21592
      FieldName = 'S500_010'
    end
    object ADOQuery1S500_011: TWideStringField
      DisplayLabel = #26469#30005#20154#21592
      FieldName = 'S500_011'
    end
    object ADOQuery1S500_012: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'S500_012'
    end
    object ADOQuery1S500_013: TWideStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'S500_013'
    end
    object ADOQuery1S500_014: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'S500_014'
    end
    object ADOQuery1S500_015: TSmallintField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'S500_015'
    end
    object ADOQuery1S500_016: TWideStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'S500_016'
      Size = 30
    end
    object ADOQuery1S500_017: TIntegerField
      DisplayLabel = #23458#25142#32534#21495
      FieldName = 'S500_017'
    end
    object ADOQuery1S500_019: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'S500_019'
      Size = 30
    end
    object ADOQuery1S500_020: TBooleanField
      DisplayLabel = #26159#21542#27966#24037
      FieldName = 'S500_020'
    end
    object ADOQuery1S500_027: TBooleanField
      DisplayLabel = #26159#21542#25253#20215
      FieldName = 'S500_027'
    end
    object ADOQuery1S500_028: TDateTimeField
      DisplayLabel = #20445#20859#24320#22987#26085#26399
      FieldName = 'S500_028'
    end
    object ADOQuery1S500_029: TDateTimeField
      DisplayLabel = #20445#20859#23436#25104#26085#26399
      FieldName = 'S500_029'
    end
    object ADOQuery1S500_030: TDateTimeField
      DisplayLabel = #32493#20445#24320#22987#26085#26399
      FieldName = 'S500_030'
    end
    object ADOQuery1S500_031: TDateTimeField
      DisplayLabel = #32493#20445#23436#25104#26085#26399
      FieldName = 'S500_031'
    end
    object ADOQuery1S500_032: TSmallintField
      DisplayLabel = #20135#21697#26469#28304
      FieldName = 'S500_032'
    end
    object ADOQuery1S500_033: TMemoField
      DisplayLabel = #26469#30005#20869#23481
      FieldName = 'S500_033'
      Visible = False
      BlobType = ftMemo
    end
    object ADOQuery1S500_034: TDateTimeField
      DisplayLabel = #21046#21333#26085#26399
      FieldName = 'S500_034'
    end
    object ADOQuery1S500_035: TWideStringField
      DisplayLabel = #21046#21333#20154#21592
      FieldName = 'S500_035'
    end
    object ADOQuery1S500_036: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'S500_036'
    end
    object ADOQuery1S500_037: TWideStringField
      DisplayLabel = #20462#25913#20154#21592
      FieldName = 'S500_037'
    end
    object ADOQuery1S110_003: TWideStringField
      DisplayLabel = #26469#30005#29366#24577
      FieldName = 'S110_003'
      Size = 50
    end
    object ADOQuery1s100_003: TIntegerField
      DisplayLabel = #26469#30005#31867#21035
      FieldName = 'S100_003'
    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
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select O153_001,O153_002,O153_003,O153_011,I150_002,I150_003 fro' +
        'm ord153,inv150 where ORD153.O153_002=INV150.I150_001')
    Left = 624
    Top = 88
    object qryOrd153O153_001: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O153_001'
    end
    object qryOrd153O153_002: TIntegerField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'O153_002'
    end
    object qryOrd153O153_003: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'O153_003'
      Size = 30
    end
    object qryOrd153O153_011: TWideStringField
      DisplayLabel = #23433#35013#22320#22336
      FieldName = 'O153_011'
    end
    object qryOrd153I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryOrd153I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
  end
end