pay520_01.dfm.svn-base

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

            000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
            8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
            00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
            000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
            FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
            000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00FFFFFF80808080808000000000000000000000000000000000000000000000
            0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
            00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
            000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
            0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
            BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
            0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
            00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
            0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          OnClick = sbRountClick
        end
        object edtEmpID: TEdit
          Left = 144
          Top = 56
          Width = 121
          Height = 20
          TabOrder = 0
          OnExit = edtEmpIDExit
          OnKeyDown = edtEmpIDKeyDown
        end
        object dtDate: TwwDBDateTimePicker
          Left = 144
          Top = 88
          Width = 121
          Height = 20
          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
          DataField = 'P520_002'
          DataSource = DataSource1
          Epoch = 1950
          ShowButton = True
          TabOrder = 2
          DisplayFormat = 'yyyy-mm-dd'
        end
        object DBEdit3: TDBEdit
          Left = 360
          Top = 88
          Width = 145
          Height = 20
          DataField = 'P520_003'
          DataSource = DataSource1
          TabOrder = 3
        end
        object DBEdit6: TDBEdit
          Left = 144
          Top = 184
          Width = 121
          Height = 20
          DataField = 'P520_006'
          DataSource = DataSource1
          TabOrder = 8
        end
        object DBEdit7: TDBEdit
          Left = 384
          Top = 184
          Width = 121
          Height = 20
          DataField = 'P520_007'
          DataSource = DataSource1
          TabOrder = 9
        end
        object edtItem: TEdit
          Left = 144
          Top = 120
          Width = 121
          Height = 20
          TabOrder = 4
          OnExit = edtItemExit
          OnKeyDown = edtItemKeyDown
        end
        object edtRount: TEdit
          Left = 144
          Top = 152
          Width = 121
          Height = 20
          TabOrder = 6
          OnExit = edtRountExit
          OnKeyDown = edtRountKeyDown
        end
        object DBEdit1: TDBEdit
          Left = 296
          Top = 56
          Width = 209
          Height = 20
          DataField = 'H150_003'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit2: TDBEdit
          Left = 296
          Top = 120
          Width = 209
          Height = 20
          DataField = 'I150_003'
          DataSource = DataSource1
          TabOrder = 5
        end
        object DBEdit4: TDBEdit
          Left = 296
          Top = 152
          Width = 209
          Height = 20
          DataField = 'B100_003'
          DataSource = DataSource1
          TabOrder = 7
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from PAY520')
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'P520_001'
      Lookup = True
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'P520_001'
      Lookup = True
    end
    object ADOQuery1P520_002: TDateTimeField
      DisplayLabel = #23436#24037#26085#26399
      FieldName = 'P520_002'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1P520_003: TStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'P520_003'
    end
    object ADOQuery1I150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldKind = fkLookup
      FieldName = 'I150_002'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_002'
      KeyFields = 'P520_004'
      Size = 30
      Lookup = True
    end
    object ADOQuery1I150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'I150_003'
      LookupDataSet = qryInv150
      LookupKeyFields = 'I150_001'
      LookupResultField = 'I150_003'
      KeyFields = 'P520_004'
      Size = 60
      Lookup = True
    end
    object ADOQuery1B100_002: TStringField
      DisplayLabel = #24037#24207#32534#21495
      FieldKind = fkLookup
      FieldName = 'B100_002'
      LookupDataSet = qryBom100
      LookupKeyFields = 'B100_001'
      LookupResultField = 'B100_002'
      KeyFields = 'P520_005'
      Lookup = True
    end
    object ADOQuery1B100_003: TStringField
      DisplayLabel = #24037#24207#21517#31216
      FieldKind = fkLookup
      FieldName = 'B100_003'
      LookupDataSet = qryBom100
      LookupKeyFields = 'B100_001'
      LookupResultField = 'B100_003'
      KeyFields = 'P520_005'
      Size = 50
      Lookup = True
    end
    object ADOQuery1P520_006: TFloatField
      DisplayLabel = #27491#21697#25968#37327
      FieldName = 'P520_006'
    end
    object ADOQuery1P520_007: TFloatField
      DisplayLabel = #25439#22351#25968#37327
      FieldName = 'P520_007'
    end
    object ADOQuery1P520_008: TBooleanField
      DisplayLabel = #24050#32467#31639#21542
      FieldName = 'P520_008'
    end
    object ADOQuery1P520_001: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'P520_001'
      Visible = False
    end
    object ADOQuery1P520_004: TIntegerField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'P520_004'
      Visible = False
    end
    object ADOQuery1P520_005: TIntegerField
      DisplayLabel = #24037#24207#32534#21495
      FieldName = 'P520_005'
      Visible = False
    end
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    Left = 24
    Top = 224
    object qryHrm150H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#21517#31216
      FieldName = 'H150_003'
    end
  end
  object qryInv150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select I150_001,I150_002,I150_003 from INV150')
    Left = 24
    Top = 264
    object qryInv150I150_001: TAutoIncField
      FieldName = 'I150_001'
      ReadOnly = True
      Visible = False
    end
    object qryInv150I150_002: TStringField
      DisplayLabel = #26009#21697#32534#21495
      FieldName = 'I150_002'
      Size = 30
    end
    object qryInv150I150_003: TStringField
      DisplayLabel = #26009#21697#21517#31216
      FieldName = 'I150_003'
      Size = 60
    end
  end
  object qryBom100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select B100_001,B100_002,B100_003 from BOM100')
    Left = 24
    Top = 304
    object qryBom100B100_001: TAutoIncField
      FieldName = 'B100_001'
      ReadOnly = True
      Visible = False
    end
    object qryBom100B100_002: TStringField
      DisplayLabel = #24037#24207#32534#21495
      FieldName = 'B100_002'
    end
    object qryBom100B100_003: TStringField
      DisplayLabel = #24037#24207#21517#31216
      FieldName = 'B100_003'
      Size = 50
    end
  end
end