1. aminiy
  2. docbase

Commits

aminiy  committed 14dd4c1

+ Таблица реквизиты клиента

  • Participants
  • Parent commits a6ccb8f
  • Branches default

Comments (0)

Files changed (4)

File src/unit1.lfm

View file
 object Form1: TForm1
-  Left = 295
+  Left = 249
   Height = 505
-  Top = 140
-  Width = 879
+  Top = 113
+  Width = 959
   Caption = 'Form1'
   ClientHeight = 505
-  ClientWidth = 879
+  ClientWidth = 959
   OnCreate = FormCreate
   OnShow = FormShow
   LCLVersion = '1.0.8.0'
   object PageControl1: TPageControl
     Left = 0
-    Height = 446
-    Top = 59
-    Width = 879
-    ActivePage = TabSheet1
+    Height = 448
+    Top = 57
+    Width = 959
+    ActivePage = TabSheet2
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object TabSheet1: TTabSheet
       Caption = 'TabSheet1'
-      ClientHeight = 418
-      ClientWidth = 871
+      ClientHeight = 422
+      ClientWidth = 951
       object DBGrid1: TDBGrid
         Left = 0
-        Height = 418
-        Top = 0
-        Width = 871
+        Height = 317
+        Top = 105
+        Width = 951
         Align = alClient
         BorderStyle = bsNone
         Color = clWindow
         Columns = <>
-        DataSource = DataModule1.Datasource1
+        DataSource = DataModule1.dsClients
         Scrollbars = ssAutoBoth
         TabOrder = 0
-        TitleStyle = tsNative
+        TitleStyle = tsStandard
+      end
+      object Panel1: TPanel
+        Left = 0
+        Height = 105
+        Top = 0
+        Width = 951
+        Align = alTop
+        BevelOuter = bvNone
+        ClientHeight = 105
+        ClientWidth = 951
+        TabOrder = 1
+        object DBEditNAME: TDBEdit
+          Left = 92
+          Height = 21
+          Top = 9
+          Width = 304
+          DataField = 'NAME'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 80
+          TabOrder = 0
+        end
+        object DBEditDIRECTOR: TDBEdit
+          Left = 476
+          Height = 21
+          Top = 9
+          Width = 280
+          DataField = 'DIRECTOR'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 80
+          TabOrder = 1
+        end
+        object DBEditADDRESS: TDBEdit
+          Left = 92
+          Height = 21
+          Top = 33
+          Width = 304
+          DataField = 'ADDRESS'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 80
+          TabOrder = 2
+        end
+        object DBEditINN: TDBEdit
+          Left = 92
+          Height = 21
+          Top = 57
+          Width = 72
+          DataField = 'INN'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 9
+          TabOrder = 3
+        end
+        object DBEditOKONX: TDBEdit
+          Left = 220
+          Height = 21
+          Top = 57
+          Width = 57
+          DataField = 'OKONX'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 5
+          TabOrder = 4
+        end
+        object DBEditACCOUNT: TDBEdit
+          Left = 476
+          Height = 21
+          Top = 57
+          Width = 168
+          DataField = 'ACCOUNT'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 20
+          TabOrder = 5
+        end
+        object DBEditE_MAIL: TDBEdit
+          Left = 644
+          Height = 21
+          Top = 33
+          Width = 112
+          DataField = 'E_MAIL'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 40
+          TabOrder = 6
+        end
+        object DBEditFAX: TDBEdit
+          Left = 476
+          Height = 21
+          Top = 33
+          Width = 112
+          DataField = 'FAX'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 15
+          TabOrder = 7
+        end
+        object DBEditMFO: TDBEdit
+          Left = 324
+          Height = 21
+          Top = 57
+          Width = 72
+          DataField = 'MFO'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 5
+          TabOrder = 8
+        end
+        object DBEditTEL: TDBEdit
+          Left = 828
+          Height = 21
+          Top = 33
+          Width = 112
+          DataField = 'TEL'
+          DataSource = DataModule1.dsClients
+          CharCase = ecNormal
+          MaxLength = 15
+          TabOrder = 9
+        end
+        object DBCBBASIS: TDBComboBox
+          Left = 828
+          Height = 21
+          Top = 9
+          Width = 112
+          DataField = 'BASIS'
+          DataSource = DataModule1.dsClients
+          ItemHeight = 13
+          MaxLength = 0
+          TabOrder = 10
+        end
+        object Label1: TLabel
+          Left = 19
+          Height = 14
+          Top = 9
+          Width = 68
+          Caption = 'Наименовние'
+          ParentColor = False
+        end
+        object Label2: TLabel
+          Left = 19
+          Height = 14
+          Top = 33
+          Width = 37
+          Caption = 'Адресс'
+          ParentColor = False
+        end
+        object Label3: TLabel
+          Left = 19
+          Height = 14
+          Top = 57
+          Width = 22
+          Caption = 'ИНН'
+          ParentColor = False
+        end
+        object Label4: TLabel
+          Left = 172
+          Height = 14
+          Top = 57
+          Width = 37
+          Caption = 'ОКОНХ'
+          ParentColor = False
+        end
+        object Label5: TLabel
+          Left = 412
+          Height = 14
+          Top = 9
+          Width = 51
+          Caption = 'Директор'
+          ParentColor = False
+        end
+        object Label6: TLabel
+          Left = 772
+          Height = 14
+          Top = 9
+          Width = 38
+          Caption = 'На осн.'
+          ParentColor = False
+        end
+        object Label7: TLabel
+          Left = 604
+          Height = 14
+          Top = 33
+          Width = 29
+          Caption = 'e-mail'
+          ParentColor = False
+        end
+        object Label8: TLabel
+          Left = 772
+          Height = 14
+          Top = 33
+          Width = 45
+          Caption = 'Телефон'
+          ParentColor = False
+        end
+        object Label9: TLabel
+          Left = 437
+          Height = 14
+          Top = 33
+          Width = 26
+          Caption = 'Факс'
+          ParentColor = False
+        end
+        object Label10: TLabel
+          Left = 292
+          Height = 14
+          Top = 57
+          Width = 25
+          Caption = 'МФО'
+          ParentColor = False
+        end
+        object Label11: TLabel
+          Left = 437
+          Height = 14
+          Top = 57
+          Width = 26
+          Caption = 'Счет'
+          ParentColor = False
+        end
+        object DBLCMFO: TDBLookupComboBox
+          Left = 92
+          Height = 21
+          Top = 81
+          Width = 552
+          DataField = 'MFO'
+          DataSource = DataModule1.dsClients
+          Enabled = False
+          KeyField = 'MFO'
+          ListField = 'NAME'
+          ListFieldIndex = 0
+          ListSource = DataModule1.dsMFO
+          LookupCache = False
+          ReadOnly = True
+          Style = csSimple
+          TabOrder = 11
+        end
+        object Label12: TLabel
+          Left = 19
+          Height = 14
+          Top = 81
+          Width = 25
+          Caption = 'Банк'
+          ParentColor = False
+        end
       end
     end
     object TabSheet2: TTabSheet
       Caption = 'TabSheet2'
-      ClientHeight = 418
-      ClientWidth = 871
-      object Button1: TButton
-        Left = 200
-        Height = 25
-        Top = 121
-        Width = 75
-        Caption = 'Button1'
+      ClientHeight = 422
+      ClientWidth = 951
+      object DBGrid2: TDBGrid
+        Left = 0
+        Height = 357
+        Top = 65
+        Width = 951
+        Align = alClient
+        BorderStyle = bsNone
+        Color = clWindow
+        Columns = <>
         TabOrder = 0
       end
