Între antetul procedurii și instrucțiunea de început, începeți cu descrierea variabilelor locale: var i, RC: integer; .
Dacă faceți clic pe un spațiu gol din formular și selectând evenimentul OnActivate pentru acesta, vă veți permite să creați un handler de evenimente asociat activării formularului. Ar trebui să fie după cum urmează:
dacă DataModule2.Table1.Active = False atunci
Formularul pe care l-am creat ar trebui să apară când este selectat elementul de meniu "Data Entry | List" a formei principale a aplicației noastre.
Verificați funcționalitatea părții dezvoltate a aplicației utilizând programul DatabaseDesktop.
Construim un nou formular. Inscripția pe formular este "Atestare". Am pus pe formular două componente DBGrid și un buton. Proprietatea DataSource a componentei DBGrid1 este DataModule2.DataSourse3. iar componenta DBGrid2 este DataModule2.DataSourse2. Vom stabili dimensiunile componentelor și alte proprietăți în conformitate cu Figura 6.6.
În meniul principal, selectați File | UseUnit .... în fereastra care apare apare numele Unit2. O să faceți clic pe OK. Acesta este modul în care am conectat modulul Unit2 pentru utilizarea acestuia ca element de interfață. Structura interconectării componentelor poate fi prezentată în conformitate cu Figura 6.7.
Figura 6.6 - Vederea celei de-a patra forme
Manipulatorii de evenimente vor fi doi: unul dintre ele va fi rulat atunci când formularul este activat, iar celălalt când butonul "Ieșire" este apăsat. Primul dintre operatori arată astfel:
cu DataModule2.Query1 face
SQL.Add ('SELECT FIOFROM list.DB');