csh600_01.dfm.svn-base

一个用Delphi开发的ERP软件

inherited Csh600_01Form: TCsh600_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #20538#26435#20538#21153#35774#32622
  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
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'C600_001'
      Filter.Criteria = {00000000}
      object dxDBGrid1C600_001: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C600_001'
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 240
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1G100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dxDBGrid1G100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_003'
      end
      object dxDBGrid1C600_004: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C600_004'
      end
      object dxDBGrid1C600_005: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C600_005'
      end
      object dxDBGrid1C600_006: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 80
        BandIndex = 0
        RowIndex = 0
        FieldName = 'C600_006'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select AA.C600_001,AA.C600_002,AA.C600_003,BB.O150_002,BB.O150_0' +
        '03,BB.G100_002,BB.G100_003,AA.C600_004,AA.C600_005,AA.C600_006,A' +
        'A.C600_007'
      'from CSH600 AA,'
      '  (select A.C600_001,A.C600_002,A.C600_003,'
      '       B.O150_002,B.O150_003,'
      '       C.G100_002,C.G100_003'
      '  from CSH600 A,ORD150 B,GLD100 C'
      '  where C600_001=0 and C600_002=O150_001 and C600_003=G100_001'
      '  union'
      '  select A.C600_001,A.C600_002,A.C600_003,'
      '       B.H150_002,B.H150_003,'
      '       C.G100_002,C.G100_003'
      '  from CSH600 A,HRM150 B,GLD100 C'
      '  where C600_001=1 and C600_002=H150_001 and C600_003=G100_001'
      '  ) BB'
      
        'where AA.C600_001=BB.C600_001 and AA.C600_002=BB.C600_002 and AA' +
        '.C600_003=BB.C600_003'
      'order by AA.C600_001,BB.O150_002,BB.G100_002')
    object ADOQuery1C600_001: TSmallintField
      DisplayLabel = #23545#35937#31867#22411
      FieldName = 'C600_001'
      OnGetText = ADOQuery1C600_001GetText
    end
    object ADOQuery1C600_002: TIntegerField
      FieldName = 'C600_002'
      Visible = False
    end
    object ADOQuery1C600_003: TIntegerField
      FieldName = 'C600_003'
      Visible = False
    end
    object ADOQuery1O150_002: TWideStringField
      DisplayLabel = #23545#35937#32534#21495
      FieldName = 'O150_002'
    end
    object ADOQuery1O150_003: TWideStringField
      DisplayLabel = #23545#35937#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end
    object ADOQuery1G100_002: TWideStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1G100_003: TWideStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1C600_004: TSmallintField
      DisplayLabel = #20538#26435#20538#21153
      FieldName = 'C600_004'
      OnGetText = ADOQuery1C600_004GetText
    end
    object ADOQuery1C600_005: TDateTimeField
      DisplayLabel = #24314#31435#26085#26399
      FieldName = 'C600_005'
    end
    object ADOQuery1C600_006: TFloatField
      DisplayLabel = #26399#21021#37329#39069
      FieldName = 'C600_006'
    end
    object ADOQuery1C600_007: TMemoField
      FieldName = 'C600_007'
      Visible = False
      BlobType = ftMemo
    end
  end
end