A programozás könnyű lecke 8
Az eredmény a következő: *:
Menjünk tovább. Most meg kell adnunk a kezelőt a "Hozzáadás" gombra kattintva (onClick). ez így fog kinézni:
eljárás TfrmAddSklad.btnAddClick (Feladó: TObject);
kezdődik
ha (Length (eSkladName.Text)> 0) // Ellenőrizze, hogy a raktár nevét beírta-e.
és (cbFIO.KeyValue> 0) // Ellenőrizze a vezetéknevet.
majd
kezdődik
tblSklad.Active: = Igaz;
tblSklad.Insert; // adja hozzá a bejegyzést.
tblSklad.FieldValues ['Név']: = eSkladName.Text; // Adja meg a raktár nevét.
tblSklad.FieldValues ['Storeman']: = cbFIO.KeyValue; // Adja meg a vezetéknév azonosítóját.
tblSklad.Post;
ModalResult: = mrOk; // Azt mondjuk, hogy minden egy köteg, visszatért mrOk.
vég
más
ModalResult: = mrNone; // Ellenkező esetben adja vissza a mrNone értékét.
végén;
Írja be az eseménykezelőket is az ablakunknak - onShow:
eljárás TfrmAddSklad.FormShow (Feladó: TObject);
kezdődik
eSkladName.Text: = ''; // Tisztítsa meg a TEdit tartalmát.
tblFio.Active: = Igaz; // Csatlakozzunk az asztalhoz.
végén;
eljárás TfrmAddSklad.FormBriss (Feladó: TObject; var Művelet: TCloseAction);
kezdődik
tblFio.Active: = hamis; // Megszakítja a kapcsolatot az asztalhoz.
végén;
Itt egy új raktár hozzáadására szolgáló párbeszédpanel készen áll. Most összekapcsoljuk a raktárak ablakával. Ehhez adj hozzá egy gombot a raktárak ablakához, hívd "btnAdd" -nek, és a gomb feliratában (Caption) írj "Add" -ot. A jövőben írjuk az eseménykezelőt a kattintáshoz (onClick):
eljárás TfrmStores.btnAddClick (Feladó: TObject);
kezdődik
// Ellenőrizze, hogy hozzáadta-e a bejegyzést.
ha frmAddSklad.ShowModal = mrOk majd // Megjeleníti az ablakot, és olvassa el az eredményt az ablakból.
kezdődik
// az új oldalon végrehajtjuk a kérést.
Query.Active: = hamis;
Query.Open;
végén;
végén;
Ha alaposan megnézed, észreveheti, hogy a ShowModal megjeleníti a párbeszédpanelt, ami nagymértékben leegyszerűsíti a munkánkat, mivel az alkalmazásunk összes ablakának zárolva van, és ha bezárja a párbeszédpanelt, feldolgozhatjuk az eredményt. =)
Futtassa a programot, nézze meg, mi van, hívja a párbeszédablakunkat, töltse ki a szükséges adatokat és kattintson a Hozzáadás gombra:
Lásd az eredményt, amint látja, a rekord sikeresen hozzá lett adva:
