hrm500_01.dfm.svn-base

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

          TabOrder = 3
        end
        object DBEdit7: TDBEdit
          Left = 288
          Top = 104
          Width = 225
          Height = 20
          DataField = 'H120_003A'
          DataSource = DataSource1
          Enabled = False
          ReadOnly = True
          TabOrder = 4
        end
        object DBEdit10: TDBEdit
          Left = 288
          Top = 176
          Width = 225
          Height = 20
          DataField = 'H120_003B'
          DataSource = DataSource1
          Enabled = False
          ReadOnly = True
          TabOrder = 8
        end
        object wwDBDateTimePicker1: TwwDBDateTimePicker
          Left = 136
          Top = 128
          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 = 'H500_002'
          DataSource = DataSource1
          Epoch = 1950
          ShowButton = True
          TabOrder = 5
        end
        object Edit2: TEdit
          Left = 136
          Top = 56
          Width = 121
          Height = 20
          TabOrder = 0
          OnExit = Edit2Exit
          OnKeyDown = Edit2KeyDown
        end
        object Edit5: TEdit
          Left = 136
          Top = 176
          Width = 121
          Height = 20
          TabOrder = 7
          OnExit = Edit5Exit
          OnKeyDown = Edit5KeyDown
        end
        object dxDBLookupTreeView1: TdxDBLookupTreeView
          Left = 136
          Top = 152
          Width = 377
          Height = 20
          CanSelectParents = False
          ParentColor = False
          TabOrder = 6
          TabStop = True
          Text = 'dxDBLookupTreeView1'
          TreeViewColor = clWindow
          TreeViewCursor = crDefault
          TreeViewFont.Charset = DEFAULT_CHARSET
          TreeViewFont.Color = clWindowText
          TreeViewFont.Height = -11
          TreeViewFont.Name = 'MS Sans Serif'
          TreeViewFont.Style = []
          TreeViewIndent = 19
          TreeViewReadOnly = True
          TreeViewShowButtons = True
          TreeViewShowHint = False
          TreeViewShowLines = True
          TreeViewShowRoot = True
          TreeViewSortType = stNone
          DividedChar = '.'
          ListSource = dsHrm100
          KeyField = 'H100_001'
          ListField = 'H100_002'
          Options = [trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
          ParentField = 'H100_003'
          TextStyle = tvtsShort
          DataField = 'H500_005'
          DataSource = DataSource1
          ReadOnly = True
        end
        object DBEdit2: TDBEdit
          Left = 136
          Top = 80
          Width = 377
          Height = 20
          DataField = 'H100_002A'
          DataSource = DataSource1
          Enabled = False
          ReadOnly = True
          TabOrder = 2
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from HRM500')
    Left = 72
    Top = 128
    object ADOQuery1H500_001: TIntegerField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H500_001'
      Visible = False
    end
    object ADOQuery1H500_002: TDateTimeField
      DisplayLabel = #21464#21160#26085#26399
      FieldName = 'H500_002'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADOQuery1H500_003: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'H500_003'
      Visible = False
    end
    object ADOQuery1H500_004: TIntegerField
      DisplayLabel = #21407#37096#38376#32534#21495
      FieldName = 'H500_004'
      Visible = False
    end
    object ADOQuery1H500_005: TIntegerField
      DisplayLabel = #29616#37096#38376#32534#21495
      FieldName = 'H500_005'
      Visible = False
    end
    object ADOQuery1H500_006: TIntegerField
      DisplayLabel = #21407#32844#21153#32534#21495
      FieldName = 'H500_006'
      Visible = False
    end
    object ADOQuery1H500_007: TIntegerField
      DisplayLabel = #29616#32844#21153#32534#21495
      FieldName = 'H500_007'
      Visible = False
    end
    object ADOQuery1H500_008: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'H500_008'
      Size = 30
    end
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldKind = fkLookup
      FieldName = 'H150_002'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_002'
      KeyFields = 'H500_001'
      Size = 10
      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 = 'H500_001'
      Lookup = True
    end
    object ADOQuery1H100_002A: TStringField
      DisplayLabel = #21407#37096#38376
      FieldKind = fkLookup
      FieldName = 'H100_002A'
      LookupDataSet = qryHrm100
      LookupKeyFields = 'H100_001'
      LookupResultField = 'H100_002'
      KeyFields = 'H500_004'
      Size = 50
      Lookup = True
    end
    object ADOQuery1H100_002B: TStringField
      DisplayLabel = #29616#37096#38376
      FieldKind = fkLookup
      FieldName = 'H100_002B'
      LookupDataSet = qryHrm100
      LookupKeyFields = 'H100_001'
      LookupResultField = 'H100_002'
      KeyFields = 'H500_005'
      Size = 50
      Lookup = True
    end
    object ADOQuery1H120_002A: TStringField
      DisplayLabel = #21407#32844#21153#32534#21495
      FieldKind = fkLookup
      FieldName = 'H120_002A'
      LookupDataSet = qryHrm120
      LookupKeyFields = 'H120_001'
      LookupResultField = 'H120_002'
      KeyFields = 'H500_006'
      Size = 6
      Lookup = True
    end
    object ADOQuery1H120_003A: TStringField
      DisplayLabel = #21407#32844#21153#21517#31216
      FieldKind = fkLookup
      FieldName = 'H120_003A'
      LookupDataSet = qryHrm120
      LookupKeyFields = 'H120_001'
      LookupResultField = 'H120_003'
      KeyFields = 'H500_006'
      Lookup = True
    end
    object ADOQuery1H120_002B: TStringField
      DisplayLabel = #29616#32844#21153#32534#21495
      FieldKind = fkLookup
      FieldName = 'H120_002B'
      LookupDataSet = qryHrm120
      LookupKeyFields = 'H120_001'
      LookupResultField = 'H120_002'
      KeyFields = 'H500_007'
      Size = 6
      Lookup = True
    end
    object ADOQuery1H120_003B: TStringField
      DisplayLabel = #29616#32844#21153#21517#31216
      FieldKind = fkLookup
      FieldName = 'H120_003B'
      LookupDataSet = qryHrm120
      LookupKeyFields = 'H120_001'
      LookupResultField = 'H120_003'
      KeyFields = 'H500_007'
      Lookup = True
    end
  end
  inherited pmGrid: TPopupMenu
    Left = 512
    Top = 176
  end
  object dsHrm100: TDataSource
    DataSet = qryHrm100
    Left = 480
    Top = 248
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select H150_001, H150_002, H150_003, H150_005, H150_006, H150_00' +
        '8'
      'from HRM150 where H150_012<>2')
    Left = 440
    Top = 128
    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 qryHrm150H150_005: TIntegerField
      FieldName = 'H150_005'
      Visible = False
    end
    object qryHrm150H150_006: TIntegerField
      FieldName = 'H150_006'
      Visible = False
    end
    object qryHrm150H150_008: TIntegerField
      FieldName = 'H150_008'
      Visible = False
    end
  end
  object qryHrm100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM100')
    Left = 488
    Top = 248
    object qryHrm100H100_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H100_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm100H100_002: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'H100_002'
      Size = 50
    end
    object qryHrm100H100_003: TIntegerField
      DisplayLabel = #19978#32423#37096#38376
      FieldName = 'H100_003'
    end
    object qryHrm100H100_004: TBooleanField
      DisplayLabel = #22791#27880
      FieldName = 'H100_004'
    end
  end
  object qryHrm120: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from HRM120')
    Left = 488
    Top = 288
    object qryHrm120H120_001: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'H120_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm120H120_002: TStringField
      DisplayLabel = #32844#21153#32534#21495
      DisplayWidth = 6
      FieldName = 'H120_002'
      FixedChar = True
      Size = 6
    end
    object qryHrm120H120_003: TStringField
      DisplayLabel = #32844#21153#35828#26126
      DisplayWidth = 20
      FieldName = 'H120_003'
      FixedChar = True
    end
  end
end