Reloaded`

Julho 8, 2004

ai galera valews, ta na paz aki ...

pode fechar o tópico ...

thank's

Julho 7, 2004

QUOTE (Corposemalma @ Jul 5 2004, 11:06 AM)

Ainda acho que assim fica mais completo:
DM.QrConsClientes.Params[0].AsString := UpperCase('%' + Edit1.Text + '%');
dessa maeira da pra procurar por sobrenomes tambem...

eu não concordo não, sabe porque, porque tipo, se digitar A e tiver 3000 registros com contenha A em qualquer parte do NOME, vai jogar todos pra mim na tela, fika melhor assim mesmo:

DM.QrConsClientes.Params[0].AsString := UpperCase( Edit1.Text + '%');

mais eu fiz assim:

procedure TFormBusClien.SpeedButton1Click(Sender: TObject);
Var
Like, Param: String;
begin
if nome.Text <> '' then
begin
with dmLocad.qrConsClientes do
begin
Close;
SQL.Clear;
Like := ' Like ';
Case Tipo.ItemIndex of
0:
begin
Param := nome.Text;
Like := ' = ';
end;
1:Param := #39 + UpperCase( nome.Text + '%') + #39;
end;
SQL.Text := 'Select * from TabCadClientes ' + 'Where ' + Tipo.Text + Like + Param;
Open;
DBGrid1.DataSource.DataSet.Active := true;
end;
end
else Application.MessageBox('Preencha os campos antes de clicar em localizar!', 'Erro!', MB_ICONERROR + MB_OK);
end;

q ceis acham?

sem noção o tanto q eu cansei pra monta essa merda certim, mais valeu ...

valews galera

Julho 6, 2004

o problema é q eu qeuro aprender tudo de uma vez

ai fika meio dificil né... mais tudo o q eu aprendi ate hj foi assim

meio q no "desespero e rapidez", vamu ver no q da com o delphi

valeu pessoal do SB

6 são gente fina demais

Julho 6, 2004

pow, minha cabeça é muito pequena pra entra SQL

eu coloquei a query e o connectsql, como q faz?

nunca mexi com sql, nem faço ideia, fucei aki mais não fui muito feliz não.

valeu gente

Julho 5, 2004

quando eu escolho codigo, da um erro falando q por exemplo "1" é um valor invalido, ele ta como string, como eu vou converter pra integer dentro disso:

dmLocad.tbClientes.Filter := 'Codigo ='+''''+ nome.Text +'*'+''''

eu coloquei

... + strtotint(nome.text) ... mais não funcionou. alguém pode me ajudar?

procedure TFormBusClien.ComboTipoChange(Sender: TObject);
begin
if tipo.Text = 'Codigo' then
begin
telefone.Visible := false;
nome.Visible := true;
Label2.Caption := 'Codigo:';
nome.Clear;
end
else if tipo.Text = 'Nome' then
begin
telefone.Visible := false;
nome.Visible := true;
Label2.Caption := 'Nome:';
nome.Clear;
end
else if tipo.Text = 'Telefone' then
begin
nome.Visible := false;
telefone.Visible := true;
Label2.Caption := 'Telefone:';
telefone.Clear;
end
end;
procedure TFormBusClien.BuscaClick(Sender: TObject);
begin
dmLocad.tbClientes.Filtered := false;
if tipo.ItemIndex = 0 then
dmLocad.tbClientes.Filter := 'Codigo ='+''''+ nome.Text +'*'+''''
else
begin
if tipo.ItemIndex = 1 then
dmLocad.tbClientes.Filter := 'Nome ='+''''+ nome.Text +'*'+''''
else
dmLocad.tbClientes.Filter := 'Telefone ='+''''+ nome.Text +'*'+''''
end;
DBGrid1.DataSource.DataSet.Active := true;
dmLocad.tbClientes.Filtered := True;
end;

Maio 2, 2004

ai, achei aki

pra quem não sabe é ...

Painel de Controle/Opções Regionais e Idioma Guia/Idiomas

valeu ai pessoal

Maio 2, 2004

pow, isso ai num deu certo não...

Maio 2, 2004

ola amigos ...

eu instalei meu xp e nunca isso tinha acontecido, o meu teclado e abnt2, mais esta configurado como abnt, como eu mudo isso? em painel de controle/teclados n'ao tem nenhuma opcao.....

aguardando ...

ass. reloaded

Abril 11, 2004

fiko legal, mais eu acho q você deveria ter usado mais o azul, q é a cor q tá na logo. tente combinar cores, azul claro com tonalidades diferentes...

se registre ai na comunidade amigo!!

preciso é so postar ai

inté mais

Abril 10, 2004

Olá

Eu tenho o Conectiva 9 e o mouse optico (VCOM, PS2) esta em conflito. Apos uns 2 minutos que entro no KDE, ela para de funcionar, mas está configurado como PS2. alguém pode me ajudar?

Obrigado!!!

Novembro 23, 2003

macro

aeee... ctrl+r digita con/con

so funciona no windows 98

falou

Ass. Marcelo A. Augusto (Reloaded`) :blink:

Novembro 23, 2003

alguém pode me ajudar a instalar a impressora no conectiva 9?

é a epson stylus color 480... tem q baixar algum driver???

aguardando resposta...

obrigado...

Ass. Marcelo A. Augusto :blink:

Novembro 22, 2003

ola,

estou com problemas na hora de executar o kylix, eu já crackiei só q esta dando essa mensagem de erro

Generating font matrix. Please wait...
X Error of failed request: BadValue (integer parameter out of range for operation)
Major opcode of failed request: 45 (X_OpenFont)
Value in failed request: 0x400219
Serial number of failed request: 1638
Current serial number in output stream: 1639

alguém poderia me ajudar?

Ass. Marcelo A. Augusto

Thanks... :blink:

Outubro 12, 2003

procedure TForm2.Button1Click(Sender: TObject);
var
senha : TStringField;
user : TStringField;
begin
user := Table1.Findfield('Usuario') as TStringField;
if (user.Value <> Edit1.Text) then
   begin
   ShowMessage('Login recusado, usuário(a) não cadastrado(a)...');
   Edit1.SetFocus;
   Exit;
   end;
senha := Table1.FindField('Senha') as TStringField;
if (senha.Value <> MaskEdit2.Text) then
   begin
   ShowMessage('Login recusado, senha inválida... ');
   MaskEdit2.SetFocus;
   Exit;
   end;
   if (Edit1.Text = user.Value) and (MaskEdit2.Text = senha.Value) then
   begin
   form1.Show;
   form2.Hide;
   end
end;

so que não esta logando, qual o problema? alguém pode me ajudar?

Ass. Marcelo A. Augusto :blink:

Outubro 11, 2003

como eu faço pra quando o usuario clicar no botão logar, o programa verificar se o usuario e a senha são validos? isso já cadastrado num banco de dados.

Obs: Banco de dados em Paradox 7

Ass. Marcelo A. Augusto :blink:

Setembro 28, 2003

olha so, isso é pra formatar a font do memo...

Memo1.Font := Memo1.Font;

if FontDialog1.Execute then begin

Memo1.Font := FontDialog1.Font;

end;

mas e pra formatar o RichEdit??? porque a propriedade q eu quero e SelAttributs

alguém me ajuda?

valeu

Setembro 27, 2003

ai, com muito custo eu fiz assim, mas não ta 100% não... tipo se o RichEdit1 tiver vazio e você fechar o programa , na mensagem tinha q aparece assim 'O arquivo SEM TITULO foi alterado. Deseja salvar as alterações?'

so q esse sem titulo eu não consegui....

já tentei de todo jeito, to uma semana agarrado nisso....

valeu pela ajuda ae

var
Form1: TForm1;
Modificado: Boolean;
Caminho: String;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Salvar1Click(Sender: TObject);
begin
if Modificado = False then Abort;
if Caminho <> '' then
   RichEdit1.Lines.SaveToFile(Caminho)
