Cita:
Empezado por MartinS
Hola: Podrias poner el codigo que realiza la consulta?
Saludos
|
Este es el codigo del formulario buscador completo
Código Delphi
[-]
unit UbuscaPaciente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, ExtCtrls, Grids, DBGrids, MemDS, DBAccess, Uni, Buttons;
type
TFBuscaPaciente = class(TForm)
UniQuery1: TUniQuery;
DBGrid1: TDBGrid;
Panel1: TPanel;
Panel2: TPanel;
Label18: TLabel;
Edit1: TEdit;
RadioGroup2: TRadioGroup;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure query();
procedure RadioGroup2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
public
end;
var
FBuscaPaciente: TFBuscaPaciente;
implementation
uses Udatamodulo;
{$R *.dfm}
procedure TFBuscaPaciente.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
bitbtn2.SetFocus;
end;
procedure TFBuscaPaciente.Edit1Change(Sender: TObject);
begin
query
end;
procedure TFBuscaPaciente.FormClose(Sender: TObject; var Action: TCloseAction);
begin
freeandnil(FBuscaPaciente);
end;
procedure TFBuscaPaciente.query();
begin
with UniQuery1, sql do
begin
close;
clear;
begin
if RadioGroup2.ItemIndex = 0 then
Add(' SELECT * FROM paciente where upper(nombre) like upper('+#39+'%'+edit1.text+'%'+#39+')')
else
Add(' SELECT * FROM paciente where upper(telefono) like upper('+#39+'%'+edit1.text+'%'+#39+')');
end;
open;
end;
end;
procedure TFBuscaPaciente.RadioGroup2Click(Sender: TObject);
begin
query
end;
end.