Ну я с БД не очень хорошо знаком, но думаю что так:
Код:
ADOConnection1.ConnectionString:='Provider = Microsoft.Jet.OLEDB.4.0;Data Source = ' + ExtractFilePath(Application.ExeName) + '\Programms.mdb';
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Text:='select * from Table';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
if ADOQuery1ProgrammName.AsString = Application.Title then //Если это наша программа
begin
LicenseDate:=ADOQuery1LicenseDate.AsDate;
if MonthBetween(Date, LicenseDate) < 1 then
//Показываешь диалог
Break;
end;
ADOQuery1.Next;
end;
ADOQuery1.Close;
P.S. Вполне возможно что я ошибаюсь. |