Курсовая работа: Проектирование процесса исследования для модуля корпоративных информационных систем по учету затрат на производстве
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 RDATA>='''+Form6.Edit1.Text+''' and RDATA<='''+Form6.Edit2.Text+''' and 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=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 RNAZVANIE='''+Form6.Edit3.Text+'''');
DataModule2.IBQueryFRashod.Active:=True;
end;
end;
end;
If Form6.CheckBox1.Checked=false then
begin
If Form6.CheckBox2.Checked=true then
begin
if Form6.CheckBox3.Checked=true then
Begin