Search options (Page 164 of 400)

date('now') - dates + (case when strftime('%m-%d', 'now') < strftime('%m-%d', dates) then -1 else 0 end)

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    h: integer;
    Max: integer;
begin
      // run calculator
      OpenFile('calc.exe');

      // finding window's calculator
      h := 0;
      Max := 20;
      while (h = 0) and (Max > 0) do
      begin
          h := FindWindow('', 'Calculator'); // find window using caption
          Dec(Max);
          Sleep(50);
      end;

      // move the calculator to the Form1
      if h <> 0 then
      begin
          SetWindowPos( h, 0, 10, 10, 0, 0, SWP_NOSIZE); // set position x=10, y=10
          SetParent( FindWindow('', 'Calculator'), Form1.Handle);
      end;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.TableGrid1.dbLimit := 1000;
end;

    Form1.TableGrid1.dbItemID := id; // id - id edited record

    Form1.TableGrid1.Cells[0,Form1.TableGrid1.SelectedRow] := SQLExecute('SELECT field1 FROM tablename WHERE id='+IntToStr(id));
    Form1.TableGrid1.Cells[1,Form1.TableGrid1.SelectedRow] := SQLExecute('SELECT field2 FROM tablename WHERE id='+IntToStr(id));
    Form1.TableGrid1.Cells[2,Form1.TableGrid1.SelectedRow] := SQLExecute('SELECT field3 FROM tablename WHERE id='+IntToStr(id));

procedure frmEmployee_OnShow (Sender: string; Action: string);
var
    DateMax: TDateTime;
    sDate: string;
begin
    if Action = 'NewRecord' then
    begin
        sDate := SQLExecute('SELECT MAX(endDate) FROM employees');
        if sDate <> '' then frmEmployee.DateTimePicker1.DateTime := SQLDateTimeToDateTime(sDate);
    end;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     Form1.edURL.Text := Web.LocationURL;
end;

    Web.FillElementByName('fd1', 'test');   // заполнение текстового поля
    Web.FillElementByID('qjump-select', '4'); // выбираем 4 элемент из списка
    Web.FillElementByID('fld3', '1'); // установка галочки в CheckBox

    Web.FillElementByName('req_username', 'test');
    Web.FillElementByName('qjump-select', '4');
    Web.FillElementByName('checkboxname', '1');