Ir para conteúdo
Fórum Script Brasil

bastard2003

Membros
  • Total de itens

    193
  • Registro em

  • Última visita

Tudo que bastard2003 postou

  1. salve galera, beleza?!?! a um tempo atraz eu tinha na minha maquina o PHP + MySQL + Apache rodando perfeito... ai formatei ela a um tempo atraz.. so que agora to afim de volta a trabalhar com isso.. so que não to conseguindo instala o Apache.. quando eu vo tenta instala ele para e da essa msg de erro ai: ai tentei instala o easyphp beleza... instalo direito... so que quando eu fiz o arquivo de conexão ele não conecta de maneira alguma... o meu arquivo de conexão ta assim: <?php $id = dbx_connect(DBX_MYSQL,"localhost","baladas","","") or die("Erro ao se conectar ao BD"); ?> porque o Easy não usa usuario nem senha ne?? se alguém puder me ajudar a conseguir instalar o apache ou a conseguir conecta com o banco com o Easy eu fico MUITO grato!! valeu galera! sucesso a todos!
  2. bastard2003

    Valores Repetidos

    tenta colocar um where onde nome = nome
  3. bastard2003

    Dbradiogroup

    no evento onKeyDown tu testa se a key = 13 se for você executa o que quer: if key = 13 then {teu codigo} PS: se eu não me engano o enter é a key 13!
  4. cara.... não conheço nenhum componente pra fzer isso.... mas tipo.. uma ideia seria a seguinte... digamos que este programa tem base de dados ai você cria uma tabela de parametros que tem la uma coluna que armazena a lingua que o cara quer usar... ai antes de abrir CADA FORMULARIO (no oncreate dele) você passava o texto correspondente para CADA label, hint, etc... vai da trabalho... mas axo que é a unica maneira de se fazer... eu pessoalmente não conheço outra! Abraços!
  5. tenta assim... so não testei aqui... ai não lembro se é 3 aspas no final ou 5... testa ai! qualquer coisa.. posta o erro que ta dando! procedure TForm2.Edit1Change(Sender: TObject); begin Query2.Close; Query2.SQL.Clear; Query2.SQL.Add('SELECT * from TB8MUNIC'); QUERY2.SQL.Add('where comunicipio = ' + IntToStr(combobox2.Text) + ' AND NOMUNICIPIO like ''' + Edit1.Text + '''%'''''); Query2.Open; end;
  6. cara pra renomear a coluna não me lembro.. mas da pra fazer isso aqui: alter table cliente add novacolunacerta tipocampo; update cliente set novacolunacerta = colunaerrada; alter table cliente drop colunaerrada; se eu não me engano é isso ai! qualquer coisa.. tamo ai!
  7. pra ti não te perder cria mais duas variaveis aux, aux1 do mesmo tipo, beleza? aux:= (m1+m2)/2; aux2:=(m3+m4)/2; Dbedit4.text := FloattoStr(aux*aux2); axo que era isso...
  8. Salve galera, alguém ai sabe como eu posso fazer isso!?!? tipo tenho que criar uma função pra sobrepor uma imagem a outra.. pra fazer tipo marca d'água, so que eu tava pensado em fazer assim, um image pra mim selecionar a posição do logo e ele colocaria essa imagem sobre as outras imagens de uma pasta, na mesma posição q ta no image... so que eu não to conseguindo fazer ele "colar" esse logo sobre essas imagens... alguém ai tem alguma ideia pra me ajudar??! e sobre a questão de posicionamento? tem como arrastar com o mouse a imagem dentro de um Image?! valeu galera... vo ficar no aguardo! Valeu galera!
  9. passa um floatToStr(variavelDouble) ou strtoFloat(edt.text) como diz o kiko.. posta o codigo ai q fica mais facil pra falera ver! abraços!
  10. joga tudo pra variaveis.. axo que é a maneira mais rapida e pratica! cria as variaveis do tipo double e joga os valores pra elas!
  11. véio... não entendi?!?! não da pra ti mudar no proprio banco?!?! qualquer tu qué mudar!?! adicionar colunas, mudar tamanho de campos?! essa coisas?!! posta ai q a galera te ajuda!
  12. isso num select??! select tabela1.codigo, tabela1.nome, tabela2.codigo, tabela2.nome where tabela1.codigo = tabela2.codigo era isso que você queria meu?!?!
  13. uma maneira: coloca uma qry e coloca esse sql: select nmusuario, nusenha from usuario where nmusuario = :nome and nusenha = :senha ai no teu botão de ok la... tu coloca: qry.close; qry.Parameters.ParamByName('nome').Asstring := edtNome.text; qry.Parameters.ParamByName('senha').Asstring := edtSenha.text; qry.open; if qry.recordCount > 0 then //Abre o form principal else //msg de erro! Ai ta um exemplo... tem outras maneira tb... como locate... e outras ainda.. abraços!
  14. faz o seguinte... coloca um SQl.SaveToFile('nomedoarquivo.txt'); antes de abrir a qry que ta recebendo esse codigo.... ai vai no lugar que ta teu executavel do projeto e abre esse arquivo.. ai tu ve como ele ta recebendo a data.. ai fica facil de pega o erro!
  15. bastard2003

    Sql - Like

    qual o erro que ta dando?!!? posta o erro que fica mais facil de saber! valeu!
  16. bastard2003

    Copiar Form

    você poderia copiar a unit de cadastros de clientes e adicionar ela no seu novo projeto! seria isso que v gostaria de fazer??
  17. cara... primeira coisa... qual banco tu ta usando?!?! tipo... o formato de data do bando varia MUITO qué ve... Oracle = DD/MM/AAAA (defaut), SQL Server = MM/DD/AAAA... e assim por diante... esse erro ali... é bem caracteristico de encontrar uma tipo de cado na query e o que ta vindo do select ser outro... tipo na qry tem um integer e do banco ta vindo um float... essas coisas... diz qual o banco ai que fica mais facil de saber!! abraços!
  18. como não?!?! tu ta vinculando certo tudo meu?!? ligando ele com a tabela!?! ele TEM que funcionar se tiver tudo ligado certo!
  19. tu pego o ODBC ou o OLEDB? tu tem q pegar o segundo e instala... eu usei a um tempo com Mysql e deu esse erro mesmo... e eu tinha pego o ODBC :\ testa ai! abraços!
  20. faz assim if not tabela.recordCount = 0 then tabela.delete else showmessage('não tem mais registros') testa ai!
  21. já uso udl?!? vamos la... primeiro entra no site do postgre e procura um provider pra esse banco... ai depois que tu instalar tu cria uma udl* e depois no ADOConnection tu passa o caminho pra tua udl... e passa pra false a propriedade LoginPrompt (se eu não me engano é assim que se escreve) .. qualquer coisa posta ai! * pra criar uma udl tu faz assim... cria um novo documento texto (.txt) e denomeia ele pra .udl ai vai ficar com um outro icone, da dois clic em cima e entra na udl seleciona o provider que tu instalo (provavelmente o nome vai identificar como PostSQl ou algo do genero) e clica em Avançar, depois coloca os dados da conexão e clica no botão Testar Conexão (so pra garantir! ) masca a opção "Permitir salvamento de senha" e clica em Ok.. deve funcionar! abraços!
  22. bastard2003

    Fazer Modo Trial

    você poderia usar componentes para isso! o proprio timer do delphi pode ser util nessa hora... abraços!
  23. bastard2003

    Novato

    cara, o primeiro passo tu já deu! pedir ajuda, isso é MUITO importante... bom vamos la... Delphi é MUITO massa... certamente tu vai gostar... se a pessoa tem vontade, consegue sim... é bom tu ler bastante sobre o assunto... se você instalar o programa você vai notar que vem alguns exemplos, na pasta demos... da uma olhada la... é bom começar por la... lendo bastante coisas tb... pegando exemplos na net... essas coisas.. teu amigo entende ne, pois então pede uma mão pra ele agora no começo... o começo sempre é mais complicado.. mas daqui a poco se já ta fera no bagulho... e tb forum é pra isso... ler os topicos mesmo que você não saiba responder ajuda a aprender, pois você vai ver as duvidas (que você possivelmente tb tera) e já vai ver as respostas pra esses problemas... a galera do forum ai é show de bola... tem MUITA gente que entende pra caramba... posta ai.. não tenha vergonha de perguntar porque a pergunta pode ser idiota.. não da bola pra isso.. afinal de contas... ninguém nasce sabendo ne! abraços e bem vindo!
  24. bastard2003

    Backup

    Fala meu guri.. beleza.. pelo que eu notei agora vão ser mais de um arquivo que ele vai trasnferir??! bom... tenta passar so um passando o nome do arquivo mesmo... se der sem erro... tu faz o seguinte... coloca um list no teu form com o visible false, ai tu joga pra ele todos os itens que tem na tua pasta, depois tu pega e faz um for varrendo esse list e passando pra função copy o nome a pasta + o nome do arquivo do list.. ai certamente não vai dar erro... qualquer coisa.. tamo ai!
  25. bastard2003

    Backup

    Fala Eder beleza?! bom cara.. não consegui fazer um perfeito, pois como te falei esse esquema do copyfile é MT rapido, por isso... fiz uma simulacao de transferencia... vo explica primeiro... fiz assim.. eu pego o tamanho do arquivo em byte multiplico por 1024 e passo esse valor truncado para o maxValue do gauge, depois eu pego o gauge e toco ele dentro de um for incrementando ele um for no caso de 0 ate o tamanho do arquivo-1 ai ele faz uma simulação mesmo.. ate posso pegar e dar uma olhada se tem como fazer ele ir de acordo com a tranferencia! ate já tenho uma ideia... mas terie que ter um poquinho mais de tempo... mas axo que isso aqui vai te ajudar por enquanto... segue rotina: var x, valor:integer; f: file of Byte; size: Longint; begin Gauge.Visible := True; Gauge.Progress := 0; AssignFile(f, 'c:\Sistemas\ScapBDE\Jornal.exe'); Reset(f); try size := FileSize(f); Gauge.MaxValue := size; valor := trunc(size/1024); finally CloseFile(f); end; CopyFile(Pchar('c:\Sistemas\ScapBDE\Jornal.exe'), Pchar('c:\Documents and Settings\Cristian\Desktop\Jornal.exe'), True); for x:=0 to valor-1 do begin gauge.Progress := gauge.Progress + 1000;//velocidade que ele vai carregar! gauge.Refresh; end; Gauge.Visible := False; // isso ai é o click de um botão! qualquer coisa... pergunta ai! abraços!
×
×
  • Criar Novo...