tas530_02.dfm

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

  object dsTas530: TDataSource
    DataSet = qryTas530
    Left = 8
    Top = 96
  end
  object dsTas531: TDataSource
    DataSet = adsTas531
    Left = 24
    Top = 408
  end
  object qryTas532: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = qryTas532BeforePost
    OnNewRecord = qryTas532NewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from TAS532 where T532_001='#39#39' order by T532_002')
    Left = 56
    Top = 448
    object qryTas532I150_002: TStringField
      DisplayLabel = #38646#20214#32534#21495
      DisplayWidth = 22
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'T532_002'
      Size = 30
      Lookup = True
    end
    object qryTas532I150_003: TStringField
      DisplayLabel = #38646#20214#21517#31216
      DisplayWidth = 31
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'T532_002'
      ReadOnly = True
      Size = 60
      Lookup = True
    end
    object qryTas532I150_004: TStringField
      DisplayLabel = #35268#26684#22411#21495
      DisplayWidth = 32
      FieldKind = fkLookup
      FieldName = 'I150_004'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_004'
      KeyFields = 'T532_002'
      ReadOnly = True
      Size = 60
      Lookup = True
    end
    object qryTas532T532_003: TFloatField
      DisplayLabel = #25968#37327
      DisplayWidth = 10
      FieldName = 'T532_003'
    end
    object qryTas532T532_004: TSmallintField
      DisplayLabel = #29366#24577
      DisplayWidth = 10
      FieldName = 'T532_004'
      OnGetText = qryTas532T532_004GetText
    end
    object qryTas532T532_005: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 38
      FieldName = 'T532_005'
      Size = 100
    end
    object qryTas532T532_001: TWideStringField
      DisplayLabel = #27719#25253#32534#21495
      FieldName = 'T532_001'
      Visible = False
      Size = 30
    end
    object qryTas532T532_002: TIntegerField
      DisplayLabel = #38646#20214#32534#21495
      FieldName = 'T532_002'
      Visible = False
    end
  end
  object dsTas532: TDataSource
    DataSet = qryTas532
    Left = 24
    Top = 448
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150 order by H150_002')
    Left = 56
    Top = 376
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TWideStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TWideStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
    end
  end
  object qryInv150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select I150_001,I150_002,I150_003,I150_004 from INV150 order by ' +
        'I150_002')
    Left = 88
    Top = 448
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TWideStringField
      DisplayLabel = #38646#20214#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TWideStringField
      DisplayLabel = #38646#20214#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
    object qryInv150I150_004: TWideStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'I150_004'
      Size = 60
    end
  end
  object pmTas531: TPopupMenu
    Left = 288
    Top = 400
    object mmiAdd1: TMenuItem
      Caption = #26032#22686'(&I)'
      ShortCut = 32841
      OnClick = mmiAdd1Click
    end
    object mmiEdit1: TMenuItem
      Caption = #20462#25913'(&U)'
      ShortCut = 32853
      OnClick = mmiEdit1Click
    end
    object mmiDel1: TMenuItem
      Caption = #21024#38500'(&E)'
      ShortCut = 32837
      OnClick = mmiDel1Click
    end
  end
  object pmTas532: TPopupMenu
    Left = 344
    Top = 400
    object mmiAdd2: TMenuItem
      Caption = #26032#22686'(&I)'
      ShortCut = 32841
      OnClick = mmiAdd2Click
    end
    object mmiEdit2: TMenuItem
      Caption = #20462#25913'(&U)'
      ShortCut = 32853
      OnClick = mmiEdit2Click
    end
    object mmiDel2: TMenuItem
      Caption = #21024#38500'(&E)'
      ShortCut = 32837
      OnClick = mmiDel2Click
    end
  end
  object adsTas531: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsTas531BeforePost
    OnNewRecord = adsTas531NewRecord
    FieldDefs = <
      item
        Name = 'FPerson'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FFromTime'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'FToTime'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'FHours'
        Attributes = [faFixed]
        DataType = ftBCD
        Size = 4
      end
      item
        Name = 'FOT'
        Attributes = [faFixed]
        DataType = ftBCD
        Size = 4
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'FID'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FStartTime'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'FEndTime'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'FTripHour'
        Attributes = [faFixed]
        DataType = ftBCD
        Size = 4
      end>
    Parameters = <>
    StoreDefs = True
    Left = 56
    Top = 408
    object adsTas531FPerson: TStringField
      DisplayLabel = #25191#34892#20154#21592
      DisplayWidth = 24
      FieldName = 'FPerson'
      Size = 50
    end
    object adsTas531FDate: TDateTimeField
      DisplayLabel = #27719#25253#26085#26399
      DisplayWidth = 18
      FieldName = 'FDate'
    end
    object adsTas531FFromTime: TWideStringField
      DisplayLabel = #24320#22987#26102#38388
      DisplayWidth = 8
      FieldName = 'FFromTime'
      FixedChar = True
      Size = 5
    end
    object adsTas531FToTime: TWideStringField
      DisplayLabel = #23436#25104#26102#38388
      DisplayWidth = 8
      FieldName = 'FToTime'
      FixedChar = True
      Size = 5
    end
    object adsTas531FHours: TBCDField
      DisplayLabel = #24037#20316#26102#25968'(H)'
      DisplayWidth = 11
      FieldName = 'FHours'
      ReadOnly = True
      DisplayFormat = '0.00'
      Precision = 8
      Size = 2
    end
    object adsTas531FOT: TBCDField
      DisplayLabel = #21152#29677#26102#25968'(H)'
      DisplayWidth = 11
      FieldName = 'FOT'
      DisplayFormat = '0.00'
      Precision = 8
      Size = 2
    end
    object adsTas531FEndTime: TStringField
      DisplayLabel = #19979#36710#26102#38388
      DisplayWidth = 5
      FieldName = 'FEndTime'
      Size = 5
    end
    object adsTas531FStartTime: TStringField
      DisplayLabel = #20056#36710#26102#38388
      DisplayWidth = 5
      FieldName = 'FStartTime'
      Size = 5
    end
    object adsTas531FTripHour: TBCDField
      DisplayLabel = #36710#31243#26102#38388'(H)'
      DisplayWidth = 10
      FieldName = 'FTripHour'
      ReadOnly = True
      DisplayFormat = '0.00'
      Size = 0
    end
    object adsTas531FRemark: TWideStringField
      DisplayLabel = #22791#27880#35828#26126
      DisplayWidth = 32
      FieldName = 'FRemark'
      Size = 100
    end
    object adsTas531FID: TWideStringField
      DisplayLabel = #25191#34892#20154#21592
      DisplayWidth = 25
      FieldName = 'FID'
      Visible = False
      Size = 50
    end
  end
  object qryTas531: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 88
    Top = 408
  end
  object ADODataSet1: TADODataSet
    Parameters = <>
    Left = 80
    Top = 488
  end
  object adsStatus: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FStatus'
        DataType = ftString
        Size = 20
      end>
    Parameters = <>
    StoreDefs = True
    Left = 480
    Top = 432
  end
  object dsStatus: TDataSource
    DataSet = adsStatus
    Left = 512
    Top = 432
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select A.I150_001,A.I150_002,A.I150_003,A.I150_004,B.I120_003,C.' +
        'O150_002,C.O150_003'
      
        'from (INV150 A left join INV120 B on A.I150_005=B.I120_001) left' +
        ' join ORD150 C on A.I150_010=C.O150_001')
    Left = 64
    Top = 96
  end
  object dsTas533: TDataSource
    DataSet = adsTas533
    Left = 168
    Top = 448
  end
  object qryTas533: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TAS533 where T533_001=null')
    Left = 232
    Top = 448
  end
  object adsTas533: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FOrder'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FLine'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      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 = 20
      end
      item
        Name = 'FQty'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FRemark'
        DataType = ftString
        Size = 100