| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
 Enviada: Seg Dez 09, 2013 4:37 pm Assunto: Preciso Capturar Imagem Webcam Salvar no Banco |
 |
|
Seguinte , quero uma ajuda a fazer esta parte , salvar a imagem do cadastro de usuários e salvar a foto de cada usuario cadastrado , ou seja esta foto irá aparecer no login do usuario que for acessar o sistema , então gostaria de saber se alguem ja fez algo parecido q nao seja de usuario mais q seja de outros tipos de cadastros , para que eu possa adequando ao meu codigo pra ter mais conhecimento nesta parte, pois meu campo de Foto ele ta recebendo tipo BLOB tamanho 80.
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
 |
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Seg Dez 09, 2013 4:38 pm Assunto: |
|
|
Esqueci , eu estou usando este componente VideoCap1
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
| Enviada: Seg Dez 09, 2013 7:49 pm Assunto: |
|
|
Se já consegue capturar a imagem da webcam?
Se já, se pode salvar a imagem numa pasta ou até mesmo no banco de dados, para cada registro de usuário você terá uma imagem.
Não entendi muito bem onde está sua dívida, mais poste ai que tento te ajudar ok. |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Seg Dez 09, 2013 7:59 pm Assunto: |
|
|
| marcosbaixista escreveu: | Se já consegue capturar a imagem da webcam?
Se já, se pode salvar a imagem numa pasta ou até mesmo no banco de dados, para cada registro de usuário você terá uma imagem.
Não entendi muito bem onde está sua dívida, mais poste ai que tento te ajudar ok. |
capturar eu capturo ela de boa usando este codigo
| Código: | VideoCap1.visible := true;
VideoCap1.DriverIndex := 0;
try
//ativa webcam
VideoCap1.DriverOpen := True;
VideoCap1.VideoPreview := True;
except
VideoCap1.VideoPreview := false;
VideoCap1.DriverOpen := False;
end; |
mais nao sei pegar esta foto q foi capturada e jogar para o banco,
eu fazendo isso ela captura a minha imagem ela fica em movimento , como faria para capturar esta imagem no outro botao eu congelar a imagem da foto para esta foto q eu tirar mandar para o banco
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Seg Dez 09, 2013 8:11 pm Assunto: |
|
|
Este eh meus campos da minha tabela
| Código: | CREATE TABLE USUARIO (
COD_USUARIO INTEGER NOT NULL,
NOME_USUARIO VARCHAR(35),
SENHA_USUARIO CHAR(7),
NIVEL_ACESSO VARCHAR(30),
COD_HISTORICO INTEGER,
ENDERECO_USUARIO VARCHAR(50),
NUM_USUARIO INTEGER,
CPF_USUARIO CHAR(14),
CIDADE_USUARIO VARCHAR(40),
FOTO_USUARIO BLOB SUB_TYPE 0 SEGMENT SIZE 80
); |
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Seg Dez 09, 2013 9:37 pm Assunto: |
|
|
Marcus ta ai?
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Seg Dez 09, 2013 9:54 pm Assunto: |
|
|
Ninguem ta ai pra me ajudar?
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
Netrunner
Aprendiz
Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236
|
| Enviada: Seg Dez 09, 2013 10:01 pm Assunto: |
|
|
você teria que cria uma coluna em BLOB e depois criar um TFileStream ou TMemoryStream, TBlobStream e salvar o .png ou .bmp da imagem..
https://www.google.com.br/?gws_rd=cr&ei=EGimUq7aD6jksASC-YJY#q=salvar+imagem+banco+de+dados+delphi
Você teria que salvar a imagem da webcam em um .png dentro da pasta local do programa, dps fazer o load dela para salvar no banco de dados
| Código: | var
sqltexto : string;
jpg1 : TJpegImage;
BEGIN
jpg1 := TJpegImage.Create;
jpg1.LoadFromFile('IMAGEMDAWEBCAM.png');
nome_da_tabela.FieldByName('nome_do_campo_da_imagem').Assign(jpg1);
jpg1.Free;
END: |
|
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Seg Dez 09, 2013 10:40 pm Assunto: |
|
|
TA DANDO ERRO NO MEU CARREGAMENTO DA IMAGEM NAO ESTA DANDO CERTO :S
| Código: | unit UDM;
interface
uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, DBClient, IBTable, IBQuery,IniFiles,
Forms,Dialogs, JvMemoryDataset,jpeg;
type
TDm = class(TDataModule)
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
Produtos: TIBDataSet;
Ds_Produtos: TDataSource;
Tecnicos: TIBDataSet;
Servicos: TIBDataSet;
Ds_Servicos: TDataSource;
Venda: TIBDataSet;
Ds_Tecnicos: TDataSource;
Clientes: TIBDataSet;
Ds_Clientes: TDataSource;
ClientesCOD_CLIENTE: TIntegerField;
ClientesCLI_NOME: TIBStringField;
ClientesCLI_ENDERECO: TIBStringField;
ClientesCLI_CIDADE: TIBStringField;
ClientesCLI_TEL1: TIBStringField;
ClientesCLIE_TE2: TIBStringField;
ClientesCLI_CPF: TIBStringField;
ClientesCLI_BAIRRO: TIBStringField;
TecnicosCOD_TECNICO: TIntegerField;
TecnicosTECN_NOME: TIBStringField;
TecnicosTECN_ENDERECO: TIBStringField;
TecnicosTECN_TELEFONE1: TIBStringField;
TecnicosTECN_TELFONE2: TIBStringField;
TecnicosTECN_BAIRRO: TIBStringField;
VendaCOD_VENDA: TIntegerField;
VendaCOD_CLIENTE: TIntegerField;
VendaVEND_DATA: TDateField;
VendaVEND_TOTAL: TFloatField;
VendaVEND_OBS: TIBStringField;
VendaVEND_FORM: TIBStringField;
VendaVEND_TIPO: TIBStringField;
VendaVEND_SITUACAO: TIBStringField;
VendaVEND_BANCO: TIBStringField;
VendaVEND_CONTA: TIBStringField;
VendaVEND_AGENCIA: TIBStringField;
Ds_Venda: TDataSource;
Ds_Receber: TDataSource;
ProdutosCOD_PRODUTO: TIntegerField;
ProdutosPROD_NOME: TIBStringField;
ProdutosPROD_QUANTIDADE: TIntegerField;
ProdutosPROD_PRECO_CUSTO: TIBBCDField;
ProdutosPROD_PRECO_VENDA: TIBBCDField;
ProdutosPROD_LUCRO: TIBBCDField;
Ds_Temporaria: TDataSource;
Itens: TIBTable;
ItensITENS_PRECO: TFloatField;
ItensITENS_TOTAL: TFloatField;
ItensCOD_VENDA: TIntegerField;
ItensITENS_PRODUTO: TStringField;
ItensCOD_PRODUTO: TIntegerField;
Ds_Itens: TDataSource;
Temporaria: TClientDataSet;
TemporariaCOD_PRODUTO: TIntegerField;
TemporariaITENS_PRECO: TFloatField;
TemporariaITENS_QUANTIDADE: TIntegerField;
TemporariaITENS_TOTAL: TFloatField;
TemporariaCOD_VENDA: TIntegerField;
TemporariaITENS_PRODUTO: TStringField;
ItensITENS_QUANTIDADE: TIntegerField;
Consulta_Produtos: TIBQuery;
Consulta_ProdutosCOD_PRODUTO: TIntegerField;
Consulta_ProdutosPROD_NOME: TIBStringField;
Consulta_ProdutosPROD_QUANTIDADE: TIntegerField;
Consulta_ProdutosPROD_PRECO_CUSTO: TIBBCDField;
Consulta_ProdutosPROD_PRECO_VENDA: TIBBCDField;
Consulta_ProdutosPROD_LUCRO: TIBBCDField;
Ds_Consulta_Produtos: TDataSource;
Receber: TIBDataSet;
Cupom_Venda: TIBQuery;
Cupom_VendaCLI_NOME: TIBStringField;
Cupom_VendaCLI_TEL1: TIBStringField;
Cupom_VendaCLI_CIDADE: TIBStringField;
Cupom_VendaCLI_ENDERECO: TIBStringField;
Cupom_VendaCLI_CIDADE1: TIBStringField;
Cupom_VendaTOTAL: TFloatField;
Cupom_VendaCOD_VENDA: TIntegerField;
Cupom_VendaPROD_NOME: TIBStringField;
Cupom_VendaITENS_PRECO: TFloatField;
Cupom_VendaITENS_QUANTIDADE: TIntegerField;
Cupom_VendaVEND_TOTAL: TFloatField;
Ds_Cupom_Venda: TDataSource;
Cupom_VendaCOD_PRODUTO: TIntegerField;
Boleto: TIBQuery;
Ds_Boleto: TDataSource;
Ds_Cad_Servicos: TDataSource;
Cadastro_Servicos: TIBDataSet;
Cadastro_ServicosCOD_CAD_SERVICOS: TIntegerField;
Cadastro_ServicosCAD_SERV_NOME: TIBStringField;
Cadastro_ServicosCAD_SERV_VALOR: TFloatField;
Cadastro_ServicosCOD_GRUPO: TIntegerField;
Ds_Grupo: TDataSource;
Grupo: TIBDataSet;
GrupoCOD_GRUPO: TIntegerField;
GrupoGRUP_NOME: TIBStringField;
Cadastro_ServicosGrupo: TStringField;
ServicosCOD_SERVICO: TIntegerField;
ServicosCOD_CLIENTE: TIntegerField;
ServicosCOD_TECNICOS: TIntegerField;
ServicosSERV_PROBLEMA: TIBStringField;
ServicosSERV_SOLUCAO: TIBStringField;
ServicosSERV_ENTRADA: TDateField;
ServicosSERV_SAIDA: TDateField;
ServicosSERV_TOTAL: TFloatField;
ServicosSERV_PREVISAO: TDateField;
ServicosSERV_FORM: TIBStringField;
ServicosSER_SITUACAO: TIBStringField;
ServicosTECNICO: TStringField;
Ds_Tempo_Serv: TDataSource;
Tempo_Servi: TClientDataSet;
Tempo_ServiCOD_SERVICO: TIntegerField;
Tempo_ServiITENS_SERV_PRECO: TFloatField;
Tempo_ServiITENS_SERV_QUANT: TIntegerField;
Tempo_ServiServico: TStringField;
Ds_Itens_Serv: TDataSource;
Tempo_ServiCOD_CAD_SERVICO: TIntegerField;
Receber_S: TIBDataSet;
Ds_Receber_S: TDataSource;
Receber_SCOD_RECEBER_S: TIntegerField;
Receber_SREC_S_VALOR: TFloatField;
Receber_SREC_S_SITUACAO: TIBStringField;
Receber_SREC_S_VALOR_PAGO: TFloatField;
Receber_SREC_S_VENCIMENTO: TDateField;
Receber_SREC_S_PAGAMENTO: TDateField;
Receber_SREC_S_FORMA_PAG: TIBStringField;
Receber_SREC_S_BANDEIRINHA: TIBStringField;
Receber_SCOD_SERVICO: TIntegerField;
Receber_SREC_S_N_DE_PARC: TIntegerField;
Receber_SREC_S_N_DA_PARC: TIntegerField;
Receber_SCOD_CAD_SERVICO: TIntegerField;
ReceberCOD_RECEBER: TIntegerField;
ReceberCOD_VENDA: TIntegerField;
ReceberREC_VALOR: TFloatField;
ReceberREC_SITUACAO: TIBStringField;
ReceberREC_VALOR_PAGO: TFloatField;
ReceberREC_DT_VENCIMENTO: TDateField;
ReceberREC_DT_PAGAMENTO: TDateField;
ReceberREC_FORMA_PAG: TIBStringField;
ReceberREC_BANDEIRINHA: TIBStringField;
ReceberCOD_PRODUTO: TIntegerField;
ReceberREC_N_DE_PARC: TIntegerField;
ReceberREC_N_DA_PARC: TIntegerField;
BoletoCOD_VENDA: TIntegerField;
BoletoCLI_NOME: TIBStringField;
BoletoCLI_ENDERECO: TIBStringField;
BoletoCLI_CIDADE: TIBStringField;
BoletoCLI_BAIRRO: TIBStringField;
BoletoREC_DT_VENCIMENTO: TDateField;
BoletoCOD_RECEBER: TIntegerField;
BoletoCOD_VENDA1: TIntegerField;
BoletoREC_VALOR: TFloatField;
BoletoREC_SITUACAO: TIBStringField;
BoletoREC_VALOR_PAGO: TFloatField;
BoletoREC_DT_VENCIMENTO1: TDateField;
BoletoREC_DT_PAGAMENTO: TDateField;
BoletoREC_FORMA_PAG: TIBStringField;
BoletoREC_BANDEIRINHA: TIBStringField;
BoletoCOD_PRODUTO: TIntegerField;
BoletoREC_N_DE_PARC: TIntegerField;
BoletoREC_N_DA_PARC: TIntegerField;
Itens_Serv: TIBTable;
Itens_ServCOD_SERVICO: TIntegerField;
Itens_ServITENS_SERV_PRECO: TFloatField;
Itens_ServITENS_SERV_QUANT: TIntegerField;
Itens_ServCOD_CAD_SERVICO: TIntegerField;
Itens_ServServico: TStringField;
Rel_OS: TIBQuery;
dsDs_Rel_OS: TDataSource;
Rel_OSCLI_NOME: TIBStringField;
Rel_OSCLI_CIDADE: TIBStringField;
Rel_OSCLI_ENDERECO: TIBStringField;
Rel_OSSERV_PROBLEMA: TIBStringField;
Rel_OSSERV_SOLUCAO: TIBStringField;
Rel_OSSERV_SAIDA: TDateField;
Rel_OSSERV_ENTRADA: TDateField;
Rel_OSTECN_NOME: TIBStringField;
Rel_OSTOTAL: TFloatField;
Rel_OSCOD_CAD_SERVICO: TIntegerField;
Rel_OSCOD_SERVICO: TIntegerField;
Rel_OSCAD_SERV_NOME: TIBStringField;
Rel_OSITENS_SERV_PRECO: TFloatField;
Rel_OSITENS_SERV_QUANT: TIntegerField;
Rel_OSSERV_TOTAL: TFloatField;
Rel_OSCOD_ITENS_SERV: TIntegerField;
Rel_OSSERV_STATUS: TIBStringField;
Rel_OSCLI_TEL1: TIBStringField;
ServicosSERV_STATUS: TIBStringField;
Recebe_Conta: TIBQuery;
dsDs_Recebe_Conta: TDataSource;
Consulta_Clientes: TIBQuery;
DS_Consulta_deClientes: TDataSource;
Consulta_ClientesCOD_RECEBER: TIntegerField;
Consulta_ClientesITENS_PRECO: TFloatField;
Consulta_ClientesREC_VALOR: TFloatField;
Consulta_ClientesREC_N_DE_PARC: TIntegerField;
Consulta_ClientesREC_N_DA_PARC: TIntegerField;
Consulta_ClientesITENS_QUANTIDADE: TIntegerField;
Consulta_ClientesREC_SITUACAO: TIBStringField;
Consulta_ClientesVEND_DATA: TDateField;
Consulta_ClientesCLI_NOME: TIBStringField;
Consulta_ClientesCLI_ENDERECO: TIBStringField;
Consulta_ClientesCLI_TEL1: TIBStringField;
Consulta_ClientesCLI_CIDADE: TIBStringField;
Consulta_ClientesVEND_DATA1: TDateField;
Consulta_ClientesNOME: TIBStringField;
Consulta: TIBQuery;
DS_Consulta: TDataSource;
ConsultaCLI_NOME: TIBStringField;
Recebe_ContaVEND_DATA: TDateField;
Recebe_ContaCOD_RECEBER: TIntegerField;
Recebe_ContaREC_VALOR_PAGO: TFloatField;
Recebe_ContaCLI_NOME: TIBStringField;
Recebe_ContaREC_SITUACAO: TIBStringField;
Recebe_ContaREC_VALOR: TFloatField;
Recebe_ContaREC_DT_PAGAMENTO: TDateField;
Recebe_ContaREC_DT_VENCIMENTO: TDateField;
Rel_Ge_Aprazo: TIBQuery;
Rel_Ge_AprazoCOD_RECEBER: TIntegerField;
Rel_Ge_AprazoREC_VALOR: TFloatField;
Rel_Ge_AprazoREC_SITUACAO: TIBStringField;
Rel_Ge_AprazoREC_DT_PAGAMENTO: TDateField;
Rel_Ge_AprazoREC_DT_VENCIMENTO: TDateField;
Rel_Ge_AprazoREC_BANDEIRINHA: TIBStringField;
Rel_Ge_AprazoCLI_NOME: TIBStringField;
ds_Rel_Ge_Prazo: TDataSource;
ds_Historico: TDataSource;
Historico: TIBQuery;
HistoricoCOD_RECEBER: TIntegerField;
HistoricoITENS_PRECO: TFloatField;
HistoricoREC_VALOR: TFloatField;
HistoricoREC_N_DE_PARC: TIntegerField;
HistoricoREC_N_DA_PARC: TIntegerField;
HistoricoITENS_QUANTIDADE: TIntegerField;
HistoricoREC_SITUACAO: TIBStringField;
HistoricoVEND_DATA: TDateField;
HistoricoCLI_NOME: TIBStringField;
HistoricoCLI_ENDERECO: TIBStringField;
HistoricoCLI_TEL1: TIBStringField;
HistoricoNOME: TIBStringField;
Mais_Vendido: TIBQuery;
ds_Mais_vendido: TDataSource;
Mais_VendidoTOTAL: TIntegerField;
Mais_VendidoCOD_PRODUTO: TIntegerField;
Mais_VendidoPROD_NOME: TIBStringField;
Imprimir_Tods_Historicos: TIBQuery;
ds_Imprimir_todos_H: TDataSource;
Imprimir_Tods_HistoricosCOD_RECEBER: TIntegerField;
Imprimir_Tods_HistoricosITENS_PRECO: TFloatField;
Imprimir_Tods_HistoricosREC_VALOR: TFloatField;
Imprimir_Tods_HistoricosREC_N_DE_PARC: TIntegerField;
Imprimir_Tods_HistoricosREC_N_DA_PARC: TIntegerField;
Imprimir_Tods_HistoricosITENS_QUANTIDADE: TIntegerField;
Imprimir_Tods_HistoricosREC_SITUACAO: TIBStringField;
Imprimir_Tods_HistoricosVEND_DATA: TDateField;
Imprimir_Tods_HistoricosCLI_NOME: TIBStringField;
Imprimir_Tods_HistoricosCLI_ENDERECO: TIBStringField;
Imprimir_Tods_HistoricosCLI_TEL1: TIBStringField;
Imprimir_Tods_HistoricosNOME: TIBStringField;
Mais_VendidoVEND_DATA: TDateField;
Servicos_Pendentes: TIBQuery;
Servicos_PendentesSERV_STATUS: TIBStringField;
Servicos_PendentesCLI_NOME: TIBStringField;
Servicos_PendentesCLI_TEL1: TIBStringField;
Servicos_PendentesCLI_ENDERECO: TIBStringField;
Servicos_PendentesCLI_CIDADE: TIBStringField;
Servicos_PendentesSERV_ENTRADA: TDateField;
Servicos_PendentesSERV_SAIDA: TDateField;
Servicos_PendentesSERV_TOTAL: TFloatField;
Servicos_PendentesCAD_SERV_NOME: TIBStringField;
Servicos_PendentesITENS_SERV_PRECO: TFloatField;
Ds_Servicos_Pendentes: TDataSource;
Historico_Vendas_Cli: TIBQuery;
Historico_Vendas_CliCLI_NOME: TIBStringField;
Historico_Vendas_CliVEND_TOTAL: TFloatField;
Historico_Vendas_CliVEND_DATA: TDateField;
Ds_Historico_Vendas_Cli: TDataSource;
Historico_EMABERTO: TIBQuery;
Ds_HIstorico_EmAberto: TDataSource;
Historico_EMABERTOREC_VALOR: TFloatField;
Historico_EMABERTOREC_DT_VENCIMENTO: TDateField;
Historico_EMABERTOREC_DT_PAGAMENTO: TDateField;
Historico_EMABERTOCLI_NOME: TIBStringField;
Historico_EMABERTOREC_BANDEIRINHA: TIBStringField;
Histo_itens_cli: TIBQuery;
Ds_Histo_itens_cli: TDataSource;
Histo_itens_cliPROD_NOME: TIBStringField;
Histo_itens_cliITENS_QUANTIDADE: TIntegerField;
Histo_itens_cliITENS_PRECO: TFloatField;
Histo_itens_cliVEND_TOTAL: TFloatField;
Histo_itens_cliVEND_DATA: TDateField;
Histo_itens_cliVEND_SITUACAO: TIBStringField;
Historico_EMABERTOREC_N_DA_PARC: TIntegerField;
Pagar: TIBDataSet;
Ds_Pagar: TDataSource;
PagarCOD_CONTAS_PAGAR: TIntegerField;
PagarDATA_LANCAMENTO: TDateField;
PagarNUMERO_DOCUMENTO: TIntegerField;
PagarDATA_DOCUMENTO: TDateField;
PagarCOD_FORNECEDOR: TIntegerField;
PagarTOTAL_PARCELAS: TIntegerField;
PagarVALOR_TOTAL: TFloatField;
PagarNUMERO_PARCELA: TIntegerField;
PagarVALOR_PARCELA: TFloatField;
PagarDATAVENCIMENTO: TDateField;
PagarDESCRICAO: TIBStringField;
PagarLIQUIDADO: TIBStringField;
PagarDATA_PAGAMENTO: TDateField;
PagarFORMA_PAGTO: TIBStringField;
PagarBANCO: TIBStringField;
PagarNUMERO_CHEQUE: TIBStringField;
PagarCHEQUE_TERCEIRO: TIBStringField;
PagarNOME_TITULARCHEQUE: TIBStringField;
PagarVALOR_PAGO: TFloatField;
PagarSTATUS: TIBStringField;
PagarMARCA: TIBStringField;
PagarDATA_INC: TDateField;
PagarDATA_ALT: TDateField;
PagarDATA_HAB: TDateField;
Ds_Fornecedor: TDataSource;
Fornecedor: TIBDataSet;
FornecedorCOD_FORNECEDOR: TIntegerField;
FornecedorFORN_NOME: TIBStringField;
FornecedorFORN_ENDERECO: TIBStringField;
FornecedorFORN_CIDADE: TIBStringField;
FornecedorFORN_TEL1: TIBStringField;
FornecedorFORN_TE2: TIBStringField;
FornecedorFORN_CPF: TIBStringField;
FornecedorFORN_BAIRRO: TIBStringField;
PagarFornecedor: TStringField;
Rel_Servicos: TIBQuery;
Ds_Rel_Servicos: TDataSource;
Rel_ServicosCLI_NOME: TIBStringField;
Rel_ServicosCLI_ENDERECO: TIBStringField;
Rel_ServicosCLI_CIDADE: TIBStringField;
Rel_ServicosCLI_TEL1: TIBStringField;
Rel_ServicosCLIE_TE2: TIBStringField;
Rel_ServicosITENS_SERV_PRECO: TFloatField;
Rel_ServicosITENS_SERV_QUANT: TIntegerField;
Rel_ServicosCOD_CAD_SERVICO: TIntegerField;
Rel_ServicosSERV_ENTRADA: TDateField;
Rel_ServicosSERV_SAIDA: TDateField;
Rel_ServicosSERV_STATUS: TIBStringField;
Rel_ServicosSERV_TOTAL: TFloatField;
Rel_ServicosSERV_PROBLEMA: TIBStringField;
Rel_ServicosSERV_SOLUCAO: TIBStringField;
Rel_ServicosCAD_SERV_NOME: TIBStringField;
Rel_ServicosCOD_SERVICO: TIntegerField;
Rel_ServicosCOD_ITENS_SERV: TIntegerField;
Rel_ServicosTECN_NOME: TIBStringField;
Pendencia_Servico: TIBQuery;
Pendencia_ServicoTECN_NOME: TIBStringField;
Pendencia_ServicoCLI_NOME: TIBStringField;
Pendencia_ServicoCLI_ENDERECO: TIBStringField;
Pendencia_ServicoCLI_CIDADE: TIBStringField;
Pendencia_ServicoCLI_TEL1: TIBStringField;
Pendencia_ServicoCLIE_TE2: TIBStringField;
Pendencia_ServicoCOD_ITENS_SERV: TIntegerField;
Pendencia_ServicoITENS_SERV_PRECO: TFloatField;
Pendencia_ServicoITENS_SERV_QUANT: TIntegerField;
Pendencia_ServicoCOD_CAD_SERVICO: TIntegerField;
Pendencia_ServicoSERV_ENTRADA: TDateField;
Pendencia_ServicoSERV_SAIDA: TDateField;
Pendencia_ServicoSERV_STATUS: TIBStringField;
Pendencia_ServicoSERV_TOTAL: TFloatField;
Pendencia_ServicoSERV_PROBLEMA: TIBStringField;
Pendencia_ServicoSERV_SOLUCAO: TIBStringField;
Pendencia_ServicoCOD_SERVICO: TIntegerField;
Pendencia_ServicoCAD_SERV_NOME: TIBStringField;
Ds_Pendencia_Servico: TDataSource;
Relatorio_Pendencia: TIBQuery;
Ds_Relatorio_Pendencia: TDataSource;
Relatorio_PendenciaTECN_NOME: TIBStringField;
Relatorio_PendenciaCLI_NOME: TIBStringField;
Relatorio_PendenciaCLI_ENDERECO: TIBStringField;
Relatorio_PendenciaCLI_CIDADE: TIBStringField;
Relatorio_PendenciaCLI_TEL1: TIBStringField;
Relatorio_PendenciaCLIE_TE2: TIBStringField;
Relatorio_PendenciaCOD_ITENS_SERV: TIntegerField;
Relatorio_PendenciaITENS_SERV_PRECO: TFloatField;
Relatorio_PendenciaITENS_SERV_QUANT: TIntegerField;
Relatorio_PendenciaCOD_CAD_SERVICO: TIntegerField;
Relatorio_PendenciaSERV_ENTRADA: TDateField;
Relatorio_PendenciaSERV_SAIDA: TDateField;
Relatorio_PendenciaSERV_STATUS: TIBStringField;
Relatorio_PendenciaSERV_TOTAL: TFloatField;
Relatorio_PendenciaSERV_PROBLEMA: TIBStringField;
Relatorio_PendenciaSERV_SOLUCAO: TIBStringField;
Relatorio_PendenciaCOD_SERVICO: TIntegerField;
Relatorio_PendenciaCAD_SERV_NOME: TIBStringField;
Gerar_Boleto: TIBQuery;
Gerar_BoletoREC_VALOR: TFloatField;
Gerar_BoletoREC_DT_VENCIMENTO: TDateField;
Gerar_BoletoREC_DT_PAGAMENTO: TDateField;
Gerar_BoletoCLI_NOME: TIBStringField;
Gerar_BoletoREC_BANDEIRINHA: TIBStringField;
Gerar_BoletoREC_N_DA_PARC: TIntegerField;
Gerar_BoletoREC_N_DE_PARC: TIntegerField;
Gerar_BoletoCLI_ENDERECO: TIBStringField;
Gerar_BoletoCLI_CIDADE: TIBStringField;
Gerar_BoletoCOD_RECEBER: TIntegerField;
Gerar_BoletoCOD_VENDA: TIntegerField;
Ds_Gerar_Boleto: TDataSource;
Inicia_Caixa: TIBDataSet;
Ds_Inicia_Caixa: TDataSource;
Inicia_CaixaCOD_MOVIMENTO: TIntegerField;
Inicia_CaixaABRE_CAIXA: TFloatField;
Inicia_CaixaFECHA_CAIXA: TFloatField;
Inicia_CaixaDATA_MOVIMENTO: TDateField;
Q_Inicia_Caixa: TIBQuery;
Ds_Q_Inicia_Caixa: TDataSource;
Q_Inicia_CaixaCOD_MOVIMENTO: TIntegerField;
Q_Inicia_CaixaABRE_CAIXA: TFloatField;
Q_Inicia_CaixaFECHA_CAIXA: TFloatField;
Q_Inicia_CaixaDATA_MOVIMENTO: TDateField;
Data_Vencimento: TIBQuery;
Data_VencimentoREC_DT_VENCIMENTO: TDateField;
Data_VencimentoVEND_DATA: TDateField;
Data_VencimentoCOD_RECEBER: TIntegerField;
Data_VencimentoREC_VALOR: TFloatField;
Data_VencimentoREC_VALOR1: TFloatField;
Data_VencimentoREC_VALOR_PAGO: TFloatField;
Data_VencimentoREC_DT_PAGAMENTO: TDateField;
Data_VencimentoCLI_NOME: TIBStringField;
Data_VencimentoREC_SITUACAO: TIBStringField;
ds_Data_Vencimento: TDataSource;
Usuarios: TIBDataSet;
Ds_Usuarios: TDataSource;
Query_Login: TIBQuery;
Query_LoginCOD_USUARIO: TIntegerField;
Query_LoginNOME_USUARIO: TIBStringField;
Query_LoginSENHA_USUARIO: TIBStringField;
Query_LoginNIVEL_ACESSO: TIBStringField;
Query_LoginCOD_HISTORICO: TIntegerField;
Query_LoginENDERECO_USUARIO: TIBStringField;
Query_LoginNUM_USUARIO: TIntegerField;
Query_LoginCPF_USUARIO: TIBStringField;
Query_LoginCIDADE_USUARIO: TIBStringField;
Query_LoginFOTO_USUARIO: TBlobField;
Ds_query_login: TDataSource;
UsuariosCOD_USUARIO: TIntegerField;
UsuariosNOME_USUARIO: TIBStringField;
UsuariosSENHA_USUARIO: TIBStringField;
UsuariosNIVEL_ACESSO: TIBStringField;
UsuariosCOD_HISTORICO: TIntegerField;
UsuariosENDERECO_USUARIO: TIBStringField;
UsuariosNUM_USUARIO: TIntegerField;
UsuariosCPF_USUARIO: TIBStringField;
UsuariosCIDADE_USUARIO: TIBStringField;
UsuariosFOTO_USUARIO: TBlobField;
procedure DataModuleCreate(Sender: TObject);
procedure HIstoricoAfterOpen(DataSet: TDataSet);
procedure ReceberREC_DT_PAGAMENTOValidate(Sender: TField);
procedure UsuariosAfterScroll(DataSet: TDataSet);
procedure UsuariosBeforeDelete(DataSet: TDataSet);
procedure UsuariosAfterCancel(DataSet: TDataSet);
procedure UsuariosAfterClose(DataSet: TDataSet);
private
{ Private declarations }
iniconf: TIniFile;
procedure LipaFotoCLiente;
public
{ Public declarations }
function PathFoto: string;
end;
var
Dm: TDm;
Constpath: String;
constpath_backup: string;
caminho: string;
Caminho_update: string;
implementation
uses UPrincipal, UAgenda, UUsuario_Login, UCad_Usuario;
{$R *.dfm}
procedure TDm.DataModuleCreate(Sender: TObject);
begin
Constpath := '\FOTO\CLIENTE';
iniconf := TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'conf_.ini');
DM.IBDatabase1.Connected := false;
DM.IBDatabase1.DatabaseName := iniconf.ReadString('BANCO_DADOS', 'path', ''+ExtractFilePath(Application.ExeName)+'INFO.fdb'); // conexao ibdatabase
try
DM.IBDatabase1.Connected := True;
IBTransaction1.Active := True;
Rel_Servicos.Active := true;
Data_Vencimento.Active := true;
Fornecedor.Active := True;
Pendencia_Servico.Active := true;
HIstorico.Active := true;
Historico_Vendas_Cli.Active := true;
Historico_EMABERTO.Active := true;
Query_Login.Active := true;
Usuarios.Active := true;
Mais_Vendido.Active := true;
Clientes.Active := True;
Produtos.Active := True;
Temporaria.Active := True;
Itens.Active:= True;
Tempo_Servi.Active :=True;
Itens_Serv.Active:=TRUE;
Tecnicos.Active := True;
Receber.Active :=true;
receber_s.Active := True;
Recebe_Conta.Active := TRUE;
Receber.Active := TRUE;
Consulta_Clientes.Active := TRUE;
Inicia_Caixa.Active := true;
Q_Inicia_Caixa.Active := true;
Consulta_Produtos.Active := true;
Rel_OS.Active := true;
except on e : Exception do
begin
showmessage('Erro na conexão com o Banco de Dados '+e.Message);
end;
end;
caminho := (ExtractFilePath(Application.ExeName) + '\FOTO\CLIENTE');
if not DirectoryExists(caminho) then
begin
ForceDirectories(caminho)
end;
end;
procedure TDm.HIstoricoAfterOpen(DataSet: TDataSet);
begin
TFloatField(dm.HIstorico.FieldByName('ITENS_PRECO')).DisplayFormat := 'R$ #,##0.00';
TFloatField(dm.HIstorico.FieldByName('REC_VALOR')).DisplayFormat := 'R$ #,##0.00';
end;
procedure TDm.LipaFotoCLiente;
var
pt: string;
begin
Application.CreateForm(TF_Cad_Usuario,F_Cad_Usuario);
try
if F_Cad_Usuario <> nil Then
begin
pt := PathFoto;
F_Cad_Usuario.imgmcapturada.Picture.LoadFromFile(pt);
end;
Except
end;
end;
function TDm.PathFoto: string;
begin
Result := ExtractFilePath(Application.ExeName) + Constpath;
end;
procedure TDm.ReceberREC_DT_PAGAMENTOValidate(Sender: TField);
var diasatrazo : TDateTime;
begin
end;
procedure TDm.UsuariosAfterCancel(DataSet: TDataSet);
begin
LipaFotoCLiente;
end;
procedure TDm.UsuariosAfterClose(DataSet: TDataSet);
begin
LipaFotoCLiente;
end;
procedure TDm.UsuariosAfterScroll(DataSet: TDataSet);
var
pt: string;
begin
// Verifica se o FORUMLARIO de clientes esta CARREGADO ou CONSTRUIDO NA MEMORIA
try
// FRMCLIENTE := TFRMCLIENTE.Create(Application);
if F_Cad_Usuario <> nil Then
begin
// Estando, ele verifica se a tela esta AT|IVA (em uso)
// Se chegou aqui, e porque a tela esta em uso.. entao ele vaoi automaticamente preencher a foto.. de acordo com o ponetiro do banco
pt := PathFoto;
if FileExists(pt + UsuariosCOD_USUARIO.AsString + '.jpg') Then
begin
// Foto existe
F_Cad_Usuario.imgmcapturada.Picture.LoadFromFile
(pt + UsuariosCOD_USUARIO.AsString + '.jpg');
end
else
begin
// Foto nao existe -pega a foto PADRAO
F_Cad_Usuario.imgmcapturada.Picture.LoadFromFile(pt +'semfoto.gif');
end;
end;
Except
end;
end;
procedure TDm.UsuariosBeforeDelete(DataSet: TDataSet);
begin
DeleteFile(PathFoto + UsuariosCOD_USUARIO.AsString + '.jpg');
end;
end. |
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
juniorpba
Colaborador
Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS
|
| Enviada: Ter Dez 10, 2013 9:01 am Assunto: |
|
|
Não to conseguindo:s
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota" |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
