| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
проблема с сохранением данных [D7, Paradox]
aleko © (2006-09-19 21:08:00)Доброго времени суток, уважаемые мастера, помогите начинающему.
Пытаюсь написать программку, которая живет в трее и записывает в базу данных информацию о документах, отправляемых на печать.
Проблема: программа записывает данные получаемые от принтера (ниже привожу кусок кода с процедурой, в которой осуществляется запись), но при перезагрузке системы все данные которые она записала затираются. Если просто выйти из программы - то все остается на своих местах. Подскажите, почему так происходит, ведь вроде запись данных произошла, используется компонент Table - значит данные записаны в физическую таблицу (Database Desktop тоже их отображает), но тем не менее...
procedure TForm1.Tabl(PrintJob: array of TJobInfo1);
begin
with Table1 do
begin
Last;
if FieldValues['PJobs'] <> PrintJob[0].JobId then Append else Edit;
FieldValues['PJobs'] := PrintJob[0].JobId;
FieldByName('PTime').AsDateTime := Now;
FieldByName('PDate').AsDateTime := Now;
FieldByName('PDocument').AsString := PrintJob[0].pDocument;
FieldByName('PTotalPage').AsInteger := PrintJob[0].TotalPages;
FieldValues['PPrice'] := StrToFloat(Edit1.Text);
FieldValues['PSumma'] := FieldValues['PTotalPage']*StrToFloat(Edit1.Text);
Post;
end;
end;
aleko (2006-09-19 22:58:00) [1]Спасибо.. :)
Johnmen (2006-09-19 22:13:00) [2]http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988623315&n=14
| |
