Мир Delphi PixelSoftware		Подписчиков: 3262(Мы рады что вас становится больше)

.::::: СообЧа - Программирование на Delphi :::::. "BD special" выпуск!!!!!!!!!!

	ї 2000 - 2001COOLer		Дизайн: Yoghurt

Вот я и продолжаю серьезную тему, тут появились люди которым мало исходного кода, но поймите же, я пишу, чтобы вам было понятно как это делать не опираясь на чужой код . На этот раз, я не могу гарантировать работу кода, я не имел дело с базами данных, но опираюсь на некоторые примеры и доп. материалы. Возможны два подхода к работе с БД : можно просто написать путь к БД в нужном поле, но такой подход будет неправилен. Он не позволяет работать с БД как целостным понятием и напрямую обращаться к ней по имени( псевдониму ).Возможен также и другой подход - через механизм BDE(Borland 
Database Engine).
BDE реализован в виде набора библиотек , которые обеспечивают для программы , написанной на Паскале, простой и удобный доступ к базам данных 
независимо от их архитектуры.
Вот пример работы с BDE:

Допустим у нас есть таблицы типа Paradox . BDE пока не знает об их существовании .
Давайте выполним следующие действия : найдите меню(В Дельфи) Database(База Дан.) в нем выберите Explore(Проводн). Появится окно. В левой части приводится список всех зарегистрированных в системе BDE БД, в правой - свойства текущей БД.Давайте теперь создадим новую БД для этого выберите  Объект>Создать.В диалоговом окне укажем Standart(это таблицы типа Paradox но вы можете указать тот драйвер который вам нужен).Щелкаем на ОК. В списке появился новый элемент , помеченный зеленым треугольником. Это значит что регистрация еще не завершилась . По умолчанию имя новой БД будет Standart1, изменим его на нужный нам нажатием F2.В свойстве Path укажем путь поиска таблиц.Теперь сохраним БД . Для этого в контекстном 
меню объекта нашей базы выберем Apply(применить) .Если вы просматривали структуру БД то закройте БД командой Close контекстного меню.Все мы зарегистрировали таблицы теперь можем с ними работать.Теперь для проверки наклейте на форму компоненты Table, DataSourse и DBGrid .Нажмите два раза на свойство Datasourse компонента ДБГрид и у вас появится в поле этого свойства Datasourse1.Теперь нажмите два раза на свойстве Dataset компонента Datasourse у вас появится в поле этого свойства Table1.Теперь проведем несколько действий со свойствами компонента Table1 . В свойстве DataBaseName выберите название той базы которую вы зарегистрировали( после регистрации лучше перезагрузить Дельфи).В свойстве TableName укажите имя вашей таблицы. Теперь поставьте свойство Active в положение True и посмотрите на DBGrid . Если не чего не изменилось перечитайте статью.БД, про которую пойдет речь будет чисто дельфевая (не SQL).

Вот с помощью вас наскребли небольшой FAQ

Q:Как открыть запароленную таблицу Paradox 7 (*.db)???
A:Меня очень сильно удивило, когда я узнал, что в Паpадоксе есть backdoor- ключ хpанится в самой базе и есть супеp-паpоль - jIGGAe 
(для windows).


Q:Как заставить пpогу на дельфи видеть не конкpетно заpанее заданный файл базы данных в конкpетной заpанее заданной 
диpектоpии, а именно в той из котоpой он (екзешник) был запущен?
A:TTable.DatabaseName := ExtractFilePath(Application.ExeName);

