Как сделать Просмоторщик баз, файлов с расширением db (file.db))*
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Это наиболее простая прграмма.
Сразу вводим прграммный код к кнопке Открыть/Open (Button1: TButton):
---------------------------------------------------------------------------------------------------------------------------------------
procedure TForm1.Button1Click (Sender: TObject);
If OpenDialog1.Execute then begin
Table1.Tablename:=OpenDiolag1.FileName;
Table1.Active:=true;
end;

end.
---------------------------------------------------------------------------------------------------------------------------------------
Для создания этой программы нужны следущие элементы:
(Table1: TTable) и (OpenDialog1: TOpenDialog)
---------------------------------------------------------------------------------------------------------------------------------------
ПоДсКаЗкА: Для закрытия таблицы используй строку: Table.Active:=false;
---------------------------------------------------------------------------------------------------------------------------------------
procedure TForm1.Button2Click (Sender: TObject);
Table.Active:=false;
end;

end.
---------------------------------------------------------------------------------------------------------------------------------------
)* - Эта программа уже сделана мной, и вы можете подгрузить её саму и
её проект на моём сайте по адресу:
http://www.kudruavtsev.narod.ru/db.html

Автор программы, идеи и текста: Кудрявцев Юра (PAYBACK co. #2000)

Internet: http://www.kudruavtsev.narod.ru
Mail-me: backpayback_yura@mail.ru