Tenho um form de busca abaixo, o problema é que a edit não está habilitada e eu
não consigo digitar os dados para busca. Como faço para resolver o problerma?
o resultado deve aparecer em uma DBGRID como faço isso tambem? O codigo é:
unit Unit32;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids, DBGrids, Db, DBTables;
type
TFrmBuscaPac = class(TForm)
EdBuscaPac: TEdit;
DBGrid1: TDBGrid;
BtBBuscar: TBitBtn;
BtBPreencher: TBitBtn;
BtBSair: TBitBtn;
DSBuscaPac: TDataSource;
QryBuscaPac: TQuery;
procedure BtBSairClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure BtBPreencherClick(Sender: TObject);
procedure BtBBuscarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmBuscaPac: TFrmBuscaPac;
implementation
uses Unit14, Unit8, Unit3;
{$R *.DFM}
procedure TFrmBuscaPac.BtBSairClick(Sender: TObject);
begin
FrmBuscaPac.Close;
end;
procedure TFrmBuscaPac.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
QryBuscaPac.Close;
end;
procedure TFrmBuscaPac.FormShow(Sender: TObject);
begin
QryBuscaPac.Open;
end;
procedure TFrmBuscaPac.BtBPreencherClick(Sender: TObject);
begin
IF (FrmCadaPaciente <> NIL) THEN
Begin // preencher os dados do form
FrmCadaPaciente.EdPronto.Text:=QryBuscaPac.FieldbyName('pronto').AsString;
FrmCadaPaciente.EdRg.Text:=QryBuscaPac.FieldbyName('rg').AsString;
FrmCadaPaciente.EdMascAtual.Text:=QryBuscaPac.FieldbyName('data_a').AsString;
FrmCadaPaciente.EdMascNasc.Text:=QryBuscaPac.FieldbyName('nasc').AsString;
FrmCadaPaciente.EdPaciente.Text:=QryBuscaPac.FieldbyName('paciente').AsString;
FrmCadaPaciente.Edidade.Text:=QryBuscaPac.FieldbyName('idade').AsString;
FrmCadaPaciente.Edmae.Text:=QryBuscaPac.FieldbyName('mae').AsString;
FrmCadaPaciente.Edender.Text:=QryBuscaPac.FieldbyName('ender').AsString;
FrmCadaPaciente.Edcidade.Text:=QryBuscaPac.FieldbyName('cidade').AsString;
FrmCadaPaciente.EdUf.Text:=QryBuscaPac.FieldbyName('uf').AsString;
FrmCadaPaciente.EdBairro.Text:=QryBuscaPac.FieldbyName('bairro').AsString;
FrmCadaPaciente.EdMascCep.Text:=QryBuscaPac.FieldbyName('cep').AsString;
FrmCadaPaciente.EdMascTel.Text:=QryBuscaPac.FieldbyName('tel').AsString;
FrmCadaPaciente.Edresp.Text:=QryBuscaPac.FieldbyName('resp').AsString;
FrmCadaPaciente.EdMascTelr.Text:=QryBuscaPac.FieldbyName('telresp').AsString;
FrmCadaPaciente.EdEstCivil.Text:=QryBuscaPac.FieldbyName('civil').AsString;
FrmCadaPaciente.EdSexo.Text:=QryBuscaPac.FieldbyName('sexo').AsString;
BtBSair.Click;
end
Else
Begin
End;
end;
procedure TFrmBuscaPac.BtBBuscarClick(Sender: TObject);
var
aspas:string;//variavel local
begin
aspas:='''';//inicializo a variável
QryBuscaPac.Close;//fecho a query
QryBuscaPac.SQL.Clear;//limpa a query
QryBuscaPac.SQL.Add('SELECT
TbPaciente.Pronto,TbPaciente.rg,TbPaciente.nasc,TbPaciente.paciente,TbPaciente.idade,TbPaciente.mae,TbPaciente.ender,TbPaciente.cidade,TbPaciente.uf,TbPaciente.bairro,TbPaciente.tel,TbPaciente.cep,TbPaciente.resp');
QryBuscaPac.SQL.Add('TbPaciente.telresp,TbPaciente.civil,TbPaciente.sexo');
QryBuscaPac.SQL.Add('FROM TbPaciente');
QryBuscaPac.SQL.Add('WHERE TbPaciente.Pronto
LIKE'+aspas+EdBuscaPac.Text+'%''');
TRY
QryBuscaPac.ExecSQL;
EXCEPT
ShowMessage ('Ocorreu um erro na Busca');
end;
end;
end.
James
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