Delphi 1
FAQ : Базы данных
Примечание: DataSet (набор данных) используется компонентами TTable, TQuery, и TStoredProc для связи с базой данных. 
"Где мне можно получить помощь по работе с ReportSmith, InterBase и связке SQL Links/ODBC?"
Воспользуйтесь борландовским форумом разработчиков (BDEVTOOLS). В нем присутствуют группы, посвященные работе с ReportSmith, 
InterBase, Borland Database Engine, SQL Links/ODBC connectivity и др. 
"У меня имеется TQuery и TDataSource. Cвойстве TStrings TQueryI имеет значение 'SELECT * FROM dbo.AnyTable', где dbo - база данных на 
моем SQL-сервере. Когда я устанавливаю свойство active в TRUE, я получаю следующую ошибку: 'Token not found. Token :dbo. line 
number:1'. В чем дело?"
Если свойство RequestLive установлено в True, тогда имя базы данных и таблицы необходимо указывать в кавычках: 
Пример:
SELECT * FROM "dbo.table" 
Если свойство RequestLive установлено в False, кавычки не нужны. 
Пример:
SELECT * FROM dbo.table 
"При попытке запустить приложение для работы с БД из-под Delphi, я получаю исключение EDatabaseError с сообщением 'An error 
occurred while attempting to initialize the Borland Database Engine (Error $2C09) (Ошибка при инициализации BDE)'."
Добавьте SHARE.EXE в ваш файл AUTOEXEC.BAT или добавьте DEVICE=VSHARE.386 в секцию [386Enh] вашего файла SYSTEM.INI и 
перегрузитесь. 
"У меня есть Quattro Pro 6.0 и IDAPI для работы в сети. После установки Delphi и нового IDAPI поверх сетевого IDAPI и, запуская Quattro Pro 
с другой машины, я получаю ошибку о том, что невозможно загрузить драйвер языка (Language Driver)."
Добавьте в секцию [Borland Language Drivers] файла WIN.INI строчку, содержащую путь к каталогу IDAPI/LANGDRV. Для примера: 
[Borland Language Drivers]
LDPATH=C:\IDAPI\LANGDRV
"Что значит ошибка IDAPI $2C08?"
"Не могу загрузить IDAPI01.DLL". Убедитесь, что в вашем файле WIN.INI в секции, указанной ниже, в переменной DLLPATH указан 
корректный путь к IDAPI: 
[IDAPI]
DLLPATH=C:\IDAPI
CONFIGFILE01=C:\IDAPI\IDAPI.CFG
"Почему я получаю 'Index out of range' (индекс за пределами диапазона), когда я использую tTable.FindNearest и tTable.FindKey в таблице 
dBASE с выражением индекса (expression index)?"
FindKey и FindNearest не хотят работать с выражениями индексов dBASE. Для нормальной работы с выражением индексов dBASE 
используйте методы класса tTable GoToKey и GotoNearest. 
"Какой в Delphi эквивалент Paradox TCursor?"
Компонент TTable. 
"Каким образом, программным путем, создать таблицу Paradox с автоприращиваемым (Auto Increment) типом поля? Я использую 
TTable.CreateTable, но TFieldType не имеет этот тип полей."
Используйте TQuery или SQL-запрос CREATE TABLE. Для примера: 

procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
DatabaseName := 'DBDemos';
with SQL do
begin
Clear;
Add('CREATE TABLE "PDoxTbl.db" (ID AUTOINC,');
Add('Name CHAR(255),');
Add('PRIMARY KEY(ID))');
ExecSQL;
Clear;
Add('CREATE INDEX ByName ON "PDoxTbl.db" (Name)');
ExecSQL;
end;
end;
end;

"Как мне узнать, какая запись и какое поле TDBGrid в данный момент являются текущими?"
Вот метод, следящий за текущими колонкой и строкой. Приведенный ниже код в методе MyDBGridDrawDataCell обновляет переменные 
Col и Row (которые не должны быть локальными для метода) при каждой отрисовке табличной сетки. Используя данный код, вы всегда с 
помощью переменных Col и Row можете узнать номер текущей колонки и строки соответственно. 

var
Col, Row: Integer;

procedure TForm1.MyDBGridDrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
RowHeight: Integer;
begin
if gdFocused in State then
begin
RowHeight := Rect.Bottom - Rect.Top;
Row := (Rect.Top div RowHeight) - 1;
Col := Field.Index;
end;
end;

"Как мне выделить текущую строку в TDBGrid?"
В свойстве TDBGrid Options выставьте флаг dgRowSelect. 
"Как мне создать маску в компоненте TDBEdit?"
Маски редактирования применимы к полям таблицы (компоненты TField), а не к управляющим элементам управления для работы с базами 
данных. Дважды щелкните на иконке TTable и добавьте необходимые поля таблицы. Когда поле выделено, его свойства появляются в 
Инспекторе Объектов, включая редактор маски. Связывание поля с TDBEdit позволяет решить эту проблему. 
"Существует ли простой способ перехватывать исключения в событиях элементов управления?"
Создайте метод формы для перехвата исключений. Данный метод вызывает метод приложения (объект Application) OnException. В нем необходимо производить проверку на необходимые вам исключения, например, EDatabaseError. Откройте файл справки и посмотрите информацию о событии OnException. Там ясно и достаточно подробно описан процесс создания обработчика данного события. Для примера: 

Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
{Не забудьте предварительно объявить класс}
begin
If E is EDatabaseError then
MessageDlg('Перехвачено исключение', mtInformation, [mbOk], 0)
else
{ если эта не та ошибка, которую вы ищите, передайте объект исключительной ситуации дальше }
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExcept;
{ Мы только что назначили обработчика события OnException }
end;

