Jhonas

basta fazer as modificações para o seu uso var numero: inteiro inicio escreva ("Digite um numero: ") leia (numero) se (numero mod 2 = 0) então escreva (numero," É par") senao escreva (numero," É impar") fimse fimalgoritomo abraço

voce vai precisar desse programa ( tem que fazer login para baixar o código fonte ) http://www.devmedia.com.br/gerenciar-administrar-fila-de-impressao/4499 abraço

aplique esses exemplos ao seu código .. crie somente o evento OnExecute no Server e veja se não dá mais o erro http://stackoverflow.com/questions/11573427/delphi-indy-clients-sends-server-request-how-to-wait-for-response http://stackoverflow.com/questions/8415551/indy-tcp-client-server-with-the-client-acting-as-a-server abraço

exemplos https://www.google.com.br/search?q=tidtcpserver+onexecute+example&ie=utf-8&oe=utf-8&gws_rd=cr&ei=wfY4VrfVJMOawQTH-Z7ADQ abraço

Coloquei este código que visualizei aqui com pesquisas .. estou com dúvida se este mesmo código e colocado no outro dataPicker.. necessariamente não... veja que o código colocado no DateTimePicker1 sempre será chamado no evento ( OnChange ) então, assim que voce selecionar uma data nele, o codigo será ( sempre ) executado .... o código deve ser colocado no DateTimePicker2, pois se o DateTimePicker1 e o DateTimePicker2 tiverem a mesma data ou tiverem datas diferentes, é nele que voce vai fazer a checagem, para então estipular qual relatorio é que voce quer chamar abraço

Com relação ao Erro: O TIdTCPServer requer um OnExecute ( manipulador de eventos a ser atribuído. ) O TIdCustomTCPServer não. A única diferença entre os dois é que TIdTCPServer executa o evento OnExecute , e exige que ele seja atribuído antes do servidor poder ser ativado. abraço

o link foi retirado da pagina da devmedia como o tópico já é antigo, voce deve postar a sua duvida abraço

Abra o Fast Report Vai no Menu Report Escolha Variables... Assim que abrir a janela, clique no botão Category (Nova Categoria) Vai ser criado um categoria nova. Renomeia como quiser. Depois você vai criar as variáveis. Clique no botão com a imagem ABC - Nova Variável. De um nome para sua variável. Feito isso, você vai reparar que nas abas Datas/Variables/Functions quando você clicar em Variables vai ter a categoria que você criou e sua variável. Arraste-a para o formulário e depois no delphi você faz a referência a ela. no delphi procedure TForm1.BitBtn1Click(Sender: TObject); begin edit1.Text := 'A data inicial é ' + datetostr(DateTimePicker1.Date) + ' e a data final é ' + datetostr(DateTimePicker2.Date); end; no FrxReport FrxReport.Variables[MinhaVariável] := QuotedStr(Edit.Text ou Variável Delphi); FrxReport.ShowReport; OBS: Dica extraida do Forum ActiveDelphi abraço

No mesmo botão, voce deve colocar o código para decrementar o numero de atributos Private Sub btn_forçamais_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_forçamais.Click força = nvatalf + 1 txt_força.Text = força nvatualf = txt_força.Text atributos = atributos - 1 txt_ndeatributos.Text = atributos End Sub -------------------------------------------------------------------------- OBS: Suas duvidas devem ser postadas no forum principal ( Visual Basic ) e não no forum de ( Tutorias & Dicas - Visual Basic ) abraço

Só que se quiser mudar tera que apagar primeiro do banco o que estava armazenando e armazenar outro em seu lugar só isto.. if((edit1.Text = 'FUNCIONÁRIO') and (edit2.Text = '123')) then a sua dificuldade é porque voce esta colocando um usuario e senha especificos dentro do programa voce pode armazenar quantos nomes voce quiser na tabela ... e cada usuario pode ter a sua senha ( em termos de segurança, nome de usuarios e senhas dentro de tabelas devem ser criptografados ) e voce pode tambem definir niveis de acesso ao programa, ou seja, voce pode definir o que cada usuario vai poder abrir no programa ( mas isso já precisa um pouco mais de experiencia na linguagem ) abraço