+      object Panel2: TPanel
+        Left = 0
+        Height = 65
+        Top = 0
+        Width = 951
+        Align = alTop
+        BevelOuter = bvNone
+        ClientHeight = 65
+        ClientWidth = 951
+        TabOrder = 1
+        object DBEdit1: TDBEdit
+          Left = 420
+          Height = 21
+          Top = 9
+          Width = 80
+          DataField = 'D_DATE'
+          DataSource = DataModule1.dsCONTRACT
+          CharCase = ecNormal
+          MaxLength = 0
+          TabOrder = 0
+        end
+        object DBEdit2: TDBEdit
+          Left = 92
+          Height = 21
+          Top = 9
+          Width = 80
+          DataField = 'NUMBER'
+          DataSource = DataModule1.dsCONTRACT
+          CharCase = ecNormal
+          MaxLength = 40
+          TabOrder = 1
+        end
+        object DBEdit3: TDBEdit
+          Left = 236
+          Height = 21
+          Top = 9
+          Width = 80
+          DataField = 'V_DATE'
+          DataSource = DataModule1.dsCONTRACT
+          CharCase = ecNormal
+          MaxLength = 0
+          TabOrder = 2
+        end
+        object DBLookupComboBox1: TDBLookupComboBox
+          Left = 92
+          Height = 21
+          Top = 33
+          Width = 408
+          DataField = 'CLIENTS_ID'
+          DataSource = DataModule1.dsCONTRACT
+          KeyField = 'ID'
+          ListField = 'NAME'
+          ListFieldIndex = 0
+          ListSource = DataModule1.dsClients
+          LookupCache = False
+          TabOrder = 3
+        end
+        object Label13: TLabel
+          Left = 20
+          Height = 14
+          Top = 9
+          Width = 32
+          Caption = 'Номер'
+          ParentColor = False
+        end
+        object Label14: TLabel
+          Left = 20
+          Height = 14
+          Top = 33
+          Width = 38
+          Caption = 'Клиент'
+          ParentColor = False
+        end
+        object Label15: TLabel
+          Left = 188
+          Height = 14
+          Top = 9
+          Width = 27
+          Caption = 'Дата'
+          ParentColor = False
+        end
+        object Label16: TLabel
+          Left = 332
+          Height = 14
+          Top = 12
+          Width = 77
+          Caption = 'Срок действия'
+          ParentColor = False
+        end
+      end
     end
     object TabSheet3: TTabSheet
       Caption = 'TabSheet3'
   end
   object ToolBar1: TToolBar
     Left = 0
-    Height = 59
+    Height = 57
     Top = 0
-    Width = 879
+    Width = 959
     AutoSize = True
     ButtonHeight = 0
     ButtonWidth = 0
     object ToolButton1: TToolButton
       Left = 11
       Top = 2
+      Action = actClients
       AutoSize = True
-      Caption = 'ToolButton1'
-      ImageIndex = 0
-      OnClick = ToolButton1Click
     end
     object ToolButton2: TToolButton
-      Left = 85
+      Left = 64
       Top = 2
+      Action = ActContracts
       AutoSize = True
-      Caption = 'ToolButton2'
-      ImageIndex = 1
     end
     object ToolButton3: TToolButton
-      Left = 159
+      Left = 121
       Top = 2
       Caption = 'ToolButton3'
     end
     object ToolButton4: TToolButton
-      Left = 233
+      Left = 187
       Top = 2
       Caption = 'ToolButton4'
     end
     end
   end
   object ActionList1: TActionList
-    left = 824
+    Images = ImageList1
+    left = 912
     top = 8
+    object actClients: TAction
+      Caption = 'Клиенты'
+      ImageIndex = 0
+      OnExecute = actClientsExecute
+    end
+    object ActContracts: TAction
+      Caption = 'Договора'
+      ImageIndex = 1
+      OnExecute = ActContractsExecute
+    end
   end
   object ImageList1: TImageList
     Height = 32
     Width = 32
-    left = 752
+    left = 856
     top = 8
     Bitmap = {
       4C69020000002000000020000000000000000000000000000000000000000000
       00100000000500000000FFFFFF00
     }
   end
