iwunit1.dfm

Delphi面向对象编程思想附书源码 好用哦！

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 513
  Height = 385
  Background.Fixed = True
  HandleTabs = False
  Title = 'Web Form'#65306#23454#29616#30028#38754#36328#24179#21488'(IntraWeb'#21644'Web Service'#25972#21512')'
  BackgroundColor = clMoneyGreen
  SupportedBrowsers = [brIE, brNetscape6]
  OnCreate = IWAppFormCreate
  DesignLeft = 351
  DesignTop = 179
  object IWDBGrid1: TIWDBGrid
    Left = 16
    Top = 56
    Width = 177
    Height = 289
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 0
    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 = 'NAME'
        LinkField = 'ID'
        OnClick = IWDBGrid1Columns0Click
        Title.Alignment = taCenter
        Title.BGColor = clMoneyGreen
        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 = #36873#25321#22995#21517':'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = DataSource1
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgIndicator, dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
  end
  object edtQryByName: TIWEdit
    Left = 16
    Top = 24
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'edtQryByName'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 0
    PasswordPrompt = False
  end
  object btnQryByName: TIWButton
    Left = 152
    Top = 24
    Width = 41
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = 'Go!'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
    OnClick = btnQryByNameClick
  end
  object IWDBEdit1: TIWDBEdit
    Left = 261
    Top = 30
    Width = 186
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 2
    AutoEditable = False
    DataField = 'GROUP_ID'
    DataSource = DataSource1
    PasswordPrompt = False
  end
  object IWDBEdit2: TIWDBEdit
    Left = 261
    Top = 72
    Width = 186
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit2'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    AutoEditable = False
    DataField = 'NAME'
    DataSource = DataSource1
    PasswordPrompt = False
  end
  object IWDBComboBox1: TIWDBComboBox
    Left = 261
    Top = 112
    Width = 186
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = '-- '#26080' --'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 4
    AutoEditable = False
    DataField = 'SEX'
    DataSource = DataSource1
    ItemIndex = -1
    Items.Strings = (
      #30007#24615
      #22899#24615
      #19981#35814)
    Sorted = False
  end
  object IWDBEdit3: TIWDBEdit
    Left = 261
    Top = 152
    Width = 186
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit3'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 5
    AutoEditable = False
    DataField = 'JOB'
    DataSource = DataSource1
    PasswordPrompt = False
  end
  object IWDBEdit4: TIWDBEdit
    Left = 261
    Top = 197
    Width = 186
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWDBEdit4'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 6
    AutoEditable = False
    DataField = 'TEL'
    DataSource = DataSource1
    PasswordPrompt = False
  end
  object dbcbDep: TIWDBComboBox
    Left = 261
    Top = 240
    Width = 186
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = '-- '#26080' --'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 7
    AutoEditable = False
    DataField = 'DEP'
    DataSource = DataSource1
    ItemIndex = -1
    Sorted = False
  end
  object btnUpdate: TIWButton
    Left = 264
    Top = 304
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26356#26032
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 8
    OnClick = btnUpdateClick
  end
  object btnExit: TIWButton
    Left = 360
    Top = 304
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #36864#20986
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 9
    OnClick = btnExitClick
  end
  object IWLabel1: TIWLabel
    Left = 224
    Top = 32
    Width = 31
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #32534#21495':'
  end
  object IWLabel2: TIWLabel
    Left = 224
    Top = 73
    Width = 31
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #22995#21517':'
  end
  object IWLabel3: TIWLabel
    Left = 224
    Top = 115
    Width = 31
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #24615#21035':'
  end
  object IWLabel4: TIWLabel
    Left = 224
    Top = 156
    Width = 31
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #32844#21153':'
  end
  object IWLabel5: TIWLabel
    Left = 224
    Top = 198
    Width = 31
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #30005#35805':'
  end
  object IWLabel6: TIWLabel
    Left = 224
    Top = 240
    Width = 31
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #37096#38376':'
  end
  object IWCheckBox1: TIWCheckBox
    Left = 240
    Top = 344
    Width = 121
    Height = 21
    ZIndex = 0
    Caption = #20351#29992#32972#26223
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    OnClick = IWCheckBox1Click
    Style = stNormal
    TabOrder = 10
    Checked = False
  end
  object DataSource1: TDataSource
    DataSet = cdsUserMaint
    Left = 384
    Top = 336
  end
  object HTTPRIO1: THTTPRIO
    WSDLLocation = 'http://ly/ws/userws.exe/wsdl/IUserService'
    Service = 'IUserServiceservice'
    Port = 'IUserServicePort'
    HTTPWebNode.Agent = 'Borland SOAP 1.2'
    HTTPWebNode.UseUTF8InHeader = False
    HTTPWebNode.InvokeOptions = [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI]
    Converter.Options = [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBody, soCacheMimeResponse, soUTF8EncodeXML]
    Left = 424
    Top = 336
  end
  object cdsUserMaint: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 344
    Top = 336
  end
end