home_dm.dfm

来自「delphi实例大全非常经典」· DFM 代码 · 共 132 行

DFM

132 行

object HomePage: THomePage
  OldCreateOrder = False
  PageProducer = AdapterPageProducer
  AppServices = WebAppComponents
  Left = 654
  Top = 118
  Height = 281
  Width = 329
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 200
    Top = 32
    object AdapterForm1: TAdapterForm
      Custom = 
        'Border="1" CellSpacing="0" CellPadding="10" BgColor="Silver" ali' +
        'gn="center"'
      object AdapterCommandGroup1: TAdapterCommandGroup
        DisplayComponent = AdapterFieldGroup1
        Custom = 'Align="Center"'
        object CmdFirstRow: TAdapterActionButton
          ActionName = 'FirstRow'
          Caption = '   First   '
        end
        object CmdPrevRow: TAdapterActionButton
          ActionName = 'PrevRow'
          Caption = ' Previous '
        end
        object CmdNextRow: TAdapterActionButton
          ActionName = 'NextRow'
          Caption = '   Next   '
        end
        object CmdLastRow: TAdapterActionButton
          ActionName = 'LastRow'
          Caption = '   Last   '
        end
      end
      object AdapterFieldGroup1: TAdapterFieldGroup
        Custom = 'BgColor="Silver" '
        Adapter = WDataMod.dsaDepartment
        AdapterMode = 'Browse'
        object FldDEPARTMENT: TAdapterDisplayField
          DisplayWidth = 25
          FieldName = 'DEPARTMENT'
        end
        object FldDEPT_NO: TAdapterDisplayField
          DisplayWidth = 3
          FieldName = 'DEPT_NO'
        end
        object FldHEAD_DEPT: TAdapterDisplayField
          DisplayWidth = 3
          FieldName = 'HEAD_DEPT'
        end
        object FldLOCATION: TAdapterDisplayField
          DisplayWidth = 15
          FieldName = 'LOCATION'
        end
        object FldBUDGET: TAdapterDisplayField
          DisplayWidth = 16
          FieldName = 'BUDGET'
        end
      end
      object AdapterGrid1: TAdapterGrid
        TableAttributes.BgColor = 'Silver'
        TableAttributes.CellSpacing = 0
        TableAttributes.CellPadding = 3
        HeadingAttributes.BgColor = 'Gray'
        Adapter = WDataMod.dsaEmployee
        AdapterMode = 'Browse'
        object ColEMP_NO: TAdapterDisplayColumn
          FieldName = 'EMP_NO'
          HideOptions = []
        end
        object ColFIRST_NAME: TAdapterDisplayColumn
          FieldName = 'FIRST_NAME'
          HideOptions = []
        end
        object ColLAST_NAME: TAdapterDisplayColumn
          FieldName = 'LAST_NAME'
          HideOptions = []
        end
        object ColDEPT_NO: TAdapterDisplayColumn
          FieldName = 'DEPT_NO'
          HideOptions = []
        end
        object ColJOB_CODE: TAdapterDisplayColumn
          FieldName = 'JOB_CODE'
          HideOptions = []
        end
        object ColJOB_COUNTRY: TAdapterDisplayColumn
          FieldName = 'JOB_COUNTRY'
          HideOptions = []
        end
        object ColSALARY: TAdapterDisplayColumn
          FieldName = 'SALARY'
          HideOptions = []
        end
      end
    end
  end
  object WebAppComponents: TWebAppComponents
    PageDispatcher = PageDispatcher
    AdapterDispatcher = AdapterDispatcher
    ApplicationAdapter = ApplicationAdapter
    Left = 48
    Top = 16
  end
  object ApplicationAdapter: TApplicationAdapter
    ApplicationTitle = 'WSnap Master/Detail'
    Left = 48
    Top = 64
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object PageDispatcher: TPageDispatcher
    Left = 48
    Top = 112
  end
  object AdapterDispatcher: TAdapterDispatcher
    Left = 48
    Top = 160
  end
end

home_dm.dfm - 源码说明

本页面展示了「delphi实例大全非常经典」中的 home_dm.dfm 源码文件，采用 DFM 编程语言编写，共 132 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?