sys500_01.dfm.svn-base

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

      Visible = False
    end
    object qryHrm100S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryHrm100S500C_003: TStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryHrm100S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
  object qryInv100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.I100_001,B.I100_002,B.I100_003,B.FParent,A.*'
      'from SYS500C A,'
      
        '(select I100_001*-1 as I100_001,I100_002,I100_003,0 as FParent f' +
        'rom INV100'
      'union'
      'select I110_001,I110_003,I110_004,I110_002*-1 from INV110) B'
      
        'where A.S500C_002=B.I100_001 and A.S500C_003='#39'WHS'#39' and A.S500C_0' +
        '01= :UserNo'
      'order by B.I100_002')
    Left = 312
    Top = 200
    object qryInv100I100_001: TIntegerField
      FieldName = 'I100_001'
      Visible = False
    end
    object qryInv100I100_002: TWideStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'I100_002'
    end
    object qryInv100I100_003: TWideStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'I100_003'
      Size = 50
    end
    object qryInv100FParent: TIntegerField
      FieldName = 'FParent'
      Visible = False
    end
    object qryInv100S500C_001: TIntegerField
      FieldName = 'S500C_001'
      Visible = False
    end
    object qryInv100S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryInv100S500C_003: TWideStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryInv100S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 552
    Top = 16
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32848
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActInsert: TAction
      Caption = #26032#22686
      Hint = #26032#22686#19968#26465#35760#24405
      ImageIndex = 4
      ShortCut = 32833
      OnExecute = ActInsertExecute
    end
    object ActUpdate: TAction
      Caption = #20462#25913
      Hint = #20462#25913#24403#21069#35760#24405
      ImageIndex = 5
      ShortCut = 32837
      OnExecute = ActUpdateExecute
    end
    object ActDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500#24403#21069#35760#24405
      ImageIndex = 6
      ShortCut = 32836
      OnExecute = ActDeleteExecute
    end
    object ActCopy: TAction
      Caption = #22797#21046
      Hint = #22797#21046#19968#26465#35760#24405
      ImageIndex = 16
      ShortCut = 32851
      Visible = False
      OnExecute = ActCopyExecute
    end
    object ActRefresh: TAction
      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #25171#21360
      ImageIndex = 12
      OnExecute = ActPrintExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
  end
  object dsCsh550: TDataSource
    DataSet = qryCsh550
    Left = 231
    Top = 192
  end
  object qryCsh550: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.C550_001,B.C550_002,A.*'
      'from SYS500C A, CSH550 B '
      
        'where A.S500C_002=B.C550_001 and A.S500C_003='#39'ACC'#39' and A.S500C_0' +
        '01= :UserNo')
    Left = 232
    Top = 200
    object qryCsh550C550_001: TAutoIncField
      FieldName = 'C550_001'
      ReadOnly = True
      Visible = False
    end
    object qryCsh550C550_002: TWideStringField
      DisplayLabel = #24080#25143#21517#31216
      FieldName = 'C550_002'
      Size = 50
    end
    object qryCsh550S500C_001: TIntegerField
      FieldName = 'S500C_001'
      Visible = False
    end
    object qryCsh550S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryCsh550S500C_003: TWideStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryCsh550S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
  object dsInv550: TDataSource
    DataSet = qryInv550
    Left = 351
    Top = 192
  end
  object qryInv550: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.I550_001,B.I550_002,B.I550_003,A.*'
      'from SYS500C A,INV550 B'
      
        'where A.S500C_002=B.I550_001 and A.S500C_003='#39'WHT'#39' and A.S500C_0' +
        '01= :UserNo'
      'order by B.I550_002')
    Left = 352
    Top = 200
    object qryInv550I550_001: TAutoIncField
      FieldName = 'I550_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv550I550_002: TWideStringField
      DisplayLabel = #31867#22411#32534#21495
      FieldName = 'I550_002'
      Size = 10
    end
    object qryInv550I550_003: TWideStringField
      DisplayLabel = #31867#22411#21517#31216
      FieldName = 'I550_003'
      Size = 30
    end
    object qryInv550S500C_001: TIntegerField
      FieldName = 'S500C_001'
      Visible = False
    end
    object qryInv550S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryInv550S500C_003: TWideStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryInv550S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
  object dsInv120: TDataSource
    DataSet = qryInv120
    Left = 191
    Top = 248
  end
  object qryInv120: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.I120_001,B.I120_002,B.I120_003,B.I120_004,A.*'
      'from SYS500C A,INV120 B'
      
        'where A.S500C_002=B.I120_001 and A.S500C_003='#39'ICS'#39' and A.S500C_0' +
        '01= :UserNo'
      'order by B.I120_002')
    Left = 192
    Top = 256
    object qryInv120I120_001: TAutoIncField
      FieldName = 'I120_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv120I120_002: TWideStringField
      DisplayLabel = #20998#31867#32534#21495
      FieldName = 'I120_002'
    end
    object qryInv120I120_003: TWideStringField
      DisplayLabel = #20998#31867#21517#31216
      FieldName = 'I120_003'
      Size = 50
    end
    object qryInv120I120_004: TIntegerField
      FieldName = 'I120_004'
      Visible = False
    end
    object qryInv120S500C_001: TIntegerField
      FieldName = 'S500C_001'
      Visible = False
    end
    object qryInv120S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryInv120S500C_003: TWideStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryInv120S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
  object dsOrd110: TDataSource
    DataSet = qryOrd110
    Left = 231
    Top = 248
  end
  object qryOrd110: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.O110_001,B.O110_002,B.O110_003,A.*'
      'from SYS500C A,ORD110 B'
      
        'where A.S500C_002=B.O110_001 and A.S500C_003='#39'CUS'#39' and A.S500C_0' +
        '01= :UserNo')
    Left = 232
    Top = 256
    object qryOrd110O110_001: TAutoIncField
      FieldName = 'O110_001'
      ReadOnly = True
      Visible = False
    end
    object qryOrd110O110_002: TWideStringField
      DisplayLabel = #23458#25143#20998#31867
      FieldName = 'O110_002'
      Size = 50
    end
    object qryOrd110O110_003: TIntegerField
      FieldName = 'O110_003'
      Visible = False
    end
    object qryOrd110S500C_001: TIntegerField
      FieldName = 'S500C_001'
      Visible = False
    end
    object qryOrd110S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryOrd110S500C_003: TWideStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryOrd110S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
  object dsGld150: TDataSource
    DataSet = qryGld150
    Left = 271
    Top = 248
  end
  object qryGld150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select B.G150_001,B.G150_002,B.G150_003,B.G150_004,A.*'
      'from SYS500C A,GLD150 B'
      
        'where A.S500C_002=B.G150_001 and A.S500C_003='#39'GLD'#39' and A.S500C_0' +
        '01= :UserNo'
      'order by B.G150_002')
    Left = 272
    Top = 256
    object qryGld150G150_001: TAutoIncField
      FieldName = 'G150_001'
      ReadOnly = True
      Visible = False
    end
    object qryGld150G150_002: TWideStringField
      DisplayLabel = #31185#30446#32534#21495
      FieldName = 'G150_002'
    end
    object qryGld150G150_003: TIntegerField
      FieldName = 'G150_003'
      Visible = False
    end
    object qryGld150G150_004: TWideStringField
      DisplayLabel = #31185#30446#21517#31216
      FieldName = 'G150_004'
      Size = 50
    end
    object qryGld150S500C_001: TIntegerField
      FieldName = 'S500C_001'
      Visible = False
    end
    object qryGld150S500C_002: TIntegerField
      FieldName = 'S500C_002'
      Visible = False
    end
    object qryGld150S500C_003: TWideStringField
      FieldName = 'S500C_003'
      Visible = False
      FixedChar = True
      Size = 3
    end
    object qryGld150S500C_004: TBooleanField
      DisplayLabel = #25805#20316#26435#38480
      FieldName = 'S500C_004'
    end
  end
end