Íà ïàëèòðå êîìïîíåíòîâ «ADO» âûáðàòü êîìïîíåíò «ADOTable» è ùåëêíóòü ëåâîé êëàâèøåé ìûøè â îêíå «Object TreeView» íà çàïèñè Microsoft.Jet.OLEDB.4.0{ADOCBDKompSgkol}. Â ðåçóëüòàòå ïîÿâèòüñÿ êîìïîíåíò «ADOTable1».
Ñâîéñòâó «Name» ïðèñâàèâàåì çíà÷åíèå «ADOTSpisok» (ýòîò êîìïîíåíò áóäåò ñîîòâåòñòâîâàòü òàáëèöå «Spisok» áàçû äàííûõ). Äëÿ ñâîéñòâà «TableName» âûáðàòü òàáëèöó «Spisok», à ñâîéñòâó «Active» ïðèñâîèòü çíà÷åíèå «True».
Íà êîìïîíåíòå ADOTSpisok ùåëêíóòü äâà ðàçà ëåâîé êëàâèøåé ìûøè è â ïîÿâèâøåìñÿ îêíå íàæàòü ïðàâóþ êëàâèøó è âûáðàòü â êîíòåêñòíîì ìåíþ êîìàíäó «Add all Fields».
Ñâÿçàòü äâà ìîäóëÿ «Unit1» è «Unit2». Ñîõðàíèòü âåñü ïðîåêò. Ôàéëàì ìîäóëåé îñòàâèòü áåç èçìåíåíèÿ Unit1 è Unit2, à ôàéëó ïðîåêòà äàòü èìÿ «KompShkol».
Íà ïàëèòðå êîìïîíåíòîâ «Data Access» âûáðàòü êîìïîíåíò «DataSource1» è ùåëêíóòü ëåâîé êëàâèøåé ìûøè íà çàïèñè Spisok {ADOTSpisok} îêíà «Object TreeView». Ýòîò êîìïîíåíò íåîáõîäèì äëÿ ñâÿçè ôèçè÷åñêèõ òàáëèö áàçû äàííûõ ñ âèçóàëüíûìè êîìïîíåíòàìè. Ñâîéñòâó Name äàííîãî êîìïîíåíòà äàòü èìÿ DSSpisok.
Ñâîéñòâó Caption ôîðìû Form1 óñòàíîâèòü çíà÷åíèå «Êîìïüþòåðíàÿ øêîëà».
Íà ôîðìó ïîìåñòèòü êîìïîíåíòû Panel1 è Panel2. Íåêîòîðûå ñâîéñòâà ýòèõ êîìïîíåíòîâ ïðåäñòàâëåíû â òàáëèöå:
Ñâîéñòâî |
Panel1 |
Panel2 |
Align |
alClient |
alBottom |
Caption |
|
|
BevelInner |
bvLowered |
bvNone |
BevelWidth |
3 |
1 |
BorderWidth |
5 |
0 |
Íà Panel1 äîáàâèòü êîìïîíåíò DBGrid1 ñ ïàëèòðû êîìïîíåíòîâ «DataControls» è ñâÿçàòü åãî ñ òàáëèöåé «Spisok». Äëÿ ýòîãî äëÿ ñâîéñòâà DataSource çíà÷åíèå DM.DSSpisok. Ñâîéñòâó Align êîìïîíåíòà DBGrid1 óñòàíîâèòü çíà÷åíèå alClient.
Íà êîìïîíåíòå DBGrid1 íàæàòü ïðàâóþ êëàâèøó ìûøè è èç êîíòåêñòíîãî ìåíþ âûáðàòü êîìàíäó «Columns Editor…».  îòêðûòîì îêíå Editing DBGrid1.Columns íàæàòü êíîïêó «Add all Fields».  ðåçóëüòàòå ïîÿâÿòñÿ íàçâàíèÿ âñåõ ïîëåé, êîòîðûå ìîæíî ðåäàêòèðîâàòü. Îáû÷íî êëþ÷åâîå ïîëå óáèðàþò, äåëàþò åãî íåâèäèìûì â òàáëèöå DBGrid1. ×òîáû åãî óáðàòü, íåîáõîäèìî âûäåëèòü íàçâàíèå ïîëÿ SKod è íàæàòü êëàâèøó Delete èëè êíîïêó «Delete Selected (Del)».
Ðåäàêòèðîâàíèå ïîëåé òàáëèöû DBGrid1:
|
Title.Caption |
Title.Alignment |
Width |
SFam |
Ôàìèëèÿ |
taCenter |
250 |
SImy |
Èìÿ |
taCenter |
150 |
SOtch |
Îò÷åñòâî |
taCenter |
210 |
SGodRogd |
Ãîä ðîæäåíèÿ |
taCenter |
80 |
SShkola |
Øêîëà |
taCenter |
55 |
SKlass |
Êëàññ |
taCenter |
55 |
Íà êîìïîíåíò Panel2 äîáàâèòü êîìïîíåíò «DBNavigator» ñ ïàëèòðû êîìïîíåíòîâ «DataControls» è ñâÿçàòü åãî ñ òàáëèöåé «Spisok» ñ ïîìîùüþ ñâîéñòâà DataSource.
Íà êîìïîíåíòå Panel2 ðàçìåñòèòü êîìïîíåíò RadioGroup1 äëÿ âûáîðà ñîðòèðîâêè ïî ïîëÿì òàáëèöû è êíîïêó Button1, ïðè íàæàòèè íà êîòîðóþ áóäåò ïðîèñõîäèòü ñîðòèðîâêà çàïèñåé (DM.ADOTSpisok.IndexFieldNames:='èìÿ ïîëÿ'). Åñëè ñîðòèðîâêà íå âûáðàíà, òî íåîáõîäèìî ïîêàçàòü ñîîáùåíèå «Âûáåðåòå ñîðòèðîâêó ïî ïîëþ».
Íà êîìïîíåíò Panel2 äîáàâèòü êîìïîíåíò GroupBox1. Ñâîéñòâó Caption äàííîãî êîìïîíåíòà óñòàíîâèòü çíà÷åíèå «Ïîèñê ïî ôàìèëèè». Âíóòðü GroupBox1 ïîìåñòèòü êîìïîíåíòû Edit1 è Button2. Ïðè íàæàòèè íà êíîïêó äîëæíî ñðàáîòàòü ñîáûòèå ïîèñêà çàïèñè ñ ôàìèëèåé, êîòîðóþ ââåëè â ïîëå Edit1.
if dm.ADOTSpisok.Locate('SFam', Edit1.Text,[loCaseInsensitive, loPartialKey]) then
DBGrid1.SetFocus
else
begin
MessageDlg('Ôàìèëèÿ çàäàíà íå âåðíî èëè òàêîé íå ñóùåñòâóåò', mtInformation, [mbOK],0);
Edit1.SetFocus;
Edit1.Text:='';
end;
ñòð. {SITELINK-S382}1{/SITELINK}, 2
|