Jump to content
Fórum Script Brasil

rebotea

Membros
  • Content Count

    79
  • Joined

  • Last visited

Community Reputation

0 Neutro

About rebotea

  1. boas como posso ligar os campos de 3 dataset em um TreeView?? Datasource1.zona Datasource2.local Datasource2.equipamento existe alguma forma de fazer? Obrigado
  2. Boas caros como poderei passar a formula abaixo em Excel para delphi . Agradecido Excel =COS((ATAN(E2/D2))) and =((TAN(ACOS(F2)))-(TAN(ACOS(G2))))*H2
  3. Boas amigos Tenho tentado fazer algo manualmente que desejava autumatizar . Assim temos a Tabelamestre em que o campo_1 ( Autonum..).. e a Tabelafilho em que o registo campo_1 e propagado ate aqui tudo bem mas quando desejo mudar a posição a que fica dificil ou seja. . . . ...............tabela mestre reg. 1 tabela filho reg 100 tabela filho reg 101 tabela filho reg 102 tabela filho reg 104 . . ...............tabela mestre reg. 2 tabela filho reg 105 tabela filho reg 106 tabela filho reg 107 tabela filho reg 108 . . . como poderei Mover o registo 107 (tabelamestra 2) para (tabelamestr
  4. Boas colegas Tenho uma duvida que penso que já foi ulprapassada por muitos de vós. Como poderei dar acesso há minha base de dados por "nome Empresa" ou seja ao cadastrar todos os registos da empresa "Xpto" so vão ter acesso a empresa "Xpto" e não a outras empresas sendo que no caso de ser ADMINISTRADOR da Base de dados deve ter acesso a tudo.. Neste momento tenho a minha Tabela Usuarios com a respectiva password mas queria passar para Multiusuarios podendo assim dar acessos condicionados com accesso condicionado ao dados de cada um. Tabela Usuarios.....Cliente.. Empresa XPTO... ..........
  5. Boas amigos como poderei chamar "LoadImage" do active X abaixo? Obrigado function TIRimage.LoadImage(ImageHandle: OLE_HANDLE; ImageType: Smallint; BigEndian: WordBool): WordBool; begin Result := DefaultInterface.LoadImage(ImageHandle, ImageType, BigEndian); end; como poderei chamar o codigo acima de um active X Botão IRimage1.LoadImage[ 'c:\IR_1093.jpg' ] ;
  6. Olá amigos como poderei retornar somente os campos '' por prencher no meu campo Data_VisitaLocal ??? SELECT * from TERMO_RelatorioFinal_sub where Data_VisitaLocal = NULL // não funciona??? where data_VisitaLocal IS NULL order by Data_VisitaLocal ; Obrigado ML
  7. bem simples: atraves de uma query1, voce seleciona o registro 985 e com uma outra query2 o registro 986 usando uma rotina de leitura na query2, voce copia, ou move, ou adiciona os registros da query2 para a query1 e salva abraço Jonas não querendo ser chato sera que voce pode dar uma mão. meus dados jão são indexados por uma TADOQUERY. como teria que ficr mey codigo? SELECT * from Vibrometria_Sub_Sub where numeracao_1=:numeracao_1 order by Tipo_equipamento asc; Obrigado a quem poder dar uma mauzinha
  8. Boas amigos mecessitar criar uma funcionalidade que deixa-se o cliente mover um registo detalhe entre os registos mestres existentes neste momento estou a efectuar manualmente com o dbedit alterando a numeração do registro populado da tabela mestre. exemplo os registos filhos estão indexados ao registo mestre Nº986 e agora desejava mover o registo filho para o registo mestre 985 como poderei efectuar isso simplesmente?
  9. amigo estou esta dando erro omde estou a errar? Tentou executar uma consulta que não inclui a expressão especificada 'numeracao_1' como parte de uma função de agregação with SubTRelFinal_sub_anom do //Laço de consulta por codigo Begin Close; SQL.Clear; SQL.Add('SELECT numeracao_1, SUM(GrauAnomalia = 1) as Ano1 from TERMO_RelatorioFinal_sub_sub'); TERMO_RelatorioFinal_sub_sub'); Open; End; minha sql no Adoquery esta assim: SELECT * from TERMO_RelatorioFinal_sub_sub where numeracao_1=:numeracao_1 order by Designação_equipamento
  10. Antes de actualizar renomeie o Dll em uso // renomear aplicação pasta local DeleteFile(localAplicação+'Dll.old'); oldName := localAplicação+'Dll.exe'; newName := ChangeFileExt(oldName, '.old'); if RenameFile(oldName, newName) Espero ter ajudado Abraço
  11. Obrigado vou tentar explicar var ano1 : integer; ano2 : integer; ano3 : integer; begin Sub_TRelFinal.First; //Por norma existem 20 registos mestre while not Sub_TRelFinal.Eof do begin SQL.Add('SELECT valoranomania from TERMO_RelatorioFinal_sub_1'); //tabela filha ano1 (COUNT(valoranomania=1)) ano2 (COUNT(valoranomania=2)) ano3 (COUNT(valoranomania=3)) label1.caption:=ano1 label2.caption:=ano2 label3.caption:=ano3 Sub_TRelFinal.next; Obrigado
  12. Boas amigos como poderei saber quantos registos da minha tabela aberta Detail contem registos =1 =2 e =3. Terei que fazer mais uma query? Neste registo so existem estas 3 possibilidade alen de ''. Obrigado
  13. Pessoal sera que ninguém tem ideia como poderei resolver meu problema sem mudar de tipo deconecção ou baase dados para poder importar XML? ADOTable1.LoadFromFile('c:\test.xml'); ae alguém poder dar uma mão . Abraço
  14. já resolvi coloquei meu dataset no DataModule e funciona correctamente.
×
×
  • Create New...