Search options (Page 1 of 59)

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var  vi: integer; vs: string;
begin
  for vi := 0 to form1.tablegrid1.RowCount-1 do
  begin
    form1.tablegrid1.SelectedRow := vi;
    repeat
      if inputquery('Candidate:  ' + form1.tablegrid1.cells[1,vi] + ' ' + form1.tablegrid1.cells[0,vi], 'Review:', vs) then
      begin
        if not (vs in ['a','d','A','D']) then
        begin
          if (messagebox('Invalid Input','Warning',MB_RETRYCANCEL+MB_ICONWARNING) = IDCANCEL) then
            break;
        end
        else
        begin
          if (vs in ['a','A']) then vs := 'APPROVED' else if (vs in ['d','D']) then vs := 'DENIED';
          sqlexecute('update candidates set outcome = "'+uppercase(vs)+'" where id = "'+inttostr(form1.tablegrid1.row[vi].id)+'"');
          form1.tablegrid1.dbupdate;
          vs := '';
          break;
        end;
      end
      else
        exit;
    until 1=0;
  end;
end;

function DB_CopyRecord( ATableName: string; AID: integer ):integer;
// universal function for copying a record
begin
   // create a temporary table with a structure identical to the copied record
   SQLExecute('CREATE TEMPORARY TABLE tmp AS SELECT * FROM ['+ATableName+'] WHERE id = '+IntToStr(AID));
   // reset the value of the ID field
   SQLExecute('UPDATE tmp SET id = NULL');
   // insert record back
   SQLExecute('INSERT INTO ['+ATableName+'] SELECT * FROM tmp');
   // get the ID of the new entry
   Result := Last_Insert_ID();
   // delete temporary table
   SQLExecute('DROP TABLE tmp');
end;

CONST
    VERSION = 12; // текущая версия вашего проекта

procedure Form1_OnShow (Sender: TObject; Action: string);
var
  tmpTimer:TTimer;
begin
  // создаем таймер на 5 минут
  tmpTimer := TTimer.Create(Application);
  tmpTimer.OnTimer := @OnTimer;
  tmpTimer.Interval := 1000*60*5;  // 5 минут
  tmpTimer.Enabled := True;
  // первая проверка при запуске программы
  OnTimer(tmpTimer);
end;

procedure OnTimer(Sender: TObject);
var
    s: string;
begin
    s := HTTPGet('http://yoursite.com/version.txt');
    if ValidInt(s) then
    begin
        if StrToInt(s) > VERSION then
        begin
            TTimer(Sender).Enabled := False;
            ShowMessage('У Вас не актуальная версия программы, обратитесь к разработчику');
            Form1.Close;
        end;
    end;
end;

SELECT 
  p.id, t.edType, d.edDensity, c.edColor, p.height, p.weight  
FROM pieces p
LEFT JOIN type t ON t.id = p.id_type
LEFT JOIN density d ON d.id = p.id_density
LEFT JOIN color c ON c.id = p.id_color
WHERE
...

Pieces.height >= {btn_search_1}

( (Pieces.height >= {btn_search_1}) OR ( {btn_search_1} is NULL  )