Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Áàçà äàííûõ èç îäíîé òàáëèöû (ïðîäîëæåíèå)

Íà ïàëèòðå êîìïîíåíòîâ «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


 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì