invw00_01.dfm.svn-base

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

    end
    inherited mmiReport: TMenuItem
      object N19: TMenuItem
        Action = ActInv200
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object N21: TMenuItem
        Action = ActInv300
      end
      object N22: TMenuItem
        Action = ActInv310
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object N24: TMenuItem
        Action = ActInv400
      end
      object N25: TMenuItem
        Action = ActInv410
      end
    end
  end
  inherited ActionList1: TActionList
    object ActInvS00: TAction [6]
      Category = 'File'
      Caption = #24211#23384#31649#29702#21442#25968
      Hint = #24211#23384#31649#29702#21442#25968
      OnExecute = ActInvS00Execute
    end
    object ActInv100: TAction [7]
      Category = 'File'
      Caption = #20179#24211#36164#26009#32500#25252
      Hint = #20179#24211#36164#26009#32500#25252
      ImageIndex = 5
      OnExecute = ActInvS00Execute
    end
    object ActInv110: TAction [8]
      Category = 'File'
      Caption = #24211#20301#36164#26009#32500#25252
      Hint = #24211#20301#36164#26009#32500#25252
      ImageIndex = 10
      OnExecute = ActInvS00Execute
    end
    object ActInv120: TAction [9]
      Category = 'File'
      Caption = #26009#21697#20998#31867#32500#25252
      Hint = #26009#21697#20998#31867#32500#25252
      ImageIndex = 13
      OnExecute = ActInvS00Execute
    end
    object ActInv140: TAction [10]
      Category = 'File'
      Caption = #35745#37327#21333#20301#32500#25252
      Hint = #35745#37327#21333#20301#32500#25252
      ImageIndex = 17
      OnExecute = ActInvS00Execute
    end
    object ActInv145: TAction [11]
      Category = 'File'
      Caption = #21333#20301#36716#25442#32500#25252
      Hint = #21333#20301#36716#25442#32500#25252
      OnExecute = ActInvS00Execute
    end
    object ActInv150: TAction [12]
      Category = 'File'
      Caption = #26009#21697#36164#26009#32500#25252
      Hint = #26009#21697#36164#26009#32500#25252
      ImageIndex = 14
      OnExecute = ActInvS00Execute
    end
    inherited ActInsert: TAction
      Visible = False
    end
    inherited ActUpdate: TAction
      Visible = False
    end
    inherited ActDelete: TAction
      Visible = False
    end
    object ActInv500: TAction
      Category = 'Edit'
      Caption = #26009#21697#36827#20986#22788#29702
      Hint = #26009#21697#36827#20986#22788#29702
      ImageIndex = 11
      OnExecute = ActInvS00Execute
    end
    object ActInv200: TAction
      Category = 'Report'
      Caption = #24211#23384#32570#26009#25253#21578
      Hint = #24211#23384#32570#26009#25253#21578
      OnExecute = ActInvS00Execute
    end
    object ActInv510: TAction
      Category = 'Edit'
      Caption = #26009#21697#36716#20179#22788#29702
      Hint = #26009#21697#36716#20179#22788#29702
      ImageIndex = 17
      OnExecute = ActInvS00Execute
    end
    object ActInv550: TAction
      Category = 'Edit'
      Caption = #24211#23384#25805#20316#31867#22411
      Hint = #24211#23384#25805#20316#31867#22411
      OnExecute = ActInvS00Execute
    end
    object ActInv600: TAction
      Category = 'Count'
      Caption = #30424#28857#35745#21010#32500#25252
      Hint = #30424#28857#35745#21010#32500#25252
      ImageIndex = 18
      OnExecute = ActInvS00Execute
    end
    object ActInv610: TAction
      Category = 'Count'
      Caption = #30424#28857#36827#24230#27719#25253
      Hint = #30424#28857#36827#24230#27719#25253
      ImageIndex = 14
      OnExecute = ActInvS00Execute
    end
    object ActInv300: TAction
      Category = 'Report'
      Caption = #20179#24211#29366#20917#26597#35810
      Hint = #20179#24211#29366#20917#26597#35810
      OnExecute = ActInvS00Execute
    end
    object ActInv310: TAction
      Category = 'Report'
      Caption = #26009#21697#29366#20917#26597#35810
      Hint = #26009#21697#29366#20917#26597#35810
      OnExecute = ActInvS00Execute
    end
    object ActInv400: TAction
      Category = 'Report'
      Caption = #26009#21697#29992#37327#20998#26512
      Hint = #26009#21697#29992#37327#20998#26512
      OnExecute = ActInvS00Execute
    end
    object ActInv410: TAction
      Category = 'Report'
      Caption = #21608#36716#27425#25968#20998#26512
      Hint = #21608#36716#27425#25968#20998#26512
      OnExecute = ActInvS00Execute
    end
  end
  inherited imgPage: TImageList
    Left = 512
  end
  inherited qryMaster: TADOQuery
    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 qryMasterI150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryMasterI150_002: TWideStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryMasterI150_003: TWideStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryMasterI150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
    object qryMasterI140_003: TWideStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'I140_003'
      Size = 50
    end
    object qryMasterFOpen: TFloatField
      DisplayLabel = #26399#21021#25968#37327
      FieldName = 'FOpen'
      ReadOnly = True
      DisplayFormat = ',0.00'
    end
    object qryMasterFIn: TFloatField
      DisplayLabel = #20837#24211#25968#37327
      FieldName = 'FIn'
      DisplayFormat = ',0.00'
    end
    object qryMasterFOut: TFloatField
      DisplayLabel = #20986#24211#25968#37327
      FieldName = 'FOut'
      DisplayFormat = ',0.00'
    end
    object qryMasterFBalance: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      FieldName = 'FBalance'
      DisplayFormat = ',0.00'
    end
  end
  inherited adsMaster: TADODataSet
    FieldDefs = <
      item
        Name = 'FItemNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FItemSpec'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FQty1'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FQty2'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FQty3'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FQty4'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
  end
end