MySql := 'select cod_tipo, nom_tipo '+
'from tipo_doc order by cod_tipo';
with DtmTablas do begin
with QTipoDoc do begin
if Active then Close; ---> aqui se cae si no tiene datos y no
SQL.clear; se cae si tiene por lo menos 1 reg.
SQL.Add(MySql); ----> asigno consulta a mi query
Open; y lo activo
First;
if Eof then begin
btnEditar.Enabled := False;
BtnBorrar.Enabled := False; --> Activo o desactivo botones
btnImprimir.Enabled := False; para la pantalla
btnExportar.Enabled := False;
end
else begin
btnEditar.Enabled := True;
BtnBorrar.Enabled := True;
btnImprimir.Enabled := True;
btnExportar.Enabled := True;
end;
end;
DataSource1.DataSet := QTipoDoc; --> asigno el resultado a la
end; grid para poder visualizarlo
|