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