Salut, eu consider acest subiect - la cererea cititorului meu de blog. După ce mi-a pus o întrebare: ca în TDBGridEh. în câmpurile (în înregistrări), unde este setată caseta de selectare. treci la altă masă. După câteva ore, am descărcat ultima versiune a bibliotecii Ehlib și am instalat-o. După cum știu, în componenta TDBGridEh. în contrast cu același TDBGrid. există o funcționalitate extinsă. Să aruncăm o privire la un exemplu simplu. Și mai întâi, vom forma proiectul nostru. Pe formular am următoarele componente:
Acum, să creăm baza noastră de date, cu care vom lucra. Tabelul I are următoarea structură:
Aceasta este, este clar unde vom afișa casetele de selectare. acolo avem un tip logic. dacă utilizați baza de date MySQL. este necesar pentru acest câmp să selectați tipul BOOL.
Acum, să ne ajustăm puțin componentele. Selectați componenta TADOConnection și setați proprietatea LoginPromt la False. Apoi, prin proprietatea ConnectionString. conectați-vă la baza noastră de date. Cum se face, puteți vedea aici.
Apoi, vom selecta componenta TDataSource și în proprietatea DataSet - selectați TADOQuery.
După aceasta, selectați componenta TADOQuery și în proprietatea Conexiune - selectați TADOCconnecție. În final, selectați componenta TDBGridEh și selectați TDataSource din proprietatea DataSource.
Dacă ați făcut totul corect, atunci conexiunea cu baza noastră de date ar trebui să funcționeze. Apoi, selectați încă o dată componenta TDBGridEh și faceți clic pe ea cu un dublu clic pe mouse, după care trebuie să apară următoarea fereastră:
În această fereastră, creați 2 coloane (coloană). În proprietățile FieldName, specificați - id. și a doua coloană - casetă de selectare.
Numele câmpului, în proprietatea FieldName, trebuie să se potrivească - cu numele câmpului, în tabela MS Access (În cazul nostru, în TableTest)
În caseta de selectare a câmpului în care doriți să afișați CheckBox, setați-l la True (în acest caz, acest câmp este o căsuță de selectare).
Acum trebuie să activam masa noastră, pentru aceasta scriem următorul cod în evenimentul OnShow:
Setați indicatorul la prima înregistrare și scoateți rezultatul - un mesaj, am următoarele:
Asta este, dacă indicatorul este setat, atunci întoarcerea va fi Adevărată. dacă nu - Fals. E simplu.
Când utilizați baza de date MySQL și câmpul BOOL pentru a seta casetele de selectare. rezultatul va fi o valoare de 1 sau 0 în loc de Adevărat / Fals 1 - caseta de selectare este selectată, 0 - nu este instalată
Acum, selectați înregistrările care au bifat caseta de selectare. Pentru a face acest lucru, vom folosi parțial articolul.
Selectați componenta TADOQuery. din proprietatea Parametri - creați un nou parametru care, în proprietatea Name, specifică verificarea. și în proprietatea DataType - ftBoolean. Toate, acum rămâne pentru noi să scriem următorul cod:
Totul este acum în cererea noastră sunt toate domeniile în care caseta de validare (indicatorul), și înregistrări de date poate face nimic: pentru a transfera la alte tabele, șterge, edita, și așa mai departe.
Codul sursă, ca întotdeauna, este atașat, îl descărcăm aici (IDE Delphi 7).
Am fost întrebat la un forum unde puteți cumpăra un joc de monopol. Desigur, am înțeles imediat că nu este doar un joc, ci și un antrenor de avere.
Articole similare
Articole similare
Trimiteți-le prietenilor: