marlonCampos

Valeu Jhonas pela ajuda. O arquivo que eu me referia era esse: http://cid-c95bae59fb38cacf.skydrive.live....tica/sqlmon.exe É um arquivo simples da instalação do delphi7 que fica na pasta Install\program files\Borland\Delphi7\Bin. Consegui ele por um colega me enviou por e-mail. O meu cd delphi7 estava muito arranhado e, na instalação, não conseguia copiar esse arquivo.

Alguém sabe algun link para que eu possa baixar o sqlmon.exe 7.0.4.453? Eu estou tentando instalar o delphi 7 e dá verificação cíclica ao tentar copiar este arquivo. Se alguém puder faça uma busca pelo cd do delphi 7 e carregue o arquivo em um servidor público e post o link. Esse arquivo vai servir até para outros futuramente. Valeu pela ajuda.

ok entendi. valeu pela ajuda.

sobre as opções do select and update specification do foreing key relationships, como funciona as opções delete rules e update rules? eu estou fazendo algumas tabelas e queria saber como isso influencia as tabelas na hora de apagar ou atualizar algum registro.

Resolvi o problema usando um dbgrid. o link da nova forma: http://cid-c95bae59fb38cacf.skydrive.live....ntitled%201.bmp Mas quem tiver alguma sugestão posta aí.

Tenho em um form vários campos que estão ligados a um único datasource. O data source esta ligado ao adoquery_parcela que, por sua vez, está ligado a uma tabela do sqlexpress chamada parcela. Aí vai o link da imagem: http://cid-c95bae59fb38cacf.skydrive.live....temaBelella.bmp Cada vez que o usuario informa o valor da parcela e a data do vencimento da parcela ele clica no botão vende ao lado que grava um registro na tabela. O problema é que quando o usuario altera um campo todos os outros sofrem a mudança apesar de salvar corretamente. Quem tiver alguma sugestão eu agradeço.

Ok pessoal! Consegui resolver! Adicionei um adoconnection2 e tudo deu certo. Não sei ainda se essa é a melhor solução. A string ficou como eu pesei na primeira vez e como frega sugeriu. Valeu pela ajuda.

Olha só Frega, A primeira coisa que eu pensei foi isso que você disse. Só que quando eu faço assim o adoquery1.isempty sempre retorna true. Quando na verdade existe o fornecedor. Depois resolvi colocar esse código só que nas linhas abaixo eu coloquei um adoquery1.close e adoquery1.open o que acabava zerando todos os outros campos e como havia sido modificada a string de conexão não era mais permitido salvar algum registro. Aí o que eu tentei fazer foi o seguinte: acessar as tabelas pecas e fornecedor e comparar o valor do campo cod_fornecedor da tabela pecas com algum valor do campo cod_fornecedor da tabela fornecedor, caso o que o usuário digitasse já fosse atribuído ao campo cod_pecas da tabela pecas. Só que também não deu certo.

o que parece relativamente lógico, pois neste momento você está novamente habilitando a pintura da janela "lockada".Sinceramente, neste código, não vejo o benefício do uso da função. Voce verá inúmeros códigos deste tipo (mas sem o uso da função) funcionando perfeitamente. Abraços Resolvi fazendo o seguinte: retirei as duas funções e diminui a imagem de fundo. Valeu pela ajuda! ;)

(Como eu não fui muito claro resolvi fazer algumas modificações no primeiro post.) Esse evento roda no click de um botão ao lado do edit dbedit_cod_fornecedor que é informado pelo usuário antes de mandar gravar o registro. Eu sei que quando o usuário for salvar o registro e o fornecedor não existir o prórpio banco acusa. Só que eu queria que o usuário verificasse, antes de salvar, se o fornecedor existe para que apareça uma janela informando os dados do fornecedor. procedure Tfrm_peca.Button1Click(Sender: TObject); begin inherited; ADOQuery1.SQL.Text := 'Select fornecedor.cod_fornecedor, pecas.cod_fornecedor From fornecedor, pecas Where fornecedor.cod_fornecedor = pecas.cod_fornecedor'; ADOQuery1.Close; ADOQuery1.Open; if ADOQuery1.IsEmpty then begin Application.MessageBox('Fornecedor não encontrado!', PChar(Application.Title), MB_MB_ICONQUESTION + MB_OK); abort; end;

Estou tentando fazer uma consulta em duas tabelas: pecas e fornecedor. Na tabela fornecedor tenho o campo cod_fornecedor como chave primária. Na tabela pecas tenho o campo cod_fornecedor que é chave estrangeira. Quando eu cadastro uma peça preciso fazer uma validação para saber se realmente aquele fornecedor existe. Já tentei váriar o código, porém sem sucesso. Aqui vai um exemplo do que tentei fazer: ADOQuery1.SQL.Text := 'Select fornecedor.cod_fornecedor, pecas.cod_fornecedor From fornecedor, pecas Where fornecedor.cod_fornecedor = pecas.cod_fornecedor'; ADOQuery1.Close; ADOQuery1.Open; if ADOQuery1.IsEmpty then begin Application.MessageBox('Fornecedor não encontrado!', PChar(Application.Title), MB_MB_ICONQUESTION + MB_OK); abort; end; Agradeço pela ajuda.

