Редактиране на програмен код - Studiopedia

Връзката между таблиците в нашата база данни се основава на полето „Ключ“. Това поле отсъства във формуляра - стойността му се генерира автоматично. След като сме направили записи в първия панел на GroupBox, те трябва да бъдат запазени, така че други таблици да могат да се свързват с направените записи.

За да запазим промените в таблицата, ще напишем метода Post, който ще се изпълни при излизане от GroupBox.

Изберете първото GroupBox и щракнете двукратно върху събитието onExit в раздела Events на Object Inspector. Това събитие се задейства всеки път, когато потребителят навигира до друго групово поле или бутони, разположени в долната част на прозореца. В генерираната процедура въведете кода:

процедура TfEditor.GroupBox1Exit(Sender: TObject);

ако fDM.TLichData.Modified тогава

Въведеният код означава, че ако записът е променен, то той трябва да бъде записан. Повдигнете събитие onExit за останалите GroupBoxes и запазете промените в записите в съответните таблици по същия начин.

if fDM.TTelephones.Modified then

В процедурата за щракване върху бутона „Запазване и изход“ кодът е прост:

ако fDM.TLichData.Modified тогава

ако fDM.TDoljnost.Modified тогава

if fDM.TAdres.Modified then

if fDM.TTelephones.Modified then

За бутона "Добавяне на служител" напишете:

Тук добавяме нов запис към всяка таблица и преместваме курсора към първия DBEdit, където се редактира фамилното име.

Генерирайте процедура onClick за бутона Редактиране. Ще има само един ред код: fEditor.ShowModal;

if RadioButton1.Checked then

Тук проверихме дали дадения радио бутон е активиран. Ако да, тогава променяме връзката на долната DBGrid мрежаи го свържете към таблицата Адреси. В крайна сметка връзката на мрежата с таблицата се осъществява чрез съответния DataSource компонент, а ние имаме четири от тях. Свързвайки се с един или друг DataSource, можем програмно да променим таблицата, показана в мрежата.

За събитието onClick на бутона за избор с етикет „Телефони“, кодът ще бъде:

if RadioButton2.Checked then

И съответно за събитието onClick на радио бутона с надпис „Позиция“, кодът ще бъде както следва:

if RadioButton3.Checked then

Така в долната решетка показваме една или друга подчинена таблица и всеки път тези таблици ще показват данните на текущия служител.

Запазете проекта и го компилирайте (по подразбиране компилирането се извършва всеки път, когато проектът се стартира за изпълнение).

Не намерихте това, което търсихте? Използвайте търсачката:

Деактивирайте adBlock! и обновете страницата (F5)наистина е необходимо

---