Else SalvarComo1Click(Sender);
end;
procedure TForm1.SalvarComo1Click(Sender: TObject);
begin
if SaveDialog1.execute then
begin
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
Modificado := False;
Caminho := ExtractFileName(SaveDialog1.FileName);
Form1.Caption := 'Editor de texto [' + Caminho + ']';
end;
end;
procedure TForm1.Abrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   begin
   RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
   Caminho := ExtractFileName(OpenDialog1.FileName);
   Form1.Caption := 'Editor de texto ['+ Caminho + ']';
end;
end;
procedure TForm1.Novo2Click(Sender: TObject);
begin
if Modificado then
begin
case MessageDlg ('O arquivo ' + Caminho + ' foi alterado.' + #13#13 + 'Deseja salvar as alterações?',mtConfirmation, mbYesNoCancel, 0) of
   IDYES:
if Caminho <> '' then
begin
Salvar1Click(Sender);
RichEdit1.Clear;
Form1.Caption := 'Editor de texto [sem título]';
end
ELse
if Caminho = '' then
begin
SalvarComo1Click(Sender);
RichEdit1.Clear;
Form1.Caption := 'Editor de texto [sem título]';
   end;
IDNO:
if Modificado = true then
begin
RichEdit1.Clear;
Form1.Caption := 'Editor de texto [sem título]';
   end;
ID_CANCEL:
abort;

end;

end;
   Caminho := '';

end;
procedure TForm1.Sair1Click(Sender: TObject);
begin
if Modificado then
begin
case MessageDlg ('O arquivo ' + Caminho + 'foi alterado.' + #13#13 + 'Deseja salvar as alterações?',mtConfirmation, mbYesNoCancel, 0) of
IDYES:
   if Caminho <> '' then
Salvar1Click(Sender)
Else SalvarComo1Click(Sender);
IDNO:
form1.close;
IDCANCEL:
abort;
   end;
end;
   form1.close;
end;
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
modificado := True;
end;

Ass. Reloaded` :blink:

OBS: SE NÃO PUDER COLOCAR MUITA COISA ASSIM NA MSG, ME FALA Q EU TIRO

Setembro 27, 2003

anaoscript

assignPrn(txt);

rewrite(txt);

printer.canvas.Font;

isso é o q?

Setembro 27, 2003

Eu to tendo uns problemas aki em PrintDialog, PrintSetupDialog, ColorDialog e Font Dialog.... porque tipo, o Imprimir é assim? aqui tb não imprime...

procedure TForm1.Imprimir1Click(Sender: TObject);

begin

PrintDialog1.Execute;

end;

o setup da impressora é assim? so que não imprime...

procedure TForm1.Configurarpgina1Click(Sender: TObject);

begin

PrinterSetupDialog1.Execute

end;

no caso do font e color quando eu aplico não funciona, no caso da cor seria pra aplicar no RichEdit1.SelAttributes.Color q seria o fundo e a font no q fosse selecionado...

procedure TForm1.Fonte1Click(Sender: TObject);

begin

FontDialog1.execute;

end;

procedure TForm1.Cores1Click(Sender: TObject);

begin

ColorDialog1.Execute;

end;

alguém pode me ajudar? please

valeu :(

Ass. Reloaded` :wacko:

Entrar

Reloaded`

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Reloaded`

Botoes Avançar E Voltar

Botoes Avançar E Voltar

Botoes Avançar E Voltar

Botoes Avançar E Voltar

Erro Em Busca

Teclado

Teclado

Teclado

Por Favor Avaliem Este Site

Mouse Optico No Linux

P/ Vitor Maringá

Impressora

Crack Kylix

Problemas No Botão Logar

Login

Duvida Em Richedit.selattributs

Salvar E Salvar Como

Problemas Em Printdialog, Printdialogsetup....

Problemas Em Printdialog, Printdialogsetup....

Navegação

Atividades