-  object frDBDataSet1: TfrDBDataSet
-    CloseDataSource = True
-    DataSet = DataModule1.IBTable1
-    DataSource = DataModule1.Datasource1
-    OnCheckEOF = frDBDataSet1CheckEOF
-    left = 112
-    top = 120
-  end
-  object frReport1: TfrReport
-    Dataset = frDBDataSet1
-    InitialZoom = pzDefault
-    Options = []
-    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
-    DataType = dtDataSet
-    left = 216
-    top = 120
-    ReportForm = {
-      19000000
-    }
-  end
 end

File src/unit1.pas

View file
 
 uses
   Forms, Classes, SysUtils, FileUtil, LR_DBSet, Controls, Graphics, Dialogs,
-  StdCtrls, ComCtrls, ActnList, DBGrids, LR_DSet, LR_Class;
+  StdCtrls, ComCtrls, ActnList, DBGrids, ExtCtrls, DbCtrls, Buttons, ExtDlgs,
+  MaskEdit, LR_DSet, LR_Class;
 
 type
 
   { TForm1 }
 
   TForm1 = class(TForm)
+      actClients: TAction;
+      ActContracts: TAction;
       ActionList1: TActionList;
-      Button1: TButton;
+      DBCBBASIS: TDBComboBox;
+      DBEdit1: TDBEdit;
+      DBEdit2: TDBEdit;
+      DBEdit3: TDBEdit;
+      DBEditACCOUNT: TDBEdit;
+      DBEditE_MAIL: TDBEdit;
+      DBEditFAX: TDBEdit;
+      DBEditMFO: TDBEdit;
+      DBEditTEL: TDBEdit;
+      DBEditNAME: TDBEdit;
+      DBEditDIRECTOR: TDBEdit;
+      DBEditADDRESS: TDBEdit;
+      DBEditINN: TDBEdit;
+      DBEditOKONX: TDBEdit;
       DBGrid1: TDBGrid;
-      frDBDataSet1: TfrDBDataSet;
-      frReport1: TfrReport;
+      DBGrid2: TDBGrid;
+      DBLCMFO: TDBLookupComboBox;
+      DBLookupComboBox1: TDBLookupComboBox;
       ImageList1: TImageList;
+      Label1: TLabel;
+      Label10: TLabel;
+      Label11: TLabel;
+      Label12: TLabel;
+      Label13: TLabel;
+      Label14: TLabel;
+      Label15: TLabel;
+      Label16: TLabel;
+      Label2: TLabel;
+      Label3: TLabel;
+      Label4: TLabel;
+      Label5: TLabel;
+      Label6: TLabel;
+      Label7: TLabel;
+      Label8: TLabel;
+      Label9: TLabel;
       Memo1: TMemo;
       PageControl1: TPageControl;
+      Panel1: TPanel;
+      Panel2: TPanel;
       TabSheet1: TTabSheet;
       TabSheet2: TTabSheet;
       TabSheet3: TTabSheet;
       ToolButton3: TToolButton;
       ToolButton4: TToolButton;
       ToolButton5: TToolButton;
+      procedure actClientsExecute(Sender: TObject);
+      procedure ActContractsExecute(Sender: TObject);
       procedure FormCreate(Sender: TObject);
       procedure FormShow(Sender: TObject);
       procedure frDBDataSet1CheckEOF(Sender: TObject; var Eof: Boolean);
     PageControl1.ShowTabs:=False;
 end;
 
+procedure TForm1.actClientsExecute(Sender: TObject);
+begin
+    TabSheet1.Show;
+end;
+
+procedure TForm1.ActContractsExecute(Sender: TObject);
+begin
+    TabSheet2.Show;
+end;
+
 procedure TForm1.FormShow(Sender: TObject);
 begin
 

File src/unit2.lfm

View file
 object DataModule1: TDataModule1
   OnCreate = DataModuleCreate
   OldCreateOrder = False
-  Height = 255
-  HorizontalOffset = 742
-  VerticalOffset = 178
+  Height = 369
+  HorizontalOffset = 1260
+  VerticalOffset = 481
   Width = 290
   object IBDatabase1: TIBDatabase
-    Connected = True
+    Connected = False
     AllowStreamedConnected = False
