Search options (Page 244 of 400)

пожалуйста не редактируйте вопрос если я после него что то ответил, т.к. я не проверяю это, и привел вам код без учета новой сущности "окончания университета", данного примера достаточна чтобы доработать его под ваши нужны самостоятельно.

I sent you fixed project.

jumper
Please attach your project  like zip file without exe and dll.
or send to support@drive-software.com

попробуйте  так, необходимо использовать только OnChange

procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i, c: integer;
   sCell: string;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         sCell := Form1.GridEmployees.Cells[0,i];
         if ValidDate(sCell) then
             if (Now - StrToDate(sCell)) > 5 then
                 Form1.GridEmployees.Cell[0,i].Color := clRed

     end;
end;

jumper

You found a bug.
Please download latest beta version here, bug fixed
http://myvisualdatabase.com/forum/viewtopic.php?id=1838

Also I recommend you to use event OnChange for that.

Thanks.

I added this script to report.
Please download an example:

wertyby
К сожалению я не смог понять вопроса, пожалуйста опишите где именно в вашем проекте проблема. (названия полей, формы, компонентов)

tcoton
please attach your project.

видимо баг, к сожалению я использую сторонний компонент для подсветки синтаксиса, постараюсь связаться с разработчиком. Спасибо.

в версии 2.1 такого не наблюдается?

да, в финальной версии можно будет изменять все свойства компонентом через инспектор объектов.

Can you test it?
just run exe file and click button.

Try to use event OnCloseUp

procedure Details_ComboSimNr_OnCloseUp (Sender: string);
begin
   if CheckDuplicate(Details.dbAction, 'Users', 'id_SIM', Details.ComboSimNr.SQLValue, Details.ButtonSaveDet.dbGeneralTableId) then
  begin
     MessageDlg('This SIM number is already in use.', mtError, mbOk, 0); // Displays a red 'X', header is: Error
     Details.ComboSimNr.dbItemID := -1;
   end;
end;

also you can create calculate field to display if record is used

(CASE WHEN (SELECT COUNT(*) FROM person WHERE person.id_groups=groups.id)>0 THEN '(used)' ELSE '' END)

in the combobox you can show two field, Fieldname = {fieldname}   {calc_fieldname}