inv200_01.dfm.svn-base

开源的网站整站程序,功能强大带采集系统.

inherited Inv200_01Form: TInv200_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #24211#23384#32570#26009#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 lblWhs: TLabel
      Left = 480
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #20179#24211
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 732
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object cbWhs: TComboBox
      Left = 512
      Top = 8
      Width = 202
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Filter.Criteria = {00000000}
      object dxDBGrid1I100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_002'
      end
      object dxDBGrid1I100_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 200
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I100_003'
      end
      object dxDBGrid1I150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 160
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 240
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1I150_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 240
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_004'
      end
      object dxDBGrid1I140_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I140_003'
      end
      object dxDBGrid1I501_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I501_005'
      end
      object dxDBGrid1FSafe: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FSafe'
      end
      object dxDBGrid1FDemand: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDemand'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select I100_002,I100_003,I150_002,I150_003,I150_004,I140_003,I50' +
        '1_005,I150_032 as FSafe,I150_032-I501_005 as FDemand'
      'from (((INV501 A left join INV100 B on A.I501_001=B.I100_001)'
      '               left join INV110 C on A.I501_002=C.I110_001)'
      '               left join INV150 D on A.I501_003=D.I150_001)'
      '               left join INV140 E on A.I501_004=E.I140_001'
      'where I501_001=0'
      'order by I100_002,I110_003,I150_002')
    object ADOQuery1I100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object ADOQuery1I100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
    object ADOQuery1I150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object ADOQuery1I150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object ADOQuery1I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object ADOQuery1I140_003: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
    object ADOQuery1I501_005: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      FieldName = 'I501_005'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FSafe: TFloatField
      DisplayLabel = #23433#20840#24211#23384
      FieldName = 'FSafe'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FDemand: TFloatField
      DisplayLabel = #32570#26009#25968#37327
      FieldName = 'FDemand'
      ReadOnly = True
      DisplayFormat = ',0.00'
    end
  end
end