PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

RAD e Crud TableForm in Plane 1 and 2 - Video Aula User Bento
Publié par Boller
dans la catégorie Outils
Nouveautés



Description
RAD e Crud TableForm in Plane 1 and 2 - Video Aula User Bento

VIDEO AULA



OPEN WINDOW
//////////////////////////

PROCEDURE MyWindow()

GNID is int
gsACAO is string
MyWindow..Plane = 1




//BOTAO INCLUIR

gsACAO = "INCLUIR"

HReset(t001_clientes)

GR_campos = ""

MyWindow..Plane = 2



//BOTAO ALTERAR

gsACAO = "ALTERAR"

IF TABLE_t001_clientes.Select()=-1 THEN
RETURN
ELSE
HReset(t001_clientes)
IF HReadSeek(t001_clientes,t001_cliente_id,GNID,hIdentical) = True THEN
FileToScreen()
MyWindow..Plane = 2
END
END



//BOTAO EXCLUIR

IF TABLE_t001_clientes.Select() = -1 OR GNID = 0
RETURN
ELSE

SWITCH Dialog("Deseja Excluir?")

CASE 1

IF GNID > 0
TABLE_t001_clientes.Delete()
TABLE_t001_clientes.Display(taCurrentFirst)
END

CASE 2

END
END


//TABLE GRID CODE

//SIMPLE CLICK SELECT

nLINHA is int = TableInfoXY(TABLE_t001_clientes,tiLineNumber,MouseXPos(),MouseYPos())
IF nLINHA > 0 THEN
GNID = TABLE_t001_clientes[nLINHA].COL_T001_cliente_id
END

//DOUBLE CLICK
nLINHA is int = TableInfoXY(TABLE_t001_clientes,tiLineNumber,MouseXPos(),MouseYPos())
IF nLINHA > 0 THEN
GNID = TABLE_t001_clientes[nLINHA].COL_T001_cliente_id
IF GNID > 0
ExecuteProcess(BTN_Alterar,trtClick)
END
END



//BOTAO GRAVAR
ScreenToFile()

IF gsACAO = "INCLUIR"
HAdd(t001_clientes)
ELSE IF gsACAO = "ALTERAR"
HModify(t001_clientes)
END

TableDisplay(TABLE_t001_clientes,taInit)

MyWindow..Plane = 1

gsACAO = ""




//BOTAO CANCELAR

HReset(t001_clientes)

GR_campos = ""

MyWindow..Plane = 1

gsACAO = ""


Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Aucun avis ou commentaire ? Soyez le premier !