Fórum Hora e Datagt;gt;gt;Sera que alguem pode me ajudar?? #167328
02/07/2003
0
[b:40abdfb6fc]>>Tenho uma Tabela Paradox que tem o campo ( Data = Date e Hora=Time ).......Como faço quando a Tendente for Gravar o Retorno do Paciente em uma Data e Hora especifica......
Exemplo : Maria dos Santos : 30/06/03 ás 09:00:00 ........................
>> O problema e seguinte Caso a Tendente for Gravar o Retorno de outro paciente na mesma ( Data e Hora que já esta Gravado ) , e não aceita, da uma Mensagem ´ Já existe Retorno nesta Data e Hora´
.................Como faço esta comparação? Já tentei e não consigo...........Agradeço desde já ..........Tatulegal[/b:40abdfb6fc]
Exemplo : Maria dos Santos : 30/06/03 ás 09:00:00 ........................
>> O problema e seguinte Caso a Tendente for Gravar o Retorno de outro paciente na mesma ( Data e Hora que já esta Gravado ) , e não aceita, da uma Mensagem ´ Já existe Retorno nesta Data e Hora´
.................Como faço esta comparação? Já tentei e não consigo...........Agradeço desde já ..........Tatulegal[/b:40abdfb6fc]
Tatulegal
Curtir tópico
+ 0
Responder
Posts
02/07/2003
Nebrio
Você pode colocar uma Query no form e colocar este código junto do botão de gravação:
with Query do
begin
Close;
SQL.Clear;
SQL.Add(´Select * from Tabela´);
SQL.Add(´Where DATA =:data AND HORA =:hora´);
ParamByName(´data´).AsDate := passe o parametro;
ParamByName(´hora´).AsTime := passe o paramentro;
Prepare´
Open;
end;
if Query.RecordCount > 0 then
begin
MessageDlg(´Já Existe um Paciente neste Horário´,mtError,[mbOk],0);
Exit;
end;
Acho que isso funciona...
Nébrio....
:shock:
with Query do
begin
Close;
SQL.Clear;
SQL.Add(´Select * from Tabela´);
SQL.Add(´Where DATA =:data AND HORA =:hora´);
ParamByName(´data´).AsDate := passe o parametro;
ParamByName(´hora´).AsTime := passe o paramentro;
Prepare´
Open;
end;
if Query.RecordCount > 0 then
begin
MessageDlg(´Já Existe um Paciente neste Horário´,mtError,[mbOk],0);
Exit;
end;
Acho que isso funciona...
Nébrio....
:shock:
Responder
Gostei + 0
02/07/2003
Nebrio
Você pode colocar uma Query no form e colocar este código junto do botão de gravação:
with Query do
begin
Close;
SQL.Clear;
SQL.Add(´Select * from Tabela´);
SQL.Add(´Where DATA =:data AND HORA =:hora´);
ParamByName(´data´).AsDate := passe o parametro;
ParamByName(´hora´).AsTime := passe o paramentro;
Prepare´
Open;
end;
if Query.RecordCount > 0 then
begin
MessageDlg(´Já Existe um Paciente neste Horário´,mtError,[mbOk],0);
Exit;
end;
Acho que isso funciona...
Nébrio....
:shock:
with Query do
begin
Close;
SQL.Clear;
SQL.Add(´Select * from Tabela´);
SQL.Add(´Where DATA =:data AND HORA =:hora´);
ParamByName(´data´).AsDate := passe o parametro;
ParamByName(´hora´).AsTime := passe o paramentro;
Prepare´
Open;
end;
if Query.RecordCount > 0 then
begin
MessageDlg(´Já Existe um Paciente neste Horário´,mtError,[mbOk],0);
Exit;
end;
Acho que isso funciona...
Nébrio....
:shock:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)