На палитре компонентов «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:=»;