📄 uquerya1.dfm

📁 关于利用DELPHI来进行企业级方案解决的著作的附书源码
💻 DFM
字号:
object QryPageA1: TQryPageA1
  OldCreateOrder = False
  OnActivate = WebPageModuleActivate
  OnDeactivate = WebPageModuleDeactivate
  PageProducer = AdapterPageProducer
  Left = 403
  Top = 186
  Height = 124
  Width = 428
  object AdapterPageProducer: TAdapterPageProducer
    Styles.Strings = (
      '.colEmpID {   WIDTH: 40; }'
      '.colName {   WIDTH: 60; }'
      ''
      '.colSEX'
      ' {'
      '   WIDTH: 40;'
      ' }'
      ''
      '.colBirthday'
      ' {'
      '   WIDTH: 90;'
      ' }'
      ''
      '.colMarriage'
      ' {'
      '   WIDTH: 40;'
      '}'
      ' '
      '.colEducation'
      ' {'
      '   WIDTH: 60;'
      '}'
      ''
      '.colTimeJoin'
      ' {'
      '   WIDTH: 90;'
      '}'
      ''
      '.colTel'
      ' {'
      '   WIDTH: 70;'
      '}'
      ''
      '.colDep'
      ' {'
      '   WIDTH: 120;'
      '}'
      ''
      '.colADMJob'
      ' {'
      '   WIDTH: 80;'
      '} '
      ''
      '.colTYPEofEmp'
      ' {'
      '   WIDTH: 80;'
      '}'
      ''
      '.colGO'
      ' {'
      '   WIDTH: 80;'
      '}'
      '')
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 56
    Top = 24
    object AdapterForm2: TAdapterForm
      Custom = 'bgcolor=#A5D7EF border="1"  align="center" '
      object LayoutGroup2: TLayoutGroup
        DisplayColumns = 2
        object AdapterFieldGroup1: TAdapterFieldGroup
          Adapter = adpQry
          object FldadfName: TAdapterDisplayField
            Caption = #22995#21517
            FieldName = 'adfName'
          end
        end
        object AdapterCommandGroup2: TAdapterCommandGroup
          DisplayComponent = AdapterFieldGroup1
          object CmdadaQryName: TAdapterActionButton
            ActionName = 'adaQryName'
            Caption = #26597#35810
            PageName = 'QryInfo'
          end
        end
      end
      object LayoutGroup3: TLayoutGroup
        DisplayColumns = 2
        object AdapterFieldGroup2: TAdapterFieldGroup
          Adapter = adpQry
          object LayoutGroup4: TLayoutGroup
            DisplayColumns = 3
            object FldadfEdu: TAdapterDisplayField
              Caption = #25991#21270#31243#24230
              FieldName = 'adfEdu'
            end
            object FldadfTypeOfEmp: TAdapterDisplayField
              Caption = #29992#24037#24615#36136
              FieldName = 'adfTypeOfEmp'
            end
            object FldadfCount: TAdapterDisplayField
              Caption = #25214#21040#20154#25968
              FieldName = 'adfCount'
              ViewMode = vmDisplay
            end
          end
        end
        object AdapterCommandGroup3: TAdapterCommandGroup
          DisplayComponent = AdapterFieldGroup2
          object CmdadaQry: TAdapterActionButton
            ActionName = 'adaQry'
            Caption = #26597#35810
          end
        end
      end
    end
    object AdapterForm1: TAdapterForm
      FormMethod = fmGet
      object LayoutGroup1: TLayoutGroup
        DisplayColumns = -1
        StyleRule = 'colADMJob'
        object AdapterGrid1: TAdapterGrid
          HeadingAttributes.BgColor = 'Silver'
          Adapter = WDM.dsaBasicInfo
          object ColEMPID: TAdapterDisplayColumn
            Caption = #24037#21495
            FieldName = 'EMPID'
            StyleRule = 'colEmpID'
          end
          object ColNAME: TAdapterDisplayColumn
            Caption = #22995#21517
            FieldName = 'NAME'
            StyleRule = 'colName'
          end
          object ColSEX: TAdapterDisplayColumn
            Caption = #24615#21035
            FieldName = 'SEX'
            StyleRule = 'colSex'
          end
          object ColBIRTHDAY: TAdapterDisplayColumn
            Caption = #20986#29983#24180#26376#26085
            FieldName = 'BIRTHDAY'
            StyleRule = 'colBirthday'
          end
          object ColMARRIAGE: TAdapterDisplayColumn
            Caption = #23130#21542
            FieldName = 'MARRIAGE'
            StyleRule = 'colMarriage'
          end
          object ColEDUCATION: TAdapterDisplayColumn
            Caption = #25991#21270#31243#24230
            FieldName = 'EDUCATION'
            StyleRule = 'colEducation'
          end
          object ColTIMEJOIN: TAdapterDisplayColumn
            Caption = #32856#29992#26085#26399
            FieldName = 'TIMEJOIN'
            StyleRule = 'colTimeJoin'
          end
          object ColTEL: TAdapterDisplayColumn
            Caption = #32852#31995#30005#35805
            FieldName = 'TEL'
            StyleRule = 'colTel'
          end
          object ColDEP: TAdapterDisplayColumn
            Caption = #24037#20316#37096#38376
            FieldName = 'DEP'
            StyleRule = 'colDep'
          end
          object ColADMJOB: TAdapterDisplayColumn
            Caption = #32844#21153
            FieldName = 'ADMJOB'
            StyleRule = 'colADMJob'
          end
          object ColTYPEOFEMP: TAdapterDisplayColumn
            Caption = #29992#24037#24615#36136
            FieldName = 'TYPEOFEMP'
            StyleRule = 'colTYPEofEmp'
          end
          object AdapterCommandColumn1: TAdapterCommandColumn
            StyleRule = 'colGO'
            object CmdBrowseRow: TAdapterActionButton
              ActionName = 'BrowseRow'
              Caption = #35814#32454#20449#24687
              PageName = 'QryInfo'
              DisplayType = ctAnchor
            end
          end
        end
        object AdapterCommandGroup1: TAdapterCommandGroup
          DisplayComponent = AdapterGrid1
          object CmdPrevPage: TAdapterActionButton
            ActionName = 'PrevPage'
            Caption = #21069#39029
          end
          object CmdGotoPage: TAdapterActionButton
            ActionName = 'GotoPage'
            Caption = '1'
          end
          object CmdNextPage: TAdapterActionButton
            ActionName = 'NextPage'
            Caption = #21518#39029
          end
        end
      end
    end
  end
  object adpQry: TAdapter
    OnBeforeExecuteAction = adpQryBeforeExecuteAction
    Left = 192
    Top = 24
    object TAdapterActions
      object adaQryName: TAdapterAction
        OnExecute = adaQryNameExecute
        DisplayLabel = #26597#35810
      end
      object adaQry: TAdapterAction
        OnExecute = adaQryExecute
        DisplayLabel = #26597#35810
      end
    end
    object TAdapterFields
      object adfName: TAdapterField
        OnGetValue = adfNameGetValue
        DisplayLabel = #22995#21517
      end
      object adfEdu: TAdapterField
        OnGetValue = adfEduGetValue
        OnGetDisplayText = adfEduGetDisplayText
        DisplayLabel = #25991#21270#31243#24230
        ValuesList = WDM.svlEducation
      end
      object adfTypeOfEmp: TAdapterField
        OnGetValue = adfTypeOfEmpGetValue
        OnGetDisplayText = adfTypeOfEmpGetDisplayText
        DisplayLabel = #29992#24037#24615#36136
        ValuesList = WDM.svTypeOfEmp
      end
      object adfCount: TAdapterField
        OnGetValue = adfCountGetValue
        DisplayLabel = #25214#21040#20154#25968
      end
    end
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -