VPF::Динамическая база данных - Форум программистов

MBulls

Дата 8.7.2005, 20:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Народ, подскажите пожалуйста как мне сделать динамическую базу данных?

Alex

Дата 8.7.2005, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

А, по конкретней...

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

vadims

Дата 8.7.2005, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 8.6.2005

Репутация: нет
Всего: 17

Что за зверь такой статическая база данных smile

--------------------

Cpu not found ! Press any key for software emulation.

Akella

Дата 18.7.2005, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

для создания таблиц типа Paradox 7

Код


    if SelectDirectory('ВЫБЕРИТЕ КАТАЛОГ ДЛЯ ХРАНЕНИЯ'+#13+
    'НОВОЙ БАЗЫ ДАННЫХ','', sPathForNewDB)=False then begin
...
     if (FileExists(sPathForNewDB+'\Apteka.db')) OR (FileExists(sPathForNewDB+'\Zayavka.db')) then
       if MessageDlg('Файлы БД будут перезаписаны!'+#13+
        'Продолжить?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then begin
...
  tNew.Close;
  tNew.DatabaseName:=sPathForNewDB;
...
    tNew.FieldDefs.Clear;
    tNew.IndexDefs.Clear;
    tNew.TableName:='Apteka.db';
    tNew.TableType:=ttDefault;
    tNew.FieldDefs.Add('AID',ftAutoInc);
    tNew.FieldDefs.Add('AName',ftString,20,False);
    tNew.FieldDefs.Add('AAddres',ftString,40,False);
    tNew.FieldDefs.Add('ATel',ftString,40,False);
    tNew.FieldDefs.Add('AMAIL',ftString,30,False);
    tNew.FieldDefs.Add('AFA',ftString,10,False);
    tNew.IndexDefs.Add('','AID',[ixPrimary]);
    tNew.IndexDefs.Add('idxAName','AName',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxAAddres','AAddres',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxATel','ATel',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxAMail','AMail',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxAFA','AFA',[ixCaseInsensitive]);
    tNew.CreateTable;
...
    tNew.FieldDefs.Clear;
    tNew.IndexDefs.Clear;
    tNew.TableName:='Filial.db';
    tNew.TableType:=ttDefault;
    tNew.FieldDefs.Add('FlID',ftAutoInc);
    tNew.FieldDefs.Add('FlName',ftString,20,False);
    tNew.FieldDefs.Add('FlAddres',ftString,40,False);
    tNew.FieldDefs.Add('FlTel',ftString,40,False);
    tNew.IndexDefs.Add('','FlID',[ixPrimary]);
    tNew.IndexDefs.Add('idxFlName','FlName',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxFlAddres','FlAddres',[ixCaseInsensitive]);
    tNew.IndexDefs.Add('idxFlTel','FlTel',[ixCaseInsensitive]);
    tNew.CreateTable;
...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »