bastard2003
Membros-
Total de itens
193 -
Registro em
-
Última visita
Tudo que bastard2003 postou
-
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!
-
tenta colocar um where onde nome = nome
-
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!
-
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!
-
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;
-
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!
-
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...
-
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!
-
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!
-
joga tudo pra variaveis.. axo que é a maneira mais rapida e pratica! cria as variaveis do tipo double e joga os valores pra elas!
-
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!
-
isso num select??! select tabela1.codigo, tabela1.nome, tabela2.codigo, tabela2.nome where tabela1.codigo = tabela2.codigo era isso que você queria meu?!?!
-
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!
-
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!
-
qual o erro que ta dando?!!? posta o erro que fica mais facil de saber! valeu!
-
você poderia copiar a unit de cadastros de clientes e adicionar ela no seu novo projeto! seria isso que v gostaria de fazer??
-
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!
-
como não?!?! tu ta vinculando certo tudo meu?!? ligando ele com a tabela!?! ele TEM que funcionar se tiver tudo ligado certo!
-
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!
-
faz assim if not tabela.recordCount = 0 then tabela.delete else showmessage('não tem mais registros') testa ai!
-
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!
-
você poderia usar componentes para isso! o proprio timer do delphi pode ser util nessa hora... abraços!
-
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!
-
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!
-
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!