Search options (Page 141 of 400)

Проверил, на форме frmApplication ввожу скидку в компонент edDiscount, значение к Оплате в компоненте edPayment меняется сразу.
Или я не правильно понял?

Пример, как очистить компоненты

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Clear;
    Form1.Memo1.Clear;
    Form1.CheckBox1.State := cbGrayed;
    Form1.ComboBox1.dbItemID := -1;
    Form1.DateTimePicker1.Checked := False;
end;

Вы можете разместить на форме например две кнопки с действием "Сохранить запись" и установить их свойство Visible = False, т.о. они будут невидимы. Далее разместите еще одну кнопку, и создайте для нее событие OnClick, в итоге получится скрипт:

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Button1.Click;
    Form1.Button2.Click;
end;

т.е. одна кнопка нажимает на две остальные невидимые, которые имеют действие "Сохранить запись"

Либо можете реализовать сохранение в несколько таблиц с помощью исполнения SQL запроса INSERT TO с использованием функции SQLExecute, но это чуть сложней.

If  issued, not issued missing is categories of book, why you don't use separate table to store categories?
Please check out this project, where every person can belongs to a category.

Please download latest version
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

For all child forms set property Position = poMainFormCenter

kovalenko
Да, спасибо за найденную ошибку.

kovalenko

Ошибка была в самой программе, скачайте пожалуйста последнюю бета версию 3.4
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0

Также по какой то причине в вашем проекте была ошибка в структуре БД, которая как то связана с удалением таблицы operation, поправил

Также я удалил внешний ключ application.id_completeness, т.к. он фактически не используется

Hello.

I have added button with SQL query for that
https://www.dropbox.com/s/vde4a1hwzmkht … d.zip?dl=0

Здравствуйте.

К сожалению в вашем сообщении нет картинки.
Также приложите пожалуйста ваш проект (zip файл без exe и dll)

Приложите пожалуйста проект, с описанием действий приводящих к ошибкам. Попробую протестировать на пустой базе.

It's possible.

1. Set property Position = poDesigned for Form2

2. Script for button with action ShowForm:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form2.Left := Form1.Left - Form2.Width;
    Form2.Top := Form1.Top + Form1.Height;
end;

I made some changes in your project.

Add new database table "ManyToMany" to assign data between RegAssignToTrainerBatch and AddStudentClassFromDatabase.
Now you can add data from "AddStudentClassFromDatabase" to TableGrid on form "RegAssignToTrainerBatch"

But I can't understand your question about ComboBox

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