"Какие версии Informix (Online, I-NET) поддерживают SQL Links?"
SQL Links прекрасно работает со всеми версиями Informix sever, включая версию 5.01. Тем не менее она не совместима с новыми 
версиями их клиентов (клиент Windows версии 5.0). В случае клиентов вам надлежит пользоваться клиентом версии 4.2 (для DOS). 

"Вы можете дать определение 'IDAPI'? What is 'SQL Links'?"

IDAPI - Integrated Database Application Program Interface (интегрированный программный интерфейс приложений баз данных). BDE 
позволяет получить доступ к множеству источников данных с последовательным API. IDAPI - именно API для BDE. Оно включает в себя все функции, необходимые для получения доступа, манипуляции данными и т.п.: Delphi, dBASE for Windows и Paradox for Windows пользуются данными функциями для получения доступа к данным: вы также можете использовать их в своих программах. С приобретением BDE вы также получаете всю необходимую документацию. В ней содержится перечень всех доступных функций с описанием того, что они делают. Если вы посмотрите исходные файлы Delphi, вы увидите как используются там эти функции. Названия функций имеют префикс "Dbi" (например, DbiCreateTable). 
SQL Links - это коллекция нативных драйверов, позволяющих вам подключаться к удаленным серверам баз данных. 
"IDAPI необходим для доступа к данным в Delphi? Может быть как-то 'упрятать' IDAPI внутрь Delphi EXE-файла, чтобы не устанавливать 
IDAPI на каждом компьютере пользователя вдобавок к моей программе?"
IDAPI необходим для доступа к данным в Delphi. Delphi поставляется с дискетой, содержащей установку IDAPI. 
"Как мне изменить цвет ячейки TDBGrid?"
Создайте следующий обработчик события компонента TDBGrid OnDrawDataCell: 

Procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
If gdFocused in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end;

Установите отрисовку по умолчанию в True. Только таким способом можно нарисовать отдельную ячейку. Если же вы установили 
DefaultDrawing в False, вам необходимо будет самим отрисовать все ячейки, используя свойства canvas. 
"Каким образом можно недопустить появление диалогового окна с запросом пароля, если я открываю таблицу, защищенную паролем?"
Просто обеспечьте объект Session паролем, который необходимо ввести для открытия таблицы: 


Session.AddPassword ('PASSWORD');

При закрытии таблицы вы можете удалить пароль с помощью команды RemovePassword('PASSWORD'), или удалить все текущие пароли с 
помощью RemoveAllPasswords. (Примечание: все вышесказанное относится только к таблицам Paradox) 

"Где мне найти список и описание функций BDE и типов данных?"

DBIPROCS.INT в вашем каталоге DELPHI\DOC\ содержит список функций BDE, ожидаемые параметры, возвращаемые значения и их краткое описание. DBITYPES.INT - список типов, используемых функциями BDE. Для вызова любой из функций BDE необходимо наличие следующих модулей с списке USES: DBITYPES, DBIPROCS и DBIERRS. Для получения более подробной информации по использованию функций IDAPI, закажите руководство "Database Engine User's guide" в службе поддержки пользователей. "Может ли BDE API или другие доступные DLL воссоздавать разрушенные индексы (типа TUTILITY.EXE, поставляемое с Pdoxwin)?"Функция BDE для воссоздания индексов называется DbiRegenIndexes(). 
Добавьте следующие модули в секцию USES: DBITYPES, DBIPROCS и DBIERRS. Затем вы можете вызвать функцию следующим образом: 
DBIRegenIndexes(Table1.Handle);
Примечание: Таблица должна быть открыта в эксклюзивном режиме и индекс должен уже существовать. 

"Может ли BDE API или другие доступные DLL паковать таблицы dBASE?"
Функция BDE для пакования таблиц dBASE называется DbiPackTable(). 
Добавьте следующие модули в секцию USES: DBITYPES, DBIPROCS и DBIERRS. Затем вы можете вызвать функцию следующим образом: 

