Советы по Delphi


Отображение формы ввода в БД CUSTOMER из рабочей формы ORDER


В моем проекте имеется подобная функция, определяющая количество элементов:

  1. В обработчике события OnClick я создаю форму ввода данных и вывожу ее командой .ShowModal. Затем я проверяю результат .ModalResult - и, если он равен mrOk, я передаю запись, в противном случае делаю отмену.

  • Я поместил имя модуля с формой ввода данных в список используемых модулей главной формы. Вот базовая схема моего кода:
  •     procedure TFrmItemNav.BtnChangeLocClick(Sender: TObject);
    {var DlgItemLoc: TDlgItemLoc;}
    begin
    DlgItemLoc := TDlgItemLoc.Create(FrmItemNav); DlgItemLoc.ShowModal;
    if DlgItemLoc.ModalResult = mrOk then {делаем все, что необходимо для постинга данных} else {очищаем и делаем Cancel};
    DlgItemLoc.Free; end;

    [001264]




    - Начало -  - Назад -  - Вперед -