mainform.dfm

Delphi Kylix Database Development 附书代码

object frmMain: TfrmMain
  Left = 156
  Top = 32
  Width = 644
  Height = 540
  Caption = 'ConMan'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 475
    Width = 636
    Height = 19
    Action = DataSetNumUpdates
    Panels = <
      item
        Style = psOwnerDraw
        Text = 'Offline'
        Width = 50
      end
      item
        Text = '99 updates pending'
        Width = 110
      end
      item
        Width = 50
      end>
    SimplePanel = False
    OnDrawPanel = StatusBar1DrawPanel
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 636
    Height = 24
    AutoSize = True
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = EditCut1
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Action = EditCopy1
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Action = EditPaste1
    end
    object ToolButton4: TToolButton
      Left = 69
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 77
      Top = 0
      Action = DataSetFirst1
    end
    object ToolButton6: TToolButton
      Left = 100
      Top = 0
      Action = DataSetPrior1
    end
    object ToolButton7: TToolButton
      Left = 123
      Top = 0
      Action = DataSetNext1
    end
    object ToolButton8: TToolButton
      Left = 146
      Top = 0
      Action = DataSetLast1
    end
    object ToolButton12: TToolButton
      Left = 169
      Top = 0
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 177
      Top = 0
      Action = DataSetInsert1
    end
    object ToolButton10: TToolButton
      Left = 200
      Top = 0
      Action = DataSetEdit1
    end
    object ToolButton16: TToolButton
      Left = 223
      Top = 0
      Action = DataSetDelete1
    end
    object ToolButton14: TToolButton
      Left = 246
      Top = 0
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 254
      Top = 0
      Action = DataSetPost1
    end
    object ToolButton13: TToolButton
      Left = 277
      Top = 0
      Action = DataSetCancel1
    end
    object ToolButton17: TToolButton
      Left = 300
      Top = 0
      Action = DataSetRefresh1
    end
  end
  object pnlClient: TPanel
    Left = 0
    Top = 24
    Width = 636
    Height = 451
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object PageControl1: TPageControl
      Left = 0
      Top = 0
      Width = 636
      Height = 337
      ActivePage = tabForm
      Align = alClient
      TabIndex = 0
      TabOrder = 0
      TabStop = False
      object tabForm: TTabSheet
        Caption = 'Client Form'
        object imgPhoto: TImage
          Left = 320
          Top = 8
          Width = 297
          Height = 257
          Proportional = True
        end
        object btnLoadImage: TButton
          Left = 320
          Top = 272
          Width = 75
          Height = 25
          Action = ImageLoad1
          TabOrder = 0
        end
        object btnClearImage: TButton
          Left = 400
          Top = 272
          Width = 75
          Height = 25
          Action = ImageClear1
          TabOrder = 1
        end
        object PageControl3: TPageControl
          Left = 8
          Top = 8
          Width = 297
          Height = 289
          ActivePage = tabClientGeneral
          TabIndex = 0
          TabOrder = 2
          object tabClientGeneral: TTabSheet
            Caption = 'General'
            object Label1: TLabel
              Left = 8
              Top = 12
              Width = 76
              Height = 13
              Caption = '&Company name:'
              FocusControl = ecCompanyName
            end
            object Label2: TLabel
              Left = 8
              Top = 36
              Width = 51
              Height = 13
              Caption = '&First name:'
              FocusControl = ecFirst
            end
            object Label3: TLabel
              Left = 8
              Top = 60
              Width = 52
              Height = 13
              Caption = '&Last name:'
              FocusControl = ecLast
            end
            object Label4: TLabel
              Left = 8
              Top = 84
              Width = 26
              Height = 13
              Caption = '&Dear:'
              FocusControl = ecDear
            end
            object Label5: TLabel
              Left = 8
              Top = 108
              Width = 23
              Height = 13
              Caption = '&Title:'
              FocusControl = ecDear
            end
            object ecCompanyName: TDBEdit
              Left = 96
              Top = 8
              Width = 185
              Height = 21
              DataField = 'COMPANYNAME'
              DataSource = dsContacts
              TabOrder = 0
            end
            object ecFirst: TDBEdit
              Left = 96
              Top = 32
              Width = 185
              Height = 21
              DataField = 'FIRST'
              DataSource = dsContacts
              TabOrder = 1
            end
            object ecLast: TDBEdit
              Left = 96
              Top = 56
              Width = 185
              Height = 21
              DataField = 'LAST'
              DataSource = dsContacts
              TabOrder = 2
            end
            object ecDear: TDBEdit
              Left = 96
              Top = 80
              Width = 185
              Height = 21
              DataField = 'DEAR'
              DataSource = dsContacts