procedure TEstadistica.CargarDatosCombox;
begin
CBDpto.Clear;
CBDpto.Items.Add('TODOS');
CBMunicipio.Clear;
CBMunicipio.Items.Add('TODOS');
CBAreaNacimiento.Clear;
CBAreaNacimiento.Items.Add('TODOS');
With DMDatos.IBConsultaSql do Begin
close;
Sql.Text:= 'Select DEPARTAMENTO, MUNICIPIO, AREA_NACIMIENTO '+
' From NACIMIENTOS Group By DEPARTAMENTO, MUNICIPIO, AREA_NACIMIENTO ';
Open;
If RecordCount <> 0 Then Begin
While not eof do Begin
CBDpto.Items.Add(fieldbyname('DEPARTAMENTO').AsString);
CBMunicipio.Items.Add(fieldbyname('MUNICIPIO').AsString);
CBAreaNacimiento.Items.Add(fieldbyname('AREA_NACIMIENTO').AsString);
Next;
End;
End;
End;
CBDpto.Text :='TODOS' ;
CBMunicipio.Text :='TODOS' ;
CBAreaNacimiento.Text :='TODOS' ;
end;