+" ") AND Diagnos=«» + trax + «» »);;;. Cells [ 4,4]:=IntToStr (Query3.FieldValues ??[«Count (*)»]);
//--------------------------------------------------------------------------------------------------------------------------------------form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + q1a + «» AND «» + q1b +" ") AND Diagnos=«» + allerg +«»»);;;.Cells[5,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=«» + allerg +«»»);;;.Cells[5,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=«» + allerg +«»»);;;.Cells[5,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=«» + allerg + «» »);;;. Cells [ 5,4]:=IntToStr (Query3.FieldValues ??[«Count (*)»]);
//------------------------------------------------------------------------------------------------
/ / підрахунок числа кожного з захворювань і заповнення YearQ
with form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add («(TestDate BETWEEN« »+ a +« »AND« »+ b +"" ) AND Diagnos =« »+ astm +«»»);;;.InsertRecord([astm,Query3.FieldValues[«Count(*)»]]);:=Query3.FieldValues[«Count(*)»];form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + a + «» AND «» + b +" ") AND Diagnos=«» + rino +«»»);;;.InsertRecord([rino,Query3.FieldValues[«Count(*)»]]);:=Query3.FieldValues[«Count(*)»];form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + a + «» AND «» + b +" ") AND Diagnos=«» + bronx +«»»);;;.InsertRecord([trax,Query3.FieldValues[«Count(*)»]]);:=Query3.FieldValues[«Count(*)»];form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + a + «» AND «» + b +" ") AND Diagnos=«» + trax +«»»);;;.InsertRecord([bronx,Query3.FieldValues[«Count(*)»]]);:=Query3.FieldValues[«Count(*)»];form1.Query3 do begin;. Clear;. Add («SELECT Count (*)»);. Add («FROM« TestInfo.db »»);. Add («WHERE»);. Add (« (TestDate BETWEEN «» + a + «» AND «» + b +" ") AND Diagnos=«» + allerg +«»»);;;.InsertRecord([allerg,Query3.FieldValues[«Count(*)»]]);:=Query3.FieldValues[«Count(*)»];
/ / оновлюємо диаграмму.RefreshData;:=astmn+rinon+traxn+bronxn+al...
