Курсовая работа: Проектирование процесса исследования для модуля корпоративных информационных систем по учету затрат на производстве
Аналогичный вид имеет форма 6 «Использование затрат». На ней добавлены только критерии фильтрации по виду затрат. Поэтому при нажатии на кнопку «Фильтровать» обрабатывается более сложная процедура:
If Form6.CheckBox1.Checked=true then
begin
If Form6.CheckBox2.Checked=false then
begin
if Form6.CheckBox3.Checked=false then
Begin
DataModule2.IBQueryFRashod.Active:=false;
DataModule2.IBQueryFRashod.SQL.Clear;
DataModule2.IBQueryFRashod.SQL.Add('select RNOM, RNAZVANIE, RVIDZATRAT, RSUMA, RDATA from RASHOD where RDATA>='''+Form6.Edit1.Text+''' and RDATA<='''+Form6.Edit2.Text+'''');
DataModule2.IBQueryFRashod.Active:=True;
end;
end;
end;
If Form6.CheckBox1.Checked=true then
begin
If Form6.CheckBox2.Checked=true then
begin
if Form6.CheckBox3.Checked=false then
Begin
DataModule2.IBQueryFRashod.Active:=false;
DataModule2.IBQueryFRashod.SQL.Clear;
DataModule2.IBQueryFRashod.SQL.Add('select RNOM, RNAZVANIE, RVIDZATRAT, RSUMA, RDATA from RASHOD where RDATA>='''+Form6.Edit1.Text+''' and RDATA<='''+Form6.Edit2.Text+''' and RNAZVANIE='''+Form6.Edit3.Text+'''');
DataModule2.IBQueryFRashod.Active:=True;
end;
end;
end;
If Form6.CheckBox1.Checked=true then
begin