david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
306 lines
8.0 KiB
Plaintext
306 lines
8.0 KiB
Plaintext
object MegaDemoClient_MainForm: TMegaDemoClient_MainForm
|
|
Left = 224
|
|
Top = 141
|
|
AutoScroll = False
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Data Abstract Client'
|
|
ClientHeight = 322
|
|
ClientWidth = 617
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object PageControl1: TPageControl
|
|
Left = 6
|
|
Top = 5
|
|
Width = 605
|
|
Height = 296
|
|
ActivePage = tpLogin
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
OnChange = PageControl1Change
|
|
OnChanging = PageControl1Changing
|
|
object tpLogin: TTabSheet
|
|
Caption = 'Login'
|
|
object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
|
|
Left = 17
|
|
Top = 16
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
ApplicationType = atClient
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 38
|
|
Top = 93
|
|
Width = 246
|
|
Height = 105
|
|
Caption = 'Login Information'
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
246
|
|
105)
|
|
object Label2: TLabel
|
|
Left = 7
|
|
Top = 24
|
|
Width = 56
|
|
Height = 13
|
|
Caption = 'User Name:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 14
|
|
Top = 47
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Password:'
|
|
end
|
|
object tbUserName: TEdit
|
|
Left = 72
|
|
Top = 20
|
|
Width = 164
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 0
|
|
end
|
|
object tbPassword: TEdit
|
|
Left = 72
|
|
Top = 43
|
|
Width = 164
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object bLogin: TButton
|
|
Left = 80
|
|
Top = 74
|
|
Width = 75
|
|
Height = 22
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Login'
|
|
TabOrder = 2
|
|
OnClick = bLoginClick
|
|
end
|
|
object bLogout: TButton
|
|
Left = 161
|
|
Top = 74
|
|
Width = 75
|
|
Height = 22
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Logout'
|
|
TabOrder = 3
|
|
OnClick = bLogoutClick
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 335
|
|
Top = 61
|
|
Width = 239
|
|
Height = 168
|
|
Caption = 'Pre-configured Logins'
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
239
|
|
168)
|
|
object Label4: TLabel
|
|
Left = 2
|
|
Top = 16
|
|
Width = 234
|
|
Height = 13
|
|
Alignment = taCenter
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption = 'SQL Server'#39's Northwind'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 1
|
|
Top = 93
|
|
Width = 235
|
|
Height = 13
|
|
Alignment = taCenter
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption = 'Firebird Employee'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object rbPreDefLogin1: TRadioButton
|
|
Left = 4
|
|
Top = 33
|
|
Width = 230
|
|
Height = 17
|
|
Caption = 'Nancy/Davolio (Sales Representative)'
|
|
TabOrder = 0
|
|
OnClick = rbPreDefLoginClick
|
|
end
|
|
object rbPreDefLogin2: TRadioButton
|
|
Left = 4
|
|
Top = 50
|
|
Width = 230
|
|
Height = 17
|
|
Caption = 'Andrew/Fuller (Vice President, Sales)'
|
|
TabOrder = 1
|
|
OnClick = rbPreDefLoginClick
|
|
end
|
|
object rbPreDefLogin3: TRadioButton
|
|
Left = 4
|
|
Top = 67
|
|
Width = 230
|
|
Height = 17
|
|
Caption = 'Laura/Callahan (Inside Sales Coordinator)'
|
|
TabOrder = 2
|
|
OnClick = rbPreDefLoginClick
|
|
end
|
|
object rbPreDefLogin4: TRadioButton
|
|
Left = 4
|
|
Top = 110
|
|
Width = 230
|
|
Height = 17
|
|
Caption = 'Claudia/Sutherland (Sales Representative)'
|
|
TabOrder = 3
|
|
OnClick = rbPreDefLoginClick
|
|
end
|
|
object rbPreDefLogin5: TRadioButton
|
|
Left = 4
|
|
Top = 127
|
|
Width = 230
|
|
Height = 17
|
|
Caption = 'Luke/Leung (Sales Representative)'
|
|
TabOrder = 4
|
|
OnClick = rbPreDefLoginClick
|
|
end
|
|
object rbPreDefLogin6: TRadioButton
|
|
Left = 4
|
|
Top = 144
|
|
Width = 230
|
|
Height = 17
|
|
Caption = 'Takashi/Yamamoto (Sales Representative)'
|
|
TabOrder = 5
|
|
OnClick = rbPreDefLoginClick
|
|
end
|
|
end
|
|
end
|
|
object tpCustomerManagement: TTabSheet
|
|
Caption = 'Customer Management'
|
|
ImageIndex = 1
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 174
|
|
Width = 597
|
|
Height = 8
|
|
Cursor = crVSplit
|
|
Align = alBottom
|
|
Beveled = True
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 597
|
|
Height = 22
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 0
|
|
Top = 0
|
|
Width = 240
|
|
Height = 22
|
|
DataSource = MegaDemoClient_DataModule.ds_Customers
|
|
Align = alLeft
|
|
TabOrder = 0
|
|
end
|
|
object tsbApplyUpdatesCustomers: TButton
|
|
Left = 240
|
|
Top = 0
|
|
Width = 100
|
|
Height = 22
|
|
Action = aApplyUpdate
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object gCustomers: TDBGrid
|
|
Left = 0
|
|
Top = 22
|
|
Width = 597
|
|
Height = 152
|
|
Align = alClient
|
|
DataSource = MegaDemoClient_DataModule.ds_Customers
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object gOrdersByCustomer: TDBGrid
|
|
Left = 0
|
|
Top = 182
|
|
Width = 597
|
|
Height = 86
|
|
Align = alBottom
|
|
DataSource = MegaDemoClient_DataModule.ds_OrdersByCustomer
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
end
|
|
object tpBank: TTabSheet
|
|
Caption = 'Bank'
|
|
ImageIndex = 3
|
|
object Label1: TLabel
|
|
Left = 4
|
|
Top = 5
|
|
Width = 592
|
|
Height = 149
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
AutoSize = False
|
|
Caption = 'This tab doesn'#39't really do anything beside being accessible '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clGreen
|
|
Font.Height = -16
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold, fsItalic]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
end
|
|
end
|
|
object sslPageHint: TStatusBar
|
|
Left = 0
|
|
Top = 303
|
|
Width = 617
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = True
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 544
|
|
Top = 58
|
|
object aApplyUpdate: TAction
|
|
Caption = 'Apply Update'
|
|
OnExecute = aApplyUpdateExecute
|
|
OnUpdate = aApplyUpdateUpdate
|
|
end
|
|
end
|
|
end
|