estava tentando seguir a sua lógica.... entretanto se quer algo que realmente funciona ... voce deve seguir essa logica 1 - criar um form de login e senha, ou seja um form onde voce vai digitar ou selecionar o nome e digitar a senha 2 - criar uma tabela onde vão constar os campos usuarios e senhas 3 - no form de login e senha, haverá um link com a tabela 4 - o form de login e senha deverá ser o primeiro a ser chamado e o ultimo a ser fechado quando encerrar o programa 5 - então ao digitar o nome ou seleciona-lo em um DBLookupComboBox ( onde vão aparecer todos os usuarios cadastrados na tabela), o DBLookupComboBox já estara apontando para o registro na tabela onde se encontra o usuario selecionado 6 - nesse ponto, depois de digitar a senha, voce faz a comparação com a senha da tabela 7 - se a senha for igual então voce libera o Form de Menu ... se for diferente, então voce dá a mensagem ao usuario que a senha é incorreta e acesso negado, e depois fecha o programa OBS: o sistema que voce esta usando é parecido com esse : ( sem banco de dados ) https://www.oficinadanet.com.br/artigo/152/criando_um_sistema_de_login_em_seu_programa para que voce entenda, vai um exemplo bem simples funcional https://www.codigofonte.net/?secao=down&Gid=1267&tipo=nada a unica diferença desse exemplo para um com banco de dados, é que no lugar das variaveis dentro do programa, voce vai colocar nas variaveis o valor do registro que esta na tabela abraço

Atenção Este sub-fórum ( Tutoriais & Dicas - PHP ) é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal ( PHP ) Regras do Forum

amigo, voce precisa aprender a identar o seu código... fica mais facil depurar o programa e encontrar os erros procedure TForm1.BitBtn1Click(Sender: TObject); var login, senha: string; I: Integer; Cod: Integer; begin if((edit1.Text = 'FUNCIONÁRIO') and (edit2.Text = '123')) then begin ShowMessage('Funcionário Bem Vindo Ao Caixa!!'); //edit1.Text:=''; //edit2.Text:=''; Form1.Visible:=false; Form4.ShowModal; end else begin for i := 1 to Form3.IBTable1.recordcount do begin if Form1.Edit1.Text = Form3.IBTable1.FieldByName('Cad_Usuario').asString then if Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString then begin ShowMessage('Administrador Bem Vindo Ao Sistema!!'); Form2.ShowModal; end else begin ShowMessage('Usuários Ou Senha Incorretos!!'); edit1.Text:=''; edit2.Text:=''; Form1.Visible:=True; Edit1.SetFocus; end; end; end; end; abraço

voce instalou o componente para o delphi 7 ? se for veja primeiramente o arquivo tplannercalendard7.hlp que é o help .... esse arquivo mostra como proceder. se for o delphi 5, o arquivo é esse : tplannercalendard5.hlp abraço

voce pode fazer isso de 2 formas: usar um laço de repetição e testar cada registro da tabela de cadastro de usuarios exemplo: var i : integer; cod : integer; for i := 1 to tabela.recordcount do begin if Form1.Edit3.Text = Form3.IBTable1.FieldByName('Cad_Codigo').AsString then if Form1.Edit1.Text = Form3.IBTable1.FieldByName('Cad_Usuario').AsString then if Form1.Edit2.Text = Form3.IBTable1.FieldByName('Cad_Senha').AsString then Form4.ShowModal; tabela.Next; end; ou usar uma query com um select especifico, tipo: select * from tabela where Cad_Codigo = "2" obs: aqui ele vai trazer apenas o registro com o código 2, depois basta testar o usuario e a senha ou usando parametros... onde voce passa os parametros para busca no registro da tabela que voce quer procurar Cod := Edit3.Text ; Usu := Edit1.Text ; Sen := Edit2.Text; select * from tabela where Tabela.Cad_Codigo = :Cod and Tabela.Cad_Usuario = :Usu and Tabela.Cad_Senha = :Sen obs: aqui ele vai trazer apenas o registro com o código, usuario e senha que sejam coincidentes abraço

mostre o código que voce esta usando ...

exemplo https://producaotecsoft.wordpress.com/2011/01/17/destruindo-corretamente-os-objetos/ abraço

era erro do link .... corrigido abraço

dê o boot pelo disco de instalação do windows ... depois tente fazer a recuperação de um backup ou de uma imagem do disco caso ainda não funcione, tente fazer uma instalação de atualização ( não vai alterar nada no seu sistema de pastas e arquivos ) ou tente através de ponto de restauração .... em ultimo caso formate o hd e instale o windows novamente abraço

Atenção Este sub-fórum ( Tutoriais & Dicas - PHP ) é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal ( PHP ) Regras do forum

Atenção Este sub-fórum ( Tutoriais & Dicas - PHP ) é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal ( PHP ) Regras do forum

Atenção Este sub-fórum ( tutoriais e dicas ) é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal ( PHP )

Aviso ... post movido Favor postar as suas duvidas no forum de PHP e não no de Tutoriais e Dicas ( o proprio nome já indica para que serve ) abraço

poste as suas duvidas no forum Visual Basic .. naquele que voce postou, é o Tutoriais e Dicas ... nesse voce coloca algum tutorial ou dica sobre o Visual Basic ..ok ? abraço

Atenção ... post movido Este sub-fórum é destinado, exclusivamente, à postagem de artigos, tutoriais e dicas. Dúvidas devem ser postadas no fórum principal