if (suimaskedit2.text='')or (suiedit31.Text='') then
begin
showmessage('No se admiten campos vacios');
exit;
end
else
datamodule1.Qempresas.SQL.Text:='select * from empresa where rfc ='+chr(39)+ suiMaskEdit2.Text+chr(39)+'and clave='+chr(39)+suiedit31.Text+chr(39);
datamodule1.Qempresas.Open;
if datamodule1.Qempresas.Eof=true then
begin
showmessage('El rfc o contraseña es incorrecto');
datamodule1.Qempresas.close;
suiMaskEdit2.Clear;
suiedit31.Clear;
exit;
end;
dbgrid5:='select * from agr_emplos where rfc='+chr(39)+suiMaskEdit2.text+chr(39);