schaukoski

Opa! adicionei um Opendialog!! deu certinho Obrigado!!! resolvido!!!

Churc, Obrigado pela atenção. Eu resolvi este problema com a propriedade Stretch, do meu DBIMAGE ... isto está Ok. Mas como " Nada é facinho , facinho", mais um problema surgiu. Eu adicionei um SpeedButton, ao lado, que pretendo colocar uma rotina, para o usuário, selecionar qualquer foto do seu computador , ou seja, quando pressionar o SB, abrir uma caixa de procura ( dakelas quando voce vai salvar algo etc.. ), e quando selecionado o arquivo JPEG, ou BMP, o DBIMAGE receber esta Imagem. Eu não tenho idéia de como abrir um form de procura dakeles de salvar, se voce puder me ajudar, agradeço! Obrigado, " até-mais".

Olá pessoal, eu achei o componente TWAIN, um ÓTIMO componente.. consegui fazer tudo o que eu queria! unico problema, é que no meu cadsatro as fotos estao vindo 320x120, eu gostaria de deixar ele default 160x120, mas toda vez que abro para tirar a foto ele vem tamanho gigante. issoi depende de cada webcam?! como que é?! porque na configuracao dessa webcam pelo menos, eu não consegui deixar default 120x160 Obrigado.

Olá, Muito bom dia à todos! Após muita procura na internet, sobre , como fazer para capturar uma imagem da minha webcam,do meu programa em delphi, eu acabei achando um exemplo do Jacson Soares, mas ele vem sem os componentes. Alguém tem alguma experiência com isso?.... eu não tenho a menor idéia.. criei um campo BLOB no meu BD, e coloquei um DBImage. mas, qual componente para ligar a webcam com o delphi? eu estou bem perdido em relação a isso, se alguém tiver alguma luz, eu agradeço. Obrigado !

Olá Micheus. Obrigado pela resposta, eu achei uma solução aqui, que apesar de MUITO, MUITO .. mas MUITO trabalho, deu certo.. if dm.SDSrelaciona.Locate('codficha;codrelacionado;codrelacao', vararrayof([codrelacionado, codficha, codinverso]), []) then O problema que estava dando eu não sei o que era... meu SDSrelaciona que estava em DM, eu deletei e tive que criar outro, e o problema sumiu.... adicionei um refresh no dm.sdsrelaciona também.... Obrigado pela atenção. ´ Abraços

Ola Micheus; Sim, está correto, é invertido mesmo. Não é a mesma coisa que pretendo excluir. No cadastro, tem a "ida" e a "volta". quando eu cadstro um relacionamento entre duas pessoas ( dois codficha ), eu crio na tabela de relacionamento: CODIGOFICHA / CODRELACIONADO / TIPO 001----------------002----------------------004 Relacionei o codigo 1 com o 2.., automaticamente em meu programa, eu já cadastro o "inverso" - ( a volta ) - ... CODFICHA / CODRELACIONADO / TIPO 001------------002----------------------004 <- ida. 002------------001----------------------004 <- inverso. ... Ok... eu mostro para o usuário em um grid...( grid relacionado a SDSrelaciona ), eu busco o codficha dele, e mostro todos os CODRELACIONADO à ele. acontece que quando ele deleta, ele deleta na primeira parte ou seja, ele deleta a "ida" apenas, e o inverso fica lá... e eu quero deletar o inverso. então, por isso que primeiro eu deleto o Sdsrelaciona, e depois o DM.SDSrelaciona.... . Então, eu preciso buscar no DM.SDSrelaciona, o registro que contenha os valores das variaves que eu criei, ( por isso está ao contrário ali no codigo fonte )... Depois de muitas tentativas eu consegui Encontrar o registro que eu quero atraves deste código: procedure TFormTCadCF.SBrelaccancelClick(Sender: TObject); var codficha,codrelacionado,codrelacao,codinverso:string; begin codficha:=SDSrelacionacodficha.asstring; codrelacionado:=SDSrelacionacodrelacionado.asstring; codrelacao:=SDSrelacionacodrelacao.asstring; if application.MessageBox('Deseja Excluir Relação?', 'Relacionamento', mb_yesno+mb_iconquestion)=idyes then begin sdsrelaciona.delete; if dm.SDSrelacao.Locate('codrelacao', codrelacao,[])then codinverso:=dm.SDSrelacaoinverso.AsString; if dm.SDSrelaciona.locate('codrelacionado', codficha,[])then begin if (codrelacionado) = dm.SDSrelaciona.Fieldbyname('codficha').AsString then application.MessageBox('primera', 'primera'); begin if (codinverso) = dm.sdsrelaciona.Fieldbyname('codrelacao').asstring then begin application.MessageBox('segunda', 'segunda'); // ****2 dm.sdsrelaciona.delete; /// *******1 end end end; sdsrelaciona.Refresh; end end; O problema só, e que quando eu vou deletar *****1, ele dáa o seguinte erro: .... EDatabaseError,.... ' Record not found, or changed by another user. OBS: os aplication.messagebox, é pra mim saber se ele deu verdadeiro no if, se ele encontrou. como que ele dá not found, se ele chega a aparecer o ultimo message? ***2 Se voce tiver alguma ideia para fazer isso... Obrigado , até mais.

