Există numeroase moduri și motive pentru a personaliza producția unui DBGrid în Delphi. O modalitate este să adăugați căsuțe pentru ca rezultatul să fie mai atractiv vizual.
În mod implicit, dacă aveți un câmp boolean în setul dvs. de date, DBGrid le afișează ca „Adevărat” sau „Fals” în funcție de valoarea câmpului de date. Cu toate acestea, arată mult mai bine dacă alegeți să folosiți un control „adevărat” pentru căsuța de selectare pentru a activa editarea câmpurilor.
Creați o aplicație de exemplu
Porniți un nou formular în Delphi și puneți un TDBGrid, TADOTable și TADOConnection, TDataSource.
Lăsați toate numele componentelor așa cum sunt atunci când au fost introduse pentru prima dată în formular (DBGrid1, ADOQuery1, AdoTable1 etc.). Utilizați Inspectorul de obiecte pentru a seta o proprietate ConnectionString a componentei ADOConnection1 (TADOConnection) pentru a indica baza de date QuickiesContest.mdb MS Access.
Conectați DBGrid1 la DataSource1, DataSource1 la ADOTable1 și, în final, ADOTable1 la ADOConnection1. Proprietatea ADOTable1 TableName ar trebui să puncteze tabelul Articole (pentru ca DBGrid să afișeze înregistrările din tabelul Articole).
Dacă ați setat corect toate proprietățile, atunci când rulați aplicația (având în vedere că proprietatea Active a componentei ADOTable1 este Adevărat) ar trebui să vedeți, în mod implicit, DBGrid afișează valoarea câmpului boolean ca „True” sau „False” în funcție de valoarea datelor camp.
CheckBox într-un DBGrid
Pentru a afișa o casetă de validare în interiorul unei celule a unui DBGrid, va trebui să ne punem una la dispoziție în timpul rulării.
Selectați pagina „Controluri de date” din Paleta de componente și alegeți un TDBCheckbox. Aruncați unul oriunde pe formular - nu contează unde, de cele mai multe ori va fi invizibil sau plutind peste grilă.
Bacsis: TDBCheckBox este un control conștientizat de date care permite utilizatorului să selecteze sau să deselecteze o singură valoare, adecvată pentru câmpurile booleane.
În continuare, setați proprietatea Vizibilă pe Fals. Modificați proprietatea Culoare a DBCheckBox1 în aceeași culoare cu DBGrid (deci se îmbină cu DBGrid) și eliminați Legenda.
Cel mai important, asigurați-vă că DBCheckBox1 este conectat la DataSource1 și la câmpul corect.
Rețineți că toate valorile proprietății DBCheckBox1 de mai sus pot fi setate în evenimentul OnCreate al formularului astfel:
procedură TForm1.FormCreate (Expeditor: TObject);
începe
DBCheckBox1.DataSource: = DataSource1;
DBCheckBox1.DataField: = 'Câștigător';
DBCheckBox1.Visible: = False;
DBCheckBox1.Color: = DBGrid1.Color;
DBCheckBox1.Caption: = '';
// explicat mai târziu în articol
DBCheckBox1.ValueChecked: = 'Da, un câștigător!';
DBCheckBox1.ValueUnChecked: = 'Nu de data aceasta';
Sfârșit;
Ceea ce urmează este partea cea mai interesantă. La editarea câmpului boolean din DBGrid, trebuie să ne asigurăm că DBCheckBox1 este plasat deasupra („plutind”) celula din DBGrid care afișează câmpul boolean.
Pentru restul celulelor (neconcentrate) care poartă câmpurile booleane (în coloana „Câștigător”), trebuie să oferim o oarecare reprezentare grafică a valorii booleane (Adevărat / Fals). Acest lucru înseamnă că aveți nevoie de cel puțin două imagini pentru desen: una pentru starea bifată (Valoarea adevărată) și una pentru starea marcată (Valoare falsă).
Cel mai simplu mod de a realiza acest lucru este să utilizați funcția DrawFrameControl pentru API-ul Windows pentru a atrage direct pe panza DBGrid.
Iată codul din gestionatorul de evenimente OnDrawColumnCell al DBGrid care apare atunci când grila trebuie să picteze o celulă.
procedură TForm1.DBGrid1DrawColumnCell (
Expeditor: TObject; const Rect: TRect; DataCol:
Întreg; Coloana: TColumn; Stat: TGridDrawState);
const Este bifat: mulțime[Boolean] de Integer =
(DFCS_BUTTONCHECK, DFCS_BUTTONCHECK sau DFCS_CHECKED);
var
DrawState: Integer;
DrawRect: TRect;
beginif (gdFocused în Stat) thenbeginif (Coloană. Camp. FieldName = DBCheckBox1.DataField) thenbegin
DBCheckBox1.Left: = Rect. Stânga + DBGrid1.Left + 2;
DBCheckBox1.Top: = Rect. Top + DBGrid1.top + 2;
DBCheckBox1.Width: = Rect. Corect - Rect. Stânga;
DBCheckBox1.Height: = Rect. Partea de jos - Rect. Top;
DBCheckBox1.Visible: = True;
endendelsebeginif (Coloană. Camp. FieldName = DBCheckBox1.DataField) thenbegin
DrawRect: = Rect;
InflateRect (DrawRect, -1, -1);
DrawState: = ISChecked [Coloana. Camp. AsBoolean];
DBGrid1.Canvas. FillRect (Rect);
DrawFrameControl (DBGrid1.Canvas. Mâner, DrawRect,
DFC_BUTTON, DrawState);
Sfârșit;
Sfârșit;
Sfârșit;
Pentru a termina acest pas, trebuie să ne asigurăm că DBCheckBox1 este invizibil atunci când părăsim celula:
procedură TForm1.DBGrid1ColExit (Expeditor: TObject);
beginif DBGrid1.SelectedField. FieldName = DBCheckBox1.DataField apoi
DBCheckBox1.Visible: = False
Sfârșit;
Mai avem nevoie de încă două evenimente pentru a ne descurca.
Rețineți că, atunci când este în mod de editare, toate apăsările taste vor merge la celula DBGrid, trebuie să ne asigurăm că sunt trimise la CheckBox. În cazul unui CheckBox, suntem interesați în primul rând de tastele [Tab] și [Space]. [Tab] ar trebui să mute focalizarea de intrare în următoarea celulă și [Space] ar trebui să comute starea CheckBox.
procedură TForm1.DBGrid1KeyPress (Expeditor: TObject; var Cheie: Char);
beginif (cheie = Chr (9)) apoi Ieșiți;
dacă (DBGrid1.SelectedField. FieldName = DBCheckBox1.DataField) thenbegin
DBCheckBox1.SetFocus;
SendMessage (DBCheckBox1.Handle, WM_Char, cuvânt (cheie), 0);
Sfârșit;
Sfârșit;
Ar putea fi potrivit ca Legenda casetei să se schimbe pe măsură ce utilizatorul bifează sau debifează caseta. Rețineți că DBCheckBox are două proprietăți (ValueChecked și ValueUnChecked) utilizate pentru a specifica valoarea câmpului reprezentată de caseta de selectare atunci când este bifată sau debifată.
Această proprietate ValueChecked conține „Da, un câștigător!”, Iar ValueUnChecked este egal cu „Nu de data aceasta”.
procedură TForm1.DBCheckBox1Click (Expeditor: TObject);
beginif DBCheckBox1.Checked apoi
DBCheckBox1.Caption: = DBCheckBox1.ValueChecked
altfel
DBCheckBox1.Caption: = DBCheckBox1.ValueUnChecked;
Sfârșit;
Rulați proiectul și veți vedea casele de selectare în toată coloana câștigătorului.