Друзья
Друзья


Ссылки

Как узнать путь базы данных и её имя Делается это при помощи dbiGetDatabaseDesc

Как узнать путь базы данных и её имя

Делается это при помощи dbiGetDatabaseDesc:

uses BDE;
.....
procedure ShowDatabaseDesc(DBName: String);
const
DescStr = 'Driver Name: %s'#13#10'AliasName: %s'#13#10 +
'Text: %s'#13#10'Physical Name/Path: %s';
var
dbDes: DBDesc;
begin
dbiGetDatabaseDesc(PChar(DBName), @dbDes);
with dbDes do
ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));
end;

 

Добавляем файлы в Recent Documents list Предположим Вам захотелось...

Добавляем файлы в Recent Documents list

Предположим Вам захотелось, чтобы Ваше программа сама умела добавлять файлы "recent documents list" (для тех, кто в танке - это такая менюшка, которая появляется при нажатии на кнопку Пуск(Start) и наведении мышкой на "Документы" (Documents).

Подробнее...

 

Как создать таблицу через SQL Следующая функция полностью совместима...

Как создать таблицу через SQL

Следующая функция полностью совместима с Paradox, а так же другими базами данных:

procedure TForm1.Button1Click(Sender: TObject);
var
Q: TQuery;
begin
Q := TQuery.Create(Application)
try
Q.DatabaseName := 'SF';

with Q.SQL do begin
Add('Create Table Funcionarios');
Add('( ID AutoInc,');
Add(' Name Char(30),');
Add(' Salary Money,');
Add(' Depno SmallInt,')...

Подробнее...

 
Самое популярное
Яндекс.Метрика