-    DatabaseName = 'D:\freelance\docbase\fbemb\db\DB.FDB'
+    DatabaseName = 'ldb'
     Params.Strings = (
       'lc_ctype=UTF-8'
       'user_name=sysdba'
     top = 16
   end
   object IBTransaction1: TIBTransaction
-    Active = True
+    Active = False
     DefaultDatabase = IBDatabase1
     left = 112
     top = 16
   end
-  object IBTable1: TIBTable
+  object IBTblClients: TIBTable
     Database = IBDatabase1
     Transaction = IBTransaction1
-    Active = True
     BufferChunks = 1000
     CachedUpdates = False
     TableName = 'CLIENTS'
     left = 32
-    top = 88
-    object IBTable1ID: TIntegerField
+    top = 72
+    object IBTblClientsID: TIntegerField
       DisplayWidth = 10
       FieldKind = fkData
       FieldName = 'ID'
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = True
+      Visible = False
     end
-    object IBTable1NAME: TIBStringField
-      DisplayWidth = 40
+    object IBTblClientsNAME: TIBStringField
+      DisplayWidth = 50
       FieldKind = fkData
       FieldName = 'NAME'
       Index = 1
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 320
+      Size = 80
     end
-    object IBTable1DIRECTOR: TIBStringField
-      DisplayWidth = 40
+    object IBTblClientsDIRECTOR: TIBStringField
+      DisplayWidth = 30
       FieldKind = fkData
       FieldName = 'DIRECTOR'
       Index = 2
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 320
+      Visible = False
+      Size = 80
     end
-    object IBTable1BASIS: TIBStringField
-      DisplayWidth = 20
+    object IBTblClientsTEL: TIBStringField
+      DisplayWidth = 15
       FieldKind = fkData
-      FieldName = 'BASIS'
+      FieldName = 'TEL'
       Index = 3
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 80
+      Size = 15
     end
-    object IBTable1ADDRESS: TIBStringField
-      DisplayWidth = 40
+    object IBTblClientsFAX: TIBStringField
+      DisplayWidth = 15
       FieldKind = fkData
-      FieldName = 'ADDRESS'
+      FieldName = 'FAX'
       Index = 4
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 320
+      Visible = False
+      Size = 15
     end
-    object IBTable1ACCOUNT: TIBStringField
-      DisplayWidth = 20
+    object IBTblClientsADDRESS: TIBStringField
+      DisplayWidth = 40
       FieldKind = fkData
-      FieldName = 'ACCOUNT'
+      FieldName = 'ADDRESS'
       Index = 5
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
+      Visible = False
       Size = 80
     end
-    object IBTable1MFO: TIBStringField
-      DisplayWidth = 5
+    object IBTblClientsINN: TIBStringField
+      DisplayWidth = 9
       FieldKind = fkData
-      FieldName = 'MFO'
+      FieldName = 'INN'
       Index = 6
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
+      Size = 9
     end
-    object IBTable1INN: TIBStringField
-      DisplayWidth = 9
+    object IBTblClientsMFO: TIBStringField
+      DisplayWidth = 5
       FieldKind = fkData
-      FieldName = 'INN'
+      FieldName = 'MFO'
       Index = 7
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 36
+      Size = 5
     end
-    object IBTable1OKONX: TIBStringField
-      DisplayWidth = 5
+    object IBTblClientsACCOUNT: TIBStringField
+      DisplayWidth = 20
       FieldKind = fkData
-      FieldName = 'OKONX'
+      FieldName = 'ACCOUNT'
       Index = 8
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
     end
-    object IBTable1TEL: TIBStringField
-      DisplayWidth = 15
+    object IBTblClientsOKONX: TIBStringField
+      DisplayWidth = 5
       FieldKind = fkData
-      FieldName = 'TEL'
+      FieldName = 'OKONX'
       Index = 9
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 60
+      Visible = False
+      Size = 5
     end
-    object IBTable1FAX: TIBStringField
+    object IBTblClientsE_MAIL: TIBStringField
       DisplayWidth = 15
       FieldKind = fkData
-      FieldName = 'FAX'
+      FieldName = 'E_MAIL'
       Index = 10
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 60
+      Size = 40
     end
-    object IBTable1E_MAIL: TIBStringField
-      DisplayWidth = 15
+    object IBTblClientsBASIS: TIBStringField
+      DisplayWidth = 20
       FieldKind = fkData
-      FieldName = 'E_MAIL'
+      FieldName = 'BASIS'
       Index = 11
       LookupCache = False
       ProviderFlags = [pfInUpdate, pfInWhere]
       ReadOnly = False
       Required = False
-      Size = 160
+      Visible = False
     end
   end
-  object Datasource1: TDatasource
-    DataSet = IBTable1
+  object dsClients: TDatasource
+    DataSet = IBTblClients
+    left = 32
+    top = 128
+  end
+  object frDBClients: TfrDBDataSet
+    DataSet = IBTblClients
     left = 33
-    top = 152
+    top = 184
+  end
+  object frRpClients: TfrReport
+    Dataset = frDBClients
+    InitialZoom = pzDefault
+    Options = []
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
+    DataType = dtDataSet
+    left = 32
+    top = 248
+    ReportForm = {
+      19000000
+    }
+  end
+  object IBTblMFO: TIBTable
+    Database = IBDatabase1
+    Transaction = IBTransaction1
+    BufferChunks = 1000
+    CachedUpdates = False
+    TableName = 'MFO'
+    left = 112
+    top = 72
+  end
+  object dsMFO: TDatasource
+    DataSet = IBTblMFO
+    left = 112
+    top = 128
   end
 end

File src/unit2.pas

View file
 interface
 
 uses
-  Classes, SysUtils, db, FileUtil, IBDatabase, IBTable, IBCustomDataSet;
+  Classes, SysUtils, db, FileUtil, LR_DBSet, LR_Class, IBDatabase, IBTable,
+  IBCustomDataSet;
 
 type
 
   { TDataModule1 }
 
   TDataModule1 = class(TDataModule)
-      Datasource1: TDatasource;
+      dsMFO: TDatasource;
+      dsClients: TDatasource;
+      frDBClients: TfrDBDataSet;
+      frRpClients: TfrReport;
       IBDatabase1: TIBDatabase;
-      IBTable1: TIBTable;
-      IBTable1ACCOUNT: TIBStringField;
-      IBTable1ADDRESS: TIBStringField;
-      IBTable1BASIS: TIBStringField;
-      IBTable1DIRECTOR: TIBStringField;
-      IBTable1E_MAIL: TIBStringField;
-      IBTable1FAX: TIBStringField;
-      IBTable1ID: TIntegerField;
-      IBTable1INN: TIBStringField;
-      IBTable1MFO: TIBStringField;
-      IBTable1NAME: TIBStringField;
-      IBTable1OKONX: TIBStringField;
-      IBTable1TEL: TIBStringField;
+      IBTblMFO: TIBTable;
+      IBTblClients: TIBTable;
+      IBTblClientsACCOUNT: TIBStringField;
+      IBTblClientsADDRESS: TIBStringField;
+      IBTblClientsBASIS: TIBStringField;
+      IBTblClientsDIRECTOR: TIBStringField;
+      IBTblClientsE_MAIL: TIBStringField;
+      IBTblClientsFAX: TIBStringField;
+      IBTblClientsID: TIntegerField;
+      IBTblClientsINN: TIBStringField;
+      IBTblClientsMFO: TIBStringField;
+      IBTblClientsNAME: TIBStringField;
+      IBTblClientsOKONX: TIBStringField;
+      IBTblClientsTEL: TIBStringField;
       IBTransaction1: TIBTransaction;
       procedure DataModuleCreate(Sender: TObject);
   private
 
 procedure TDataModule1.DataModuleCreate(Sender: TObject);
 begin
-    IBTable1.Open;
+    IBTblClients.Open;
 end;
 
 end.