Search options (Page 264 of 400)

procedure Form1_bScript_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.GridEmployees.dbSQL:='SELECT id, lastname, firstname, salary FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
    Form1.GridEmployees.dbGeneralTable := 'employees'; // Optional (in the case of complex SQL queries with sub queries, you need to choose the main table of the database, also it need to be able to edit or delete the entry from the table component)
    Form1.GridEmployees.dbListFieldsNames :='delete_col,name2,name3,name4'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
    Form1.GridEmployees.dbSQLExecute;
end;

SQLExecute('INSERT INTO tablename (firstname, lastname) VALUES ('+Form1.Edit1.sqlValue+','+ Form1.Edit2.sqlValue+')');

SELECT lastname, firstname FROM tablename ORDER BY lastname;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[1].Sorted := True; // сортировка второй колонки (нумерация колонок с нуля)
end;

var
   sName: string;
begin
   sName := SQLExecute ('SELECT name FROM catalog'); 

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);  
var
    Results: TDataSet;
begin
    SQLQuery('SELECT name, sort FROM person', Results);
    while not Results.Eof do
    begin
        Form1.Memo1.Lines.Add( Results.FieldByName('name').AsString;
        Form1.Memo1.Lines.Add( Results.FieldByName('sort').AsString;
        Results.Next;
    end;
    Results.Free;
end;

procedure frmCards_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
   frmCards.cbPerson.dbItemID := SQLExecute ('SELECT IFNULL(id_person, -1) FROM card WHERE id='+frmCards.TableGrid1.sqlValue);

   if frmCards.cbPerson.dbItemID<>-1 then
   begin
      frmCards.cbDepartament.dbItemID := SQLExecute ('SELECT IFNULL(id_departament, -1) FROM person WHERE id='+frmCards.cbPerson.sqlValue);
      frmCards.cbOtdel.dbItemID := SQLExecute ('SELECT IFNULL(id_otdel, -1) FROM person WHERE id='+frmCards.cbPerson.sqlValue);
      frmCards.cbRoom.dbItemID := SQLExecute ('SELECT IFNULL(id_room, -1) FROM person WHERE id='+frmCards.cbPerson.sqlValue);
      frmCards.cbJob.dbItemID := SQLExecute ('SELECT IFNULL(id_job, -1) FROM person WHERE id='+frmCards.cbPerson.sqlValue);
   end;
end;

SELECT 
100-TOTAL(money_earn) - (SELECT TOTAL(TableB.electicity) FROM TableB)
FROM TableA