Search options (Page 3 of 4)

procedure frmApplication_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     frmApplication.Memo3.Lines.Add(frmApplication.TableGrid4.Cells(0, ARow)+ ' - ' +frmApplication.TableGrid4.Cells(1, ARow)+ '  - ' +frmApplication.TableGrid4.Cells(2, ARow)+ ' -  ' +frmApplication.TableGrid4.Cells(3, ARow)+ '  -  ' +frmApplication.TableGrid4.Cells(4, ARow));
end;

Здравствуйте.

В принципе это должно работать, только вы забыли begin end написать для условия

procedure ReportAktiExpmodel2OnBeforePrint(Sender: TfrxComponent);
begin
   if <Report."AktiExp.model2"> = '' then
   begin
     Line28.Top := 1.50;
     Line28.Left := 0.10;   
   end;

end;

begin
                                            
end.

если не заработает, пожалуйста приложите проект

Bullet3203 wrote:

можно как то запомнить нужный логин, что бы постоянно его не выбирать в списке? (если их например штук 30) например на форме frmLogin сделать CheckBox при выборе которого запоминался логин.

Сделал для вас пример

Ситуация схожа с вашей, только немного для других целей. Посмотрите, может натолкнёт не мысль

if frmApplication.CheckBox1.Checked then
   begin
   frmApplication.cdRepStatus.dbFilter := '(repairstatus = "Выдано/Оплачено") or (repairstatus = "Выдано/Ожидание оплаты") ';
   UpdateDatabase('repairstatus');
   end else
   begin
   frmApplication.cdRepStatus.dbFilter := '(repairstatus = "Принят") or (repairstatus = "В работе") or (repairstatus = "Ожидание ЗПЧ") or (repairstatus = "На согласовании") or (repairstatus = "Согласовано") or (repairstatus = "Готово") or (repairstatus = "Без ремонта") or (repairstatus = "Выдано/Ожидание оплаты") ';
   UpdateDatabase('repairstatus');
    end;

Измените этим скриптом:
if Form1.Tablgerid1.Cells{0,0} <> Form1.Edit1.Text then ShowMessage('Bla bla bla');

if Form1.Tablgerid1.Cells{1,1} <> Form1.Edit1.Text then ShowMessage('Bla bla bla');

Bullet3203
Необходимо создать еще одно поле в таблице с пользователями, например "Archived" с типом ДА/НЕТ, также сделайте данное поле обязательным для заполнения и установите Значение по умолчанию = 0

при установки значения Да для данного поля будем скрывать пользователя из ComboBox при создании записи новой записи, пример:

procedure frmAbonent_OnShow (Sender: string; Action: string);
begin
    if Action = 'NewRecord' then
        frmAbonent.cbArchived.dbFilter := 'archived <> 1' else
        frmAbonent.cbArchived.dbFilter := '';

    frmAbonent.cbArchived.dbUpdate;
end;

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