Olá pessoal. Eu preciso que quando eu dou locate, ele posicione o ponteiro no que localizou, para eu poder dar um delete. meu codigo é esse procedure TFormTCadCF.SBrelaccancelClick(Sender: TObject); var codficha,codrelacionado,codrelacao,codinverso:string; begin codficha:=SDSrelacionacodficha.asstring; codrelacionado:=SDSrelacionacodrelacionado.asstring; codrelacao:=SDSrelacionacodrelacao.asstring; if application.MessageBox('Deseja Excluir Relação?', 'Relacionamento', mb_yesno+mb_iconquestion)=idyes then begin sdsrelaciona.delete; if dm.SDSrelacao.Locate('codrelacao', codrelacao,[])then codinverso:=dm.SDSrelacaoinverso.AsString; if (dm.sdsrelaciona.Locate('codficha', codrelacionado,[])) and (dm.sdsrelaciona.Locate('codrelacionado', codficha,[])) and (dm.sdsrelaciona.Locate('codrelacao', codinverso,[])) then dm.sdsrelaciona.Delete; dm.sdsrelaciona.delete; dá um erro ao executar, porque n tem ponteiro selecionando.... Obrigado...

Olá, bom dia . Estou me deparando com um problema, e venho até aqui para que possamos discutir. Explicando detalhadamente o que eu tenho em mãos. Eu tenho uma tabela de relacionamento (relaciona), onde encontra-se os campos: codficha(código de cadastro ); codrelacionado(codigo de cadstro do relacionado); e codrelacao(código de tipo de relação). exemplo Tabela de cadastro Código / nome / parara 001 dudu 002 joao ao cadastrar uma relacao ficaria assim: Tabela relaciona códficha / codrelacionado / codrelacao 001 002 3 002 001 3 automaticamente eu já cadastro nos dois lados... no grid eu mostro ao usuarios, filtrando o codficha dele, e mostrando todos os relacionados( todos os codigos que estao no campo codrelacionado: Ai vem o problema... se eu deletar ele vai deleta apenas um dos da ida e volta.. ou seja eu vou deletar so o 001 com o 002 , mas o 002 com o 001 vai existir.. eu preciso criar no botao de deletarm um select sei lá.. que delete também o 002 com o 001, SE codrelacao for igual, porqueuma pessoa pode ter varias relacoes com outra exemplo: PAI, RESPONSAVEL, RESPONSAVEL FINANC. eu preciso selecionar da TABELA RELACIONA, TODOS os registros que contenham valor "x"(pode ser de uma variavel) no campo codficha, e todos os que contenham valor "y" no campo codrelacionado, e que contenham valor "z" em codrelacao. é que eu não tenho nocao nenhuma de sql... meu banco de dados e mysql 5, como eu poderia fazer isso? Obrigado espero que me entendam... obrigado.

Já consegui, era só dar um Uptade no data set. eu estava informando o caminho errado do data set... obrigado

seguinte tenho meu DBEDIT, para cadastrar telefone aonde eu queria colocar um "-" entre os 4 digitos tipo ao invés de 33224488 3322-4488 e esse "traço", esteja trancado nmo dbedit pro usuario não esquecer de colocar!! obrigado

ola tudo bem. meu problema é esse não estou trabalhando com janelas mas siom com PANEL pra quando eu preciso de um cadastro tal, eu tenho que fikar dando enabled := False; em todo o programa pro usuario não acessar nada, tem como eu fazer o mouse fica preso nakele panel? ele so pode mexe no resto se ele sair dakele panel entende.. valeuuu!!!

Ola a todos seguinte galera, eu quero pegar do campo Código, que está em autonumeraçaõ,, quero pegar u ultimo codigo, joga ele pra uma variavel tipo numerica pra eu acrescentar +1, e mostrar em um label... tipo: voce esta cadastrando o codigo 11101 nome:: Endereço: tal tal tal... vlwww

Qual o comando pra dar um refresh? tem como dar um referesh direto nu meu ADOTABLE? pro table intero dar refresh

Olá, Boa tarde. estou com um problema .. Como que eu faço para jogar o valor digitado no EDIT, para o banco de dados? exemplo quando u cara aperta o botao "cadastrar", criar um novo registtro no BD, e jogar cada valor dos edit nos respectivos campos? e, como excluir um também? exemplo, tenho meu DBGRID aberto com meu BD, e quando cara clickar no meu botao excluir, excluir o registro selecionado do dbgdrig?... valeu galera!!! agradeço!!!!

GALERAAAAAAAAAAAAAA já CONSEGUUIIII VALEU PELO APOIO T+++++++++++++

eu tentei o seguinte procedure TFormPrincipal.LabeledEdit1Change(Sender: TObject); begin Tabela.Locate(Tabela.Fields[1].FieldbyName, labelededit1.text, [lopartialkey, locaseinsensitive]); end; mas não da certo ele dá um erro no FieldBYname [Error] Unit3.pas(80): Undeclared identifier: 'FieldbyName' isso eu peguei num livro que ele fala tambem pra fazer um negocio nu public private FTabela: TCustomADODataset; procedure SetTabela(const Value: TCustomADODataset); { Private declarations } public property Tabela: TCustomADODataset read FTabela write SetTabela; { Public declarations } end; procedure TFormPrincipal.SetTabela(const Value: TCustomADODataset); begin FTabela := Value; end; tudo isso que fiz, eu fiz sem utilizar nenhum QUERY está faltando ele.. sei la? tipo unica coisa que eu to usando ai é o table e o datasource que liga no grid .. o meu grid mostra meu banco de dados... mas o problema e a procura =! to parado com meu programa ajuda eu please! não intendi o que o livro ensina a fazer.. e se tem algo errado alguém pode me ajudar?!?! =)))!!!!! brigadaooo

