PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 25 → WX - Trabalhando com imagem selecionando, atribuindo ao controle imagem e gravando no banco de dados e exibindo pela tablegrid
WX - Trabalhando com imagem selecionando, atribuindo ao controle imagem e gravando no banco de dados e exibindo pela tablegrid
Iniciado por Boller, 07,dic. 2019 14:17 - 2 respuestas
#1
Miembro registrado
4.521 mensajes
Publicado el 07,diciembre 2019 - 14:17
//BOTAO SELECIONAR FOTO E ATRIBUIÇÃO AO CONTROLE DE IMAGEM NA TELA
Procedure SelectImagem()

sFile is string = fSelect("", "", "Selecione o arquivo", "Todos (*.*)" + TAB + "*.*" + CR + "JPG" + TAB + "*.JPG" + CR + "BMP" + TAB + "*.BMP" + CR + "PNG" + TAB + "*.PNG" + CR + "SVG" + TAB + "*.SVG", "*.*")

vImagem is Variant = dLoadImage(sFile,imgDefault)

RESULT vImagem


//NO CLICK DA IMAGEM
IMG_T002_FOTO = SelectImagem()


Tablegrid Exibindo Imagem DO Banco
EVENTO - SELECT ROW TABLE

Procedure SelecionaRegistro()

//Captura a linha
nx is 8-bytes int = TableInfoXY(TABLE_T001_CLUBES,tiLineNumber,MouseXPos(),MouseYPos())

IF nx > 0 THEN

//captura o id unico da tabela
GNID = TABLE_T001_CLUBES[nx].COL_T001_CLUBE_ID

IMG_T001_LOGO_CLUBE_GRANDE = TABLE_T001_CLUBES[nx].COL_T001_LOGO

END

//retorna o id
RESULT GNID



Botão Gravar Imagem No Banco de Dados
Procedure Gravar()

ScreenToFile()

T001_CLUBES.T001_LOGO = dLoadImage(IMG_T001_LOGO,imgDefault)

IF GNID = 0 THEN
IF HAdd(T001_CLUBES) = True THEN
Toast("Gravou com sucesso!")
ELSE
Info(ErrorInfo())
END
ELSE
IF HModify(T001_CLUBES) = True THEN
Toast("Gravou com sucesso!")
ELSE
Info(ErrorInfo())
END
END

// Position on the current record
TableDisplay(TABLE_T001_CLUBES, taCurrentFirst)

MyInternalWindow..Plane = 1


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
#2
Miembro registrado
4.521 mensajes
Publicado el 22,marzo 2023 - 16:44
Procedure SelecionaRegistro()

//Captura a linha
nx is 8-bytes int =TableInfoXY(TABLE_T001_CLUBES, tiLineNumber, MouseXPos(), MouseYPos())

IF nx>0 THEN

//captura o id unico da tabela
GNID = TABLE_T001_CLUBES[nx].COL_T001_CLUBE_ID

IMG_T001_LOGO_CLUBE_GRANDE=TABLE_T001_CLUBES[nx].COL_T001_LOGO

END

//retorna o id
RESULT GNID


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensaje modificado, 22,marzo 2023 - 16:45
#3
Miembro registrado
4.521 mensajes
Publicado el 22,marzo 2023 - 16:46
Procedure SelecionaRegistroInLooper()

//Captura a linha
nx is 8-bytes int = LooperInfoXY(TABLE_T001_CLUBES, tiLineNumber, MouseXPos(), MouseYPos())

IF nx>0 THEN

//captura o id unico da tabela
GNID = TABLE_T001_CLUBES[nx].COL_T001_CLUBE_ID

IMG_T001_LOGO_CLUBE_GRANDE=TABLE_T001_CLUBES[nx].COL_T001_LOGO

END

//retorna o id
RESULT GNID


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Volver a WINDEV 25