Search options (Page 301 of 400)

select
strftime('%d-%m-%Y',a.compdate),
b.class,
d.name,
a.exhibit,
a.judge,
c.place,
a.id
from competitions a
left outer join members d on a.id_members = d.id
left outer join classes b on a.id_classes = b.id
left outer join placement c on a.id_placement = c.id
where
(
(a.compdate like '%{edit2}%') or
(b.class like '%{edit2}%') or
(a.exhibit like '%{edit2}%') or
(a.judge like '%{edit2}%') or
(c.place like '%{edit2}%')
) AND (a.id_members={TableGrid1});

procedure Form2_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
  s := LowerCase(ExtractFileExt(Form2.dbFile.Text)); // получаем расширение файлы из компонента DBFile
  if (s<>'') and (s<>'.jpg') then // если расширение не сооветствует .jpg, тогда показываем сообщение об этом и отменяем действие сохранения записи
  begin
      ShowMessage('Допускается сохранять только JPG файлы');
      Cancel := True;
  end;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid.SelectedRow:= 0; // выбираем первую запись
    Form1.Button2.Click; // кликаем с помощью скрипта по кнопке с действием "Показать запись"
end;

procedure PRICE_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
  PRICE.Memo1.Text:= PRICE.TableGrid1.Cells(0, ARow); //текст выбранной ячейки в первой колонке
  PRICE.Memo2.Text:= PRICE.TableGrid1.Cells(1, ARow); //текст выбранной ячейки во второй колонке
end;

    if MessageDlg('message', mtInformation, mbYes+mbNo+mbCancel, 0) = mrYes then
    begin
        ShowMessage('Clicked Yes');
    end;