então... eu não uso SQl, to usando ADO com access.... e aquele Tabela, seria meu Grid? não intendi muito bem ;... eu tenho meu Grid conectado com o meu banco de dados. nada mais alem disso.. tem como você explicar mais detalhadamente?! vlw !!!

Ola ! Estou com dúvidas. Como faço para meu Edit, onchange, Fazer uma busca no meu banco de dados, e mostrar na tabela, por ordem? esse é meu programa.. eu quero que quando o cara digitar a letra M pro exemplo, se estiver checked no Nome, que mostre todos os nomes com M em ordem.... ai se ele digitar MA.. aaparecer todos os nomes que comecarem com MA... uma busca entende? obrigado!!

mas se eu colocar isto ele da um erro [Error] Unit1.pas(74): ';' not allowed before 'ELSE' da um erro no proximo else =/ AHH já CONSEGUI"""" adicionei mais um END ali, e deu certo!! valeeeuuuuuu =)))))

Ah sim Obrigado procedure TForm1.Button1Click(Sender: TObject); begin usuariologado := Combobox1.text; if (dmData.atlogins.Locate('Senha', maskedit1.text, [loCaseInsensitive])) then begin if (combobox1.text) = dmData.atlogins.FieldByname('Nível').asstring then begin if combobox1.text = 'ADMINISTRADOR' then begin Form1.Hide; FormADM.SHowmodal; Close; end; if combobox1.text = 'RECEPCIONISTA' then begin Form1.Hide; FormREC.SHowmodal; Close; end; if combobox1.text = 'ENTREGADOR' then begin Form1.Hide; FormENT.SHowmodal; Close; end else begin label3.caption := ' * Nível de acesso incompatível com usuário *'; combobox1.Text := ''; combobox1.SetFocus; end end else begin label3.Caption := ' * SENHA INCORRETA * '; maskedit1.Text := ''; maskedit1.setfocus; end end; end; end. Thales. tenho uma pergunta Não está funcionando os ELSE do final se eu coloko um conteudo falso no primeiro if, ele deveria mostrar SENHA INCORRETA, mas na acontece nada... ele não esta executando..? porque eu testei esse mesmo else ele funcionava, e agora não está mais =/ o que tem de errado? quando eu executo inclusive, fica akelas bolinhas azuis do lado, dos comandos, dizendo que esta executando mas não tá não... tem algo errado?

thales valeuzao mano ..... era bem isso =) mas .. não consegui por em caixa de codigo .. como faço? pra postar no forum em caixa de codigo

Olá Meu Programa está apresentando os seguintes erros, antes de compilar. **** ERROS >[Error] Unit1.pas(64): Declaration expected but 'IF' found [Error] Unit1.pas(69): '(' expected but ';' found [Error] Unit1.pas(71): '.' expected but 'END' found não consegui por os espacos, esse forum junta os espacos fiko meio confuso de ver =/

Olá Tudo Bem? Pois então. No meu programa tenho a tela de accesso login com o botao la ai quando o botaoclick ele abre o otro form e tal.. como que eu faco pra ONKEYPRESS (ENTER), acionar o mesmo botao?, ou fazer as mesmas açoes do botao? para isso no caso eu so precisaria saber o que colokar no procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char) Qual Char do ENTER? THANK YOU!!!!!

Obrigadao ! opa vlw, mas ,.,, você sabe como faz pra eu colokar akela bolinha? o asterisco consegui, mas a bolinha ano sei como faz pra adicionar hehehe vlw

Olá ! Adicionei um Maskedit, para o usuario colocar a senha. mas não vi diferenca entre ele e o Edit.. como faz pra eu colokar ""***"" ou akelas ""bolinhas"" ? não axei as propriedades dele.. se tiver outra forma também. obrigado