iwunit1.dfm

Delphi7编程80例(完全版)

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 546
  Height = 378
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 52
  DesignTop = 73
  object IWDBGrid1: TIWDBGrid
    Left = 40
    Top = 98
    Width = 289
    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 = <>
    DataSource = DataSource1
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
  end
  object IWLabel1: TIWLabel
    Left = 104
    Top = 56
    Width = 369
    Height = 27
    ZIndex = 0
    Font.Color = clRed
    Font.Enabled = True
    Font.FontName = #38582#20070
    Font.Size = 20
    Font.Style = []
    Caption = #22312'IW'#20013#26597#35810#21644#26174#31034#25968#25454#20869#23481
  end
  object IWLabel2: TIWLabel
    Left = 272
    Top = 336
    Width = 193
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #35828#26126#65306#26412#20363#25903#25345#27169#31946#26597#35810
  end
  object IWButton2: TIWButton
    Left = 104
    Top = 296
    Width = 113
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26174#31034#25152#26377#35760#24405
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton2Click
  end
  object IWImage1: TIWImage
    Left = 368
    Top = 96
    Width = 150
    Height = 150
    ZIndex = 0
    DoSubmitValidation = True
    ScriptEvents = <>
    UseBorder = False
    UseSize = True
    JpegOptions.CompressionQuality = 90
    JpegOptions.Performance = jpBestSpeed
    JpegOptions.ProgressiveEncoding = False
    JpegOptions.Smoothing = True
  end
  object IWDBLabel1: TIWDBLabel
    Left = 424
    Top = 248
    Width = 24
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    DataField = 'File'
    DataSource = DataSource1
  end
  object IWButton3: TIWButton
    Left = 400
    Top = 264
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26174#31034#22270#20687
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
    OnClick = IWButton3Click
  end
  object IWDBNavigator1: TIWDBNavigator
    Left = 120
    Top = 256
    Width = 92
    Height = 25
    ZIndex = 0
    Confirmations.First = #22836#19968#26465#35760#24405
    Confirmations.Last = #26368#21518#19968#26465#35760#24405
    DataSource = DataSource1
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Orientation = orHorizontal
  end
  object IWEdit1: TIWEdit
    Left = 296
    Top = 304
    Width = 73
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 2
    PasswordPrompt = False
  end
  object IWButton1: TIWButton
    Left = 384
    Top = 302
    Width = 49
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26597#35810
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 3
    OnClick = IWButton1Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 48
    Top = 56
  end
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    Left = 48
    Top = 24
  end
end