tas200_01.dfm.svn-base

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

inherited Tas200_01Form: TTas200_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #25302#26399#20219#21153#25253#21578
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object sbSearch: TSpeedButton
      Left = 725
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object lblDate: TLabel
      Left = 533
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #25302#26399#22825#25968
      Transparent = True
    end
    object edtDays: TEdit
      Left = 589
      Top = 8
      Width = 121
      Height = 20
      Anchors = [akTop, akRight]
      TabOrder = 0
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      OnDblClick = dxDBGrid1DblClick
      Filter.Criteria = {00000000}
      object dxDBGrid1T510_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 127
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_001'
      end
      object dxDBGrid1T510_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 254
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_002'
      end
      object dxDBGrid1T120_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T120_003'
      end
      object dxDBGrid1T100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 167
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T100_002'
      end
      object dxDBGrid1T510_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_005'
      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_008: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_008'
      end
      object dxDBGrid1T510_009: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_009'
      end
      object dxDBGrid1T510_010: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_010'
      end
      object dxDBGrid1T510_011: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 54
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_011'
      end
      object dxDBGrid1T510_012: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_012'
        DisplayFormat = '0.00'
        Nullable = False
      end
      object dxDBGrid1T510_013: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_013'
        DisplayFormat = '0.00'
        Nullable = False
      end
      object dxDBGrid1T510_014: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 40
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_014'
        DisplayFormat = '0.00'
        Nullable = False
      end
      object dxDBGrid1T510_015: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_015'
      end
      object dxDBGrid1I150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 156
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 267
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1T510_018: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_018'
      end
      object dxDBGrid1T510_019: TdxDBGridMemoColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_019'
      end
      object dxDBGrid1T510_024: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T510_024'
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 352
    Top = 192
  end
  inherited DataSource1: TDataSource
    Left = 72
    Top = 152
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select T510_001,T510_002, T120_003, T100_002,T510_005,T510_006,'
      
        '  T510_007,T510_008,T510_009,T510_010,T510_011,T510_012,T510_013' +
        ','
      '  T510_014,T510_015,O150_002,O150_003,I150_002,I150_003,'
      '  T510_018,T510_019,T510_024 '
      '  from tas510,tas120,tas100,ord150,inv150 '
      'where t510_003=t120_001 and '
      't510_004=t100_001 and t510_016= O150_001 and '
      't510_017= I150_001 and  t510_003<>3 and (t510_013 - t510_012)>=1')
    Left = 72
    Top = 192
    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_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T510_005'
    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_008: TSmallintField
      DisplayLabel = #26469#28304#31867#22411
      FieldName = 'T510_008'
    end
    object ADOQuery1T510_009: TWideStringField
      DisplayLabel = #26469#28304#21333#21495
      FieldName = 'T510_009'
      Size = 30
    end
    object ADOQuery1T510_010: TIntegerField
      DisplayLabel = #21333#25454#34892#21495
      FieldName = 'T510_010'
    end
    object ADOQuery1T510_011: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T510_011'
      FixedChar = True
      Size = 1
    end
    object ADOQuery1T510_012: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'T510_012'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T510_013: TBCDField
      DisplayLabel = #23454#38469#24037#26102
      FieldName = 'T510_013'
      Precision = 8
      Size = 2
    end
    object ADOQuery1T510_014: TBCDField
      DisplayLabel = #27604#29575
      FieldName = 'T510_014'
      Precision = 5
      Size = 2
    end
    object ADOQuery1T510_015: TIntegerField
      DisplayLabel = #24037#21333#24635#25968
      FieldName = 'T510_015'
    end
    object ADOQuery1I150_002: TWideStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1I150_003: TWideStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1T510_018: TWideStringField
      DisplayLabel = #26426#36523#32534#21495
      FieldName = 'T510_018'
      Size = 30
    end
    object ADOQuery1T510_019: TMemoField
      DisplayLabel = #20219#21153#35828#26126
      FieldName = 'T510_019'
      BlobType = ftMemo
    end
    object ADOQuery1T510_024: TIntegerField
      DisplayLabel = #36131#20219#20154#21592
      FieldName = 'T510_024'
    end
  end
  inherited ActionList1: TActionList
    Left = 360
    Top = 136
  end
  inherited pmGrid: TPopupMenu
    Top = 176
  end
end