Всем замечательна среда разработки Delphi, в том числе замечательна и ее стоимость.

0 425x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

Как видно на скриншоте из магазина embarcadero, самая дешевая лицензия начинается от 87 999 руб.

Что делать, если покупать ее нет возможностей, а ставить ворованную нет желания?

К счастью, решение есть.

Причем можно использовать наработки для delphi процентов на 90.

Тот же самый Object Pascal можно замечательно компилировать в среде разработки Lazarus.

Скачать Lazarus можно здесь: https://www.lazarus-ide.org/index.php?page=downloads

Скачиваем, устанавливаем, запускаем.

1 448x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

В меню выбираем Файл-Создать

2 274x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Выбираем в разделе Проект пункт Приложение, нажимаем ОК.

3 450x268 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Создается пустой проект.

По традиции будем делать простую базу данных Телефонная книжка.

4 450x346 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Заходим в закладку Data Controls и помещаем на форму компонент TDBGrid.

5 450x330 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Затем переходим во вкладку Data Access и помещаем на форму  компонент TxDbf.

6 450x335 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Затем из вкладки Data Access и помещаем на форму  компонент TDataSource.

7 450x294 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

В свойстве DataSet компонента DataSource выбираем xDbf1.

8 450x293 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

В свойстве TableName компонента xDbf1 указываем имя таблички, которая лежит в папке с программой, табличку мы взяли из примера Простая база данных на Delphi7.

9 450x335 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

В свойстве DataSource компонента DbGrid1 выбираем DataSource1

10 384x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Раздвигаем табличку на всю форму, под ней помещаем две кнопки.

11 450x334 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Щелкаем два раза по табличке (DblClk), в открывшемся окошке добавляем колонки.

12 450x282 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Раскрываем группу Title и в кнопке Caption пишем названия колонки ФИО.

13 450x279 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Аналогично добавляем колонку для телефона, а на кнопках в свойстве Caption пишем Добавить и Удалить.

14 450x278 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

Выбирая каждую колонку в Инспекторе объекта устанавливаем в свойстве Width ширину 400.

15 450x306 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Затем в поле FieldName указываем для колонок соответствующие им столбцы таблицы tab1.dbf

16 284x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Для ФИО это name, для Телефона - tel.

17 246x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Щелкаем дважды мышкой по кнопку Добавить (DblClk), откроется редактор исходного кода.

 

18 364x350 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Затем в событие Button1Click этой кнопки помещаем код для добавления строки:

with xDbf1 do
begin
Insert;
FieldByName('name').AsString := ' ';
FieldByName('tel').AsString := ' ';
Post;
end;

 

 

19 450x346 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

 

Аналогично, щелкаем по кнопке Удалить и в событие Button1Click помещаем код для удаления строки:

with xDbf1 do
begin
  Delete;
end;

 

20 450x88 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

В свойстве Caption формы пишем название программы "Телефонная книжка" и нажимаем на зеленый треугольник на панели Lazarus.

21 450x166 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Программа запускается.

22 450x333 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

При нажатии кнопки Добавить добавляется пустая запись, куда можно внести ФИО и телефон.

23 450x337 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

При нажатии кнопки Удалить выделенная строка удаляется.

24 450x333 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Исполняемый файл project1.exe создается в папке с проектом, его можно переименовать.

25 База данных в бесплатном аналоге Delphi   среде разработки Lazarus

 

Скачать архив с проектом можно по ссылке https://ds-release.ru/lazarus.rar