Курсовая работа: Проектирование процесса исследования для модуля корпоративных информационных систем по учету затрат на производстве
DataModule2.IBQueryFRashod.SQL.Clear;
DataModule2.IBQueryFRashod.SQL.Add('select RNOM, RNAZVANIE, RVIDZATRAT, RSUMA, RDATA from RASHOD where RNAZVANIE='''+Form6.Edit3.Text+''' and RVIDZATRAT='''+Form6.Edit4.Text+'''');
DataModule2.IBQueryFRashod.Active:=True;
end;
end;
end;
If Form6.CheckBox1.Checked=false then
begin
If Form6.CheckBox2.Checked=false then
begin
if Form6.CheckBox3.Checked=true then
Begin
DataModule2.IBQueryFRashod.Active:=false;
DataModule2.IBQueryFRashod.SQL.Clear;
DataModule2.IBQueryFRashod.SQL.Add('select RNOM, RNAZVANIE, RVIDZATRAT, RSUMA, RDATA from RASHOD where RVIDZATRAT='''+Form6.Edit4.Text+'''');
DataModule2.IBQueryFRashod.Active:=True;
end;
end;
end;
Форма 7 и форма 8 имеют подобный интерфейс с формой 5 и формой 6 соответственно. Разница состоит в том, что при выборе данных происходит суммирование сумм и одинаковые записи не повторяются. При нажатии на кнопку «Фильтровать» происходит выбор данных. В форме 7 критерии выбора данных происходят также как и в форме 5, различие состоит только в структуре SQL запроса к базе данных:
If Form5.CheckBox1.Checked=true Then
begin
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;