Search options (Page 345 of 400)

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
var
    sFile: string;
begin
     Form1.DBImage1.Clear;
     Form1.DBImage1.LoadFromDatabase('employees', 'photo', Form1.GridEmployees.dbItemID);

     sFile := SQLExecute('SELECT path_filename FROM employees WHERE id=' + Form1.GridEmployees.sqlValue);
     if sFile <> '' then OpenFile(ExtractFileDir(Application.ExeName) + sFile) else ShowMessage('Файл отсутствует');
end;

Form1.TableGrid1.BestFitColumns(); // автоподбор ширины по содержимому ячеек
Form1.TableGrid1.BestFitColumns(bfBoth); // автоподбор ширины по содержимому ячеек и названия колонок
Form1.TableGrid1.BestFitColumns(bfHeader); // автоподбор ширины по названию колонок

if FileExists('здесь указываем полный сетевой путь файла базы данных sqlite.db') then
   SQLExecute ('INSERT INTO inoutlog (user, action, date) VALUES ('+ sCurrentUser +',"вихід",'+ sCurrentDate +');');

1.46 (27.10.2014)
Added sound functions
Added function for for selecting folder
Added function for working with system registry
Available compiled variant of script file
Added property dbInitialDir for component DBFile
Added custom sorting for Report button
Fixed some errors

 
1.45 (13.10.2014)
Added ability to select multiple components in the form designer
Added a new property CopyTo for DBFile component
Added many new features to the script
Other minor changes


1.44 (24.09.2014)
Added OnChange event for TableGrid
Added function for script SaveFileFromDataBase
Added methods BeginUpdate and EndUpdate for TableGrid
Added ability to search by month and year in DataTimePicker
Added other functions for script
Finished several bugfixes 
 

1.43 (26.08.2014)
Notification about error location in the script
New functions for the script
Fixed case insensitive search functionality
Other small changes and improvements


1.42 (24.07.2014)
Added ability to create report without using SQL query
Improved navigation through forms for projects with large amount of forms
Added several new functions to the script


1.41 (21.06.2014)
New functions added to the script
Added properties and methods of components
Bug fixes


1.40 (20.05.2014)
Added script (Pascal).
Fixed some bugs.


1.39 (08.05.2014)
Small changes and improvements


1.38 (16.04.2014)
Calculated footer in TableGrid.  
Consecutive numbering in the TableGrid.  
Sorting in TableGrid
 



1.37 (08.04.2014)
More convenient object inspector
Highlighting in SQL syntax
Other minor improvements


1.36 (20.03.2014)
Saving to database links to the file or folder
Incremental (instant) search
Fixed some bugs


1.35 (04.02.2014)
Linked lists.
TableName property in ComboBox replaced ForeignKey.
Able to refer to a dictionary a few times from a single table.
Other minor improvements and bug fixes.
 


1.31 (25.02.2014)
Input masks for TextBox
New property ReadOnly for TextBox and Memo
New filter for TextBox %s%
Automatic detection of links in a TextBox
Other minor improvements and bug fixes


1.30 (12.02.2014)
Calculated fields
Expression editor for calculated fields, and SQL queries
New type of field: Real
Search on grids (Ctrl+F)
Other minor additions

 
1.26 (28.01.2014)
Sizable forms
Export reports to: Word, Excel, PDF, HTML, OpenOffice, JPEG, TIFF
Fixed some bugs
Other minor additions 

 

1.25 (20.01.2014)
Opportunity for ComboBox to specify multiple fields, example: {field1}, {field2}. 
For "TextBox" and "Memo" added parametr "DefaulValue"
Drag and Drop for Tab with forms
Icons for buttons
Many other improvements


1.21 (14.11.2013)
Added the ability to embed SQL query data from visual components
Fixed some bugs 
 

1.2 (7.10.2013)
Ability to work with the database via the LAN
Report Designer
New type of action for a button (SQL query)
Search terms (=, <,>) for components Edit
Fixed some bugs


 ......... 
 1.0 (09.10.2013)
First version.

procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    SQLExecute ('INSERT INTO table1 (d1) VALUES ('+ frmEmployee.Edit1.sqlValue +')');
    SQLExecute ('INSERT INTO table2 (d2) VALUES ('+ frmEmployee.Edit1.sqlValue +')');

    Form1.TableGrid1.dbUpdate;
    Form1.TableGrid2.dbUpdate;
    frmEmployee.Close;
end;

Form1.ComboBox1.dbItemID := -1;