Этапы создания приложения в Lazarus
Cоздание приложения в Lazarus состоит из следующих шагов:
Подготовка
Установка и настройка компонентов MySQL
Размещение компонентов интерфейса пользователя
Создание процедур-обработчиков событий
Тестирование и отладка приложения
1. Подготовка
Подготовка состоит из следующих шагов.
Создать отдельную папку для каждого проекта.
Без пробелов! Без русских букв!
Место создания: D:\5-course\your_name.
Запустить Lazarus.
Закрыть проект:
Проект/Закрыть проект.
Создать новый проект: Приложение
Сохранить проект в созданной специально для него папке:
Проект/Сохранить проект как...
Проверить успешность компиляции и запуска нового пустого проекта
клавиша F9.
Закрыть запущенный пустой проект.
Продолжить сборку проекта.
Регулярно сохранять проект в процессе сборки
сочетание клавиш Ctrl+S.
2. Установка и настройка компонентов MySQL
Необходимые компоненты находятся на панели визуальных компонентов главного окна Lazarus на следующих вкладках:
SQLdb
Data Access
Data Controls
Установку и настройку компонентов нужно проводить в строгой последовательности:
SQLdb.
Компонент MySQL50Connection.
SQLdb.
Компонент SQLTransaction.
Настройка компонента MySQL50Connection.
DatabaseName = 'sampdb' Transaction = SQLTransaction1
Настройка компонента SQLTransaction.
Database = MySQL50Connection1
SQLdb.
Компонент SQLQuery.
Настройка компонента SQLQuery.
Database = MySQL50Connection1 Transaction = SQLTransaction1
Data Access
Компонент Datasource.
Настройка компонента Datasource.
DataSet = SQLQuery1
Data Controls
Компонент DBGrid.
Настройка компонента DBGrid.
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;