Обработка событий в Delphi: сохранение данных в базу и обновление списков

Delphi , Базы данных , Access

В статье рассмотрим обработку событий в среде разработки Delphi, с акцентом на сохранение данных в базу данных и обновление списков элементов интерфейса. Для наглядности приведем примеры кода на языке Object Pascal, который используется в Delphi.

Проблема

Перед нами стоит задача реализовать процедуру сохранения данных в таблицу tblcaractivity. Данные для сохранения берутся из различных элементов управления: ComboBox2, Edit6, Edit1, Memo1, Edit2, Edit3, Edit4, Edit5. Процесс должен быть выполнен с использованием компонента ADOQuery. Также необходимо реализовать процедуру обновления списка элементов для ComboBox1, который заполняется данными из другой таблицы.

Решение

Рассмотрим процедуру TFNewCarAct.BtnSaveClick, которая отвечает за сохранение данных. В коде видно, что сначала закрывается ADOQuery, затем очищается и формируется SQL-запрос для вставки данных в таблицу. После этого устанавливаются значения параметров запроса, соответствующие данным из элементов управления. В конце выполняется запрос с помощью метода ExecSQL, и пользователю выводится сообщение о выполнении операции.

procedure TFNewCarAct.BtnSaveClick(Sender: TObject);
begin
    adoQueryCCA.Close;
    adoQueryCCA.SQL.Clear;
    adoQueryCCA.SQL.Add('INSERT INTO tblcaractivity ([CCarID],[Date],[Millage],[SerRcd],[EOType],[EOQunt],[AirFil],[GOil])');
    adoQueryCCA.SQL.Add('VALUES(:CCarID,:Date,:Millage,:SerRcd,:EOType,:EOQunt,:AirFil,:GOil)');
    adoQueryCCA.Parameters.ParamByName('CCarID').Value:= Integer(ComboBox2.Items.Objects[ComboBox2.ItemIndex]);
    // ... остальные параметры ...
    adoQueryCCA.ExecSQL;
    ShowMessage('Done');
end;

Для обновления списка элементов ComboBox1 используется процедура TFNewCarAct.FromShow. Она открывает ADOQueryCT, читает из него данные и добавляет их в список элементов ComboBox1. После чего выбирается первый элемент списка, если таковой имеется.

procedure TFNewCarAct.FormShow(Sender: TObject);
begin
    ADOQueryCT.Open;
    while not ADOQueryCT.Eof do
    begin
        ComboBox1.Items.Add(ADOQueryCT.FieldByName('Name').AsString);
        ADOQueryCT.Next;
    end;
    ADOQueryCT.Close;
    if ComboBox1.Items.Count > 0 then ComboBox1.ItemIndex := 0;
end;

Процедура TFNewCarAct.OnComboBox1Change обновляет список элементов ComboBox2 в зависимости от выбранного элемента в ComboBox1. Это делается путем установки параметра Name в ADOQueryCC, открытия запроса, чтения данных и добавления их в ComboBox2 с привязкой к соответствующему идентификатору.

procedure TFNewCarAct.OnComboBox1Change(Sender: TObject);
begin
    ComboBox2.Items.BeginUpdate;
    try
        ComboBox2.Clear;
        ADOQueryCC.Parameters.ParamByName('Name').Value := ComboBox1.Text;
        ADOQueryCC.Open;
        while not ADOQueryCC.Eof do
        begin
            ComboBox2.Items.AddObject(ADOQueryCC.FieldByName('Car').AsString, TObject(ADOQueryCC.FieldByName('CCarID').AsInteger));
            ADOQueryCC.Next;
        end;
        ADOQueryCC.Close;
        if ComboBox2.Items.Count > 0 then ComboBox2.ItemIndex := 0;
    finally
        ComboBox2.Items.EndUpdate;
    end;
end;

Подтвержденный ответ

В контексте предоставленных данных, процедуры BtnSaveClick, FormShow и OnComboBox1Change реализуют необходимую логику для сохранения данных и обновления списков элементов интерфейса. Все операции выполняются корректно, что подтверждается отсутствием альтернативного ответа в предоставленном контексте.

Альтернативный ответ

В контексте не предоставлено никаких данных, которые бы требовали альтернативного решения. Все процедуры, представленные в коде, выполняют свои функции без дополнительных уточнений.

Заключение

В данной статье были рассмотрены основные принципы обработки событий в Delphi, связанные с работой с базами данных и обновлением интерфейса. Приведенные примеры кода на Object Pascal демонстрируют, как можно реализовать сохранение данных и обновление списков элементов управления. Это знание может быть полезным для разработчиков, работающих с Delphi, при решении аналогичных задач.

Создано по материалам из источника по ссылке.

Описание обработки событий и взаимодействия с базой данных в среде разработки Delphi, включая сохранение данных и обновление списков элементов интерфейса с использованием компонента ADOQuery и языка Object Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Access ::