unit1.dfm

学习您上载的源码为何会被站长不采用或帐号被删除？

object IWForm1: TIWForm1
  Left = 0
  Top = 0
  Width = 555
  Height = 400
  ConnectionMode = cmAny
  SupportedBrowsers = [brIE, brNetscape7, brOpera, brSafari, brNetscape6]
  OnCreate = IWAppFormCreate
  AllowPageAccess = True
  ActiveControl = IWDBLookupComboBox1
  BrowserSecurityCheck = True
  Background.Fixed = False
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  ShowHint = True
  XPTheme = True
  DesignLeft = 261
  DesignTop = 223
  object IWButton1: TIWButton
    Left = 48
    Top = 56
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = 'IWButton1'
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWButton1'
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton1Click
  end
  object IWDBLookupComboBox1: TIWDBLookupComboBox
    Left = 392
    Top = 64
    Width = 121
    Height = 21
    Cursor = crDefault
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FocusColor = clNone
    AutoHideOnMenuActivation = False
    ItemsHaveValues = False
    NoSelectionText = '999'
    Required = False
    RequireSelection = True
    ScriptEvents = <>
    UseSize = True
    Style = stNormal
    ButtonColor = clBtnFace
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    SubmitOnAsyncEvent = True
    TabOrder = 1
    AutoEditable = False
    DataField = 'cgy'
    DataSource = DataSource1
    FriendlyName = 'IWDBLookupComboBox1'
    KeyField = 'xh'
    ListField = 'cgy'
    ListSource = DataSource1
    DisableWhenEmpty = True
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 304
    Top = 48
  end
  object Table1: TTable
    DatabaseName = 'lx'
    TableName = 'dbo.cgy'
    Left = 216
    Top = 48
  end
end