Пакет IBExpert и разработка базы данных FireBird в нем

  Edit2.Enabled := AValue;

  Edit3.Enabled := AValue;

  Edit4.Enabled := AValue;

  Button1.Enabled := not AValue;

  Button2.Enabled := AValue;

  Button3.Enabled := AValue;

  Button4.Enabled := not AValue;

  Button5.Enabled := not AValue;

end; 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  IBQuery1.Close;

  IBDatabase1.Connected := false;

end; 

procedure TForm1.FormCreate(Sender: TObject);

var

  fIniFile: TIniFile;

begin

  try

    fIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)

        + 'Config.ini');

    try

      IBDatabase1.DatabaseName := fIniFile.ReadString('Base', 'Path', '');

    finally

      fIniFile.Free;

    end;

    IBDatabase1.Connected := true;

    with IBQuery1 do

    begin

 Приложение 1

 

   SQL.Text :=

        'select * from list_phones order by surname, fname, patronymic';

      Open;

    end;

    with DBGrid1 do

    begin

      Options := [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs,

        dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit,

        dgTitleHotTrack];

      ReadOnly := true;

      Columns.Add;

      with Columns[0] do

      begin

        FieldName := 'surname';

        Title.Caption := 'Фамилия';

        Width := 100;

      end;

      Columns.Add;

      with Columns[1] do

      begin

        FieldName := 'fname';

        Title.Caption := 'Имя';

        Width := 100;

      end;

      Columns.Add;

      with Columns[2] do

      begin

        FieldName := 'patronymic';

        Title.Caption := 'Отчество';

        Width := 100;

      end;

      Columns.Add;

      with Columns[3] do

      begin

        FieldName := 'tel_num';

        Title.Caption := 'Телефон';

        Width := 100;

      end;

    end;

  except

    on E: Exception do

    begin

      Application.MessageBox(PChar(E.Message), 'Form.Create',

Приложение 1

     

  MB_ICONERROR + MB_TOPMOST);

      Halt;

    end;

  end;

end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

   10.  Список использованной литературы: 

1. Кузьменко Дмитрий / InterBase и Firebird: развитие и перспективы. iBase (29.06.2006)
2. IBExpert and Firebird Documentation. / Справочник. / Книги  eBook.
3. А.В. Бондарь / InterBase и Firebird. Практическое руководство для умных пользователей и начинающих разработчиков (+CD)
4. Борри Х. / Firebird: руководство разработчика баз данных
5. А.Н Ковязин, С.М. Востриков / Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/Firebird/Yaffil. Издание 4-е
6. Бирш Тимур. Firebird. Руководство по быстрому старту

 
 

Электронные источники:

1. www.ibase.ru
2. www.ibexpert.com
3. www.xakep.ru