stify"> procedure TForm1.DataSource4DataChange (Sender: TObject; Field: TField);; Query1.FieldValues ??[«ID»]=NULL then goto EF; form1.Query2 do begin;. Clear;. Add ( «SELECT TestCount, Frequency, ResidualVolume, TotalLungCapacity, VitalCapacity, MBCapacity, MaxVolVentilation, TotalLungVentilation, Diagnos, TestDate»);. Add («FROM« TestInfo.db »»);. Add («WHERE»); . Add («(ID =« »+ IntToStr (Query1.FieldValues ??[« ID »]) +"" )");. Add («ORDER BY TestCount»);;;. Columns [0]. Title.Caption:=«Номер обследованмя»;.Columns[1].Title.Caption:=«ЧД»;.Columns[2].Title.Caption:=«ОО»;.Columns[3].Title.Caption:=«ОЕЛ»;.Columns[4].Title.Caption:=«ЖЕЛ»;.Columns[5].Title.Caption:=«МВС»;.Columns[6].Title.Caption:=«МВЛ»;.Columns[7].Title.Caption:=«ОВЛ»;.Columns[8].Title.Caption:=«Диагноз»;.Columns[9].Title.Caption:=«Дата»;:;TForm1.Button2Click(Sender: TObject);;:integer;,rinoN,bronxN,traxN,allergN:integer;,b:String;a,q1b,q2a,q2b,q3a,q3b,q4a,q4b:string;,rino,bronx,trax,allerg:string;Edit21.text=«» then Begin ShowMessage («Введіть рік!"); goto ef; end;:=«Бронхіальна астма»;Rino:=«Ринофарингит»;bronx:=«Абструктивный бронхит»;trax:=«Трахеобронхит»;allerg:=«Аллергический реніт »;: =« 01.01. »+ Edit21.Text; b:=«31.12.» + Edit21.Text; a:=«01.01.» + Edit21.Text; q1b:=«01.04.» + Edit21.Text; a:=«01.04.» + Edit21.Text; q2b:=«01.07.» + Edit21.Text; a:=«01.07.» + Edit21.Text; q3b:=«01.10.» + Edit21.Text; a:=«01.01.» + Edit21.Text; q4b:=«31.12.» + Edit21.Text;. Cells [0,0]:=Edit21.text;. Cells [0,1]:=«1 квартал»;. Cells [0,2]: =«2 квартал»;. Cells [0,3]:=«3 квартал»;. Cells [0,4]:=«4 квартал»;.Cells[0,5]:=«Год»;.Cells[1,0]:=astm;.Cells[2,0]:=rino;.Cells[3,0]:=bronx;.Cells[4,0]:=trax;.Cells[5,0]:=allerg;
/ / заповнення табліциform1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»); . Add («WHERE»);. Add («(TestDate BETWEEN« »+ q1a +« »AND« »+ q1b +"" ) AND Diagnos =« »+ astm +«»»);;;.Cells[1,1]:=IntToStr(Query3.FieldValues[«Count(*)»]);form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + q2a + «» AND «» + q2b +" ") AND Diagnos=«» + astm +«»»);;;.Cells[1,2]:=IntToStr(Query3.FieldValues[«Count(*)»]);form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + q3a + «» AND «» + q3b +" ") AND Diagnos=«» + astm +«»»);;;.Cells[1,3]:=IntToStr(Query3.FieldValues[«Count(*)»]);form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + q4a + «» AND «» + q4b +" ") AND Diagnos=«» + astm + «» »);;;. Cells [ 1,4]:=IntToStr (Query3.FieldValues ??[«Count (*)»]);
//---------------------------------------------------------------------------------------form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + q1a + «» AND «...
