Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Регистрация на сайте занимает 40 секунд, а пользу приносит годами.

Дополнительные функции

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Вопросы: 0
Ответы: 0
Мини-форумы: 0

Онлайн на сайте: 49 (3404)
Онлайн в IRC: 2 (17)
Последние новости:
8 июля 2023
Последний вопрос:
9 августа 2022, 09:39
Последний ответ:
29 марта 2018, 23:32

Лучшие эксперты

Подробнее »

Вопрос # 4 219

Раздел: Delphi » Программирование баз данных (БД)

/ вопрос открыт /

Доброго времени суток!..Вопрос весь в том, как очистить DBGrid через DBLookupComboBox. У меня база данных скл сервер и делфи, ниже приведу исходный код добавления информации в базу. Прошу помочь с написанием процедуры очистки поля DBGrid. Помогите написать такую же точно процедуру, только очистки а не добавления. Заранее спасибо

Приложение:

procedure TForm4.Button1Click(Sender: TObject);
begin
if (DBLookupComboBox1.Text='') OR (DBLookupComboBox2.Text='') then showmessage('')
else begin
with ADOStoredProc2 do begin
Close;
with Parameters do begin
ParamByName('@otdel').Value:=DBLookupComboBox1.Text;
ParamByName('@dolgnost').Value:=DBLookupComboBox2.Text;
ParamByName('@treb_sotrudnik').Value:=SpinEdit1.Value;
end;
ExecProc;
end;
DBLookupComboBox1.KeyValue:='';
DBLookupComboBox2.KeyValue:='';
if ADOStoredProc2.Parameters.ParamByName('@rv').Value=1 then showmessage('');
with ADOStoredProc1 do begin
Close;
Open;
end;
end;