Jump to content
Fórum Script Brasil

LuizAraujo

Membros
  • Posts

    15
  • Joined

  • Last visited

About LuizAraujo

LuizAraujo's Achievements

0

Reputation

  1. 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
  2. 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
  3. 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
  4. 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
  5. 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
  6. 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
  7. Alo pessoal Estou precisando de um help Como finalizar um programa chamado pelo comando winexec. so falta isso. Luiz
  8. Alo juniorboll você esta fazendo uma pesquisa com while... repeat...next? ou qual? Luiz
  9. LuizAraujo

    Relatorio

    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
  10. 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
  11. Coloque em uses Luiz
  12. LuizAraujo

    Dbgrid

    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
  13. 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
  14. 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
  15. LuizAraujo

    Duvida Urgente

    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
×
×
  • Create New...