Ir para conteúdo
Fórum Script Brasil

Corposemalma

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1.393

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Corposemalma

  1. Arquivos De Programas

    em Microsoft Windows

    Postado

    Que windows você usa?

    Acredito eu que modificando a chave no registro:

    LOCAL_MACHINE\software\microsoft\windows\current_version

    ali tem uma chave em que o valor é "C:\arquivos de programas"

    acho que deve ser somente modificar para "d:\arquivos de programas"

    Se você quiser mover tudo mesmo tem tambem a chave de arquivos comuns, que esta dentro do arquivo de programas que deve ser mudada...

    No XP as chaves tem esses nomes: ProgramFilesDir e CommonFilesDir

    Mas lembre-se que se voce mudar as chaves, deve tambem copiar o conteudo das pastas para o D: ou senao seu windows não funcionará

  3. Meus Documentos

    em Microsoft Windows

    Postado

    Olá...

    Geralmente os meus documentos ficam em:

    C:\Meus Documentos

    Tem como movê-lo para D:\Meus Documentos sem causar danos????

    Outra coisa.....

    quando instalei o windows.... eu coloquei que o nome do computador seria "Quarto", mas quero que não tenha mais nome nenhum.... como faço?

    Obrigado desde já....

    Orlan Romano

    Botao direito encima da pasta meus documento no desktop, vai em propriedades, lá deve ter uma opcao destino, é só mudar ela...

    Quanto ao nome, o computador precisa ter algum, a não ser que voce tire a rede dele

  4. Login, Senha E Controle De Usuarios

    em Delphi, Kylix

    Postado

    eu faria o seguinte:

    Botaria:

    UM DBCombobox ligado a tabela no campo Usúario (assim apareceria o nome do usuário, e quando movesse o usuário, o ponteiro da tabela tambem se moveria.)

    Um Edit para digitar a senha.

    Um botão

    então no on ButtonClick:

    IF tabelausuarios.fieldbyname('senha').text := edit.text THEN    //se a senha for correta

    // Aqui executa o resto

    ELSE

    Showmessage('Senha Incorreta!')

    Isso tb usando dbisam (não sei se tem a propriedade fieldbyname com o Bd Express, mas deve ter algo parecido), a ideia é checar o valor do campo senha com o do edit....

  9. Opendialog Castrado

    em Delphi, Kylix

    Postado

    Notei que com o OpenDialog sou limitado a abrir no máximo 915 itens (o 916 fica pela metade)... E que esse problema tambem acontece com outros programas no windows (winamp). então acredito que seja um problema sem solução, alguém conhece alguma forma de contornar esse problema?

    Como carregar todos os arquivos de uma pasta por exemplo!? Como poderia fazer isso? smile.gif

  12. Busca Com Sql

    em Delphi, Kylix

    Postado

    faz o seguinte:

    tira o UpperCase:

    E seta nas propriedades do edit como somente Uppercase

    SELECT * FROM Clientes

    WHERE UPPER(Cliente) = :ClienteBusca

    with DM.QrConsClientes do 

      begin

      clear;    //importante pois se fizer duas pesquisas seguidas tera um erro...

      Close;

      Sql.add('SELECT * FROM Clientes WHERE UPPER(Cliente) = :ClienteBusca');

      Parambyname('ClienteBusca').AsString := Edit1.Text;

      Open;

      end;

    DBGrid1.DataSource := DM.DsQrConsClientes;

    Panel2.Visible := false;

    Voce está usando que bancos de dados? Ele tem o comando sql UPPER?

  13. Busca Com Sql

    em Delphi, Kylix

    Postado

    ops... mexi no post errado...

    SELECT * FROM Clientes

    WHERE UPPER(Cliente) = :ClienteBusca

    with DM.QrConsClientes do 

      begin

      clear;    //importante pois se fizer duas pesquisas seguidas tera um erro...

      Close;

      Sql.add('SELECT * FROM Clientes WHERE UPPER(Cliente) = :ClienteBusca');

      Parambyname('ClienteBusca').AsString := Uppercase(Edit1.Text);

      Open;

      end;

    DBGrid1.DataSource := DM.DsQrConsClientes;

    Panel2.Visible := false;

  19. Sql - Query Encima De Query

    em Delphi, Kylix

    Postado

    Pequeno banco só pra aprender um pouco...

    Query1=dados.tabsql

    Query2=dados.tabconsulta

    Tabelas=tabcd, tabartista, tabgenero

    Primeira QUERY

    ON SHOW form de Consulta

    Begin

        with dados.tabsql do

        begin

        sql.Clear;

        SQL.add('SELECT ' +

                'tabcd.título as Título, ' +

                'tabartista.nome ' + '+' + '''' + ' ' + '''' + '+' + ' tabartista.sobrenome AS Artista, ' +

                'tabcd.ano as Ano, ' +

                'tabgenero.genero AS Gênero, ' +

                'tabcd.comentário as Comentários ' +

                'FROM tabcd, tabartista, tabgenero ' +

                'WHERE tabcd.codartista = tabartista.codartista ' +

                'AND ' +

                'tabcd.codgenero = tabgenero.codgenero order by tabcd.título');

        ExecSQL;

        end;

    Como se pode notar ele junta as duas colunas NOME e SOBRENOME em uma só Chamada ARTISTA

    Então com a segunda QUERY:

    Ele checa se o edit está vazio, caso não ele usa o texto do edit como um parametro LIKE que deveria filtrar a coluna ARTISTA(antiga NOME + SOBRENOME) do QUERY1 já existente para DENTRO da QUERY2

    On button CONSULTA press

    with dados.tabconsulta do

      begin

        SQL.Clear;

        SQL.Add(' SELECT * FROM ????tabsql???? WHERE');

          if edittitulo.text <> '' then

          begin

            dados.tabconsulta.SQL.Add(' tabsql.título LIKE ' + '''' + '%' +

                                edittitulo.text +

                                '%' + '''');

    Assim eu não precisaria refazer todas as consultas...

    Talvez esteja fazendo tudo errado e pela maneira mais dificil... Se alguém tiver uma ideia melhor! Fazer o que.. isso acontece quando se quer aprender sozinho as coisas.. Modo ninja... ph34r.gif 20 pirueta pra dar um soco

  21. Sql - Query Encima De Query

    em Delphi, Kylix

    Postado

    Para inciar... biggrin.gif

    Seguinte: Preciso fazer uma pesquisa encima de uma outra... Estou usando o Dbisam com duas query diferentes:

    Da seguinte maneira:

    with query1 do

    bla bla bla

    SQL.Add('SELECT * FROM tabelateste');

    ExecSQL

    with query2 do

    bla bla bla

    SQL.Add('SELECT * FROM ???? (tabela resultado do Query1)

    O problema está em eu não poder enxergar a tabela no outro query, alguém sabe como posso fazer isso???

×
×
  • Criar Novo...