Курсовая работа: Проектирование процесса исследования для модуля корпоративных информационных систем по учету затрат на производстве

begin

Form5.GroupBox2.Visible:=true;

Form5.Button1.Visible:=true;

end;

If Form5.CheckBox1.Checked=false then

begin

Form5.GroupBox2.Visible:=false;

if Form5.CheckBox2.Checked=false then

begin

Form5.Button1.Visible:=false;

end;

end;

В этой процедуре происходит изменение свойства Visible компонентов GroupBox2 и Button1 с False на True, то есть открывается окно для ввода критериев фильтрации. Также при деактивизации этого компонента происходит обратная процедура.

Аналогичная процедура происходит и при активизации и деактивизации компонента CheckBox2:

If Form5.CheckBox2.Checked=true then

begin

Form5.GroupBox3.Visible:=true;

Form5.Button1.Visible:=true;

end;

If Form5.CheckBox2.Checked=false then

begin

Form5.GroupBox3.Visible:=false;

If Form5.CheckBox1.Checked=false then

begin

Form5.Button1.Visible:=false;

end;

end;

При нажатии на кнопку Button1 («Фильтровать») обрабатывается следующая процедура:

If Form5.CheckBox1.Checked=true Then