Приложение 1. Создание проекта в Lazarus

Этапы создания приложения в Lazarus

Cоздание приложения в Lazarus состоит из следующих шагов:

• 1. Подготовка

  2. Установка и настройка компонентов MySQL

  3. Размещение компонентов интерфейса пользователя

  4. Создание процедур-обработчиков событий

  5. Тестирование и отладка приложения

1. Подготовка

Подготовка состоит из следующих шагов.

• 1. Создать отдельную папку для каждого проекта.

  2. Без пробелов! Без русских букв!

  3. Место создания: D:\5-course\your_name.

  4. Запустить Lazarus.

  5. Закрыть проект:

  6. Проект/Закрыть проект.

  7. Создать новый проект: Приложение

  8. Сохранить проект в созданной специально для него папке:

  9. Проект/Сохранить проект как...

  10. Проверить успешность компиляции и запуска нового пустого проекта

  11. клавиша F9.

  12. Закрыть запущенный пустой проект.

  13. Продолжить сборку проекта.

  14. Регулярно сохранять проект в процессе сборки

  15. сочетание клавиш Ctrl+S.

2. Установка и настройка компонентов MySQL

Необходимые компоненты находятся на панели визуальных компонентов главного окна Lazarus на следующих вкладках:

• 1. SQLdb

  2. Data Access

  3. Data Controls

Установку и настройку компонентов нужно проводить в строгой последовательности:

• 1. SQLdb.

  2. Компонент MySQL50Connection.

  3. SQLdb.

  4. Компонент SQLTransaction.

  5. Настройка компонента MySQL50Connection.

     1.    DatabaseName = 'sampdb'     Transaction = SQLTransaction1

  6. Настройка компонента SQLTransaction.

• • 1.    Database = MySQL50Connection1

• 7. SQLdb.

  8. Компонент SQLQuery.

  9. Настройка компонента SQLQuery.

• • 1.    Database = MySQL50Connection1     Transaction = SQLTransaction1

• 10. Data Access

  11. Компонент Datasource.

  12. Настройка компонента Datasource.

• • 1.    DataSet = SQLQuery1

• 13. Data Controls

  14. Компонент DBGrid.

  15. Настройка компонента DBGrid.

• • 1.    DataSource = DataSource1

3. Размещение компонентов интерфейса пользователя

4. Создание процедур-обработчиков событий

Button1 - Connect

try    MySQL50Connection1.Connected:=true;  except    ShowMessage('Подключение к БД: ОШИБКА!');    exit;  end;

Button2 - Transaction

try    SQLTransaction1.Active:=true;  except    ShowMessage('Транзакция: ОШИБКА!');    exit;  end;

Button3 - SQL

var     str_sql : string; begin   try    SQLQuery1.Active := false;    SQLQuery1.SQL.Clear;    str_sql := 'SET character_set_client='+#39+'utf8'+#39+',character_set_connection='+#39+'cp1251'+#39+',character_set_results='+#39+'utf8'+#39+';';    SQLQuery1.sql.add(str_sql);    SQLQuery1.ExecSQL;    SQLQuery1.SQL.Clear;    SQLQuery1.sql.add('SELECT * FROM student;');    SQLQuery1.Open;   except    ShowMessage('SQL-запрос: ОШИБКА!');    exit;  end; end;

Button5 - Disconnect

// D i s c o n n e c t e d procedure Button5Click(Sender: TObject); begin   SQLQuery1.Active:=false;   SQLTransaction1.Commit;   MySQL50Connection1.Connected:=false; end;