cformvisit.dfm

来自「Delphi深度探索,Delphi深度探索（第二版）」· DFM 代码 · 共 215 行

inherited formVisit: TformVisit
  Width = 728
  Height = 467
  OnCreate = IWAppFormCreate
  DesignLeft = 221
  DesignTop = 194
  inherited iwbTitle: TIWLabel
    Width = 145
    Caption = #35775#38382#32479#35745
  end
  inherited IWImage1: TIWImage
    Width = 728
  end
  object iwdgVisit: TIWDBGrid [2]
    Left = 216
    Top = 136
    Width = 480
    Height = 177
    Cursor = crAuto
    Anchors = [akLeft, akTop, akRight]
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlNone
    UseFrame = True
    UseSize = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.BackColor = clNone
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'OperName'
        RawText = False
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.BackColor = clNone
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #29992#25143#21517
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.BackColor = clNone
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'VisitTimes'
        RawText = False
        Title.Alignment = taLeftJustify
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.BackColor = clNone
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #35775#38382#27425#25968
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = dmHR.dsOper
    FooterRowCount = 0
    FromStart = False
    HighlightColor = clHotLight
    HighlightRows = False
    Options = [dgIndicator, dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 3
    RollOver = False
    RowClick = False
    RollOverColor = clDefault
    RowHeaderColor = clMoneyGreen
    RowAlternateColor = clGradientInactiveCaption
    RowCurrentColor = clSkyBlue
  end
  object IWDBNavigator1: TIWDBNavigator [3]
    Left = 216
    Top = 104
    Width = 115
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Confirmations.Delete = 'Are you sure you want to delete this record?'
    Confirmations.Post = 'Are you sure you want to update this record?'
    Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
    DataSource = dmHR.dsOper
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
    Orientation = orHorizontal
  end
  object IWLabel1: TIWLabel [4]
    Left = 216
    Top = 320
    Width = 154
    Height = 20
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    Color = clNone
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    Caption = #24403#21069#22312#32447#20154#21592#65306
  end
  object iwtUsers: TIWText [5]
    Left = 216
    Top = 352
    Width = 473
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ConvertSpaces = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    RawText = True
    UseFrame = False
    WantReturns = True
  end
  object iwlExcel: TIWLink [6]
    Left = 448
    Top = 72
    Width = 201
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Color = clNone
    Caption = '('#25171#24320#30456#24212#30340'Excel'#34920#26684')'
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = False
    OnClick = iwlExcelClick
  end
  inherited FrameMenu1: TFrameMenu
    Height = 418
    inherited iwlVisit: TIWLink
      OnClick = nil
    end
  end
end