Victor_DF
-
Total de itens
54 -
Registro em
-
Última visita
Posts postados por Victor_DF
-
-
Olá pessoal.
O problema é o seguinte, eu tenho que fazer o meu site diferenciar quando o usuário é internacional ou não, eu tinha pensado em descobrir a linguagem do browser que ele está usando para assim direciona-lo para uma versão em ingles da página.
Tem uma maneira melhor de fazer isso, como eu faço?
Se não, como eu pego a linguagem do browser?
Obrigado
-
Olá Jonas...
Ficou muito legal. mas quando eu baixo a barra de rolagem, tudo é desconfigurado de novo, parece que quando eu mudo o tamanho das primeiras linhas do DBGrid quando eu abaixo a barra de rolagem as linhas que aparecem ficam com a altura das linhas que estavam aparecendo ai fica tudo desconfigurado, não teria como quando eu abaixar a barra de rolagem fazer uma reconfiguração das linhas? Isso aconteceu quando você testou esse código?
Obrigado
-
Tenta fazer assim,
você deve ter um banco de dados com essas informações, ai é só pegar somente as informações que não são nulas ou igual a 0, dependendo de como você determinou. Assim você só vai ter as informações comuns e as incomuns. Depois entra o cálculo que você já sabe.
Abraços.
-
Ola Jonas, desculpe a demora, tive uns problemas. Eu ainda estou precisando fazer o aumento da linha no evento DrawColumnCell mas não sei como, nem sei se é possível. Sobre o componente, eu beixei ele e instalei mas ele veio com vários erros internos, e para evitar maiors dores de cabeça eu prefiro tentar usar o DBGrid nativo do delphi, que é o usado no sistema da minha empresa.
Tem como fazer o que eu quero?
Obrigado e mais uma vez me desculpo pela demora.
-
Consegui fazer a quebra da linha, mas agora eu quero uma maneira de quando a linha for quebrada, ter o aumento da altura da linha, no exemplo ele faz um aumento do padrão das linhas do DBGrid, tem como fazer o que eu quero?
Abraço
-
Olá pessoal...
Eu estou querendo saber se é possível fazer um DBGrid quebrar a linha quando o tamanho da linha for maior que o previsto? Por exemplo, eu tenho uma linha de 160 caractéres, mas eu quero que apareça no máximo 80 ai o DBGrid quebra a linha e mostra 2 linhas de 80.
Obrigado.
Victor
-
Olá pessoal...
O problema é, que quando eu faço o restore de um arquivo *.gbk ou *.fbk, aparece como concluido, mas o banco o banco criado está vazio. Eu tenho certeza que o banco não está vazio, mas ele não restaura nada.
Como faz um restore no IBExpert? Vocês não teriam um tutorial sobre IBExpert?
Obrigado
-
Oi pessoal...
O problema é o seguinte, eu estou querendo gerar um relatório usando o QuickReport trazendo dados de uma pesquisa que involve 3 tabelas do Access, mas não sei como fazer a pesquisa usando as 3, como eu faço essa pesquisa? Por favor me ajudem
Obrigado
-
Posta o código que você ta usando pra facilitar
-
Opa Resolvi o problema, o código ficou assim:
import java.io.*; import java.util.regex.*; import java.util.Scanner; public class Ler{ public static void main(String args[]){ try{ Scanner sc = new Scanner(System.in); System.out.print("Digite o diretorio do arquivo receptor: "); String dir1 = sc.nextLine(); System.out.print("Digite o diretorio do arquivo a ser lido: "); String dir2 = sc.nextLine(); int valor = 0; File arquivo = new File(dir1); File arquivo2 = new File(dir2); FileInputStream in = new FileInputStream(arquivo2); FileOutputStream fos = new FileOutputStream(arquivo); Scanner read = new Scanner(in); boolean ok = arquivo.createNewFile(); if (! ok){ while (read.hasNext()){ String readline = read.nextLine(); String parte = "for"; if (parte == null){ fos.write(System.getProperty("line.separator").getBytes()); } else{ if (readline.matches(".*" + parte + ".*")){ valor = 0; fos.write("int i;".getBytes()); fos.write(System.getProperty("line.separator").getBytes()); String t = "while"; fos.write(t.getBytes()); String parte1 = readline.substring(readline.indexOf(";")+1); String parte2 = parte1.substring(0,parte1.indexOf(";")); String text = "("+parte2+"){"; fos.write(text.getBytes()); } else{ if ((readline.matches(".*"+"}"+".*")) && (valor == 0)){ fos.write("i++;".getBytes()); valor++; fos.write(System.getProperty("line.separator").getBytes()); } fos.write(readline.getBytes()); fos.write(System.getProperty("line.separator").getBytes()); } } } } else{ System.out.print("não foi possivel criar o arquivo"); } } catch(IOException e){ // nada } } }Obrigado pela atenção
-
Oi pessoal...
O meu problema é, eu estou querendo criar um programa que leia outros programas em java, gravados em texto, e substitua o "for" por "while", fazendo as modificações necessárias automaticamente.
A lógica eu já sei, o meu problema é em fazer a comparação para achar o "for" e substitui-lo.
O código que eu fiz é esse:
import java.io.*; import java.util.Scanner; public class Ler{ public static void main(String args[]){ try{ Scanner sc = new Scanner(System.in); System.out.print("Digite o diretorio do arquivo receptor: "); String dir1 = sc.nextLine(); System.out.print("Digite o diretorio do arquivo a ser lido: "); String dir2 = sc.nextLine(); File arquivo = new File(dir1); File arquivo2 = new File(dir2); FileInputStream in = new FileInputStream(arquivo2); FileOutputStream fos = new FileOutputStream(arquivo); Scanner read = new Scanner(in); boolean ok = arquivo.createNewFile(); if (! ok){ while (read.hasNext()){ String readline = read.nextLine(); String parte = readline.substring(0,3); if (parte == null){ fos.write(System.getProperty("line.separator").getBytes()); } else{ if (parte.equals("for")){ String t = "Oi for"; fos.write(readline.getBytes()); } else{ fos.write(readline.getBytes()); fos.write(System.getProperty("line.separator").getBytes()); } } } } else{ System.out.print("não foi possivel criar o arquivo"); } } catch(IOException e){ // nada } } }Agradeço a atenção.
-
A chave primária serve para pesquisas e para relacionamentos entre tabelas, sem uma, você pode ter muita dor de cabeça.
Eu uso tabelas sem chave primária quando eu preciso dela apenas para relacionar duas tabelas, com relação N:N, o que torna as chaves estrangeiras.
falou abraço
-
Qual o banco que você está usando? Quando eu usava o paradox tinha um tipo de dado "IMAGE", na hora de criar a tabela, mas nunca usei, fica muito lento salvar imagens no banco, uma forma melhor de fazer é, salvar as imagens em uma pasta com o código auto incrementável como nome, e na hora de acessar as imagens colocar esse diretório + código + '.jpg' (por exemplo).
falou cara...
Abraços
-
Você colocou o DataSource, setando para a Query, no DBGrid?
-
Victor Medeiros...
Tenta colocar o comando SQL assim:
dmdados.Qrysqlcolab.close; dmdados.Qrysqlcolab.sql.clear; dmdados.Qrysqlcolab.sql.add('select * from Tbcadcolaborador where Funcao1 = "'+edtpesq.Text+'"'); dmdados.Qrysqlcolab.open;falou, espero ter ajudado...
Abraços
-
Opa...
Eu estou aprendendo sósinho php, então não sei nada.
Eu coloquei do jeito que voce falou mas não mudou nada.
Ficaria assim?
<? include "conectar.php"; $apelido_login = $_POST["apelido"]; $senha_login = $_POST["senha"]; if(($apelido_login) and ($senha_login)) { $sql= mysql_query("select * from tb_user where apelido='$apelido_login' and senha='$senha_login'",$con) or die ("erro no comando SQL:".mysql_error()); if(mysql_num_rows($sql) > 0) { $id_imasters = mysql_result($sql,0,"id_user"); $apelido_imasters = mysql_result($sql,0,"apelido"); $senha_imasters = mysql_result($sql,0,"senha"); session_start("imasters"); session_register("id_imasters","apelido_imasters","senha_imasters"); header("Location:opcoes.php"); } } ?>Obrigado pela atenção
-
Ola pessoal...
Eu sou novo em PHP e estou com um problema irritante que não sei a causa.
Eu fiz um teste seguindo uma apostila, mas em um IF, onde eu comparo o valor retornado por uma pesquisa com '0', querendo saber se a perquisa é maior, apartir do '0' aparece como texto no browser, como se o sinal '>' terminasse o comando php, não sei porque está acontecendo, pesso ajuda, obrigado.
Aqui está o código:
<? include "conectar.php"; if(($apelido_login) and ($senha_login)) { $sql= mysql_query("select * from tb_user where apelido='$apelido_login' and senha='$senha_login'",$con) or die ("erro no comando SQL:".mysql_error()); if(mysql_num_rows($sql) > 0) { $id_imasters = mysql_result($sql,0,"id_user"); $apelido_imasters = mysql_result($sql,0,"apelido"); $senha_imasters = mysql_result($sql,0,"senha"); session_start("imasters"); session_register("id_imasters","apelido_imasters","senha_imasters"); header("Location:opcoes.php"); } } ?> -
Oi rickayron...
Para colocar o valor de uma pesquisa dentro de um edit, voce deve usar a função "FieldByName" do componente ADOQuery, o código ficar assim:
Edit1.text:= ADOQuery1.FieldByName('Valor').AsString;Isso, é claro, depois de fazer o select dentro da Query.
falou, espero ter ajudado
Abraços
-
Eu não sei se o problema está no código, mas ta aqui:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj, Grids, Buttons, DBGrids, Shellapi, Tlhelp32; type TForm1 = class(TForm) Memo1: TMemo; abrir: TButton; salvar: TButton; excluir: TButton; procedure salvarClick(Sender: TObject); procedure abrirClick(Sender: TObject); procedure excluirClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; const dir: String = ('c:\MORPHEUS\Recados'); dirp: String = ('C:\Documents and Settings\programador\Desktop\Recados\Recados'); var Form1: TForm1; MSWord: variant; implementation {$R *.dfm} procedure TForm1.abrirClick(Sender: TObject); begin Memo1.Lines.LoadFromFile(dir + '.txt'); end; procedure TForm1.excluirClick(Sender: TObject); begin if MessageDlg('Deseja excluir o arquivo ' + dir + '.txt?', mtConfirmation,[mbYes,mbNo],0) = mrok then begin DeleteFile(dir + '.txt'); Memo1.Clear; end else Exit; end; procedure TForm1.FormCreate(Sender: TObject); var f: integer; begin if FileExists(dir + '.txt') = false then begin try MSWord := CreateOleObject('word.basic'); except ShowMessage('Word não encontrado!'); end; MSWord.FileNew; MSWord.FileSaveAs(dir,3); f:= FileOpen('C:\Documents and Settings\programador\Desktop\Recados\~$ecados.txt', fmShareDenyNone); FileClose(f); end else begin Memo1.Lines.LoadFromFile(dir + '.txt'); try MSWord := CreateOleObject('word.basic'); except ShowMessage('Word não encontrado!'); end; MSWord.FileNew; end; end; procedure TForm1.salvarClick(Sender: TObject); begin try if FindWindow('OpusApp', PAnsiChar(dir)) = 0 then begin MSWord.Insert(Memo1.Lines.Text); MSWord.FileSaveAs(dir,3); end else begin try MSWord := CreateOleObject('word.basic'); except ShowMessage('Word não encontrado!'); end; MSWord.FileNew; MSWord.Insert(Memo1.Lines.Text); MSWord.FileSaveAs(dir,3); end; finally MSWord.AppShow; end; end; end. -
Oi pessoal...
O meu problema pode ser besta, mas não sei como resolver, é que, quando eu executo um sistema que eu fiz, aparece o prompt por traz, e queria saber se tem como tirar.
Valeu abraço
-
rickayron...
Olha cara, quando se usa um radiobutton assim, tem um componente chamado radiogroup que é só voce fazer um loop criando esses ítens, mas pra checkbox eu não sei se existe isso, da uma pesquisada.
falou abraço
-
ederaguiar...
O você pode usar um componente chamado Memo para digitar textos, e se voce quiser pegar um texto do word e jogar no form, voce tem que salva-lo em Rich Text (*.rtf) e abrir no form com um TSDRichEdit, ficaria assim para importar o texto para este componente:
richedit1.Lines.LoadFromFile('Diretório do arquivo');Espero ter ajudado
falou abraço
-
Olha...
Voce pode fazer isso direto na pesquisa, ficaria alguma coisa pareida com isso:
var soma:real; lin:integer; begin soma:= Query1.sql.add(SELECT sum(preço) from tabela_produtos); lin:= Query2.sql.add(Select count(preço) from tabela_produtos); end.
Ai voce divide os valores. Eu não consegui testar, por isso não tenho certeza que funcione, mas acredito que funcione.
Espero ter ajudado
falou abraco
-
Oi pessoal...
Eu estou começando no JavaScript agora, e não sei como fazer com que, quando eu selecionar um ítem de um ComboBox, o site pegar informações em um banco de dados relacionados ao ítem selecionado, eu teste uma função vesta no evento onChange e deu certo, mas não sei como dar o refresh no formulário. alguém pode me ajudar?
Obrigado pela atenção
Erro
em Ajax, JavaScript, XML, DOM
Postado
Olá pessoal, eu estou com um problema nesta função, ela executa corretamente, porém, aparece o erro "Objeto Esperado" quando chega no "return true;". Qual o erro da função?
function checkRowInst08(row){ doc = document.forms[0]; var radioLength = doc["tmp.update"+row+".REALIZACAO"].length; var pom = false; for(var i = 0; i < radioLength; i++) { if(doc["tmp.update"+row+".REALIZACAO"][i].checked) { doc["tmp.update"+row+".QT_08_NIV_REALIZACAO"].value = doc["tmp.update"+row+".REALIZACAO"][i].value; pom=true; doc["tmp.update"+row+".REALIZACAO"].required = "true"; //doc["tmp.QT_08_REALIZADAS"+row].required = "true"; } } if ( !pom ) { doc["tmp.update"+row+".REALIZACAO"].required = ""; //alert( doc["tmp.update"+row+".REALIZACAO"].required ); //doc["tmp.QT_08_REALIZADAS"+row].required = ""; } return true; }Obrigado.