Search options (Page 5 of 400)

SQLQuery('SELECT Id, ''-'' || Name FROM Client WHERE Client.id=1', ResultsDoljnost1);

frmNote.Memo1.TagString := frmNote.Memo1.Text;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.GridEmployees.dbSQL:='SELECT id, "$autoinc", lastname, firstname, salary FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
    //Form1.GridEmployees.dbParentTable := 'ParentTable';
    //Form1.GridEmployees.dbParentTableId := 1;
    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;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.ComboBox1.DroppedDown := True;
end;

    Screen.Width;
    Screen.Height;

Application.User.id;
Application.User.Username;
Application.User.Email; 
Application.User.First_name; 
Application.User.Last_name; 
Application.User.Role; 
Application.User.RoleId; 
Application.User.is_admin; 
Application.User.is_active;
Application.User.is_logged; 
Application.User.Last_login; 
Application.User.Date_joined;