ActiveDelphi

[jmendeslouco]

[adriano_servitec]

Olah amigo...Use o LIKE para SQL

Exemplo

[AlexSousa]

blz jmendeslouco,


faça assim:


with query do
begin
close;
sql.text := 'select * from TABELA where CAMPONOME LIKE (' + quotedstr(edit1.text + '%')'+)');
open;
end;

ou usando parametros:

with query do
begin
close;
sql.text := 'select * from TABELA where CAMPONOME LIKE :NOME');
Parambyname('NOME').AsString := (edit1.text + '%')
open;
end;


abraços,

[AlexSousa]

blz adriano,


ainda naum tinha aparecido pra mim que vc tinha postado...ehhehe




abraços,

[jmendeslouco]

Quando cliquo no pesquisar esta aparecendo uma janelinha pedindo Usuario e senha...

no item ADOconnection ja coloquei o LoginPrompt em False, mas num ta funcionando!
num sei o que fazer agora...
_________________
Jéferson Mendes

[adriano_servitec]

[jmendeslouco]

[jmendeslouco]

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask, DB, ADODB,
Grids, DBGrids;

type
TTF_CADASTRO = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Button1: TButton;
Shape1: TShape;
Shape2: TShape;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label12: TLabel;
DBEdit12: TDBEdit;
Label13: TLabel;
DBEdit13: TDBEdit;
Label14: TLabel;
DBEdit14: TDBEdit;
Label16: TLabel;
DBMemo1: TDBMemo;
Label17: TLabel;
DBEdit16: TDBEdit;
Label18: TLabel;
DBEdit17: TDBEdit;
DBEdit1: TDBEdit;
Label1: TLabel;
Timer1: TTimer;
Label28: TLabel;
DBEdit27: TDBEdit;
Label29: TLabel;
DBEdit28: TDBEdit;
Label30: TLabel;
DBEdit29: TDBEdit;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBCheckBox6: TDBCheckBox;
DBCheckBox7: TDBCheckBox;
DBCheckBox8: TDBCheckBox;
Label19: TLabel;
DBCheckBox9: TDBCheckBox;
DBCheckBox10: TDBCheckBox;
DBCheckBox11: TDBCheckBox;
DBCheckBox12: TDBCheckBox;
DBCheckBox13: TDBCheckBox;
DBCheckBox14: TDBCheckBox;
DBCheckBox1: TDBCheckBox;
DBCheckBox15: TDBCheckBox;
DBCheckBox16: TDBCheckBox;
DBCheckBox17: TDBCheckBox;
DBCheckBox18: TDBCheckBox;
DBEdit15: TDBEdit;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label15: TLabel;
DBCheckBox2: TDBCheckBox;
DBCheckBox19: TDBCheckBox;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
ADOTable1data: TWideStringField;
ADOTable1nome: TWideStringField;
ADOTable1idade: TWideStringField;
ADOTable1escola: TWideStringField;
ADOTable1serie: TWideStringField;
ADOTable1turma: TWideStringField;
ADOTable1turno: TWideStringField;
ADOTable1rua: TWideStringField;
ADOTable1n: TWideStringField;
ADOTable1complemento: TWideStringField;
ADOTable1bairro: TWideStringField;
ADOTable1cidade: TWideStringField;
ADOTable1fone_res: TWideStringField;
ADOTable1fone_cel: TWideStringField;
ADOTable1fone_rec: TWideStringField;
ADOTable1trabalhandosim: TBooleanField;
ADOTable1horario: TWideStringField;
ADOTable1fone_Trab: TWideStringField;
ADOTable1pai_mae: TBooleanField;
ADOTable1Mae: TBooleanField;
ADOTable1pai: TBooleanField;
ADOTable1sozinho: TBooleanField;
ADOTable1outro: TWideStringField;
ADOTable1responsaveis: TMemoField;
ADOTable1cursono: TBooleanField;
ADOTable1cursosim: TBooleanField;
ADOTable1onde: TWideStringField;
ADOTable1qual: TWideStringField;
ADOTable1informatica_bas: TBooleanField;
ADOTable1informatica_ava: TBooleanField;
ADOTable1Dept_pessoal: TBooleanField;
ADOTable1Contab: TBooleanField;
ADOTable1Ingls: TBooleanField;
ADOTable1nenhum: TBooleanField;
ADOTable1e_mail: TMemoField;
ADOTable1importante: TBooleanField;
ADOTable1necessario: TBooleanField;
ADOTable1urgente: TBooleanField;
ADOTable1muito: TBooleanField;
ADOTable1medio: TBooleanField;
ADOTable1pouco: TBooleanField;
DBMemo2: TDBMemo;
Button2: TButton;
DBGrid1: TDBGrid;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
MonthCalendar1: TMonthCalendar;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit28KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit29KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
TF_CADASTRO: TTF_CADASTRO;

implementation

uses Unit1;

{$R *.dfm}

procedure TTF_CADASTRO.Button1Click(Sender: TObject);
begin
close;
end;

procedure TTF_CADASTRO.Timer1Timer(Sender: TObject);
begin
DBEdit1.Text:=DateToStr(now);
end;

procedure TTF_CADASTRO.Button2Click(Sender: TObject);
begin
ADOTable1.Insert;
DBEdit2.SetFocus;
DBCheckBox1.Checked:=False;
DBCheckBox2.Checked:=False;
DBCheckBox3.Checked:=False;
DBCheckBox4.Checked:=False;
DBCheckBox5.Checked:=False;
DBCheckBox6.Checked:=False;
DBCheckBox7.Checked:=False;
DBCheckBox8.Checked:=False;
DBCheckBox9.Checked:=False;
DBCheckBox10.Checked:=False;
DBCheckBox11.Checked:=False;
DBCheckBox12.Checked:=False;
DBCheckBox13.Checked:=False;
DBCheckBox14.Checked:=False;
DBCheckBox15.Checked:=False;
DBCheckBox16.Checked:=False;
DBCheckBox17.Checked:=False;
DBCheckBox18.Checked:=False;
DBCheckBox19.Checked:=False;
Button2.Enabled:=false;
Button3.Enabled:=False;
Button4.Enabled:=false;
Button5.Enabled:=false;
end;

procedure TTF_CADASTRO.Button3Click(Sender: TObject);
begin
ADOTable1.Prior;
end;

procedure TTF_CADASTRO.Button4Click(Sender: TObject);
begin
ADOTable1.Next;
end;

procedure TTF_CADASTRO.FormShow(Sender: TObject);
begin
TF_PRINCIPAL.MonthCalendar1.Visible:=false;
ADOTable1.Insert;
DBEdit2.SetFocus;
Button2.Enabled:=false;
Button3.Enabled:=False;
Button4.Enabled:=false;
Button5.Enabled:=false;
DBCheckBox1.Checked:=False;
DBCheckBox2.Checked:=False;
DBCheckBox3.Checked:=False;
DBCheckBox4.Checked:=False;
DBCheckBox5.Checked:=False;
DBCheckBox6.Checked:=False;
DBCheckBox7.Checked:=False;
DBCheckBox8.Checked:=False;
DBCheckBox9.Checked:=False;
DBCheckBox10.Checked:=False;
DBCheckBox11.Checked:=False;
DBCheckBox12.Checked:=False;
DBCheckBox13.Checked:=False;
DBCheckBox14.Checked:=False;
DBCheckBox15.Checked:=False;
DBCheckBox16.Checked:=False;
DBCheckBox17.Checked:=False;
DBCheckBox18.Checked:=False;
DBCheckBox19.Checked:=False;
end;

procedure TTF_CADASTRO.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit3.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit4.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit5.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit6.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit7.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit27.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit28.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit28KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit29.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit29KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit8.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit9.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit10.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit11.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit12.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit13.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit14.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit15.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit15KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBMemo1.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit17.SetFocus;
end;

procedure TTF_CADASTRO.DBEdit2Change(Sender: TObject);
begin
Button2.Enabled:=true;
Button3.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=true;
end;

procedure TTF_CADASTRO.Button5Click(Sender: TObject);
begin
ADOTable1.Delete;
end;

procedure TTF_CADASTRO.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
TF_PRINCIPAL.MonthCalendar1.Visible:=true;;
end;

procedure TTF_CADASTRO.Button6Click(Sender: TObject);
begin
TF_CADASTRO.Width:=750;
Button7.Visible:=true;
end;

procedure TTF_CADASTRO.Button7Click(Sender: TObject);
begin
TF_CADASTRO.Width:=576;
Button7.Visible:=FALSE;
end;

end.


-----------------------------------------------------------------


unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids;

type
TTF_CONSULTA = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Button1: TButton;
Query1: TQuery;
DBGrid1: TDBGrid;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
TF_CONSULTA: TTF_CONSULTA;

implementation

uses Math, Unit1, Unit2;

{$R *.dfm}

procedure TTF_CONSULTA.Button1Click(Sender: TObject);
begin
close;
end;

procedure TTF_CONSULTA.FormShow(Sender: TObject);
begin
TabSheet1.Visible:=True;
end;

procedure TTF_CONSULTA.Edit1Change(Sender: TObject);
begin
Query1.Close;
QUERY1.Params[0].DataType:=ftString;
QUERY1.Params[0].AsString:='%'+EDIT1.Text+'%';
QUERY1.Open;
end;


end.


PS. Unit2 = cadastro e Unit3 = Consulta.
_________________
Jéferson Mendes