Консультация № 188651
16.01.2016, 14:18
0.00 руб.
0 1 0
Здравствуйте! Прошу помощи в следующем вопросе:
У меня в проге работает таймер. Пользовательдолжен ввести в едит время - продолжительность работы таймера.
При нажатии кнопки старт таймер включается и после окончания работы мн нужно чтобы время включения таймреа и дата автоматически вводились в бД аксесс. Вот код. Вроде бы все правильно но не работает
procedure TForm1.Timer1Timer(Sender: TObject);
begin
mediaplayer1.Open;
mediaplayer1.Play;
BitBtn1.click;
timer1.Destroy;
if adoconnection1.Connected =true then
begin
adotable1.Insert;
adotable1.FieldByName('Äàòà').AsDateTime:=DateTimePicker1.Date;
adotable1.FieldByName('Îòðàáîòàííûå ÷àñû').AsInteger:=StrToInt(LabeledEdit1.Text);
adotable1.FieldByName('Âðåìÿ').AsDateTime:=now ;
end
else ShowMessage('Ó âàñ íå ïîäêëþ÷åíà áàçà äàííûõ');
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Interval:=strtoint(labeledEdit1.Text)*1000;
timer1.Enabled:=true;
label1.visible:=true;
end;

end.

Обсуждение

давно
Профессионал
153662
1070
16.01.2016, 14:38
общий
16.01.2016, 15:12
Адресаты:
Вместо
Код:
timer1.Destroy;
лучше использовать
Код:
Timer1.Enabled:= False;
Не пойму зачем эти строки идут подряд
Код:
BitBtn1.click;
timer1.Destroy;
, первой строчкой Вы его запускаете (программно нажав кнопку), а второй останавливаете, для чего?
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Форма ответа