Здравствуйте, Гость
Пятница, 24.11.2017, 02:18
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Admin, stalker 
Форум » Все о Delphi » Базы данных » Как программно создать псевдоним?
Как программно создать псевдоним?
ExZodДата: Четверг, 06.05.2010, 22:24 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 3
Награды: 0
Репутация: 0
Статус: Offline
какой код нужно написать чтобы псевдоним для БД создавался автоматически и какие компоненты нужно установить?
 
AdminДата: Пятница, 07.05.2010, 09:18 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Код с delphiworld. Подробности читай там же.

Code
unit school3_;

interface

uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
    Dialogs, Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls;

type
    TForm1 = class(TForm)
      Table1: TTable; // таблица (вся база данных)
      Query1: TQuery; // запрос (записи БД, удовлетворяющие критерию выбора)
      DataSource1: TDataSource; // источник данных - таблица или запрос
      DBGrid1: TDBGrid; // таблица для отображения БД или результата выполнения запроса
      DBNavigator1: TDBNavigator;
      DBText1: TDBText;
      Button1: TButton; // кнопка запрос
      Button2: TButton; // кнопка Все записи
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure FormActivate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.DFM}

// щелчок на кнопке Запрос
procedure TForm1.Button1Click(Sender: TObject);
var
    fam: string[30];
begin
    fam := InputBox('Выборка информации из БД',
      'Укажите фамилию и щелкните на OK.', '');
    if fam <> '' // пользователь ввел фамилию
      then
    begin
      with form1.Query1 do begin
        Close; // закрыть файл-результат выполнения предыдущего запроса
        SQL.Clear; // удалить текст предыдущего запроса
        // записываем новый запрос в свойство SQL
        SQL.Add('SELECT Fam, Name, Class');
        SQL.Add('FROM ":Школа:school.db"');
        SQL.Add('WHERE');
        SQL.Add('(Fam = "' + fam + '")');
        SQL.Add('ORDER BY Name, Fam');
        Open; // активизируем выполнение запроса
      end;

      if Query1.RecordCount <> 0 then
        DataSource1.DataSet := Query1 // отобразить рез-т выполнения запроса
      else begin
        ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
        DataSource1.DataSet := Table1;
      end;
    end;
end;

// щелчок на кнопке Все записи
procedure TForm1.Button2Click(Sender: TObject);
begin
    DataSource1.DataSet := Table1; // источник данных - таблица
end;

// активизация формы
procedure TForm1.FormActivate(Sender: TObject);
begin
    with Session do
    begin
      ConfigMode := cmSession;
      try
        { Если файл данных находиться в том же каталоге,
        что и выполняемый файл программы, то в программе
        путь к файлу данных может быть получен из командной
        строки при помощи функции ExtractFilePath(ParamStr(0)).
        В приведенном примере файл данных находиться в подкаталоге
        DATA каталога программы. }

        // создадим временный псевдоним для базы данны
        AddStandardAlias('Школа',
          ExtractFilePath(ParamStr(0)) + 'DATA\',
          'PARADOX');
        Table1.Active := True; // откроем базу данных
      finally
        ConfigMode := cmAll;
      end;
    end;
end;

end.


Не оказываю помощь через личные сообщения и ICQ
 
Форум » Все о Delphi » Базы данных » Как программно создать псевдоним?
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz