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

If Form5.CheckBox2.Checked=false then

begin

DataModule2.IBQueryFPostuplenie.Active:=false;

DataModule2.IBQueryFPostuplenie.SQL.Clear;

DataModule2.IBQueryFPostuplenie.SQL.add('select PNOM, PNAZVANIE, PSUMA, PDATA from POSNUPLENIE where PDATA>='''+Form5.Edit1.Text+''' and PDATA<='''+Form5.Edit2.Text+'''');

DataModule2.IBQueryFPostuplenie.Active:=true;

end;

end;

If Form5.CheckBox1.Checked=true then

begin

If Form5.CheckBox2.Checked=true then

begin

DataModule2.IBQueryFPostuplenie.Active:=false;

DataModule2.IBQueryFPostuplenie.SQL.Clear;

DataModule2.IBQueryFPostuplenie.SQL.add('select PNOM, PNAZVANIE, PSUMA, PDATA from POSNUPLENIE where PDATA>='''+Form5.Edit1.Text+''' and PDATA<='''+Form5.Edit2.Text+''' and PNAZVANIE='''+Form5.Edit3.Text+'''');

DataModule2.IBQueryFPostuplenie.Active:=true;

end;

end;

If Form5.CheckBox1.Checked=false then

begin

If form5.CheckBox2.Checked=true then

begin

DataModule2.IBQueryFPostuplenie.Active:=false;

DataModule2.IBQueryFPostuplenie.SQL.Clear;

DataModule2.IBQueryFPostuplenie.SQL.add('select PNOM, PNAZVANIE, PSUMA, PDATA from POSNUPLENIE where PNAZVANIE='''+Form5.Edit3.Text+'''');

DataModule2.IBQueryFPostuplenie.Active:=true;

end;

end;

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