Вийшов наступний результат *:
Поїхали далі. Тепер треба написати обробник натискання кнопки "Додати" (onClick). він буде виглядати наступним чином:
procedure TfrmAddSklad.btnAddClick (Sender: TObject);
begin
if (Length (eSkladName.Text)> 0) // Перевіряємо, ввели назву складу.
and (cbFIO.KeyValue> 0) // Перевіряємо наявність вибору прізвища.
then
begin
tblSklad.Active: = True;
tblSklad.Insert; // додаємо запис.
tblSklad.FieldValues [ 'Name']: = eSkladName.Text; // Вказуємо назву складу.
tblSklad.FieldValues [ 'Storeman']: = cbFIO.KeyValue; // Вказуємо ідентифікатор на прізвище.
tblSklad.Post;
ModalResult: = mrOk; // Говоримо що все пучком, повертаючи mrOk.
end
else
ModalResult: = mrNone; // Інакше повертаємо значення mrNone.
end;
Так-же пишемо обробники подій нашого вікна - onShow:
procedure TfrmAddSklad.FormShow (Sender: TObject);
begin
eSkladName.Text: = ''; // Чистимо вміст TEdit.
tblFio.Active: = True; // Підключаємося до таблиці.
end;
procedure TfrmAddSklad.FormClose (Sender: TObject; var Action: TCloseAction);
begin
tblFio.Active: = False; // Розриваємо зв'язок з таблицею.
end;
Ось і діалогове вікно додавання нового складу готово. Тепер нам необхідно його пов'язати з вікном "Склади". Для цього додаємо кнопку на форму вікна "Склади", назвемо її "btnAdd", а в заголовку кнопки (Caption), напишемо "Додати". Надалі пишемо обробник події натискання кнопки (onClick):
procedure TfrmStores.btnAddClick (Sender: TObject);
begin
// Перевіряємо, чи була додана запис.
if frmAddSklad.ShowModal = mrOk then // Виводимо вікно і читаємо результат, отриманий від вікна.
begin
// за новою виконуємо запит.
Query.Active: = False;
Query.Open;
end;
end;
Якщо придивитися, то можна помітити, що для виведення на екран діалогове вікно використовується ф-я ShowModal, що значно спрощує нам роботу, так-як відбувається блокування всіх вікон нашого застосування, а по закритті діалогового вікна ми можемо обробити результат. =)
Запускаємо програму, дивимося що ж у нас вийшло, викликаємо наше діалогове вікно, заповнюємо потрібними нам даними і натискаємо додати:
Дивимося результат, як бачимо, запис була успішно додана:
