flavioavilela

opa, um porém: se eu mando dar um select, chamando todos da tabela da certo beleza... mas agora, eu ponho pro usuário escolher se ele quer chamar, por exemplo, os do sexo Masculino ou Feminino.. ele volta o mesmo resultado de todos... e eu coloco os parametros certos, esperimentei colocar no lugar do *, o codigo mas não funcionou...

isso mesmo meu lider, ficou show vlw demais

boa noite a todos... como já sabemos, quando criamos um relacionamento no bd, de uma tabela com outra, ele "amarra" a tabela para que, caso tenha alguma informação já salva não aceitar deletar, por exemplo: Table - Produtos Table - Fornecedor se tivermos o codigo do fornecedor (imaginamos que o codigo 1) no cadastro de produtos, e tentarmos deletar lá dentro do bd mesmo, a linha do forneceodr que corresponde ao codigo 1, ele vai dar uma mensagem de erro... e quando estamos trabalhando com o delphi e tentamos excluir, também dara um erro... gostaria de saber, como faço para tratar esse erro, verificar se há relacionamentos e/ou há dados que não podem ser excluidos e mostrar uma mensagem... alguém pode ajudar???

boa tarde a todos... já me disseram muitas vantagens e desvantagens sobre usar ou não usar DataModule em uma aplicação... eu sei que, usando datamodule, na abertura do sistema ou em outras operações, o sistema fica mais lento, pois, ao executar o programa, o dm já é carregado e consequentemente todas os dados também e isso é uma desvantagem em usar.... mas e ai, alguém pode corrigir o que eu falei e/ou falar mais vantagens e/ou desvantagens????

bom dia a todos... gostaria de fazer uma consulta, usando uma AdoQuery, da seguinte forma: jogar os dados no dbgrid e na mesma consulta, contar a quantidade de registros... segue abaixo uma ilustração de como pensei em fazer: with query1 do begin close; sql.clear; sql.add('select C.Nome, C.Endereco, C.Telefone, count(C.Codigo) as Qtde from Clientes C where C.Nome = :Parametro'); Parameters.ParamByName('Parametro').Value:= Edit1.text; open; end; edit2.Text:= query1Qtde.AsString; só que assim, ele sempre joga no edit2 o valor 1... e eu tenho uns 20 clientes cadastrados, e sempre joga 1... porque?

alguém tem alguma idéia de como solucionar isso?

bom dia a todos... não sei se é aqui que posto isso, mas lá vai: estava atras dessa informação a tempos, mas não sabia como fazer... ter um link dentro do seu site para fazer um download de uma versão demo do seu aplicativo ou sei lá o que... basta você gerar o instalador do seu aplicativo e depois ir ao site www.nakido.com e fazer um upload do arquivo gerado no delphi... logo, eles vao lhe fornecer um link, dai basta copiar e colocar dentro da página do seu site... :lol: ;)

bom dia a todos... olha, achei um componente (pago mas é o melhor de todos) que é ótimo para travar o sistema por um período de dta ou do jeito que você quiser... é do www.elivaldo.com.br e sem falar que tem outros milhares de componentes a sua escolha...

você experimentou colocar nessa ordem: sqlExec.SQLConnection := FoSQLConn; sqlExec.Close; e no fim colocar sqlExec.Execsql;

pode ser que a sintaxe esteja errada... você já verificou?

boa noite a todos... eu sei que não estou postando no lugar correto, mas se for postar na area de lógica, os kras demoram um ano pra responder agente... se der, me ajudem... no meu sistema de gado, eu preciso fazer o seguinte: a vaca e o touro possui um grau de sangue X com raça Y... (tanto a vaca quanto o touro pode ter até 4 graus de sangue e raças misturadas em sua composição racial)... quando eu der o parto da vaca, eu preciso fazer com que de o grau de sangue do bezerro... e se faz da seguinte forma: devo somar as frações do pai e da mae que são em comum e multiplicar por 2......... as que não são comum, devo apenas multiplicar, sem somar, obvio...até ai eu sei na boa, somar as frações e tudo mais... só que, a questão é a seguinte: como fazer para o sistema verificar quais são comum e quais não são comum? o resultado desse exemplo, seria assim: a questão é? como fazer para verificar em todos os graus de sangue do pai com a mae, quem é comum, quem não é comum... a raça que não possui, eu ignoro, obvio... alguém pode ajudar??????

você diz a respeito de usar essas lances do procedimento nextprime? ou de um todo? da uma dica ai sobre o que está falando rsrs...

boa tarde galera... fuçando na net achei uma função que nos tras o mmc de duas frações... imagino que será muito útil para todos nós aqui do forum... function TFrmMenu_Geral.MMC(x1, x2: Integer): Integer; var Resp, Prime: Integer; Flip: Boolean; begin //Inicializando as variáveis de controle Flip := false; Resp := 1; Prime := 2; while (x1 > 1) or (x2 > 1) do begin //Se x1 for divisível por Prime... if (x1 > 1) and ((x1 mod Prime) = 0) then begin x1 := x1 div Prime; Flip := true; end; //Se x2 for divisível por Prime... if (x2 > 1) and ((x2 mod Prime) = 0) then begin x2 := x2 div Prime; Flip := true; end; if Flip then begin Resp := Resp * Prime; Flip := false; end else NextPrime(Prime); end; result := Resp; end; verificar os números primos... procedure TFrmMenu_Geral.NextPrime(var P: Integer); begin if P = 2 then P := 3 else if P = 3 then P := 5 else if P = 5 then P := 7 else if P = 7 then P := 11 else if P = 11 then P := 13 else if P = 13 then P := 17 else if P = 17 then P := 19 else if P = 19 then P := 23 else if P = 23 then P := 29 else if P = 29 then P := 31 else if P = 31 then P := 37 else if P = 37 then P := 41 else if P = 41 then P := 43 else if P = 43 then P := 47 else if P = 47 then P := 49 else if P = 53 then P := 59 end; chamada da função... m := MMC(x2, y2); // <-- Chamar a função pro MMC aqui r2 := m; x1 := (m div x2) * x1; y1 := (m div y2) * y1; r1 := x1 + y1; result := IntToStr(r1) + ''/'' + IntToStr(r2);

bom dia a todos... eu nunca mexi com isso e andei pesquisando na net e achei mta coisa sobre isso que preciso, só que, eu precisava não sei se é um componente ou sei lá o que, mas preciso disponibilizar no meu site uma versão demo do programa, onde expirava depois de X dias ou X acessos... e caso o cliente queira adquirir o aplicativo, a cada 3 meses por exemplo, validar a chave de acesso... alguém sabe como posso proceder?????

boa tarde a todos... tenho um lugar no meu sistema em que a pessoa tem que informar uma fração... gostaria de saber se caso a pessoa coloque 2/4, como simplificar isso para 1/2? ou seja, como simplificar uma fração???

hummm... vou testar e volto com a resposta... nem tinha atentado pra isso...

isso mesmo.. funfou beleza... vlw pela ajuda...

bem, fiz umas mudanças no código... alterei a ordem de processamento do codigo... ficou muito sem lógica, vendo que eu já testei somente o código que esta (estava) dando problema e também não havia funcionado, e agora funcionou... mas td bem rsrs... obrigado pela paciencia em ajudar...

pra mim tanto faz um ou o outro, funcionando é o que eu queria... só que, eu configuro para aparecer o dbcheckbox no dbgrid e funciona beleza saca... ai, é só eu ir na propriedade Value... e UnValue... alterar de true e false para outro valor qualquer ai quando rodo o programa, o checkbox não da pra clicar... você clica ele fica todo branco... sacou??? o código que eu utilizo segue abaixo: procedure TFrmConciliacao_Bancaria.DBGrid1CellClick(Column: TColumn); begin if CheckBox1.Checked then CheckBox1.Caption:= '' else CheckBox1.Caption:= ''; end; procedure TFrmConciliacao_Bancaria.DBGrid1ColExit(Sender: TObject); begin if DBGrid1.SelectedField.FieldName = CheckBox1.DataField then CheckBox1.Visible:= false end; procedure TFrmConciliacao_Bancaria.DBGrid1DrawColumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var DrawState: Integer; DrawRect: TRect; begin if (gdFocused in State) then begin if (Column.Field.FieldName = CheckBox1.DataField) then begin CheckBox1.Left := Rect.Left + DBGrid1.Left + 2; CheckBox1.Top := Rect.Top + DBGrid1.top + 2; CheckBox1.Width := Rect.Right - Rect.Left; CheckBox1.Height := Rect.Bottom - Rect.Top; CheckBox1.Visible := True; end end else begin if (Column.Field.FieldName = CheckBox1.DataField) then begin DrawRect:=Rect; InflateRect(DrawRect,-1,-1); DrawState := ISChecked[Column.Field.AsBoolean]; DBGrid1.Canvas.FillRect(Rect); DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, DFC_BUTTON, DrawState); end; end; end; procedure TFrmConciliacao_Bancaria.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key = chr(9)) then exit; if (DBGrid1.SelectedField.FieldName = CheckBox1.DataField) then begin CheckBox1.SetFocus; SendMessage(CheckBox1.Handle, WM_CHAR, word(key), 0); end; end; dai eu linko blzinha o datasourse no dbcheckbox com o campo que eu quero e tudo mais ai da certo saca, dai é só eu alterar a propriedade Value... UnValue... de true e/ou false para qualquer outra que o checkbox aparece, mas não permite marcar e desmarcar...

bom, consegui resolver meu problema... ficou muito sem lógica o porque que estava dando problema, mas resolvi... poste o codigo ai que você está fazendo as vezes podemos analisar melhor...

cara, infelizmente não funcionou... não sei mais o que faço, passei o fim de semana todo fuçando nisso e não funcionou... :blink: ... até alterei o layout da janela, coloquei a coisa bem simples, tirei o dbgrid, deixei tudo apenas nos edits, e não funcionou... eu coloquei esse mesmo código no botão Excluir aqui da minha janela, e lá funciona, no salvar não funciona.... coloco showmessage() onde você imaginar, antes, durante e depois do procedimento de salvar, de editar, excluir e sempre sempre chama os dados que eu quero, ai você pensa que vai funcionar na boa, mas não funciona... já fiz várias e inumeras alterações no codigo do botão salvar e naaaaaaaaaaada.... já fiz de tudo que imaginar.... :blink: :blink: :blink:

cara, imagino que não seje no componente não, pois estou passando por um problema parecido com esse seu, e troquei tudo só faltou formatar o pc e o problema imagno que seje ou bug do delphi ou cão mesmo rsrsrs....

bom dia a todos... como eu faço para alimentar os dados de um dblookupcombobox de forma dinamica??? tipo, eu escolho uma opção X, e no dblookupcombobox aparece algumas opções, se eu escolher uma opção Y, nele apareça outras opções... obs1.: eu sei q o dblookupcombobox chama todos os registros de uma tabela e isso é mole fazer, agora eu queria saber como filtrar só algumas informações... obs2.: queria usar mesmo o combobox normal, só que nele eu consigo filtrar as informações que eu quero na boa, só que, essas informações estão no bd e o que vem para mim no combobox é o codigo e eu preciso da descrição daquele determinado item... por exemplo, eu faço uma venda, e na venda eu preciso do cliente... na tabela de venda eu salvo o codigo do cliente...... esse caso é igual, eu salvei numa tabela o codigo de um determinado cadastro, e agora no combobox vem o código, mas eu precisava da descrição e por isso estou tentando usar o dblookupcombobox, mas eu não sei como filtrar as informações com o dblookupcombobox... alguém pode ajudar ou com o dblookupcombobox ou com o combobox...???

bom dia a todos... como faço para colocar um checkbox dentro do dbgrid mas que não seja o dbcheckbox... já baixei vários exemplos usando dbcheckbox e funciona... só que eu queria algo melhor, onde a pessoa clica no item desejado e ela salve na tabela uma informação que não seje True ou False. com o dbcheckbox, usando a propriedade ValueChecked e UnvalueChecked, agente determina o valor para quando clicar e não clicar e lá no bd ele salva somente True ou False. se colocar qualquer outra coisa, não funciona, da pau... além de salvar as informações no bd já quando salva, e eu queria criar um botão pro cara salvar e ai sim, pegar os que estão marcados e colocar um valor no bd e os desmarcados colocar outro valor e não alterar ali na hora que vai clicando... alguém sabe me ajudar nisso???

isso mesmo... funfou beleza... verifiquei as permissões e funfou beleza abraço e muito obrigado novamente...