u_edit.dfm

Delphi 应用举例

object formMainedit: TformMainedit
  Left = 0
  Top = 0
  Width = 801
  Height = 549
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  OnCreate = IWAppFormCreate
  OnDestroy = IWAppFormDestroy
  DesignLeft = 89
  DesignTop = 102
  object IWRectangle1: TIWRectangle
    Left = 134
    Top = 118
    Width = 220
    Height = 396
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Color = clBtnShadow
    Alignment = taLeftJustify
    VAlign = vaMiddle
  end
  object IWDBGrid1: TIWDBGrid
    Left = 376
    Top = 144
    Width = 457
    Height = 145
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseWidth = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        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 = 'FYear'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #24180
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        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 = 'FMonth'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #26376
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        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 = 'FDay'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #26085
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        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 = 'Caption'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = #26631#39064
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = DataModule1.DataSource_edit
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clBtnFace
    RowAlternateColor = clNone
    RowCurrentColor = clGradientActiveCaption
  end
  object IWDBMemo1: TIWDBMemo
    Left = 376
    Top = 344
    Width = 457
    Height = 169
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 0
    WantReturns = False
    AutoEditable = False
    DataField = 'FMessage'
    DataSource = DataModule1.DataSource_edit
  end
  object IWDBNavigator1: TIWDBNavigator
    Left = 376
    Top = 120
    Width = 230
    Height = 25
    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 = DataModule1.DataSource_edit
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Orientation = orHorizontal
    OnInsert = IWDBNavigator1Insert
    OnDelete = IWDBNavigator1Delete
    OnPost = IWDBNavigator1Post
  end
  object IWDBEdit1: TIWDBEdit
    Left = 608
    Top = 312
    Width = 225
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWDBEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 1
    AutoEditable = False
    DataField = 'Caption'
    DataSource = DataModule1.DataSource_edit
    PasswordPrompt = False
  end
  object IWLabel1: TIWLabel
    Left = 608
    Top = 296
    Width = 39
    Height = 13
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    Caption = #26631#39064#65306
  end
  object IWLabel2: TIWLabel
    Left = 376
    Top = 296
    Width = 13
    Height = 13
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    Caption = #24180
  end
  object IWDBEdit2: TIWDBEdit
    Left = 544
    Top = 312
    Width = 49
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWDBEdit2'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 2
    AutoEditable = False
    DataField = 'FDay'
    DataSource = DataModule1.DataSource_edit
    PasswordPrompt = False
  end
  object IWDBEdit3: TIWDBEdit
    Left = 464
    Top = 312
    Width = 65
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWDBEdit3'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    AutoEditable = False
    DataField = 'FMonth'
    DataSource = DataModule1.DataSource_edit
    PasswordPrompt = False
  end
  object IWDBEdit4: TIWDBEdit
    Left = 376
    Top = 312
    Width = 65
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    FriendlyName = 'IWDBEdit4'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 4
    AutoEditable = False
    DataField = 'FYear'
    DataSource = DataModule1.DataSource_edit
    PasswordPrompt = False
  end
  object IWLabel3: TIWLabel
    Left = 464
    Top = 296
    Width = 13
    Height = 13
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    Caption = #26376
  end
  object IWLabel4: TIWLabel
    Left = 548
    Top = 296
    Width = 13
    Height = 13
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    Caption = #26085
  end
  object IWRectangle2: TIWRectangle
    Left = 136
    Top = 120
    Width = 216
    Height = 393
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Color = clCaptionText
    Alignment = taLeftJustify
    VAlign = vaMiddle
  end
  object IWTreeView1: TIWTreeView
    Left = 136
    Top = 120
    Width = 217
    Height = 393
    ZIndex = 1
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 9
    Font.Style = []
    Items = <
      item
        Caption = #25968#25454#32437#35272
        Expanded = True
        Name = 'IWTreeView1Item0'
        SubItems = <>
      end>
    VertScrollBarVisible = True
    HorScrollBarVisible = True
  end
  inline Frame21: TFrame2
    Left = 24
    Top = 120
    Width = 97
    Height = 372
    TabOrder = 0
  end
  inline Frame31: TFrame3
    Left = 16
    Top = 8
    Width = 705
    Height = 79
    TabOrder = 1
  end
end