wdmdb.dfm

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

object WDM: TWDM
  OldCreateOrder = False
  Left = 229
  Top = 125
  Height = 423
  Width = 703
  object dsaBasicInfo: TDataSetAdapter
    DataSet = adtBasicInfo
    PageSize = 5
    Left = 152
    Top = 24
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptEMPID: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
      object AdaptNAME: TDataSetAdapterField
        DataSetField = 'NAME'
      end
      object AdaptOLDNAME: TDataSetAdapterField
        DataSetField = 'OLDNAME'
      end
      object AdaptSEX: TDataSetAdapterField
        DataSetField = 'SEX'
        ValuesList = svlSex
      end
      object AdaptBIRTHDAY: TDataSetAdapterField
        DataSetField = 'BIRTHDAY'
      end
      object AdaptIDNO: TDataSetAdapterField
        DataSetField = 'IDNO'
      end
      object AdaptNATIVEPLACE: TDataSetAdapterField
        DataSetField = 'NATIVEPLACE'
      end
      object AdaptAGEWORK: TDataSetAdapterField
        DataSetField = 'AGEWORK'
      end
      object AdaptTIMEJOIN: TDataSetAdapterField
        DataSetField = 'TIMEJOIN'
      end
      object AdaptHOMEADDS: TDataSetAdapterField
        DataSetField = 'HOMEADDS'
      end
      object AdaptTEL: TDataSetAdapterField
        DataSetField = 'TEL'
      end
      object AdaptDEP: TDataSetAdapterField
        DataSetField = 'DEP'
        ValuesList = dvlDep
      end
      object AdaptMARRIAGE: TDataSetAdapterField
        DataSetField = 'MARRIAGE'
        ValuesList = svMarriage
      end
      object AdaptSTATUS: TDataSetAdapterField
        DataSetField = 'STATUS'
        ValuesList = svStatus
      end
      object AdaptNATION: TDataSetAdapterField
        DataSetField = 'NATION'
        ValuesList = svlNation
      end
      object AdaptTECHPOST: TDataSetAdapterField
        DataSetField = 'TECHPOST'
        ValuesList = svTechPost
      end
      object AdaptEDUCATION: TDataSetAdapterField
        DataSetField = 'EDUCATION'
        ValuesList = svlEducation
      end
      object AdaptADMJOB: TDataSetAdapterField
        DataSetField = 'ADMJOB'
      end
      object AdaptTYPEOFEMP: TDataSetAdapterField
        DataSetField = 'TYPEOFEMP'
        ValuesList = svTypeOfEmp
      end
      object AdaptHEALTH: TDataSetAdapterField
        DataSetField = 'HEALTH'
      end
      object AdaptRANK: TDataSetAdapterField
        DataSetField = 'RANK'
      end
      object AdaptTAGMANAGE: TDataSetAdapterField
        DataSetField = 'TAGMANAGE'
      end
      object AdaptSTATEOFEMP: TDataSetAdapterField
        DataSetField = 'STATEOFEMP'
        ValuesList = svStateofEmp
      end
      object Adaptid6: TDataSetAdapterField
        DataSetField = 'id'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
    end
  end
  object svlNation: TStringsValuesList
    Strings.Strings = (
      #27721#26063
      #28385#26063
      #34255#26063
      #22238#26063)
    Left = 24
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object svlSex: TStringsValuesList
    Strings.Strings = (
      #30007
      #22899
      #19981#35814)
    Left = 88
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object dsaUserGrp: TDataSetAdapter
    DataSet = adtUserGrp
    Left = 88
    Top = 215
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptGROUPID2: TDataSetAdapterField
        DataSetField = 'GROUPID'
        FieldFlags = [ffInKey, ffInOrigValues]
      end
      object AdaptGROUPTYPE: TDataSetAdapterField
        DataSetField = 'GROUPTYPE'
      end
      object AdaptNOTE: TDataSetAdapterField
        DataSetField = 'NOTE'
      end
    end
  end
  object dsaEndUser: TDataSetAdapter
    DataSet = adtEndUser
    PageSize = 5
    Left = 272
    Top = 215
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptEMPID2: TDataSetAdapterField
        DataSetField = 'EMPID'
        ValuesList = dvlUserID
        FieldFlags = [ffInKey, ffInOrigValues]
      end
      object AdaptPASSWORD: TDataSetAdapterField
        DataSetField = 'PASSWORD'
      end
      object AdaptGROUPID: TDataSetAdapterField
        DataSetField = 'GROUPID'
        ValuesList = dvlUserGrp
      end
    end
  end
  object dvlUserGrp: TDataSetValuesList
    NameField = 'GROUPTYPE'
    ValueField = 'GROUPID'
    DataSet = adtUserGrp
    Left = 152
    Top = 215
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object dvlUserID: TDataSetValuesList
    NameField = 'NAME'
    ValueField = 'EMPID'
    DataSet = adtBasicInfo
    Left = 336
    Top = 215
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object svlEducation: TStringsValuesList
    Strings.Strings = (
      #21021#20013#20197#19979
      #21021#20013
      #39640#20013'/'#32844#39640
      #20013#19987'/'#25216#26657
      #22823#19987
      #26412#31185
      #30805#22763
      #21338#22763
      #21338#22763#20197#19978)
    Left = 152
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=hr;Initial Catalog=hr'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 24
  end
  object adtBasicInfo: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'BASICINFO'
    Left = 88
    Top = 24
    object adtBasicInfoEMPID: TStringField
      FieldName = 'EMPID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 10
    end
    object adtBasicInfoNAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object adtBasicInfoOLDNAME: TStringField
      FieldName = 'OLDNAME'
      Size = 10
    end
    object adtBasicInfoSEX: TStringField
      FieldName = 'SEX'
      Size = 2
    end
    object adtBasicInfoBIRTHDAY: TDateTimeField
      FieldName = 'BIRTHDAY'
    end
    object adtBasicInfoIDNO: TStringField
      FieldName = 'IDNO'
    end
    object adtBasicInfoNATIVEPLACE: TStringField
      FieldName = 'NATIVEPLACE'
      Size = 40
    end
    object adtBasicInfoAGEWORK: TStringField
      FieldName = 'AGEWORK'
      Size = 2
    end
    object adtBasicInfoTIMEJOIN: TDateTimeField
      FieldName = 'TIMEJOIN'
    end
    object adtBasicInfoHOMEADDS: TStringField
      FieldName = 'HOMEADDS'
      Size = 100
    end
    object adtBasicInfoTEL: TStringField
      FieldName = 'TEL'
      Size = 30
    end
    object adtBasicInfoDEP: TStringField
      FieldName = 'DEP'
      Size = 30
    end
    object adtBasicInfoMARRIAGE: TStringField
      FieldName = 'MARRIAGE'
      Size = 10
    end
    object adtBasicInfoSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 30
    end
    object adtBasicInfoNATION: TStringField
      FieldName = 'NATION'
      Size = 10
    end
    object adtBasicInfoTECHPOST: TStringField
      FieldName = 'TECHPOST'
    end
    object adtBasicInfoEDUCATION: TStringField
      FieldName = 'EDUCATION'
      Size = 10
    end
    object adtBasicInfoADMJOB: TStringField
      FieldName = 'ADMJOB'
    end
    object adtBasicInfoTYPEOFEMP: TStringField
      FieldName = 'TYPEOFEMP'
    end
    object adtBasicInfoHEALTH: TStringField
      FieldName = 'HEALTH'
      Size = 10
    end
    object adtBasicInfoRANK: TStringField
      FieldName = 'RANK'
    end
    object adtBasicInfoTAGMANAGE: TStringField
      FieldName = 'TAGMANAGE'
      Size = 10
    end
    object adtBasicInfoSTATEOFEMP: TStringField
      FieldName = 'STATEOFEMP'
    end
    object adtBasicInfoid: TLargeintField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object adtUserGrp: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'USERGROUP'
    Left = 208
    Top = 215
  end
  object adtEndUser: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'ENDUSER'
    Left = 24
    Top = 215
  end
  object adqTmp: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 392
    Top = 216
  end
  object adqBasicInfo: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  *  from BasicInfo'
      '')
    Left = 208
    Top = 24
  end
  object svTypeOfEmp: TStringsValuesList
    Strings.Strings = (
      #27491#24335#24037
      #20020#26102#24037
      #20860#32844#20154#21592
      #20511#29992#20154#21592)
    Left = 272
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object svStatus: TStringsValuesList
    Strings.Strings = (
      #32676#20247
      #20826#21592
      #22242#21592
      #27665#20027#20826#27966
      #21326#20392
      #22806#31821#20154#22763)
    Left = 328
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object svStateofEmp: TStringsValuesList
    Strings.Strings = (
      #22312#32844
      #35797#29992
      #31163#32844
      #36864#20241
      #20986#22269
      #22521#35757
      #19979#23703
      #20260#30149
      #20241#20551
      #20854#20182)
    Left = 384
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object svTechPost: TStringsValuesList
    Strings.Strings = (
      #21161#24037
      #24037#31243#24072
      #39640#24037
      #21161#25945
      #35762#24072
      #21103#25945#25480
      #25945#25480
      #21161#20250
      #20250#35745#24072
      #27880#20876#20250#35745#24072
      #39640#32423#20250#35745#24072)
    Left = 216
    Top = 80
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object adqPhoto: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'empid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select  *  from photo'
      ' where empid=:empid')
    Left = 384
    Top = 288
  end
  object dsaPhoto: TDataSetAdapter
    DataSet = adqPhoto
    Left = 448
    Top = 288
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptEMPID3: TDataSetAdapterField
        DataSetField = 'EMPID'
      end
      object AdaptPHOTO: TDataSetAdapterField
        DataSetField = 'PHOTO'
      end
    end
  end
  object svMarriage: TStringsValuesList
    Strings.Strings = (
      #26410#23130
      #24050#23130