O código é esse: //evento OnExecute da ação AbrirCadastroSalas: procedure Tfrm_principal.AbrirCadastroSalasExecute(Sender: TObject); begin LockWindowUpdate(Handle); //elimina o efeito na abertura da janela with frm_sala do begin If not Assigned(frm_sala) then frm_sala := Tfrm_sala.create(Application); show; end; LockWindowUpdate(0); end; Esse código é de um projeto que fizemos em sala de aula. Agora eu estou fazendo um programa para uma empresa real. Para que o programa ficasse mais apresentável resolvi colocar uma imagem com o slogan da empresa no fundo do form principal. O problema é que quando abro o form de cadastro de funcionário a imagem de fundo dá uma piscada. Fiz alguns testes com os comandos desse bloco de instruções e descobri que o LockWindowUpdate(0) é quem faz esse efeito.

Estou usando o LockWindowUpdate(0) quando exibo um form. O problema é que o programa pisca. Como faço para que não ocorra essa piscada?

Tentei usar sua sugestão só que não deu certo. Eu descobri que a propriedade LoginPrompt estava ativada. Bastava apenas deixar false. valeu pela ajuda jhonas.

Coloquei um adoconnection em meu form_principal e montei a string corretamente. Por um tempo funcionou normal só que depois qu eu criei um outro form ele passou a pedir a senha do banco de dados. O que não deveria acontecer já que está salvo o nome_usuario e senha. O pedido acontece quando executa a instrução adoconnection.open. Escolhi o provedor como sql native cliente; A fonte de dados é o computador local, a senha está salva, escolhi o banco de dados correto. Eu testo a conexão e obtenho êxito. O problema é somente quando executo o Open que é quando ele pede a senha do banco de dados.

Obrigado pelas explicações. Não pude postar antes porque estava me preparando para a prova do S2B.

:blink: Segundo Luiz Carlo 108 o enuciado diz: "Ler quatro valores numéricos inteiros e apresentar os valores que são divisiveis por 2 e 3." A minha proposta é o seguinte: algoritmo babel; Numerico a, b, c, d leia(a, b, c, d); se (a mod 2 = 0) or (a mod 3 = 0) então //mod é operador que retorna o resto do cálculo escreva(a); senao escreva(a, " não é divisível nem por 2 e 3."); fim_se se (b mod 2 = 0) or (b mod 3 = 0) então escreva(B); senao escreva(b," não é divisível nem por 2 ou 3."); fim_se ... fim_algoritmo. Daí basta copiar e colar o código para o restante das variáveis. Espero ter ajudado. :rolleyes:

Por que as vezes se declara uma variável da seguinte forma: int _variavel? O que indica esse underline antes da variável? :ninja:

como eu postei no início. bastasse um contador para resolver, mas ninguém achou que eu tava certo. tudo é óbvio.

Sou iniciante em delphi, por isso, desconsidere a resposta caso falei besteira. Pelo que pude ver os arrays são: cdFormato1 e subRec. Se assim for surge uma pergunta fundamental: Aonde é que você está incrementando o ? É preciso corre os arrays para poder armazenar os dados. Se é esse o problema, talvez bastasse colocar um i := i + 1 no final do while. Espero ter ajudado.

Vou participar do treinamento s2b da microsoft e a liguagem requerida é o c#. O problema é que eu conheço apenas o delphi. Já procurei um e-book completo sobre a linguagem e não encontrei. Se alguém souber algum link e puder postar eu agradeço. Já procurei pelo fórum, porém sem sucesso. Os assuntos que eu procuro são esses: 1. Conhecimentos Básicos de Programação em Linguagem C# 1.1. Tipos de Variáveis, Atribuição, Operadores 1.2. Lógica Booleana 1.3. Estruturas de Controle de Fluxo (if, else, break, etc) 1.4. Laços de Repetição (for, while, do while, etc) 1.5. Manipulação de Vetores 1.6. Manipulação de Strings Eu até acho alguns só que outros não.

basta usar a lógica de programação. você pode criar uma vaiável para receber um valor inicial e quando o usuário digitar a virgula essa variável é alterada e se ele digitar mais uma vez a virgula não será aceita. não posto o código se não fica muito fácil. mas a idéia de resolução do problema é essa.

Já procurei pelo fórum algumas informações sobre a instrução exec da unit DOS no pascal, porém sem suceso. Se alguém souber de alguma apostila que fale completamente sobre a unit DOS eu agradeço, pode até ser em inglês. O meu objetivo é descobrir como apagar um arquivo gerado por um jogo que criei e, o exec do DOS permite apagar o arquivo. Até achei alguma coisa por outros blogs só que não funcionou.

outra sugestão seria: * abra o notepad e digite shutdown -r -f -t 0. Salve o documento com extensão .bat, que a extenção de execução em lotes. * Inicie o delphi e, em um form, insira um botão cujo evento será a function ShellExecute(Application.Handle, nil, PChar('[caminho do arquivo]'), nil, nil, SW_SHOWNORMAL); * No uses digite a biblioteca do shellexecute que é a shellapi, senão dá erro.