personinfo.dfm

delphi框架可以学习, 写的很好的

object frmPersonInfo: TfrmPersonInfo
  Left = 279
  Top = 140
  Width = 600
  Height = 450
  Caption = #20010#20154#38376#25143
  Color = clBtnFace
  Constraints.MaxHeight = 450
  Constraints.MaxWidth = 600
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 177
    Top = 34
    Width = 5
    Height = 382
    Cursor = crHSplit
  end
  object RzGroupBar1: TRzGroupBar
    Left = 0
    Top = 34
    Width = 177
    Height = 382
    ColorAdjustment = 60
    GroupBorderSize = 8
    FlatColor = clGray
    UseGradients = False
    Color = clBackground
    ParentColor = False
    TabOrder = 0
    object RzGroup1: TRzGroup
      Items = <
        item
          Action = frmMain.actTempLock
        end
        item
          Action = frmMain.actChangePassword
        end
        item
          Action = frmMain.actSendMessage
        end
        item
          Caption = '-'
        end
        item
          Action = frmMain.actClose
        end>
      Opened = True
      OpenedHeight = 128
      SmallImages = frmMain.ImglNav
      UseGradients = True
      Caption = #20010#20154#24120#29992#24037#20855
      ParentColor = False
    end
    object gpAIMenu: TRzGroup
      Items = <>
      Opened = True
      OpenedHeight = 208
      SmallImages = frmMain.ImglNav
      Special = True
      UseGradients = True
      Caption = #26234#33021#33756#21333
      ParentColor = False
    end
  end
  object pcNav: TRzPageControl
    Left = 182
    Top = 34
    Width = 410
    Height = 382
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    FixedDimension = 18
    object TabSheet1: TRzTabSheet
      Caption = #20107#21153#25552#37266
      object RzPanel1: TRzPanel
        Left = 0
        Top = 0
        Width = 406
        Height = 360
        Align = alClient
        BorderOuter = fsNone
        TabOrder = 0
        UseGradients = True
        object Panel5: TPanel
          Left = 0
          Top = 6
          Width = 6
          Height = 348
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
        end
        object Panel6: TPanel
          Left = 0
          Top = 354
          Width = 406
          Height = 6
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
        end
        object Panel7: TPanel
          Left = 400
          Top = 6
          Width = 6
          Height = 348
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 2
        end
        object Panel8: TPanel
          Left = 0
          Top = 0
          Width = 406
          Height = 6
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 3
        end
        object Panel9: TPanel
          Left = 6
          Top = 6
          Width = 394
          Height = 348
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 4
          object Splitter2: TSplitter
            Left = 0
            Top = 169
            Width = 394
            Height = 5
            Cursor = crVSplit
            Align = alTop
          end
          object DBGridEh1: TDBGridEh
            Left = 0
            Top = 0
            Width = 394
            Height = 169
            Interval = 5
            IntervalColor = 14795973
            Indicator = 20
            Align = alTop
            AllowedOperations = [alopUpdateEh]
            DataSource = dm.dsJobNote
            Flat = True
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            FooterColor = 10931184
            FooterFont.Charset = GB2312_CHARSET
            FooterFont.Color = clBlack
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            FooterRowCount = 1
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight]
            ParentFont = False
            RowHeight = 18
            SumList.Active = True
            SumList.VirtualRecords = True
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = [fsBold]
            TitleHeight = 16
            OnTitleBtnClick = DBGridEh1TitleBtnClick
            Columns = <
              item
                CharCase = ecNormal
                StringMask = smNormal
                EditButtons = <>
                FieldName = 'Fzr'
                Footer.Alignment = taRightJustify
                Footer.Value = #23578#26377
                Footer.ValueType = fvtStaticText
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Title.Caption = #25552#38382#20154
                Title.TitleButton = True
                Width = 56
              end
              item
                CharCase = ecNormal
                StringMask = smNormal
                EditButtons = <>
                FieldName = 'wtzt'
                Footer.DisplayFormat = '#'#20010#38382#39064#26410#22788#29702
                Footer.ValueType = fvtCount
                Footers = <>
                ReadOnly = True
                Title.TitleButton = True
                Width = 164
              end
              item
                CharCase = ecNormal
                StringMask = smNormal
                EditButtons = <>
                FieldName = 'Wtsj'
                Footers = <>
                ReadOnly = True
                Title.Alignment = taCenter
                Title.TitleButton = True
                Width = 127
              end>
          end
          object RzDBMemo1: TRzDBMemo
            Left = 0
            Top = 225
            Width = 394