dbserverclientunit.dfm

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

object ClientForm: TClientForm
  Left = 293
  Top = 216
  Width = 625
  Height = 336
  Caption = 'WebServices DB Client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 17
    Top = 20
    Width = 96
    Height = 16
    HelpType = htKeyword
    AutoSize = False
    Caption = #36755#20837'SQL'#35821#21477
    FocusControl = Edit1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 127
    Top = 19
    Width = 256
    Height = 21
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 0
    Text = 'select * from EMPLOYEE'
    OnKeyPress = Edit1KeyPress
  end
  object DBGrid1: TDBGrid
    Left = 14
    Top = 73
    Width = 565
    Height = 207
    DataSource = DataSource1
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button3: TButton
    Left = 408
    Top = 19
    Width = 75
    Height = 25
    Caption = #30830#35748#20462#25913
    TabOrder = 2
    OnClick = Button3Click
  end
  object DBNavigator1: TDBNavigator
    Left = 15
    Top = 46
    Width = 252
    Height = 20
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
    TabOrder = 3
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    AfterInsert = ClientDataSet1AfterInsert
    AfterEdit = ClientDataSet1AfterEdit
    AfterPost = ClientDataSet1AfterPost
    AfterDelete = ClientDataSet1AfterDelete
    Left = 496
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 536
    Top = 16
  end
end