hrm510_01.dfm.svn-base

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

            00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
            0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
            00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
          OnClick = SpeedButton2Click
        end
        object DBEdit2: TDBEdit
          Left = 288
          Top = 56
          Width = 209
          Height = 20
          Color = clBtnFace
          DataField = 'H150_003'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 0
        end
        object DBEdit4: TDBEdit
          Left = 136
          Top = 88
          Width = 121
          Height = 20
          Color = clBtnFace
          DataField = 'H130_002'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 1
        end
        object DBEdit6: TDBEdit
          Left = 136
          Top = 184
          Width = 361
          Height = 20
          DataField = 'H510_005'
          DataSource = DataSource1
          TabOrder = 5
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 136
          Top = 120
          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 = 'H510_002'
          DataSource = DataSource1
          Epoch = 1950
          ShowButton = True
          TabOrder = 3
        end
        object DBEdit1: TDBEdit
          Left = 264
          Top = 88
          Width = 233
          Height = 20
          Color = clBtnFace
          DataField = 'H130_003'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 2
        end
        object DBEdit3: TDBEdit
          Left = 288
          Top = 152
          Width = 209
          Height = 20
          Color = clBtnFace
          DataField = 'H130_003A'
          DataSource = DataSource1
          Enabled = False
          TabOrder = 4
        end
        object Edit2: TEdit
          Left = 136
          Top = 56
          Width = 121
          Height = 20
          TabOrder = 6
          OnExit = Edit2Exit
          OnKeyDown = Edit2KeyDown
        end
        object Edit1: TEdit
          Left = 136
          Top = 152
          Width = 121
          Height = 20
          TabOrder = 7
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from HRM510')
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'H510_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 = 'H510_001'
      Lookup = True
    end
    object ADOQuery1H510_002: TDateTimeField
      DisplayLabel = #35843#25972#26085#26399
      FieldName = 'H510_002'
    end
    object ADOQuery1H130_002: TStringField
      DisplayLabel = #21407#20808#29366#24577
      FieldKind = fkLookup
      FieldName = 'H130_002'
      LookupDataSet = qryHrm130
      LookupKeyFields = 'H130_001'
      LookupResultField = 'H130_002'
      KeyFields = 'H510_003'
      Size = 10
      Lookup = True
    end
    object ADOQuery1H130_003: TStringField
      DisplayLabel = #21407#20808#29366#24577#21517#31216
      FieldKind = fkLookup
      FieldName = 'H130_003'
      LookupDataSet = qryHrm130
      LookupKeyFields = 'H130_001'
      LookupResultField = 'H130_003'
      KeyFields = 'H510_003'
      Size = 50
      Lookup = True
    end
    object ADOQuery1H130_002A: TStringField
      DisplayLabel = #29616#22312#29366#24577
      FieldKind = fkLookup
      FieldName = 'H130_002A'
      LookupDataSet = qryHrm130
      LookupKeyFields = 'H130_001'
      LookupResultField = 'H130_002'
      KeyFields = 'H510_004'
      Size = 10
      Lookup = True
    end
    object ADOQuery1H130_003A: TStringField
      DisplayLabel = #29616#22312#29366#24577#21517#31216
      FieldKind = fkLookup
      FieldName = 'H130_003A'
      LookupDataSet = qryHrm130
      LookupKeyFields = 'H130_001'
      LookupResultField = 'H130_003'
      KeyFields = 'H510_004'
      Size = 50
      Lookup = True
    end
    object ADOQuery1H510_005: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'H510_005'
      Size = 50
    end
    object ADOQuery1H510_001: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H510_001'
      Visible = False
    end
    object ADOQuery1H510_003: TIntegerField
      DisplayLabel = #21407#20808#29366#24577
      FieldName = 'H510_003'
      Visible = False
    end
    object ADOQuery1H510_004: TIntegerField
      DisplayLabel = #29616#22312#29366#24577
      FieldName = 'H510_004'
      Visible = False
    end
  end
  inherited pmGrid: TPopupMenu
    Left = 472
    Top = 240
  end
  object qryHrm130: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM130')
    Left = 200
    Top = 256
    object qryHrm130H130_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H130_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm130H130_002: TStringField
      DisplayLabel = #29366#24577#32534#21495
      FieldName = 'H130_002'
      FixedChar = True
      Size = 3
    end
    object qryHrm130H130_003: TStringField
      DisplayLabel = #29366#24577#35828#26126
      FieldName = 'H130_003'
      FixedChar = True
    end
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select H150_001,H150_002,H150_003,H130_003,H150_012 from HRM150 ' +
        'A, HRM130 B'
      'where A.H150_012=B.H130_001')
    Left = 208
    Top = 152
    object qryHrm150H150_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm150H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'H150_003'
      FixedChar = True
    end
    object qryHrm150H130_003: TStringField
      DisplayLabel = #21592#24037#29366#24577
      FieldName = 'H130_003'
    end
    object qryHrm150H150_012: TIntegerField
      FieldName = 'H150_012'
      Visible = False
      OnGetText = qryHrm150H150_012GetText
    end
  end
end