📄 home.dfm

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

💻 DFM

字号:

object HrHome: THrHome
  OldCreateOrder = False
  PageProducer = AdapterPageProducer
  AppServices = WebAppComponents
  Left = 327
  Top = 170
  Height = 222
  Width = 382
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 280
    Top = 24
    object AdapterForm1: TAdapterForm
      object AdapterFieldGroup1: TAdapterFieldGroup
      end
    end
  end
  object WebAppComponents: TWebAppComponents
    DispatchActions = WebDispatcher
    Sessions = SessionsService
    PageDispatcher = PageDispatcher
    AdapterDispatcher = AdapterDispatcher
    ApplicationAdapter = ApplicationAdapter
    EndUserAdapter = EndUserSessionAdapter1
    UserListService = WebUserList
    OnBeforeDispatch = WebAppComponentsBeforeDispatch
    Left = 48
    Top = 24
  end
  object ApplicationAdapter: TApplicationAdapter
    ApplicationTitle = #28129#33738#38598#22242#20154#21147#36164#28304#31649#29702#31995#32479
    Left = 164
    Top = 24
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object PageDispatcher: TPageDispatcher
    OnCanViewPage = PageDispatcherCanViewPage
    Left = 48
    Top = 120
  end
  object AdapterDispatcher: TAdapterDispatcher
    Left = 164
    Top = 120
  end
  object WebDispatcher: TWebDispatcher
    OldCreateOrder = True
    Actions = <>
    Left = 280
    Top = 120
    Height = 0
    Width = 0
  end
  object SessionsService: TSessionsService
    Left = 280
    Top = 73
  end
  object WebUserList: TWebUserList
    UserItems = <
      item
      end>
    OnBeforeValidateUser = WebUserListBeforeValidateUser
    Left = 165
    Top = 73
  end
  object EndUserSessionAdapter1: TEndUserSessionAdapter
    LoginPage = 'login'
    Left = 49
    Top = 73
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdaptDisplayName: TAdapterEndUserDisplayNameField
      end
      object AdaptLoggedIn: TAdapterEndUserLoggedInField
      end
      object AdaptGrp: TAdapterField
        OnGetValue = AdaptGrpGetValue
      end
      object AdaptName: TAdapterField
        OnGetValue = AdaptNameGetValue
      end
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -