função sql
Caros,
Estou tentando fazer uma função sql que dentro da data ex: 01/05/2013 a 31/05/2013 me de a quantidade de ocorrencias do mes separadas por código. Ex: A-01 = 3 , B-03 = 4, D-07 = 2 etc..
Eu consigo o total do mes mas nos códigos acumula o total do ano, isto é ele soma de janeiro até o mes de maio.
Será que alguém pode me ajudar? O meu código é este:
procedure Tfrm_natOcorrencias.btn_calcMesClick(Sender: TObject);
var
sql : String;
A1, A2, A3, A4, A5, A6, A7, A8, A9, TotGeralA: integer;
B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, TotGeralB: integer;
C1, C2, C3, C4, C5, C6, TotGeralC: integer;
D1, D2, D3, D4, D5, D6, D7, TotGeralD: integer;
E1, E2, E3, TotGeralE: integer;
F1, F2, TotGeralF: integer;
G1, G2, G3, TotGeralG: integer;
H1, H2, H3, H4, H5, H6, H7, TotGeralH: integer;
I1, I2, I3, I4, I5, I6, I7, I8, I9, I10, I11, TotGeralI: integer;
J1, J2, J3, J4, J5, J6, J7, TotGeralJ: integer;
K1, K2, K3, K4, K5, K6, K7, K8, TotGeralK: integer;
L1, L2, L3, L4, L5, L6, L7, L8, L9, L10, L11, L12, L13, TotGeralL: integer;
begin
if (DBDateEdit_inicio.Text = '' / / '') or (DBDateEdit_final.Text = '' / / '') then
begin
Application.MessageBox(''Esse tipo de pesquisa necessita de uma data inicial e final!'', ''Atenção'', 48);
end
else
begin
sql := ''SELECT COUNT(dtcadastro) as DTCadastro FROM boletim_ocorrencia WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.Params.Clear;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.ParamByName(''Data_Inicial'').AsDate := StrToDate(DBDateEdit_inicio.Text);
ZQ_natOcorrencias.ParamByName(''Data_Final'').AsDate := StrToDate(DBDateEdit_final.Text);
ZQ_natOcorrencias.Open;
if ZQ_natOcorrencias.RecordCount = 0 then
begin
ShowMessage(''Nenhum registro foi encontrado!'');
end
else
begin
edt_somaTotalGeralMes.Text := inttostr(ZQ_natOcorrencias.FieldByName(''DTCadastro'').AsInteger);
end;
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A1 := strtoint(edt_total_A01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A2 := strtoint(edt_total_A02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A3 := strtoint(edt_total_A03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A4 := strtoint(edt_total_A04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A5 := strtoint(edt_total_A05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A6 := strtoint(edt_total_A06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A7 := strtoint(edt_total_A07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A8 := strtoint(edt_total_A08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A9 := strtoint(edt_total_A09.Text);
TotGeralA := (A1+A2+A3+A4+A5+A6+A7+A8+A9);
edt_TotalGeral_auxilio.Text := inttostr(TotGeralA);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B1 := strtoint(edt_total_B01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B2 := strtoint(edt_total_B02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B3 := strtoint(edt_total_B03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B4 := strtoint(edt_total_B04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B5 := strtoint(edt_total_B05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B6 := strtoint(edt_total_B06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B7 := strtoint(edt_total_B07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B8 := strtoint(edt_total_B08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B9 := strtoint(edt_total_B09.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_10" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B10.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B10 := strtoint(edt_total_B10.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_11" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B11.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B11 := strtoint(edt_total_B11.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_12" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B12.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B12 := strtoint(edt_total_B12.Text);
TotGeralB := (B1+B2+B3+B4+B5+B6+B7+B8+B9+B10+B11+B12);
edt_TotalGeral_patrimonio.Text := inttostr(TotGeralB);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C1 := strtoint(edt_total_C01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C2 := strtoint(edt_total_C02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C3 := strtoint(edt_total_C03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C4 := strtoint(edt_total_C04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C5 := strtoint(edt_total_C05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C6 := strtoint(edt_total_C06.Text);
TotGeralC := (C1+C2+C3+C4+C5+C6);
edt_TotalGeral_costumes.Text := inttostr(TotGeralC);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D1 := strtoint(edt_total_D01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D2 := strtoint(edt_total_D02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D3 := strtoint(edt_total_D03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D4 := strtoint(edt_total_D04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D5 := strtoint(edt_total_D05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D6 := strtoint(edt_total_D06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D7 := strtoint(edt_total_D07.Text);
TotGeralD := (D1+D2+D3+D4+D5+D6+D7);
edt_TotalGeral_admPublica.Text := inttostr(TotGeralD);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="E_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_E01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
E1 := strtoint(edt_total_E01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="E_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_E02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
E2 := strtoint(edt_total_E02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="E_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_E03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
E3 := strtoint(edt_total_E03.Text);
TotGeralE := (E1+E2+E3);
edt_TotalGeral_drogas.Text := inttostr(TotGeralE);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="F_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_F01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
F1 := strtoint(edt_total_F01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="F_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_F02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
F2 := strtoint(edt_total_F02.Text);
TotGeralF := (F1+F2);
edt_TotalGeral_pazPublica.Text := inttostr(TotGeralF);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="G_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_G01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
G1 := strtoint(edt_total_G01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="G_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_G02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
G2 := strtoint(edt_total_G02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="G_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_G03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
G3 := strtoint(edt_total_G03.Text);
TotGeralG := (G1+G2+G3);
edt_TotalGeral_armas.Text := inttostr(TotGeralG);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H1 := strtoint(edt_total_H01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H2 := strtoint(edt_total_H02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H3 := strtoint(edt_total_H03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H4 := strtoint(edt_total_H04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H5 := strtoint(edt_total_H05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H6 := strtoint(edt_total_H06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H7 := strtoint(edt_total_H07.Text);
TotGeralH := (H1+H2+H3+H4+H5+H6+H7);
edt_TotalGeral_transito.Text := inttostr(TotGeralH);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I1 := strtoint(edt_total_I01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I2 := strtoint(edt_total_I02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I3 := strtoint(edt_total_I03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I4 := strtoint(edt_total_I04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I5 := strtoint(edt_total_I05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I6 := strtoint(edt_total_I06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I7 := strtoint(edt_total_I07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I8 := strtoint(edt_total_I08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I9 := strtoint(edt_total_I09.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_10" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I10.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I10 := strtoint(edt_total_I10.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_11" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I11.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I11 := strtoint(edt_total_I11.Text);
TotGeralI := (I1+I2+I3+I4+I5+I6+I7+I8+I9+I10+I11);
edt_TotalGeral_pessoa.Text := inttostr(TotGeralI);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J1 := strtoint(edt_total_J01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J2 := strtoint(edt_total_J02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J3 := strtoint(edt_total_J03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J4 := strtoint(edt_total_J04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J5 := strtoint(edt_total_J05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J6 := strtoint(edt_total_J06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J7 := strtoint(edt_total_J07.Text);
TotGeralJ := (J1+J2+J3+J4+J5+J6+J7);
edt_TotalGeral_apoio.Text := inttostr(TotGeralJ);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K1 := strtoint(edt_total_K01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K2 := strtoint(edt_total_K02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K3 := strtoint(edt_total_K03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K4 := strtoint(edt_total_K04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K5 := strtoint(edt_total_K05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K6 := strtoint(edt_total_K06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K7 := strtoint(edt_total_K07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K8 := strtoint(edt_total_K08.Text);
TotGeralK := (K1+K2+K3+K4+K5+K6+K7+K8);
edt_TotalGeral_defesaCivil.Text := inttostr(TotGeralK);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L1:= strtoint(edt_total_L01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L2:= strtoint(edt_total_L02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L3:= strtoint(edt_total_L03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L4:= strtoint(edt_total_L04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L5:= strtoint(edt_total_L05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L6:= strtoint(edt_total_L06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L7:= strtoint(edt_total_L07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L8:= strtoint(edt_total_L08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L9:= strtoint(edt_total_L09.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_10" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L10.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L10:= strtoint(edt_total_L10.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_11" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L11.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L11:= strtoint(edt_total_L11.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_12" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L12.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L12:= strtoint(edt_total_L12.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_13" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L13.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L13:= strtoint(edt_total_L13.Text);
TotGeralL := (L1+L2+L3+L4+L5+L6+L7+L8);
edt_TotalGeral_outrasOcorr.Text := inttostr(TotGeralL);
Estou tentando fazer uma função sql que dentro da data ex: 01/05/2013 a 31/05/2013 me de a quantidade de ocorrencias do mes separadas por código. Ex: A-01 = 3 , B-03 = 4, D-07 = 2 etc..
Eu consigo o total do mes mas nos códigos acumula o total do ano, isto é ele soma de janeiro até o mes de maio.
Será que alguém pode me ajudar? O meu código é este:
procedure Tfrm_natOcorrencias.btn_calcMesClick(Sender: TObject);
var
sql : String;
A1, A2, A3, A4, A5, A6, A7, A8, A9, TotGeralA: integer;
B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, TotGeralB: integer;
C1, C2, C3, C4, C5, C6, TotGeralC: integer;
D1, D2, D3, D4, D5, D6, D7, TotGeralD: integer;
E1, E2, E3, TotGeralE: integer;
F1, F2, TotGeralF: integer;
G1, G2, G3, TotGeralG: integer;
H1, H2, H3, H4, H5, H6, H7, TotGeralH: integer;
I1, I2, I3, I4, I5, I6, I7, I8, I9, I10, I11, TotGeralI: integer;
J1, J2, J3, J4, J5, J6, J7, TotGeralJ: integer;
K1, K2, K3, K4, K5, K6, K7, K8, TotGeralK: integer;
L1, L2, L3, L4, L5, L6, L7, L8, L9, L10, L11, L12, L13, TotGeralL: integer;
begin
if (DBDateEdit_inicio.Text = '' / / '') or (DBDateEdit_final.Text = '' / / '') then
begin
Application.MessageBox(''Esse tipo de pesquisa necessita de uma data inicial e final!'', ''Atenção'', 48);
end
else
begin
sql := ''SELECT COUNT(dtcadastro) as DTCadastro FROM boletim_ocorrencia WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.Params.Clear;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.ParamByName(''Data_Inicial'').AsDate := StrToDate(DBDateEdit_inicio.Text);
ZQ_natOcorrencias.ParamByName(''Data_Final'').AsDate := StrToDate(DBDateEdit_final.Text);
ZQ_natOcorrencias.Open;
if ZQ_natOcorrencias.RecordCount = 0 then
begin
ShowMessage(''Nenhum registro foi encontrado!'');
end
else
begin
edt_somaTotalGeralMes.Text := inttostr(ZQ_natOcorrencias.FieldByName(''DTCadastro'').AsInteger);
end;
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A1 := strtoint(edt_total_A01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A2 := strtoint(edt_total_A02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A3 := strtoint(edt_total_A03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A4 := strtoint(edt_total_A04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A5 := strtoint(edt_total_A05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A6 := strtoint(edt_total_A06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A7 := strtoint(edt_total_A07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A8 := strtoint(edt_total_A08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="A_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_A09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
A9 := strtoint(edt_total_A09.Text);
TotGeralA := (A1+A2+A3+A4+A5+A6+A7+A8+A9);
edt_TotalGeral_auxilio.Text := inttostr(TotGeralA);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B1 := strtoint(edt_total_B01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B2 := strtoint(edt_total_B02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B3 := strtoint(edt_total_B03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B4 := strtoint(edt_total_B04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B5 := strtoint(edt_total_B05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B6 := strtoint(edt_total_B06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B7 := strtoint(edt_total_B07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B8 := strtoint(edt_total_B08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B9 := strtoint(edt_total_B09.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_10" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B10.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B10 := strtoint(edt_total_B10.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_11" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B11.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B11 := strtoint(edt_total_B11.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="B_12" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_B12.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
B12 := strtoint(edt_total_B12.Text);
TotGeralB := (B1+B2+B3+B4+B5+B6+B7+B8+B9+B10+B11+B12);
edt_TotalGeral_patrimonio.Text := inttostr(TotGeralB);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C1 := strtoint(edt_total_C01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C2 := strtoint(edt_total_C02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C3 := strtoint(edt_total_C03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C4 := strtoint(edt_total_C04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C5 := strtoint(edt_total_C05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="C_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_C06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
C6 := strtoint(edt_total_C06.Text);
TotGeralC := (C1+C2+C3+C4+C5+C6);
edt_TotalGeral_costumes.Text := inttostr(TotGeralC);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D1 := strtoint(edt_total_D01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D2 := strtoint(edt_total_D02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D3 := strtoint(edt_total_D03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D4 := strtoint(edt_total_D04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D5 := strtoint(edt_total_D05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D6 := strtoint(edt_total_D06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="D_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_D07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
D7 := strtoint(edt_total_D07.Text);
TotGeralD := (D1+D2+D3+D4+D5+D6+D7);
edt_TotalGeral_admPublica.Text := inttostr(TotGeralD);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="E_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_E01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
E1 := strtoint(edt_total_E01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="E_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_E02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
E2 := strtoint(edt_total_E02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="E_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_E03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
E3 := strtoint(edt_total_E03.Text);
TotGeralE := (E1+E2+E3);
edt_TotalGeral_drogas.Text := inttostr(TotGeralE);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="F_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_F01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
F1 := strtoint(edt_total_F01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="F_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_F02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
F2 := strtoint(edt_total_F02.Text);
TotGeralF := (F1+F2);
edt_TotalGeral_pazPublica.Text := inttostr(TotGeralF);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="G_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_G01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
G1 := strtoint(edt_total_G01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="G_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_G02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
G2 := strtoint(edt_total_G02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="G_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_G03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
G3 := strtoint(edt_total_G03.Text);
TotGeralG := (G1+G2+G3);
edt_TotalGeral_armas.Text := inttostr(TotGeralG);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H1 := strtoint(edt_total_H01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H2 := strtoint(edt_total_H02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H3 := strtoint(edt_total_H03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H4 := strtoint(edt_total_H04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H5 := strtoint(edt_total_H05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H6 := strtoint(edt_total_H06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="H_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_H07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
H7 := strtoint(edt_total_H07.Text);
TotGeralH := (H1+H2+H3+H4+H5+H6+H7);
edt_TotalGeral_transito.Text := inttostr(TotGeralH);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I1 := strtoint(edt_total_I01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I2 := strtoint(edt_total_I02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I3 := strtoint(edt_total_I03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I4 := strtoint(edt_total_I04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I5 := strtoint(edt_total_I05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I6 := strtoint(edt_total_I06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I7 := strtoint(edt_total_I07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I8 := strtoint(edt_total_I08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I9 := strtoint(edt_total_I09.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_10" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I10.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I10 := strtoint(edt_total_I10.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="I_11" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_I11.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
I11 := strtoint(edt_total_I11.Text);
TotGeralI := (I1+I2+I3+I4+I5+I6+I7+I8+I9+I10+I11);
edt_TotalGeral_pessoa.Text := inttostr(TotGeralI);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J1 := strtoint(edt_total_J01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J2 := strtoint(edt_total_J02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J3 := strtoint(edt_total_J03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J4 := strtoint(edt_total_J04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J5 := strtoint(edt_total_J05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J6 := strtoint(edt_total_J06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="J_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_J07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
J7 := strtoint(edt_total_J07.Text);
TotGeralJ := (J1+J2+J3+J4+J5+J6+J7);
edt_TotalGeral_apoio.Text := inttostr(TotGeralJ);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K1 := strtoint(edt_total_K01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K2 := strtoint(edt_total_K02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K3 := strtoint(edt_total_K03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K4 := strtoint(edt_total_K04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K5 := strtoint(edt_total_K05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K6 := strtoint(edt_total_K06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K7 := strtoint(edt_total_K07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="K_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_K08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
K8 := strtoint(edt_total_K08.Text);
TotGeralK := (K1+K2+K3+K4+K5+K6+K7+K8);
edt_TotalGeral_defesaCivil.Text := inttostr(TotGeralK);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_01" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L01.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L1:= strtoint(edt_total_L01.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_02" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L02.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L2:= strtoint(edt_total_L02.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_03" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L03.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L3:= strtoint(edt_total_L03.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_04" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L04.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L4:= strtoint(edt_total_L04.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_05" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L05.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L5:= strtoint(edt_total_L05.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_06" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L06.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L6:= strtoint(edt_total_L06.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_07" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L07.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L7:= strtoint(edt_total_L07.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_08" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L08.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L8:= strtoint(edt_total_L08.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_09" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L09.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L9:= strtoint(edt_total_L09.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_10" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L10.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L10:= strtoint(edt_total_L10.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_11" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L11.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L11:= strtoint(edt_total_L11.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_12" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L12.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L12:= strtoint(edt_total_L12.Text);
sql := ''SELECT COUNT(tipo_nat) AS TipoNat FROM boletim_ocorrencia WHERE tipo_nat="L_13" AND WHERE dtcadastro between (:Data_Inicial) and (:Data_Final)'';
ZQ_natOcorrencias.Close;
ZQ_natOcorrencias.SQL.Clear;
ZQ_natOcorrencias.SQL.Add(sql);
ZQ_natOcorrencias.Open;
edt_total_L13.Text := inttostr(ZQ_natOcorrencias.FieldByName(''TipoNat'').AsInteger);
L13:= strtoint(edt_total_L13.Text);
TotGeralL := (L1+L2+L3+L4+L5+L6+L7+L8);
edt_TotalGeral_outrasOcorr.Text := inttostr(TotGeralL);
Francisco Nicolau
Curtidas 0