hrm150_01.dfm.svn-base

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

          end
          object Label40: TLabel
            Left = 7
            Top = 78
            Width = 24
            Height = 12
            Alignment = taRightJustify
            Caption = #22791#27880
            FocusControl = DBEdit35
          end
          object DBEdit30: TDBEdit
            Left = 37
            Top = 15
            Width = 133
            Height = 20
            DataField = 'H159_002'
            DataSource = dsHrm159
            TabOrder = 0
          end
          object DBEdit32: TDBEdit
            Left = 354
            Top = 15
            Width = 134
            Height = 20
            DataField = 'H159_004'
            DataSource = dsHrm159
            TabOrder = 1
          end
          object DBEdit33: TDBEdit
            Left = 37
            Top = 44
            Width = 133
            Height = 20
            DataField = 'H159_005'
            DataSource = dsHrm159
            TabOrder = 2
          end
          object DBEdit34: TDBEdit
            Left = 244
            Top = 44
            Width = 244
            Height = 20
            DataField = 'H159_006'
            DataSource = dsHrm159
            TabOrder = 3
          end
          object DBEdit35: TDBEdit
            Left = 37
            Top = 74
            Width = 451
            Height = 20
            DataField = 'H159_007'
            DataSource = dsHrm159
            TabOrder = 4
          end
          object DBComboBox5: TDBComboBox
            Left = 222
            Top = 15
            Width = 82
            Height = 20
            Style = csDropDownList
            DataField = 'H159_003'
            DataSource = dsHrm159
            ItemHeight = 12
            Items.Strings = (
              #30007
              #22899)
            TabOrder = 5
          end
        end
      end
      object Panel7: TPanel
        Left = 504
        Top = 0
        Width = 90
        Height = 307
        Align = alRight
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object bbtnInsert2: TBitBtn
          Left = 11
          Top = 30
          Width = 69
          Height = 23
          Caption = #26032#22686
          TabOrder = 0
          OnClick = bbtnInsert2Click
        end
        object bbtnUpdate2: TBitBtn
          Left = 11
          Top = 59
          Width = 69
          Height = 23
          Caption = #20462#25913
          TabOrder = 1
          OnClick = bbtnUpdate2Click
        end
        object bbtnDelete2: TBitBtn
          Left = 11
          Top = 89
          Width = 69
          Height = 23
          Caption = #21024#38500
          TabOrder = 2
          OnClick = bbtnDelete2Click
        end
        object bbtnSave2: TBitBtn
          Left = 11
          Top = 148
          Width = 69
          Height = 23
          Caption = #20445#23384
          Enabled = False
          TabOrder = 3
          OnClick = bbtnSave2Click
        end
        object bbtnCancel2: TBitBtn
          Left = 11
          Top = 177
          Width = 69
          Height = 23
          Caption = #21462#28040
          Enabled = False
          TabOrder = 4
          OnClick = bbtnCancel2Click
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 288
    Top = 48
    object mmiPrint: TMenuItem
      Caption = #25171#21360
      ShortCut = 16464
    end
    object mmiExport: TMenuItem
      Caption = #36755#20986
      ShortCut = 16453
    end
  end
  object dsHrm150: TDataSource
    DataSet = qryHrm150
    Left = 40
    Top = 56
  end
  object dsHrm100: TDataSource
    DataSet = qryHrm100
    Left = 120
    Top = 88
  end
  object dsHrm151: TDataSource
    DataSet = qryHrm151
    Left = 360
    Top = 56
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Bitmaps (*.bmp)|*.bmp|Jpg(*.jpg;*.jpeg)|*.jpg;*.jpeg'
    Left = 527
    Top = 35
  end
  object dsHrm153: TDataSource
    DataSet = qryHrm153
    Left = 424
    Top = 56
  end
  object dsHrm154: TDataSource
    DataSet = qryHrm154
    Left = 464
    Top = 56
  end
  object dsHrm155: TDataSource
    DataSet = qryHrm155
    Left = 504
    Top = 56
  end
  object dsHrm156: TDataSource
    DataSet = qryHrm156
    Left = 544
    Top = 56
  end
  object dsHrm157: TDataSource
    DataSet = qryHrm157
    Left = 424
    Top = 96
  end
  object dsHrm158: TDataSource
    DataSet = qryHrm158
    Left = 464
    Top = 96
  end
  object dsHrm159: TDataSource
    DataSet = qryHrm159
    Left = 512
    Top = 96
  end
  object qryHrm150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    AfterScroll = qryHrm150AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from HRM150 order by H150_002')
    Left = 64
    Top = 72
    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'
    end
    object qryHrm150H150_004: TStringField
      DisplayLabel = #33521#25991#22995#21517
      FieldName = 'H150_004'
    end
    object qryHrm150H150_005: TIntegerField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'H150_005'
    end
    object qryHrm150H150_006: TIntegerField
      FieldName = 'H150_006'
      Visible = False
    end
    object qryHrm150H150_007: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'H150_007'
      FixedChar = True
      Size = 2
    end
    object qryHrm150H150_008: TIntegerField
      DisplayLabel = #32844#21153#32534#21495
      FieldName = 'H150_008'
    end
    object qryHrm150H150_009: TStringField
      DisplayLabel = #31821#36143
      FieldName = 'H150_009'
    end
    object qryHrm150H150_010: TStringField
      DisplayLabel = #36523#20221#23383#21495
      FieldName = 'H150_010'
      FixedChar = True
      Size = 18
    end
    object qryHrm150H150_011: TDateTimeField
      DisplayLabel = #21040#32844#26085#26399
      FieldName = 'H150_011'
    end
    object qryHrm150H150_012: TIntegerField
      DisplayLabel = #21592#24037#29366#24577
      FieldName = 'H150_012'
    end
    object qryHrm150H150_013: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'H150_013'
    end
    object qryHrm150H150_014: TStringField
      DisplayLabel = #26723#26696#32534#21495
      FieldName = 'H150_014'
    end
    object qryHrm150H150_015: TStringField
      DisplayLabel = #20303#22336
      FieldName = 'H150_015'
      Size = 30
    end
    object qryHrm150H150_016: TStringField
      DisplayLabel = #23130#23035#29366#20917
      FieldName = 'H150_016'
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_017: TStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'H150_017'
    end
    object qryHrm150H150_018: TDateTimeField
      FieldName = 'H150_018'
      Visible = False
    end
    object qryHrm150H150_019: TIntegerField
      FieldName = 'H150_019'
      Visible = False
    end
    object qryHrm150H150_020: TBooleanField
      DisplayLabel = #21442#19982#34218#36164#35745#31639#21542
      FieldName = 'H150_020'
    end
    object qryHrm150H150_021: TStringField
      FieldName = 'H150_021'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryHrm150H150_022: TStringField
      DisplayLabel = #23398#21382
      FieldName = 'H150_022'
    end
    object qryHrm150H150_023: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'H150_023'
      Size = 30
    end
    object qryHrm150H150_024: TIntegerField
      FieldName = 'H150_024'
      Visible = False
    end
    object qryHrm150H150_025: TStringField
      DisplayLabel = #26242#20303#35777#21495
      FieldName = 'H150_025'
    end
    object qryHrm150H150_026: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'H150_026'
    end
    object qryHrm150H130_002: TStringField
      DisplayLabel = #29366#24577#32534#21495
      FieldKind = fkLookup
      FieldName = 'H130_002'
      LookupDataSet = qryHrm130
      LookupKeyFields = 'H130_001'
      LookupResultField = 'H130_002'
      KeyFields = 'H150_012'
      Size = 3
      Lookup = True
    end
    object qryHrm150H130_003: TStringField
      DisplayLabel = #29366#24577#35828#26126
      FieldKind = fkLookup
      FieldName = 'H130_003'
      LookupDataSet = qryHrm130
      LookupKeyFields = 'H130_001'
      LookupResultField = 'H130_003'
      KeyFields = 'H150_012'
      Lookup = True
    end
    object qryHrm150H120_002: TStringField
      DisplayLabel = #32844#21153#32534#21495
      FieldKind = fkLookup
      FieldName = 'H120_002'
      LookupDataSet = qryHrm120
      LookupKeyFields = 'H120_001'
      LookupResultField = 'H120_002'
      KeyFields = 'H150_008'
      Size = 6
      Lookup = True
    end
    object qryHrm150H120_003: TStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldKind = fkLookup
      FieldName = 'H120_003'
      LookupDataSet = qryHrm120
      LookupKeyFields = 'H120_001'
      LookupResultField = 'H120_003'
      KeyFields = 'H150_008'
      Lookup = True
    end
  end
  object qryHrm100: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  HRM100')
    Left = 136
    Top = 96
  end
  object qryHrm120: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM120')
    Left = 208
    Top = 96
    object qryHrm120H120_001: TAutoIncField
      FieldName = 'H120_001'
      ReadOnly = True
      Visible = False
    end
    object qryHrm120H120_002: TStringField
      DisplayLabel = #32844#21153#32534#21495
      FieldName = 'H120_002'
      FixedChar = True
      Size = 6
    end
    object qryHrm120H120_003: TStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'H120_003'
    end
  end
  object qryHrm130: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from HRM130')
    Left = 256
    Top = 104
    object qryHrm130H130_001: TAutoIncField
      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'
    end
  end
  object qryHrm151: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <