home *** CD-ROM | disk | FTP | other *** search
/ Draw 3 / Draw3.iso / guiaprov.dxr / 00064.ls < prev    next >
Encoding:
Text File  |  1999-06-16  |  1.3 KB  |  51 lines
  1. on mouseUp
  2.   global recordquery, sqlcad, base2, total, qry, filtro1, filtro2, filtro3, filtro4, tipos
  3.   set nombre to the name of member the member of sprite the clickOn
  4.   set longi to length(nombre)
  5.   set posicion to integer(char longi of nombre)
  6.   if (posicion = "4") and (tipos = "empresas") then
  7.     exit
  8.   end if
  9.   set query to "qry" & tipos & posicion
  10.   if qry <> VOID then
  11.     DGQDClose(qry)
  12.   else
  13.     nothing()
  14.   end if
  15.   set qry to DGQDOpen(query, base2)
  16.   DGQDSetParameterValue("par0", filtro1, qry)
  17.   DGQDSetParameterValue("par2", filtro2, qry)
  18.   DGQDSetParameterValue("par3", filtro3, qry)
  19.   DGQDSetParameterValue("par42", filtro4, qry)
  20.   set recordquery to DGQDCreateRS(qry)
  21.   DGRSMoveLast(recordquery)
  22.   DGRSMoveFirst(recordquery)
  23.   set total to DGRSGetRecordCount(recordquery)
  24.   rellenagrid()
  25.   cursor(0)
  26. end
  27.  
  28. on mouseEnter
  29.   global tipos
  30.   set nombre to the name of member the mouseMember
  31.   set longi to length(nombre)
  32.   set posicion to integer(char longi of nombre)
  33.   if (posicion = "4") and (tipos = "empresas") then
  34.     nothing()
  35.   else
  36.     cursor(280)
  37.   end if
  38. end
  39.  
  40. on mouseLeave
  41.   global tipos
  42.   set nombre to the name of member the mouseMember
  43.   set longi to length(nombre)
  44.   set posicion to integer(char longi of nombre)
  45.   if (posicion = "4") and (tipos = "empresas") then
  46.     nothing()
  47.   else
  48.     cursor(0)
  49.   end if
  50. end
  51.