inv410_01.dfm.svn-base

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

inherited Inv410_01Form: TInv410_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #21608#36716#27425#25968#20998#26512
  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 lblDate: TLabel
      Left = 464
      Top = 12
      Width = 24
      Height = 12
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = #26085#26399
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 728
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object lblWhs: TLabel
      Left = 248
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #20179#24211
      Transparent = True
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 496
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 608
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object cbWhs: TComboBox
      Left = 280
      Top = 8
      Width = 177
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 2
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Filter.Criteria = {00000000}
      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 dxDBGrid1FOpen: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FOpen'
      end
      object dxDBGrid1FOut: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FOut'
      end
      object dxDBGrid1FBalance: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FBalance'
      end
      object dxDBGrid1FTims: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FTimes'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    OnCalcFields = ADOQuery1CalcFields
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004,I140_003,FBalance,FIn' +
        'Qty as FIn,FOutQty as FOut,FBalance+FOutQty-FInQty as FOpen from' +
        ' '
      '(('
      
        '  select E.I150_001,E.I150_002,E.I150_003,E.I150_004,F.I140_003,' +
        'A.I500_014 as FBalance  '
      '  from INV500 A,'
      '  ('
      
        '    select max(B.I500_002) as FLine,B.I500_007,B.I500_008,B.I500' +
        '_009,B.I500_010,B.I500_001,B.I500_004 from INV500 B,'
      '      ('
      
        '        select max(I500_005) as FDate,max(I500_017) as FSeqNo,I5' +
        '00_007,I500_008,I500_009,I500_010'
      '        from INV500'
      '        group by I500_007,I500_008,I500_009,I500_010'
      '      ) C'
      '    where B.I500_005=C.FDate and B.I500_017=C.FSeqNo and'
      
        '          B.I500_007=C.I500_007 and B.I500_008=C.I500_008 and B.' +
        'I500_009=C.I500_009 and B.I500_010=C.I500_010'
      
        '    group by B.I500_007,B.I500_008,B.I500_009,B.I500_010,B.I500_' +
        '001,B.I500_004'
      '  ) D,'
      '  INV150 E,INV140 F'
      
        '  where A.I500_001=D.I500_001 and A.I500_002=D.FLine and A.I500_' +
        '004=D.I500_004 and'
      '        A.I500_009=E.I150_001 and A.I500_010=F.I140_001 '
      ') AA'
      'left join'
      
        '  (select I500_009,sum(I500_011) as FInQty from INV500 where I50' +
        '0_004 in (1,3) group by I500_009) BB on AA.I150_001=BB.I500_009)'
      'left join'
      
        '  (select I500_009,sum(I500_011) as FOutQty from INV500 where I5' +
        '00_004 in (2) group by I500_009) CC on AA.I150_001=CC.I500_009'
      'where I150_001 is null'
      'order by I150_002')
    object ADOQuery1I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    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 ADOQuery1FOpen: TFloatField
      DisplayLabel = #26399#21021#25968#37327
      FieldName = 'FOpen'
      ReadOnly = True
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FIn: TFloatField
      DisplayLabel = #20837#24211#25968#37327
      FieldName = 'FIn'
      Visible = False
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FOut: TFloatField
      DisplayLabel = #20986#24211#25968#37327
      FieldName = 'FOut'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FBalance: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      FieldName = 'FBalance'
      DisplayFormat = ',0.00'
    end
    object ADOQuery1FTimes: TFloatField
      DisplayLabel = #21608#36716#27425#25968
      FieldKind = fkCalculated
      FieldName = 'FTimes'
      DisplayFormat = ',0.00'
      Calculated = True
    end
  end
end