mainform.dfm

Delphi Kylix Database Development 附书代码

              TabOrder = 3
            end
            object ecTitle: TDBEdit
              Left = 96
              Top = 104
              Width = 185
              Height = 21
              DataField = 'TITLE'
              DataSource = dsContacts
              TabOrder = 4
            end
          end
          object tabClientAddress: TTabSheet
            Caption = 'Address'
            ImageIndex = 1
            object Label6: TLabel
              Left = 8
              Top = 12
              Width = 50
              Height = 13
              Caption = 'Address 1:'
            end
            object Label7: TLabel
              Left = 8
              Top = 36
              Width = 50
              Height = 13
              Caption = 'Address 2:'
            end
            object Label8: TLabel
              Left = 8
              Top = 60
              Width = 20
              Height = 13
              Caption = 'City:'
            end
            object Label9: TLabel
              Left = 8
              Top = 84
              Width = 28
              Height = 13
              Caption = 'State:'
            end
            object Label10: TLabel
              Left = 8
              Top = 108
              Width = 59
              Height = 13
              Caption = 'Postal code:'
            end
            object Label11: TLabel
              Left = 8
              Top = 132
              Width = 39
              Height = 13
              Caption = 'Country:'
            end
            object ecAddress1: TDBEdit
              Left = 96
              Top = 8
              Width = 185
              Height = 21
              DataField = 'ADDRESS1'
              DataSource = dsContacts
              TabOrder = 0
            end
            object ecAddress2: TDBEdit
              Left = 96
              Top = 32
              Width = 185
              Height = 21
              DataField = 'ADDRESS2'
              DataSource = dsContacts
              TabOrder = 1
            end
            object ecCity: TDBEdit
              Left = 96
              Top = 56
              Width = 185
              Height = 21
              DataField = 'CITY'
              DataSource = dsContacts
              TabOrder = 2
            end
            object ecState: TDBEdit
              Left = 96
              Top = 80
              Width = 185
              Height = 21
              DataField = 'STATE'
              DataSource = dsContacts
              TabOrder = 3
            end
            object ecPostalCode: TDBEdit
              Left = 96
              Top = 104
              Width = 185
              Height = 21
              DataField = 'POSTALCODE'
              DataSource = dsContacts
              TabOrder = 4
            end
            object ecCountry: TDBEdit
              Left = 96
              Top = 128
              Width = 185
              Height = 21
              DataField = 'COUNTRY'
              DataSource = dsContacts
              TabOrder = 5
            end
          end
          object tabClientPhones: TTabSheet
            Caption = 'Phones'
            ImageIndex = 2
            object Label12: TLabel
              Left = 8
              Top = 12
              Width = 34
              Height = 13
              Caption = 'Phone:'
            end
            object Label13: TLabel
              Left = 8
              Top = 36
              Width = 20
              Height = 13
              Caption = 'Fax:'
            end
            object Label14: TLabel
              Left = 8
              Top = 60
              Width = 37
              Height = 13
              Caption = 'Cellular:'
            end
            object Label15: TLabel
              Left = 8
              Top = 84
              Width = 31
              Height = 13
              Caption = 'Pager:'
            end
            object Label16: TLabel
              Left = 8
              Top = 108
              Width = 28
              Height = 13
              Caption = 'Email:'
            end
            object ecPhone: TDBEdit
              Left = 96
              Top = 8
              Width = 185
              Height = 21
              DataField = 'PHONE'
              DataSource = dsContacts
              TabOrder = 0
            end
            object ecFax: TDBEdit
              Left = 96
              Top = 32
              Width = 185
              Height = 21
              DataField = 'FAX'
              DataSource = dsContacts
              TabOrder = 1
            end
            object ecCellular: TDBEdit
              Left = 96
              Top = 56
              Width = 185
              Height = 21
              DataField = 'CELLULAR'
              DataSource = dsContacts
              TabOrder = 2
            end
            object ecPager: TDBEdit
              Left = 96
              Top = 80
              Width = 185
              Height = 21
              DataField = 'PAGER'
              DataSource = dsContacts
              TabOrder = 3
            end
            object ecEmail: TDBEdit
              Left = 96
              Top = 104
              Width = 185
              Height = 21
              DataField = 'EMAIL'
              DataSource = dsContacts
              TabOrder = 4
            end
          end
        end
      end
      object tabGrid: TTabSheet
        Caption = 'Client Grid'
        ImageIndex = 1
        object gridContacts: TDBGrid
          Left = 0
          Top = 0
          Width = 628
          Height = 304
          Align = alTop
          DataSource = dsContacts
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'COMPANYNAME'
              Title.Caption = 'Company'
              Width = 250
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FullName'
              Title.Caption = 'Name'
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TITLE'
              Title.Caption = 'Title'
              Width = 135
              Visible = True
            end>
        end
      end
    end
    object pnlTodos: TPanel
      Left = 0
      Top = 337
      Width = 636
      Height = 114
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object PageControl2: TPageControl
        Left = 0
        Top = 0
        Width = 636
        Height = 114
        ActivePage = tabNotes
        Align = alClient
        TabIndex = 0
        TabOrder = 0
        TabStop = False
        object tabNotes: TTabSheet
          Caption = 'Notes'
          object memoNotes: TDBMemo
            Left = 0
            Top = 0
            Width = 628
            Height = 86
            Align = alClient
            DataField = 'NOTES'
            DataSource = dsContacts