Search options (Page 302 of 400)

Приветствую, можно так

Form1.mniReport.Click; 

In fact, when you delete something from database, information from the database is not deleted, this place is marked as free, this place will be occupied by new records.

But it is possible to delete these records actually. Open your database file (sqlite.db) in SQLite Studio, then run command Vacuum.
Menu: Databases > Vacuum

You can use your project for multiple users using LAN network (shared folder)
just place your database file (sqlite.db) in the shared folder, and set up path to the sqlite.db file using settings:
Options > Settings > Database location

also you can using Remote Desktop Connection (LAN and Internet)

Hello,

Please, send me your project to support@drive-software.com
or attach here (zip file without exe and dll)

Thanks.

procedure Form1_OnShow (Sender: string; Action: string);
var
   MyItem1: TMenuItem;
begin
   MyItem1 := TMenuItem.Create (Form1);
   MyItem1.Caption := 'Delete Record';
   MyItem1.OnClick := @MenuClick1;

   Form1.GridEmployees.dbPopupMenu.Items.Insert(0, MyItem1);
end;

procedure MenuClick1;
begin
    Form1.bDelete.Click;
end;

begin
end.

где Form1.bDelete - это кнопка с действием "Удалить запись"

вместо Form1 вы должны написать название вашей главной формы.

Компоненту "Счетчик" присваивается новый номер, когда форма вызывается для создания новой записи (действие кнопки Новая запись)
в вашем проекте я не смог найти такую кнопку, которая бы вызывала данные формы для создания новой записи.

gozalovsamir
Это не имеет отношение к скриптам.
Каждый компонент имеет свойство Anchors, который позволяет настроить поведение компонента при изменении размеров окна.

Можете прислать ваш проект на support@drive-software.com
я его настрою должным образом.

p.s.
Пожалуйста, не создавайте на форуме несколько одинаковых сообщений.
Также не создавайте тему в английской части форума на русском языке.

Приветствую, попробуйте так

в столбик

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Memo1.Lines.Add(Form1.ComboBox1.Text);
end;

через запятую

procedure Form1_Button15_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Memo1.Text := Form1.Memo1.Text + Form1.ComboBox1.Text + ',';
end;

тогда можно при запуске проекта выполнять SQL запрос, который обновит статус тех учащихся автоматически, у которых закончился срок обучения, при этом остается возможность перевести статус учащегося на "Закончивший" досрочно.

SQLExecute ('UPDATE main SET id_status=2 WHERE (Date(dateEnd) < Date(''now'')) AND (id_status=1)'); 

try this:

sDates := ''''+FormatDateTime('yyyy-MM-DD 00:00:00.000', Form1.DateTimePicker1.DateTime) + '''';

К сожалению надежного способа в текущей версии нет для полноценной защиты если работать с базой данных через расшаренную папку. В будущем планирую сделать поддержку шифрования sqlite.db файла

В   качестве  альтернативы,  можно  воспользоваться  функцией  Windows Server - Удаленный рабочий стол (Remote Desktop Connection)

где вы можете указать, чтобы когда пользователь зашел на удаленный компьютер, вместо рабочего стола, запустилась программа для работы с базой данных:

Control  panel  >  Administrative  tools > Computer management > Local Control   panel  >  users  and  Group  >  [select  UserName]  >  Tab: Control panel > "Environment"

Таким образом доступ к файлу sqlite.db будет закрыт.