«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

Ѕаза данных из одной таблицы (продолжение)

Ќа палитре компонентов Ђ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

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

ќсновные термины (продолжение) Ѕазы данных из одной таблицы и вычисл€емыми пол€ми ¬изуальные компоненты дл€ работы с данными ¬изуальные компоненты дл€ работы с данными (продолжение) Ѕаза данных из одной таблицы ќсновные характеристики и возможности —”Ѕƒ Access ћастера Access »спользование технологии Windows в среде Access ќсновные компоненты —”Ѕƒ Access —хема данных в Access 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом