wdmdb.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

      #31163#24322)
    Left = 456
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object adtEdu: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = dsBI
    TableName = 'EDUCATION'
    Left = 88
    Top = 152
  end
  object dsBI: TDataSource
    DataSet = adtBasicInfo
    Left = 24
    Top = 152
  end
  object dsaEdu: TDataSetAdapter
    DataSet = adtEdu
    MasterAdapter = dsaBasicInfo
    Left = 152
    Top = 152
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptEMPID4: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
      object AdaptEDUDEGREE: TDataSetAdapterField
        DataSetField = 'EDUDEGREE'
      end
      object AdaptDEGREE: TDataSetAdapterField
        DataSetField = 'DEGREE'
      end
      object AdaptEDUSYSTEM: TDataSetAdapterField
        DataSetField = 'EDUSYSTEM'
      end
      object AdaptMAJOR: TDataSetAdapterField
        DataSetField = 'MAJOR'
      end
      object AdaptGRDTIME: TDataSetAdapterField
        DataSetField = 'GRDTIME'
      end
      object AdaptGRDSCHOOL: TDataSetAdapterField
        DataSetField = 'GRDSCHOOL'
      end
      object Adaptid2: TDataSetAdapterField
        DataSetField = 'id'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
    end
  end
  object adtACHI: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = dsBI
    TableName = 'ACHIEVEMENT'
    Left = 216
    Top = 152
  end
  object ddsaACHI: TDataSetAdapter
    DataSet = adtACHI
    MasterAdapter = dsaBasicInfo
    Left = 272
    Top = 152
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptACHIEVEMENT: TDataSetAdapterField
        DataSetField = 'ACHIEVEMENT'
      end
      object AdaptTIMEBEGIN: TDataSetAdapterField
        DataSetField = 'TIMEBEGIN'
      end
      object AdaptTIMEEND: TDataSetAdapterField
        DataSetField = 'TIMEEND'
      end
      object AdaptDETAIL: TDataSetAdapterField
        DataSetField = 'DETAIL'
      end
      object AdaptEMPID5: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
      object Adaptid3: TDataSetAdapterField
        DataSetField = 'id'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
    end
  end
  object dsaRES: TDataSetAdapter
    DataSet = adtRES
    MasterAdapter = dsaBasicInfo
    Left = 520
    Top = 152
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptTIMEBEGIN2: TDataSetAdapterField
        DataSetField = 'TIMEBEGIN'
      end
      object AdaptTIMEEND2: TDataSetAdapterField
        DataSetField = 'TIMEEND'
      end
      object AdaptUNIT: TDataSetAdapterField
        DataSetField = 'UNIT'
      end
      object AdaptDEP2: TDataSetAdapterField
        DataSetField = 'DEP'
      end
      object AdaptJOB: TDataSetAdapterField
        DataSetField = 'JOB'
      end
      object AdaptRANK2: TDataSetAdapterField
        DataSetField = 'RANK'
      end
      object AdaptPOST: TDataSetAdapterField
        DataSetField = 'POST'
      end
      object AdaptTYPEOFWORK: TDataSetAdapterField
        DataSetField = 'TYPEOFWORK'
      end
      object AdaptEMPID6: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
      object Adaptid4: TDataSetAdapterField
        DataSetField = 'id'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
    end
  end
  object dsaCON: TDataSetAdapter
    DataSet = adtCON
    MasterAdapter = dsaBasicInfo
    Left = 408
    Top = 152
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptID: TDataSetAdapterField
        DataSetField = 'ID'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
      object AdaptTERM: TDataSetAdapterField
        DataSetField = 'TERM'
      end
      object AdaptTIMEBEGIN3: TDataSetAdapterField
        DataSetField = 'TIMEBEGIN'
      end
      object AdaptSIGNTIME: TDataSetAdapterField
        DataSetField = 'SIGNTIME'
      end
      object AdaptVERIFIEDDEP: TDataSetAdapterField
        DataSetField = 'VERIFIEDDEP'
      end
      object AdaptVERIFIEDTIME: TDataSetAdapterField
        DataSetField = 'VERIFIEDTIME'
      end
      object AdaptTIMEEND3: TDataSetAdapterField
        DataSetField = 'TIMEEND'
      end
      object AdaptENDCAUSE: TDataSetAdapterField
        DataSetField = 'ENDCAUSE'
      end
      object AdaptENDCONFIRMUNIT: TDataSetAdapterField
        DataSetField = 'ENDCONFIRMUNIT'
      end
      object AdaptENDCONFIRMTIME: TDataSetAdapterField
        DataSetField = 'ENDCONFIRMTIME'
      end
      object AdaptEMPID7: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
    end
  end
  object adtCON: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = dsBI
    TableName = 'CONTRACT'
    Left = 328
    Top = 152
  end
  object adtRES: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'EMPID'
    MasterFields = 'EMPID'
    MasterSource = dsBI
    TableName = 'RESUME'
    Left = 464
    Top = 152
  end
  object adtBBS: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'BBS'
    Left = 24
    Top = 288
  end
  object adtBBSRPL: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'BBSID'
    MasterFields = 'BBSID'
    MasterSource = dsBBS
    TableName = 'BBSRPL'
    Left = 152
    Top = 288
  end
  object dsaBBS: TDataSetAdapter
    DataSet = adtBBS
    Left = 88
    Top = 288
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptBBSID: TDataSetAdapterField
        DataSetField = 'BBSID'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
      object AdaptpubTime: TDataSetAdapterField
        DataSetField = 'pubTime'
      end
      object AdaptName2: TDataSetAdapterField
        DataSetField = 'Name'
      end
      object AdaptTitle: TDataSetAdapterField
        DataSetField = 'Title'
        OnUpdateValue = AdaptTitleUpdateValue
      end
      object AdaptContent: TDataSetAdapterMemoField
        DataSetField = 'Content'
      end
      object Adaptabout: TDataSetAdapterField
        DataSetField = 'about'
        ValuesList = svlBBS
      end
      object AdaptRPLCount: TDataSetAdapterField
        DataSetField = 'RPLCount'
      end
    end
  end
  object dsaBBSRPL: TDataSetAdapter
    DataSet = adtBBSRPL
    MasterAdapter = dsaBBS
    Left = 216
    Top = 288
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptBBSID2: TDataSetAdapterField
        DataSetField = 'BBSID'
      end
      object AdaptpubTime2: TDataSetAdapterField
        DataSetField = 'pubTime'
      end
      object AdaptName3: TDataSetAdapterField
        DataSetField = 'Name'
      end
      object AdaptContent2: TDataSetAdapterMemoField
        DataSetField = 'Content'
        OnUpdateValue = AdaptContent2UpdateValue
      end
      object Adaptid5: TDataSetAdapterField
        DataSetField = 'id'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
    end
  end
  object dsBBS: TDataSource
    DataSet = adtBBS
    Left = 336
    Top = 288
  end
  object adtDep: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'DEPARTMENT'
    Left = 272
    Top = 24
  end
  object dsaDep: TDataSetAdapter
    DataSet = adtDep
    Left = 328
    Top = 24
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptDEPID: TDataSetAdapterField
        DataSetField = 'DEPID'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
      object AdaptDEPNAME: TDataSetAdapterField
        DataSetField = 'DEPNAME'
      end
      object AdaptDEPLEADER: TDataSetAdapterField
        DataSetField = 'DEPLEADER'
      end
      object AdaptDEPTEL: TDataSetAdapterField
        DataSetField = 'DEPTEL'
      end
      object AdaptDEPNOTE: TDataSetAdapterField
        DataSetField = 'DEPNOTE'
      end
    end
  end
  object dvlDep: TDataSetValuesList
    NameField = 'DEPNAME'
    ValueField = 'DEPNAME'
    DataSet = adtDep
    Left = 384
    Top = 24
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object svlBBS: TStringsValuesList
    Strings.Strings = (
      #26032#38395
      #20154#20107
      #24037#36164
      #31119#21033
      #20445#38505
      #35843#21160
      #36864#20241
      #31163#32844
      #21152#29677
      #22870#37329
      #26187#21319
      #35797#29992
      #20854#20182)
    Left = 288
    Top = 288
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object dsaBasicInfo2: TDataSetAdapter
    DataSet = adqBasicInfo
    PageSize = 5
    Left = 448
    Top = 24
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object DataSetAdapterField1: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
      object DataSetAdapterField2: TDataSetAdapterField
        DataSetField = 'NAME'
      end
      object DataSetAdapterField3: TDataSetAdapterField
        DataSetField = 'OLDNAME'
      end
      object DataSetAdapterField4: TDataSetAdapterField
        DataSetField = 'SEX'
        ValuesList = svlSex
      end
      object DataSetAdapterField5: TDataSetAdapterField
        DataSetField = 'BIRTHDAY'
      end
      object DataSetAdapterField6: TDataSetAdapterField
        DataSetField = 'IDNO'
      end
      object DataSetAdapterField7: TDataSetAdapterField
        DataSetField = 'NATIVEPLACE'
      end
      object DataSetAdapterField8: TDataSetAdapterField
        DataSetField = 'AGEWORK'
      end
      object DataSetAdapterField9: TDataSetAdapterField
        DataSetField = 'TIMEJOIN'
      end
      object DataSetAdapterField10: TDataSetAdapterField
        DataSetField = 'HOMEADDS'
      end
      object DataSetAdapterField11: TDataSetAdapterField
        DataSetField = 'TEL'
      end
      object DataSetAdapterField12: TDataSetAdapterField
        DataSetField = 'DEP'
        ValuesList = dvlDep
      end
      object DataSetAdapterField13: TDataSetAdapterField
        DataSetField = 'MARRIAGE'
        ValuesList = svMarriage
      end
      object DataSetAdapterField14: TDataSetAdapterField
        DataSetField = 'STATUS'
        ValuesList = svStatus
      end
      object DataSetAdapterField15: TDataSetAdapterField
        DataSetField = 'NATION'
        ValuesList = svlNation
      end
      object DataSetAdapterField16: TDataSetAdapterField
        DataSetField = 'TECHPOST'
        ValuesList = svTechPost
      end
      object DataSetAdapterField17: TDataSetAdapterField
        DataSetField = 'EDUCATION'
        ValuesList = svlEducation
      end
      object DataSetAdapterField18: TDataSetAdapterField
        DataSetField = 'ADMJOB'
      end
      object DataSetAdapterField19: TDataSetAdapterField
        DataSetField = 'TYPEOFEMP'
        ValuesList = svTypeOfEmp
      end
      object DataSetAdapterField20: TDataSetAdapterField
        DataSetField = 'HEALTH'
      end
      object DataSetAdapterField21: TDataSetAdapterField
        DataSetField = 'RANK'
      end
      object DataSetAdapterField22: TDataSetAdapterField
        DataSetField = 'TAGMANAGE'
      end
      object DataSetAdapterField23: TDataSetAdapterField
        DataSetField = 'STATEOFEMP'
        ValuesList = svStateofEmp
      end
      object DataSetAdapterField24: TDataSetAdapterField
        DataSetField = 'id'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
    end
  end
end