Tenho uma tabela feita no interbase com o nome de agenda. tem duas chaves primarias data e consultor(faz referencia a tabela funcionario) e outros campos com horario. Criei uma form para localizar o agendamento de certo dia através de uma DateTimePicker e de um DBlookup que faz referencia a consultor. se data for NULL p/ certo dia então ativo a tabela agenda como INSERT se não ativo-a como EDIT. Quando faço upplyupdate(-1) e desativo a tabela dá o seguinte erro "CANNOT FOCUS A DISABLE OR INVISIBLE WINDOW".
Pergunta
Guest Fernando desesperado
Tenho uma tabela feita no interbase com o nome de agenda. tem duas chaves primarias data e consultor(faz referencia a tabela funcionario) e outros campos com horario. Criei uma form para localizar o agendamento de certo dia através de uma DateTimePicker e de um DBlookup que faz referencia a consultor. se data for NULL p/ certo dia então ativo a tabela agenda como INSERT se não ativo-a como EDIT. Quando faço upplyupdate(-1) e desativo a tabela dá o seguinte erro "CANNOT FOCUS A DISABLE OR INVISIBLE WINDOW".
Que que eu faço estou desesperado!!!!!
código:
procedure TForm_Agenda.DBLookupComboBox1CloseUp(Sender: TObject);
begin
dat:= datetostr(datetimepicker1.Date);
datamodule1.ClientDataSet_agenda.CommandText:='SELECT * FROM agenda WHERE data = dat AND consultor = dblookupcombobox1.Text';
datamodule1.SQLDataSet_agenda.ExecSQL;
//
datamodule1.SQLDataSet_agenda.Active:=true;
datamodule1.ClientDataSet_agenda.Active:=true;
if datamodule1.ClientDataSet_agendaDATA.Value = NULL then
begin
datamodule1.ClientDataSet_agenda.Insert;
datamodule1.ClientDataSet_agendaDATA.Value:= datetostr(datetimepicker1.Date);
datamodule1.ClientDataSet_agendaCONSULTOR.Value:= dblookupcombobox1.Text;
end;
datamodule1.ClientDataSet_agenda.Edit;
end;
procedure TForm_Agenda.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=(#13) then
begin
datamodule1.ClientDataSet_agenda.ApplyUpdates(-1);
datamodule1.ClientDataSet_agenda.Active:=false;
datamodule1.SQLDataSet_agenda.Active:=false;
form_visita.ShowModal;
end;
end;
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.