Rezultatul este după cum urmează:
Să mergem mai departe. Acum trebuie sa scriem handler pentru a face clic pe butonul "Add" (onClick). acesta va arata astfel:
procedura TfrmAddSklad.btnAddClick (expeditor: TObject);
începe
dacă (Lungime (eSkladName.Text)> 0) // Verificați dacă numele depozitului a fost introdus.
și (cbFIO.KeyValue> 0) // Verificați prezența ultimului nume.
atunci
începe
tblSklad.Active: = Adevărat;
tblSklad.Insert; // adăugați intrarea.
tblSklad.FieldValues ['Nume']: = eSkladName.Text; // Specificați numele depozitului.
tblSklad.FieldValues ['Storeman']: = cbFIO.KeyValue; // Specificați identificatorul pentru numele de familie.
tblSklad.Post;
ModalResult: = mrOk; // Spunem că totul este un pachet, întorcându-l pe mrOk.
capăt
altfel
ModalResult: = mrNone; // În caz contrar, returnați valoarea mrNone.
se încheie;
De asemenea, scrieți operatorii de evenimente pentru fereastra noastră - onShow:
procedura TfrmAddSklad.FormShow (expeditor: TObject);
începe
eSkladName.Text: = ''; // Curățați conținutul TEdit.
tblFio.Active: = Adevărat; // Ne conectăm la masă.
se încheie;
procedura TfrmAddSklad.FormClose (expeditor: TObject; var Action: TCloseAction);
începe
tblFio.Active: = False; // Întrerupeți linkul spre masă.
se încheie;
Aici este gata caseta de dialog pentru adăugarea unui depozit nou. Acum trebuie să îl conectăm la fereastra Depozite. Pentru a face acest lucru, adăugați un buton la forma ferestrei Depozite, numiți-l "btnAdd", iar în captionul butonului (Caption) scrieți "Adăugați". În viitor, scriem un handler de evenimente pentru butonul de pe buton (onClick):
procedura TfrmStores.btnAddClick (expeditor: TObject);
începe
// Verificați dacă înregistrarea a fost adăugată.
dacă frmAddSklad.ShowModal = mrOk apoi // Afișați fereastra și citiți rezultatul din fereastră.
începe
// pe noul executăm cererea.
Query.Active: = False;
Query.Open;
se încheie;
se încheie;
Dacă te uiți atent, veți observa că am folosit f-ShowModal, care simplifică foarte mult munca noastră, astfel încât există o blocare a tuturor ferestrele aplicației noastre, iar pe de închidere, putem procesa rezultatul casetei de dialog pentru a afișa caseta de dialog. =)
Rulați programul, vedeți ce avem, sunați caseta de dialog, completați datele necesare și faceți clic pe adăugați:
Vedeți rezultatul, după cum puteți vedea, înregistrarea a fost adăugată cu succes:
