Редагування програмного коду - Студопедія

Зв'язок між таблицями в базі даних відбувається по полю “Ключ”. На формі цього поля відсутня – його значення генерується автоматично. Після того, як ми внесли записи на першій панелі GroupBox, їх необхідно зберегти для того, щоб інші таблиці змогли зв'язатися із внесеними записами.

Для збереження змін у таблиці ми пропишемо метод Post, який виконуватиметься при виході з панелі GroupBox.

Виділіть перший GroupBox і двічі клацніть на подію onExit на вкладці Events інспектора об'єктів. Ця подія відбувається щоразу, коли користувач перейде до іншої панелі GroupBox, або до кнопок, розташованих у нижній частині вікна. У згенерованій процедурі впишіть код:

procedure TfEditor.GroupBox1Exit(Sender: TObject);

if fDM.TLichData.Modified then

Введений код означає, що якщо запис було змінено, то його слід зберегти. Згенеруйте подію onExit для панелей GroupBox, що залишилися, і таким же чином збережіть зміни записів у відповідних таблицях.

if fDM.TTelephones.Modified then

У процедурі натискання на кнопку “Зберегти та вийти” код простий:

if fDM.TLichData.Modified then

if fDM.TDoljnost.Modified then

if fDM.TAdres.Modified then

if fDM.TTelephones.Modified then

Для кнопки "Додати співробітника" пропишіть:

Тут ми додаємо новий запис у кожну таблицю та переводимо курсор у перший DBEdit, у якому редагується прізвище.

Згенеруйте процедуру onClick для кнопки "Редагувати". Тут буде лише один рядок коду: fEditor.ShowModal;

якщо RadioButton1.Checked then

Тут ми перевірили, чи включена ця радіокнопка. Якщо так, то ми змінюємо зв'язок нижньої сітки DBGridта підключаємо її до таблиці Adres. Адже зв'язок сітки з таблицею здійснюється через відповідний компонент DataSource, а в нас їх чотири. Підключаючись то до одного, то до іншого DataSource, ми можемо програмно змінювати таблицю, що відображається в сітці.

Для події onClick радіокнопки з написом “Телефони” код буде таким:

якщо RadioButton2.Checked then

А для події onClick радіокнопки з написом “Посада”, відповідно, код буде наступним:

якщо RadioButton3.Checked then

Таким чином, у нижній сітці ми відображаємо то одну, то іншу підлеглу таблицю, і щоразу в цих таблицях будуть показані дані поточного співробітника.

Збережіть проект і скомпілюйте його (за замовчуванням компіляція відбувається щоразу під час запуску проекту виконання).

Чи не знайшли те, що шукали? Скористайтеся пошуком:

Вимкніть adBlock! і оновіть сторінку (F5)дуже потрібно

---