应用服务
//
object Form1: TForm1
Left = 196
Top = 148
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 89
Width = 536
Height = 259
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 536
Height = 89
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 328
Top = 8
Width = 89
Height = 22
Caption = 'exec'
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 329
Top = 32
Width = 207
Height = 22
Caption = '连接 http://hfg/myweb/data/httpsrvr.dll'
Flat = True
OnClick = SpeedButton2Click
end
object Label1: TLabel
Left = 344
Top = 64
Width = 24
Height = 13
Caption = '代理'
end
object Memo1: TMemo
Left = 1
Top = 1
Width = 320
Height = 87
Align = alLeft
BevelKind = bkSoft
BevelOuter = bvNone
BorderStyle = bsNone
Lines.Strings = (
'select * from itemname')
TabOrder = 0
end
object Edit1: TEdit
Left = 378
Top = 60
Width = 98
Height = 21
TabOrder = 1
end
end
object WebConnection1: TWebConnection
ServerGUID = '{EBBF90D8-F8FF-491F-A588-3140C5CB89EB}'
ServerName = 'Project1.myweb'
Agent = 'DataSnap'
URL = 'http://hfg/myweb/data/httpsrvr.dll'
Left = 104
Top = 48
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider1'
RemoteServer = WebConnection1
Left = 104
Top = 88
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 104
Top = 120
end
end