DBIPackTable(Table1.DbHandle, Table1.Handle, 'TABLENAME.DBF', szDBASE,
TRUE);
Примечание: Таблица должна быть открыта в эксклюзивном режиме. 
"Возможно ли программным путем добавить псевдоним к файлу IDAPI.CFG?"
Функция BDE, осуществляющее это, называется DbiAddAlias(). Спецификация доступна в Section 6 (Database) библиотеки, файл 
AddAlias.txt. Также в Section 6 (Database) библиотеки доступен компонент AliasManager. С помощью него возможно создание, удаление и редактирование псевдонимов. 
"Как мне посмотреть dBASE-записи, помеченные для удаления?"

В обработчике события AfterOpen вызовите нижеприведенную функцию. Вы также должны включить DBITYPES, DBIERRS, DBIPROCS в 
список используемых модулей. При вызове функции укажите в качестве аргументов TTable и TRUE/FALSE для показа/скрытия удаленных 
записей. Например: 

procedure TForm1.Table1AfterOpen(DataSet: TDataset);
begin
SetDelete(Table1, TRUE);
end;
procedure SetDelete(oTable:TTable; Value: Boolean);
var
rslt: DBIResult;
szErrMsg: DBIMSG;
begin
try
oTable.DisableControls;
try
rslt := DbiSetProp(hDBIObj(oTable.Handle), curSOFTDELETEON,
LongInt(Value));
if rslt <> DBIERR_NONE then
begin
DbiGetErrorString(rslt, szErrMsg);
raise Exception.Create(StrPas(szErrMsg));
end;
except
on E: EDBEngineError do ShowMessage(E.Message);
on E: Exception do ShowMessage(E.Message);
end;
finally
oTable.Refresh;
oTable.EnableControls;
end;
end;

"Как в табличной сетке создать колонку, куда будут заноситься записи из таблицы dBASE, помеченных для удаления?"
Создайте вычисляемые поля, затем в обработчике события таблицы OnCalcField замените вычисляемые поля, которые вы создали, 
следующим образом: 

procedure TForm1.Table1CalcFields(DataSet: TDataset);
var
RCProps : RecProps;
Result : DBIResult;
begin
Result := DbiGetRecord(Table1.Handle, dbiNoLock, Nil, @RCProps);
If RCProps.bDeleteFlag then Table1Del.Value := 'X' else
Table1Del.Value := '';
end;

Примечание: Сначала вы должны вызвать функцию SetDelete(TTable,TRUE), описанную в предыдущем вопросе. 
"Как мне определить реальный размер blob-поля, хранящегося в таблице?"
Здесь приведена функция GetBlobSize, возвращающая размер заданного blob, memo, или графического поля. Пример вызова функции: 

Function GetBlobSize(Field: TBlobField): Longint;
begin
with TBlobStream.Create(Field, bmRead) do
try
Result := Seek(0, 2);
finally
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{ Поле редактирования Edit1 будет показывать }
{ размер memo-поля с именем Notes. }
Edit1.Text := IntToStr(GetBlobSize(Notes));
end;

"Как мне показать содержимое memo-поля в DBGrid?"
Используйте расположенный ниже код в обработчике события OnDrawDataCell компонента DBGrid. Примечание: перед созданием объекта 
TMemoField дважды щелкните на компоненте TTable и добавьте memo-поле. 


procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
P : array [0..50] of char; {размер массива - необходимое число символов}
BS : tBlobStream; {из memo-поля}
S : String;
begin
If Field is TMemoField then begin
with (Sender as TDBGrid).Canvas do
begin
{Table1Notes - TMemoField}
BS := tBlobStream.Create(Table1Notes, bmRead);
FillChar(P,SizeOf(P),#0); {строка с терминатором}
BS.Read(P, 50); {читаем 50 символов из memo в blobStream}
BS.Free;
S := StrPas(P);
while Pos(#13, S) > 0 do {удаляем символы перевода строки и}
S[Pos(#13, S)] := ' '; {пропуска страницы}
While Pos(#10, S) > 0 do
S[Pos(#10, S)] := ' ';
FillRect(Rect); {очищаем ячейку}
TextOut(Rect.Left, Rect.Top, S); {заполняем ячейку данными memo}
end;
end;
end;

"Существует ли способ для ввода данных использовать клавишу Enter вместо Tab или клавиши мыши?"
Используйте приведенный код в обработчике события компонента Edit OnKeyPress. 


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then 
Begin
SelectNext(Sender as tWinControl, True, True );
Key := #0;
end;
end;

Это заставляет клавишу Enter вести себя подобно клавише Tab. После этого выберите на форме все элементы управления (за 
исключением кнопок), у которых вы хотели бы видеть такую функциональность, и в Инспекторе Объектов сошлитесь в обработчике 
события OnKeyPress на созданную процедуру EditKeyPress. Теперь каждый компонент, который вы выбрали, будет воспринимать 
клавишу Enter как Tab. Если вы хотели видеть данную функциональность на уровне формы (по сравнению с элементами управлениями), 
сотрите в Инспекторе Объектов у всех элементов обработчики событий OnKeyPress и сошлитесь на созданную процедуру EditKeyPress в 
обработчике OnKeyPress _формы_. Затем измените Sender на ActiveControl и установите свойство формы KeyPreview в True: 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;
end;
end;

Это позволит любому элементу на форме (по возможности) воспринимать клавишу Enter как клавишу Tab. 
"Как мне воспользоваться функцией locate в неиндексированном поле?"
Ниже приводится код функции, которую вы можете разместить в вашем модуле и вызывать следующим образом: 

Locate(Table1, Table1LName, 'Beman');
Table1 - компонент Table, Table1LName - TField, добавляемое вами с помощью редактора полей (двойной щелчок на компоненте Table) и 
'Beman' - имя, которое вы хотите найти. 


(* Функция Locate находит SValue в неиндексированной таблице *)
Function Locate( const oTable: TTable; const oField: TField;
const sValue: String): Boolean;
var
bmPos : TBookMark;
bFound : Boolean;
begin
Locate := False;
bFound := False;
If not oTable.Active then Exit;
If oTable.FieldDefs.IndexOf( oField.FieldName ) < 0 then Exit;
bmPos := oTable.GetBookMark;
With oTable do
begin
DisableControls;
First;
While not EOF do
if oField.AsString = sValue then
begin
Locate := True;
bFound := True;
Break;
end
else Next;
end ;
If (Not bFound) then oTable.GotoBookMark( bmPos);
oTable.FreeBookMark( bmPos );
oTable.EnableControls;
end;

"Почему я не могу использовать опцию ixUnique при создании индекса таблицы Paradox с помощью метода AddIndex компонента TTable?"
Опции индекса, используемые методом AddIndex компонента TTable, чуствительны к типу таблицы. Для примера, опция ixUnique работает 
с таблицами dBASE, но не с таблицами Paradox. Следующая табличка показывает какие опции могут быть применены к каким таблицам 
(dBASE или Paradox). 
Опции индекса dBASE Paradox
---------------------------------------
ixUnique *
ixDescending * *
ixNonMaintained * *
ixPrimary *
ixCaseInsensitive *
"Как мне определить номер записи набора данных?"

Если набор данных связан с таблицей Paradox или dBASE, то для определения номера записи достаточно пары вызовов BDE (как 
показано ниже). BDE не поддерживает нумерацию записей для набора данных, базирующегося на таблицах SQL, поэтому, если ваш 
сервер сам поддерживает нумерацию записей, то для выяснения способа ее получения, вам необходимо обратиться к его документации. 
Приведенная ниже функция в качестве параметра берет любой компонент, производный от TDataset (например, TTable, TQuery, 
TStoredProc) и возвращает номер текущей записи (больший чем ноль), если это таблица Paradox или dBASE. В противном случае функция возвращает ноль. 

Примечание: для таблиц dBASE функция всегда возвращает физический номер записи. Так, если ваш набор данных - TQuery, или вами в наборе данных установлен диапазон (фильтр), то возвращаемый номер записи не обязательно может относиться к заданному набору данных, а может отражать физическое расположение записи в таблице dBASE. 

uses DbiProcs, DbiTypes, DBConsts;

function RecordNumber(Dataset: TDataset): Longint;
var
CursorProps: CurProps;
RecordProps: RECProps;
begin
{ Возвращает 0, если набор данных связан не с Paradox или dBASE }
Result := 0;

with Dataset do
begin
{ набор данных активен? }
if State = dsInactive then DBError(SDataSetClosed);
{ Данный вызов необходим для получения курсора iSeqNums }
Check(DbiGetCursorProps(Handle, CursorProps));
{ Синхронизируем курсор BDE с курсором Dataset }
UpdateCursorPos;
{ Заполняем RecordProps свойствами текущей записи }
Check(DbiGetRecord(Handle, dbiNOLOCK, nil, @RecordProps));

{ какого типа наш набор данных? }
case CursorProps.iSeqNums of
0: Result := RecordProps.iPhyRecNum; { dBASE }
1: Result := RecordProps.iSeqNum; { Paradox }
end;
end;
end;

"При редактировании записи я получаю сообщение DBEngine, гласящее "Multiple records found but only one expected" (обнаружены 
многичисленные записи в то время как ожидалась одна). Что это значит?
Возможно вам придется создать уникальный индекс в таблице для того, чтобы каждая строка могла быть однозначно идентифицирована.Для этого необходимо добавить в таблицу колонку и заполнить ее уникальными величинами. 
"Мой опыт обращения к данным Microsoft Access через Delphi-компоненту TTable успешным не назовешь. Используя TQuery я смог 
получить для работы только вид с флажком "только для чтения", но вид с возможностью чтения/записи получить не удалось. После 
диалога авторизации я получил сообщение об исключительной ситуации типа 'Passthrough SQL connection must be shared'."
Используйте Database Engine Configuration для изменения опции 'SQLPASSTHRU MODE' в псевдониме, связанным с вашей базой данных 
Access, из пустого значения по умолчанию на 'SHARED AUTOCOMMIT' (без кавычек). 
"Как узнать, что текущая запись в наборе данных изменилась?"
Проверьте в обработчике события OnDataChanged компонента DataSource значение свойства State. В случае изменения текущей записи свойство State будет иметь значение dsBrowse. Следующий пример выводит информационное окошко при каждом изменении записи в источнике данных MyDataSource: 

procedure TMyForm.MyDataSourceDataChange(Sender: TObject; Field: TField);
begin
if (Sender as TDataSource).State = dsBrowse then
ShowMessage('Позиция записи изменилась');
end;

Почему, если с помощью метода компонента TTable CreateTable я создаю таблицу, то поля создаются правильно, но индексы не 
создаются даже когда я делаю NewTable.IndexDefs.Assign(Table1.IndexDefs)
Вы правильно передали определение индекса в NewTable, но тем не менее свойство IndexDefs Table1 следует обновить, для этого 
существует метод Update, как им пользоваться видно из примера: 
with NewTable do begin
Active := False;
DatabaseName := 'DBDEMOS';
TableName := 'Temp';
TableType := ttParadox;
FieldDefs.Assign(Table1.FieldDefs);
Table1.IndexDefs.Update; { В первую очередь обновляем }
IndexDefs.Assign(Table1.IndexDefs);
CreateTable;
end;

А вот описания компонентов если интересно:
TQuery:

Модуль Dbtables

Описание
Компонент TQuery может во многих случаях включаться в приложения вместо TTable.
Преимущества TQuery по сравнению с TTable:

· Возможность формирования набора данных из полей нескольких таблиц базы данных
· Формирование запросов на языке SQL, что обеспечивает большую гибкость, чем в TTable
· При работе в сети с удаленным сервером (Sybase, SQL Server, Oracle, Informix, DB2, InterBase) T
Query более эффективен, поскольку TTable создает на компьютере пользователя временную копию серверной базы данных, что требует больших 
ресурсов и существенно загружает сеть, TQuery размещает на компьютере пользователя только результат запроса.

Основное свойство компонента TQuery - SQL, имеющее тип TStrings. Это список строк, содержащих запросы SQL. В процессе проектирования 
приложения обычно необходимо сформировать в этом свойстве некоторый предварительный запрос SQL, который показал бы, с какой таблицей или 
таблицами будет проводиться работа. Но далее во время выполнения приложения свойство SQL может формироваться программно методами, обычными 
для класса TStrings: Clear - очистка, Add - добавление строки и т.д.

TTable:
Компонент набора данных, связанный с одной таблицей
Модуль Dbtables
Описание
TTable обеспечивает прямой доступ к каждой записи и полю в одной указанной таблице базы данных. Компонент может также работать с подмножеством 
записей внутри таблицы базы данных. Во время проектирования вы можете создавать, удалять, модифицировать, или переименовывать таблицу базы 
данных, связанную с TTable.

P.s недавно играл в Baldurs Gate 2 , теперь хочу хомячка по имени Бу :)

Продолжение следует

Материал помог подготовить JEKA <timof@yandex.ru>, он спец по бд все вопросы к нему :) .......

Редактор :Pixel( pixel@novgorod.net http://pixelsoft.narod.ru )
ї COOLer