Стартовый пул

RXLib/.svn/pristine/de/de738cb497202bd568e67b4ff1733be12de1816b.svn-base

@@ -0,0 +1,230 @@
+object pbEditDataForm: TpbEditDataForm
+  Left = 492
+  Height = 401
+  Top = 271
+  Width = 530
+  Caption = 'Phone book data'
+  ClientHeight = 401
+  ClientWidth = 530
+  Position = poScreenCenter
+  LCLVersion = '1.3'
+  object Label1: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 6
+    Height = 19
+    Top = 6
+    Width = 66
+    BorderSpacing.Around = 6
+    Caption = 'Patronymic'
+    FocusControl = DBEdit1
+    ParentColor = False
+  end
+  object Label2: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = DBEdit1
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 19
+    Top = 68
+    Width = 34
+    BorderSpacing.Around = 6
+    Caption = 'Name'
+    FocusControl = DBEdit2
+    ParentColor = False
+  end
+  object Label3: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = DBEdit1
+    AnchorSideTop.Side = asrBottom
+    Left = 240
+    Height = 19
+    Top = 68
+    Width = 51
+    BorderSpacing.Around = 6
+    Caption = 'Surname'
+    FocusControl = DBEdit3
+    ParentColor = False
+  end
+  object Label4: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = DBEdit2
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 19
+    Top = 130
+    Width = 37
+    BorderSpacing.Around = 6
+    Caption = 'Phone'
+    FocusControl = DBEdit4
+    ParentColor = False
+  end
+  object Label5: TLabel
+    AnchorSideLeft.Control = Label3
+    AnchorSideTop.Control = DBEdit3
+    AnchorSideTop.Side = asrBottom
+    Left = 240
+    Height = 19
+    Top = 130
+    Width = 22
+    BorderSpacing.Top = 6
+    BorderSpacing.Bottom = 6
+    Caption = 'ICQ'
+    FocusControl = DBEdit5
+    ParentColor = False
+  end
+  object Label6: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = DBEdit4
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 19
+    Top = 192
+    Width = 36
+    BorderSpacing.Around = 6
+    Caption = 'Memo'
+    ParentColor = False
+  end
+  object DBEdit1: TDBEdit
+    AnchorSideLeft.Control = Label1
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 12
+    Height = 31
+    Top = 31
+    Width = 512
+    DataField = 'PATRONYMIC'
+    DataSource = pbMainForm.Datasource1
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    CharCase = ecNormal
+    MaxLength = 0
+    TabOrder = 0
+  end
+  object DBEdit2: TDBEdit
+    AnchorSideLeft.Control = Label2
+    AnchorSideTop.Control = Label2
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Label3
+    Left = 12
+    Height = 31
+    Top = 93
+    Width = 222
+    DataField = 'NAME'
+    DataSource = pbMainForm.Datasource1
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    CharCase = ecNormal
+    MaxLength = 0
+    TabOrder = 1
+  end
+  object DBEdit3: TDBEdit
+    AnchorSideLeft.Control = Label3
+    AnchorSideTop.Control = Label3
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 246
+    Height = 31
+    Top = 93
+    Width = 278
+    DataField = 'SURNAME'
+    DataSource = pbMainForm.Datasource1
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    CharCase = ecNormal
+    MaxLength = 0
+    TabOrder = 2
+  end
+  object DBEdit4: TDBEdit
+    AnchorSideLeft.Control = Label4
+    AnchorSideTop.Control = Label4
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Label3
+    Left = 12
+    Height = 31
+    Top = 155
+    Width = 222
+    DataField = 'PHONE'
+    DataSource = pbMainForm.Datasource1
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    CharCase = ecNormal
+    MaxLength = 0
+    TabOrder = 3
+  end
+  object DBEdit5: TDBEdit
+    AnchorSideLeft.Control = Label5
+    AnchorSideTop.Control = Label5
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 246
+    Height = 31
+    Top = 155
+    Width = 278
+    DataField = 'ICQ'
+    DataSource = pbMainForm.Datasource1
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    CharCase = ecNormal
+    MaxLength = 0
+    TabOrder = 4
+  end
+  object ButtonPanel1: TButtonPanel
+    Left = 6
+    Height = 42
+    Top = 353
+    Width = 518
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
+    TabOrder = 5
+    ShowButtons = [pbOK, pbCancel, pbHelp]
+  end
+  object DBMemo1: TDBMemo
+    AnchorSideLeft.Control = Label6
+    AnchorSideTop.Control = Label6
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = ButtonPanel1
+    Left = 12
+    Height = 130
+    Top = 217
+    Width = 512
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 6
+    DataField = 'MEMO'
+    DataSource = pbMainForm.Datasource1
+    TabOrder = 6
+  end
+  object RxCloseFormValidator1: TRxCloseFormValidator
+    ErrorMsgCaption = 'Ошибка. Не все требуемые поля заполнены!'
+    Items = <    
+      item
+        Control = DBEdit1
+        FieldCaption = 'Patronymic'
+      end    
+      item
+        Control = DBEdit2
+        FieldCaption = 'Name'
+        OnValidate = RxCloseFormValidator1Items1Validate
+      end    
+      item
+        Control = DBEdit4
+        FieldCaption = 'Phone'
+        OnValidate = RxCloseFormValidator1Items2Validate
+      end>
+    left = 376
+    top = 8
+  end
+end