LuizAraujo

Alo zezim ainda não testei pois estou ingrassando no interbase agora uso paradox7 porem tenho uma informação não precisa instalar o IB basta copiar o arquivo GDS32.dll para pasta onde está o aplicativo no cliente. e em base de dados direcione para o local do servidor. ex Serv1:D:Dados\Estoque\Estoque.GDB Se estiver usando TCP/IP deve escrever uma linha no arquivo Services nas estações geralmente fica em system32\drivers\etc a entrada gds32.dll e usar a aplicação daí. a linha é : gds_db 3050/tcp #Interbase Testa aí e retorna Um abraço Luiz

fala ai junior tem install shield no cd Delphi5 ele produz um Instalador para o seu programa o executável é o resultado da compilação que fica no dir dos seus forms, units etc.. se for esta sua duvida luizaraujo

Alo micheus coloquei um arquivo( Teste.doc )na pasta do executável (C:\LanHouse\Micro1) e coloquei na linha BtnStop.Enabled:=CreatProcess(nil, 'C:\Arquivos de programas\Microsoft Office\Office\WINWORD.EXE Teste.Doc', nil... abriu sem precisar indicar o caminho. Valeu luizaraujo

Alo pessoal estou procesando de mais um help como fazer que apareça na tela uma mensagem no pascal seria mais ou menos assin gotoxy(30,10); write('mensagem'); como faço no delphi? a mensagem livre sem form e que fique um determinado tempo e suma, mesmo que esteja em jogos. estou tentando fazer um programa para lan. a contagem do tempo eu faço não sei imprimir na tela Valeu um abraço luizaraujo

Alo Cleberson que procedimento você colocou para a pesquisa? Eu já usei o seguinte Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * From "C:\onde fica seus dados\seu .db"'); Query1.SQL.Add('As seu .db sem o .db); //sem extensão Query1.SQL.Add('Where Nome = '#39+Edit1.Text+#39''); Query1.Prepare; Query1.Open; vj se é isto que falta. Luiz

Valeu pelas informações anotei todas e sei que aproveitarei estas dicas um abraço Luiz complementando alo micheus deu certo com as dicas, e encerrei varios programas abertos ao mesmo tempo, tanto usei sua procedure juntamente com a função KillTask e tambem usando KillTask com winexec, os dois em win98. Valeu! pelas dicas Um abraço Luizaraujo

Alo pessoal Estou precisando de um help Como finalizar um programa chamado pelo comando winexec. so falta isso. Luiz

Alo juniorboll você esta fazendo uma pesquisa com while... repeat...next? ou qual? Luiz

Alo pelo que entendi você esta querendo fazer pesquisa inserida num form . você deve usar um componente query. neste forum já tem algumas respostas para query. qualquer coisa peça mais informações. um abraço Luiz

Alo acdes ai vai alguma coisa var A,B,C,D : Currency; begin A:=StrToCurr(Edit1.Text); B:=StrToCurr(Edit2.Text); C:=StrToCurr(Edit3.Text); try D:=A/(B*C); finally DBEdit1.Text:=CurrToStr(D); end; end; este simples espero que ajude Luiz

Coloque em uses Luiz

Alo Thiago Existe na criação do form opção de criar DBEdits e DBGrid ref a mesma Table senão me engano e master detail (no form wizard) quando operando ao se navegar pelo grid o edits mudam tambem, dai sai diversas opções e até macetes como deixar os edits invisiveis e labels copiando os edits, etc... Um abraço Luiz

Alo Kindellis na linha from 'c:\Engevale\material.db' as M, 'c:\Engevale\tipo.db' as T eu faria from "c:\Engevale\material.db" as M, "c:\Engevale\tipo.db" as T pode ser este pequeno detalhe de aspas. Já aconteceu comigo. Luiz

Alo parceiro Eu tentaria com estas mudanças, porem não testei é só uma idéia. begin procedure TLogin.Button1Click(Sender: TObject); var strsqllog: string; begin strsqllog:='SELECT * FROM usuario,perfil WHERE (usuario.nivel = perfil.id) and ( fantasia = '#39+valornome.Text+#39') and (senha = '#39+valorsenha.Text+#39')'; frm_principal.querylogin.close; frm_principal.querylogin.sql.clear; frm_principal.querylogin.sql.add(strsqllog); frm_principal.querylogin.prepare; frm_principal.querylogin.open; Se não ajd tentei Luiz

Alo JuniorBoll Vou fazer alterações begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * From "C:\Onde esta o DB\arquivo.DB"'); Query1.SQL.Add('As arquivo'); Query1.SQL.Add('Where (Nome='#39+Edit1.Text+#39') and (Data >= ' #39+Edit2.Text+#39') and (Data <= '#39+Edit3.Text+#39')'); Query1.Prepare; Query1.Open; end; Note que fiz alterações nas aspas dos edits e tirei o .DB em .Add('As... Abraços Luiz