Problemas com gravação de dados
Pessoal é o seguinte
Tenho uma tab ´ESCOLAS´ outra ´SERIES´
´Todos os meses´ são feitos quadros onde indicam a quantidade de alunos em
cada série de cada escola, portando gravo isso...
Acontece que ´cada Escola´ será gravada na tabela 12x.
Consigo gravar 1x cada escola na tabela, que é listada por um
DBLoohUpCOmboBox .
Quando vou gravar a Escola novamente, mas com data de outro mes
(tenho um maskedit no form onde constam o campo data 00/00/00),
ele apenas altera a data que já havia sido gravada na mesma Escola
anteriormente.
EX:
PS- atenção nas datas..
Gravos os seguintes dados:
CodEscola = EEPG Ynovy
1ª série = 30
2ª série = 30
3ª série = 30
data = 01/01/03
No Proximo mês gravo o sequinte:
CodEscola = EEPG Ynovy
1ª série = 25
2ª série = 25
3ª série = 25
data = 01/02/03
Acontece isso ele apenas altera a data que foi gravada da primeira vez,
mas ele gera um novo registro da escola com os dados corretos so que o
campo ´DATA´,
fica em branco..
Quero que ele gere mais um registro com a mesma escola, mas com a data
diferente.
Oque esta errado
agradeco
[]´ junior
*********************************************
Ai vai oi fonte que estou usando..Table..Paradox
procedure TdfmQRM.btGravarClick(Sender: TObject);
begin
if tbSeries.findkey([dblookupcombobox1.keyvalue])= true
then tbseries.edit
else tbseries.append;
TbSeriesMes.value:=StrtoDate(maskedit1.text);
TbSeries.post;
DbLookUpComboBox1.enabled:=false;
GroupBox1.enabled:=false;
MaskEdit1.enabled:=false;
DbEdit1.Enabled:=false;
DbEdit2.Enabled:=false;
DbEdit3.Enabled:=false;
DbEdit4.Enabled:=false;
DbEdit5.Enabled:=false;
DbEdit6.Enabled:=false;
DbEdit7.Enabled:=false;
DbEdit8.Enabled:=false;
DbEdit9.Enabled:=false;
DbEdit10.Enabled:=false;
DbEdit11.Enabled:=false;
DbEdit12.Enabled:=false;
DbEdit13.Enabled:=false;
DbEdit14.Enabled:=false;
DbEdit15.Enabled:=false;
end;
Tenho uma tab ´ESCOLAS´ outra ´SERIES´
´Todos os meses´ são feitos quadros onde indicam a quantidade de alunos em
cada série de cada escola, portando gravo isso...
Acontece que ´cada Escola´ será gravada na tabela 12x.
Consigo gravar 1x cada escola na tabela, que é listada por um
DBLoohUpCOmboBox .
Quando vou gravar a Escola novamente, mas com data de outro mes
(tenho um maskedit no form onde constam o campo data 00/00/00),
ele apenas altera a data que já havia sido gravada na mesma Escola
anteriormente.
EX:
PS- atenção nas datas..
Gravos os seguintes dados:
CodEscola = EEPG Ynovy
1ª série = 30
2ª série = 30
3ª série = 30
data = 01/01/03
No Proximo mês gravo o sequinte:
CodEscola = EEPG Ynovy
1ª série = 25
2ª série = 25
3ª série = 25
data = 01/02/03
Acontece isso ele apenas altera a data que foi gravada da primeira vez,
mas ele gera um novo registro da escola com os dados corretos so que o
campo ´DATA´,
fica em branco..
Quero que ele gere mais um registro com a mesma escola, mas com a data
diferente.
Oque esta errado
agradeco
[]´ junior
*********************************************
Ai vai oi fonte que estou usando..Table..Paradox
procedure TdfmQRM.btGravarClick(Sender: TObject);
begin
if tbSeries.findkey([dblookupcombobox1.keyvalue])= true
then tbseries.edit
else tbseries.append;
TbSeriesMes.value:=StrtoDate(maskedit1.text);
TbSeries.post;
DbLookUpComboBox1.enabled:=false;
GroupBox1.enabled:=false;
MaskEdit1.enabled:=false;
DbEdit1.Enabled:=false;
DbEdit2.Enabled:=false;
DbEdit3.Enabled:=false;
DbEdit4.Enabled:=false;
DbEdit5.Enabled:=false;
DbEdit6.Enabled:=false;
DbEdit7.Enabled:=false;
DbEdit8.Enabled:=false;
DbEdit9.Enabled:=false;
DbEdit10.Enabled:=false;
DbEdit11.Enabled:=false;
DbEdit12.Enabled:=false;
DbEdit13.Enabled:=false;
DbEdit14.Enabled:=false;
DbEdit15.Enabled:=false;
end;
Anonymous
Curtidas 0