
                  ᯨ᪮, ন BDE.
                  (᫥ । 9  1995).

⠢  ᭮ X:\DELPHI\DEMOS\DB\TOOLS\BDETABLES.PAS  ।祭 
  㯮⮣ .

⠢:
BDETABLE.PAS - ᮡ⢥ 䠩  ⠬ ᯨ᪮ BDE
BDETREG .PAS -  ॣ樨 .
BDETREG .DCR -  ⮣ࠬ .

  BDETABLE.PAS:
TDatabaseList   - ᯨ᮪ 㯭 ᥢ.
TDriverList     - ᯨ᮪ ࠩ஢ ⠡, ⠭  IDAPI.
TStoredProcList - ᯨ᮪ ࠭ 楤.
TUserList       - ᯨ᮪ 짮⥫  ⥪饩 ᨨ.
TTableList      - ᯨ᮪ ⠡  ᥢ.
TFamilyList     - ᯨ᮪ 䠩, 室  ᥬ⢮ ⠡.
TSecurityList   - ᯨ᮪ ஫ ⠡.
TIndexList      - ᯨ᮪ ᮢ ⠡.
TFieldList      - ᯨ᮪  ⠡.
TRefIntList     - ᠭ 뫮筮 楫⭮ ⠡.
TValCheckList   - ᠭ ஫   ⠡.

 ,  ࠡ  ଠ樥  ⠡ (ਬ
TRefIntList),   ᮤঠ  ଠ樨  ᯮ짮 
⠡栬 ଠ dBase, ..    ।  ࠭ ଠ樨
 뫮筮 楫⭮  ...

,  㫥 室 ꥪ,  騥 ⠬,  室
 樨 ਬ஢  ⠫ DEMOS\DB\TOOLS.



                            祭.

᫨  । 짮 ⨬ ⠬ ,  
 -⠪ ॣ஢  Component Palette.  ,  
  COMPLIB.DCL ਬ୮ 350  ! (.. ࠧ  COMPLIB.DCL
⠭ ~1350).

⠪,  㯮  䠩  ⠫ X:\DELPHI\LIB,  ⥬
㯨    ᯮᮡ:

ᮡ 1:  Delphi, ன ஥ (᫨  ), 롥 㭪
Options/Install Components,  BDETREG.PAS,   .
 "BDE Lists" ⮢  ᯮ짮.

ᮡ 2:  ᪠ Delphi   X:\DELPHI\BIN    
COMPLIB.DPR (᫨    ,    Delphi  ᮧ, 
ᤥ )

uses
 ...
 BDETREG,
 ...;

{$R ...}
{$R X:\DELPHI\LIB\BDETREG.DCR}

...

 RegisterModule(...
 RegisterModule('BdeTReg', BdeTReg.Register);
end;

⥬ ᪮ COMPLIB.DCL 
DCC /M COMPLIB.DPR
 २ COMPLIB.DLL  COMPLIB.DCL.

 Delphi - ࠧ "BDE Lists" ⮢  ᯮ짮.


ன ᯮᮡ ।⥫쭥, .  ( -⠪) Delphi ""
᫥ ४樨 Component Palette ᮡ⢥묨 ᨫ.
( ,   ᢮⢥ ५,  筮   -⠪ ⠪ 뢠)


                             :

-------------------------------------------------------------------------
1. ꥪ, ᫥  TTableItems  ࠢ쭮 롨  ⠡
(. 㭪 2)  ॠ⨢஢  ᬥ  ⠡. ॠ⨢
 ᫥騬 ᯮᮡ:

type
 TTableItems = class(TDBDataSet)
 private
   FTableName: TFileName;
   procedure SetTableName(const Value: TFileName);
 published
   property TableName: TFileName read FTableName write SetTableName;
 end;

procedure TTableItems.SetTableName(const Value: TFileName);
begin
  if Active then
   begin
    Active:=False;
    FTableName:=Value;
    Active:=True;
    DataEvent(dePropertyChange, 0);
   end
  else
   FTableName:=Value;
end;

᫨ ॡ   " 室"  ⠡,   ⮤
SetTableName :

begin
  CheckInactive;
  FTableName:=Value;
  DataEvent(dePropertyChange, 0);
end;


-------------------------------------------------------------------------
2.  ଠ쭮 롮  ⠡ (믠騬 ᯨ᪮) 諮
㡫஢     DBREG.PAS, ..  室  ᥪ樨
ॠ樨,  ⠪     USES DBREG;  ४⭮.
⠪, 㡫஢ TDBStringProperty  TTableNameProperty,  
஢  ଠ쭮 ࠡ  ⨯ TTableItem.

 १ 㤠 㡨  ५ ᪮쪨 "楢" -
ॣ ⮫쪮  । ᢮

 RegisterPropertyEditor(TypeInfo(TFileName),
                        TTableItems,
                        'TableName',
                        TTableNameProperty);

 Rulez !!!


-------------------------------------------------------------------------
3.  ।ਭ  ⢨  ࠢ쭮 䨪樨  Design Time
properties  .  :

 TTableList = class(TDBDataSet)
 private
   FExtended: Boolean;
   FSystemTables: Boolean;

  TFieldList = class(TTableItems)
  private
   FPhyType: boolean;

  TStoredProcList = class(TDBDataSet)
  private
    FExtended: Boolean;
    FSystemProcs: Boolean;

   㦭 䨪 ।⠢  - ᯮᮡ 
 ᠭ  .1 饣 㬥.


p.s.  ࣥ ૨     , 
  ⮣ࠬ.  ⠪  Borland  Delphi.

Dimarker's Software 1995
FIDO: Dima Kuzmenko 2:5023/5.13
248021, . 㣠, . ᪮᪠, . 214, . 27.
⥫: (084-22) 2-68-91  8  11,  18  24 .

