Fórum Problema serio (pelo menos pra mim) #189501

Olá colegas, Alguem pode me ajudar

Estou desenvolvendo (tentando) um sistema para locação de fitas de vídeos e estou enfrentado alguns problemas na hora de selecionar os filmes que o cliente vai alugar levando em conta que ele possa levar mais de um filme o valor de cada filme e o total. O negocio e mais ou menos assim no form trabalho em cima de três banco de dados(paradox) o primeiro com o cadastro de fitas contendo titulo e valor da fita o segundo com cadastro de cliente e o terceiro onde vai conter dados do aluguel, nome do cliente, nome dos filmes com o valor e o valor total. Como funciona


Primeiro localiza o cliente através de um edit aonde o nome do cliente vai me aparecer em um dbedit (1º tabela)

procedure TF_pesquisa.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
socios.table1.FindNearest([edit1.text]);
end;


Segundo localizo o nome do filme com o valor do aluguel (2º tabela)

procedure TF_pesquisa.Edit2KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
F_cadfitas.bd_filmes.FindNearest([edit2.text]);
end;


Terceiro, Localizado o filme com seu respectivo valor de aluguel. Como mostra abaixo faço isso com um filme de cada vez com um botão de grava para cada filme.(esse e o problema deve haver uma maneira mais fácil de se fazer isso usando apenas um edit para localiza o filme com o valor, gravar limpa e gravar outros eu tenho a lógica mais não como fazer. Bom mais seguir adiante)

procedure TF_pesquisa.BitBtn9Click(Sender: TObject);
begin
table1.FieldByName(´nome filme´).value:=dbedit4.text;
end;

procedure TF_pesquisa.BitBtn10Click(Sender: TObject);
begin
table1.FieldByName(´nome filme1´).value:=dbedit9.text;
end;

procedure TF_pesquisa.BitBtn11Click(Sender: TObject);
begin
table1.FieldByName(´nome filme2´).value:=dbedit11.text;
end;

procedure TF_pesquisa.BitBtn12Click(Sender: TObject);
begin
table1.FieldByName(´nome filme3´).value:=dbedit13.text;
end;

procedure TF_pesquisa.BitBtn13Click(Sender: TObject);
begin
table1.FieldByName(´nome filme4´).value:=dbedit15.text;
end;

Finalidade: gravar tudo isso na terceira tabela {aluga.db} incluindo o nome do cliente para confirmação na hora da devolução da fita
Ah! Ia esquecendo isso tudo também me da um valor total das fitas alugadas em um outro campo. Onde eu imprimo um comprovante para retirada da fita com os respectivos filmes alugados e o valor a pagar

Duvida: O problema e o seguinte como vocês podem ver consigo fazer tudo isso (com alguns probleminha) mais tenho certeza que existe uma maneira mais fácil e pratica de se fazer tudo isso como sou iniciante acho que estou indo pela maneira mais simples e ao mesmo tempo complicada ainda tenho muitos comandos do Delphi que ainda não estou familiarizado por isso não sei usar alguém pode me ajudar a simplificar isso, por favor, agradeço desde já qualquer de detalhes meu e-mail e

wagnernormando@ig.com.br ou wagnernormando@ibest.com.br ICQ 97405126