Fórum Form de Cadastro utilizando duas Tabelas. #349121

Olá!!

Vamos ver se eu entendi. Pelo visto, vc precisa alguma coisa parecida com o que eu fiz no meu sistema de estágio...

Tenho o formulário de cadastro de matrículas, onde tenho os campos [CodTurma] [Turma].

Clico no edtCodTurma, teclo F2, abrirá o formulário de pesquisa de turmas, seleciono uma turma, fecho e esta, jogará os valores nos dois edits...

Caso for isso q vc precisa, clique no seu Edit, que corresponde ao código da sessão, mude as propriedades ReadOnly para True e a cor, para clBtnFace. No evento OnKeyDown, coloque este código:

----------------------------------------------------------------------
procedure TfrmMatriculas.DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
//Se pressionou a Tecla F2
If key = Vk_F2 then
begin
frmPesTurmas := TfrmPesTurmas.Create(self);
try
// Chamar formulário de Pesquisa de Turmas
frmPesTurmas.ShowModal;
finally
//Liberar recurso do formulario
frmPesTurmas.Release;
//Tirar formulário da memória
frmPesTurmas := nil;
end;
//buscar a Turma
dados.CdsMatriculas [´CODTURMA´] := dados.codigo;
dados.CdsMatriculas [´Turma´] := Dados.nome;
end;
end;
----------------------------------------------------------------------

No formulário de Pesquisa de Turmas (sessões, no seu caso), ao pesquisar a turma (sessão) correspondente, selecionar e fechar, no botão fechar, coloque este código:

----------------------------------------------------------
procedure TfrmPesTurmas.btnfecharClick(Sender: TObject);
begin
dados.codigo := CdsPesquisaCODTURMA.AsInteger;
dados.Nome := CdsPesquisaTURMA.AsString;
//fechar a consulta
CdsPesquisa.Close;
//limpar edit
Edit1.Text:=´´;
//fechar o formulario
close;
end;
----------------------------------------------------------

Mas não se esqueça de colocar no seu datamodule, em public:
codigo: integer;
nome: string;


Espero ter sido claro...