Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

проблема с сохранением данных   Найти похожие ветки 

 
aleko   (2006-09-19 21:08) [0]

Доброго времени суток, уважаемые мастера, помогите начинающему.
Пытаюсь написать программку, которая живет в трее и записывает в базу данных информацию о документах, отправляемых на печать.
Проблема: программа записывает данные получаемые от принтера (ниже привожу кусок кода с процедурой, в которой осуществляется запись), но при перезагрузке системы все данные которые она записала затираются. Если просто выйти из программы - то все остается на своих местах. Подскажите, почему так происходит, ведь вроде запись данных произошла, используется компонент 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;


 
Johnmen ©   (2006-09-19 22:13) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988623315&n=14


 
aleko   (2006-09-19 22:58) [2]

Спасибо.. :)



Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.061 c
2-1162364066
jimy
2006-11-01 09:54
2006.11.19
dcu


15-1162322057
DillerXX
2006-10-31 22:14
2006.11.19
Помогите с Матаном немного


15-1162464326
GRAND25
2006-11-02 13:45
2006.11.19
А как вам звонят 1С франчайзи?


1-1160130078
Ш-К
2006-10-06 14:21
2006.11.19
Сохранение MSWord документа в формате HTML


4-1150256660
xex32
2006-06-14 07:44
2006.11.19
Как принять штрих код со сканера в TEdit