» + q1b +" ") AND Diagnos=«» + rino +«»»);;;.Cells[2,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=«» + rino +«»»);;;.Cells[2,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=«» + rino +«»»);;;.Cells[2,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=«» + rino + «» »);;;. Cells [ 2,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=«» + bronx +«»»);;;.Cells[3,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=«» + bronx +«»»);;;.Cells[3,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=«» + bronx +«»»);;;.Cells[3,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=«» + bronx + «» »);;;. Cells [ 3,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=«» + trax +«»»);;;.Cells[4,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=«» + trax +«»»);;;.Cells[4,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=«» + trax +«»»);;;.Cells[4,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...
