|
Home → 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 |
Started by BOLLER, Dec., 07 2019 2:17 PM - 2 replies |
| |
| | | |
|
| |
Registered member 3,657 messages Popularité : +175 (223 votes) |
|
Posted on December, 07 2019 - 2:17 PM |
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
IMG_T002_FOTO = SelectImagem()
Tablegrid Exibindo Imagem DO Banco EVENTO - SELECT ROW TABLE
Procedure SelecionaRegistro()
nx is 8-bytes int = TableInfoXY(TABLE_T001_CLUBES,tiLineNumber,MouseXPos(),MouseYPos())
IF nx > 0 THEN
GNID = TABLE_T001_CLUBES[nx].COL_T001_CLUBE_ID
IMG_T001_LOGO_CLUBE_GRANDE = TABLE_T001_CLUBES[nx].COL_T001_LOGO
END
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
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/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,657 messages Popularité : +175 (223 votes) |
|
Posted on March, 22 2023 - 4:44 PM |
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/Message modified, March, 22 2023 - 4:45 PM |
| |
| |
| | | |
|
| | |
| |
Registered member 3,657 messages Popularité : +175 (223 votes) |
|
Posted on March, 22 2023 - 4:46 PM |
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/ |
| |
| |
| | | |
|
| | | | |
| | |
|