|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Данные о сроке использования можно записывать или в БД или в реестр.
Я бы так делал. В базе данных создал в БД таблицу с одним полем (формат дата) и при запуске программы проверял бы есть там запись или нет. Если нет (значит первый запуск) то записываем в это поле текущую дату. Если есть то берем разницу между сегодняшней датой и (датой записанной в БД +30 дней) и выдаем нужное сообщение. |
#17
|
|||
|
|||
я не понимаю как эта прога будет без моего вмешательства всё это сверять. Код мне надо примерный код
|
#18
|
|||
|
|||
я всё это понимаю но мне нужно примерный код как это сделать. от текста пользы мало. я не понимаю как это написать. Я в делфи мало чего знаю вот и обратился к вам
|
#19
|
|||
|
|||
Ну может что то типа этого...Для начала конечно надо создать таблицу в БД. 1- поле id - ключевое, 2- поле - data -дата.
Код:
Var d:Integer; if DM.ADOTable1.RecordCount=0 then begin DM.ADOTable1.Edit; DM.ADOTable1.FieldByName('data').AsDateTime:=now; DM.ADOTable1.Post; MessageDlg('Срок действия лицензии составляет 30 дней.", mtInformation, [mbOk], 0) end else begin if (now+30)> (DM.ADOTable1.FieldByName('data').AsDateTime) then begin d:=DaysBetween(now+30,(DM.ADOTable1.FieldByName('data').AsDateTime)); MessageDlg('До истечения лицензии осталось '+IntToStr(d)+' дней', mtInformation, [mbOk], 0) end else begin MessageDlg('Срок действия лицензии истек!', mtInformation, [mbOk], 0); end; end; |
#20
|
|||
|
|||
Ок. Спасибо а какие компоненты ты на форму помещал??? Ведь не только код???
|
#21
|
|||
|
|||
Для данного кода только ADOTable1, который соединил с таблицей с датой.
Если у тебя база данных я так понимаю на форме уже должен быть ADOConnection и соответствующие компоненты ADOTable, ADOQuery, ADODataSet и т.п. |
#22
|
|||
|
|||
Ок спасибо большое
|