180 lines
4.0 KiB
Plaintext
180 lines
4.0 KiB
Plaintext
|
|
object fmClient: TfmClient
|
||
|
|
Left = 250
|
||
|
|
Top = 155
|
||
|
|
Width = 841
|
||
|
|
Height = 523
|
||
|
|
Caption = 'MS Data Access Demo - MIDAS Client'
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
OnCreate = FormCreate
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object DBGrid: TDBGrid
|
||
|
|
Left = 0
|
||
|
|
Top = 48
|
||
|
|
Width = 833
|
||
|
|
Height = 429
|
||
|
|
Align = alClient
|
||
|
|
DataSource = DataSource
|
||
|
|
TabOrder = 0
|
||
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
||
|
|
TitleFont.Color = clWindowText
|
||
|
|
TitleFont.Height = -11
|
||
|
|
TitleFont.Name = 'MS Sans Serif'
|
||
|
|
TitleFont.Style = []
|
||
|
|
end
|
||
|
|
object StatusBar: TStatusBar
|
||
|
|
Left = 0
|
||
|
|
Top = 477
|
||
|
|
Width = 833
|
||
|
|
Height = 19
|
||
|
|
Panels = <
|
||
|
|
item
|
||
|
|
Width = 50
|
||
|
|
end>
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 833
|
||
|
|
Height = 48
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 2
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 2
|
||
|
|
Top = 1
|
||
|
|
Width = 499
|
||
|
|
Height = 46
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Color = clGreen
|
||
|
|
TabOrder = 0
|
||
|
|
object btCancelUpd: TSpeedButton
|
||
|
|
Left = 416
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'CancelUpd'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btCancelUpdClick
|
||
|
|
end
|
||
|
|
object btApplyUpd: TSpeedButton
|
||
|
|
Left = 334
|
||
|
|
Top = 1
|
||
|
|
Width = 81
|
||
|
|
Height = 22
|
||
|
|
Caption = 'ApplyUpd'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btApplyUpdClick
|
||
|
|
end
|
||
|
|
object btClose: TSpeedButton
|
||
|
|
Left = 252
|
||
|
|
Top = 1
|
||
|
|
Width = 81
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Close'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btCloseClick
|
||
|
|
end
|
||
|
|
object btOpen: TSpeedButton
|
||
|
|
Left = 167
|
||
|
|
Top = 1
|
||
|
|
Width = 84
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Open'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btOpenClick
|
||
|
|
end
|
||
|
|
object btDisconnect: TSpeedButton
|
||
|
|
Left = 84
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Disconnect'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btDisconnectClick
|
||
|
|
end
|
||
|
|
object brConnect: TSpeedButton
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Connect'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = brConnectClick
|
||
|
|
end
|
||
|
|
object DBNavigator1: TDBNavigator
|
||
|
|
Left = 1
|
||
|
|
Top = 24
|
||
|
|
Width = 250
|
||
|
|
Height = 21
|
||
|
|
DataSource = DataSource
|
||
|
|
Flat = True
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object ToolBar1: TPanel
|
||
|
|
Left = 252
|
||
|
|
Top = 24
|
||
|
|
Width = 246
|
||
|
|
Height = 21
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 1
|
||
|
|
object DeptNo: TLabel
|
||
|
|
Left = 7
|
||
|
|
Top = 1
|
||
|
|
Width = 71
|
||
|
|
Height = 21
|
||
|
|
Alignment = taCenter
|
||
|
|
AutoSize = False
|
||
|
|
Caption = 'EmployeeID'
|
||
|
|
Layout = tlCenter
|
||
|
|
end
|
||
|
|
object edEmployeeID: TEdit
|
||
|
|
Left = 99
|
||
|
|
Top = 1
|
||
|
|
Width = 121
|
||
|
|
Height = 21
|
||
|
|
TabOrder = 0
|
||
|
|
Text = '10'
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DataSource: TDataSource
|
||
|
|
DataSet = ClientDataSet
|
||
|
|
Left = 408
|
||
|
|
Top = 252
|
||
|
|
end
|
||
|
|
object ClientDataSet: TClientDataSet
|
||
|
|
Aggregates = <>
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
DataType = ftInteger
|
||
|
|
Name = 'EmployeeID'
|
||
|
|
ParamType = ptInput
|
||
|
|
Value = 10
|
||
|
|
end>
|
||
|
|
ProviderName = 'MSDataSetProvider'
|
||
|
|
RemoteServer = RemoteServer
|
||
|
|
Left = 376
|
||
|
|
Top = 252
|
||
|
|
end
|
||
|
|
object RemoteServer: TDCOMConnection
|
||
|
|
ServerGUID = '{706739B2-FB40-49CC-9041-2B82CFFC520C}'
|
||
|
|
ServerName = 'Server.Datas'
|
||
|
|
Left = 344
|
||
|
|
Top = 253
|
||
|
|
end
|
||
|
|
end
|