Problemas na rotina de um form

[Projeteira 0]

Boa noite pessoal, estou com problemas na rotina d um form aki...

 

eh o seguinte...

 

estou fazendu um form d cadastro e consulta de atividades, dias e horarios d uma academia, tenhu 3 dbcombobox, saum eles: atividades, dias, e horarios...

colokei uma rotina para quando escolher a tividade aparecer u dia e o horario em q elas aconteceram...mas quando salvo e vou no acces...na tabela...soh salvo a atividade, o horário e o dia não foram salvos...

 

a rotina q to usandu no botão gravar eh :

procedure TFormHor.Button1Click(Sender: TObject);
begin

if Adotable1.State <> dsEdit then
Adotable1.Edit;
Adotable1.Insert;
Adotable1.FieldByName('Aluno').AsString:= '1';

Adotable1.Post;

end;

 

 

e a q estou usando no primeiro dbcombobox é :

 

procedure TFormHor.DBComboBox1Change(Sender: TObject);
begin

if dBComboBox1.Text = 'Jump' then
DBComboBox2.text :='Segunda';
DBComboBox3.text:='11:00 as 12:00';




end;

 

c alguem puder me ajudar a resolver esse problema..agradeço..bjoos

[Chrnos 30]

Você tem certeza que está dando a ordem de salvar todos os campos no seu código? No trecho que postou aqui, você só está salvando o campo aluno com um valor fixo de '1'. Poste o código completo para análise.

 

[]'s

[bdexterholland 0]

Outro detalhes que eu pude observar são:

 

no método TFormHor.Button1Click você usa um edit e logo em seguida usa um insert, este edit não é necessário porque o próprio insert permite deixar a tabela em um modo que permite inserir dados.

 

no método TFormHor.DBComboBox1Change você altera o dado escrito no combobox. isto pode estar certo, obviamente depende de análise mas o DBComboBox permite adicionar mais opções ao mesmo atravéz do médodo add() dentro da propriedade Itens

ex.:

DBComboBox1.Itens.Add(DateTimeToStr(now));