Алгоритм создания приложения для работы с базой данных «Отдел кадров»

Последовательность разработки будет следующая:

Создание базы данных в программе MS Access;

Создание клиентского приложения в среде Delphi;

Подключение базы данных к клиентскому приложению;

Создание связей между таблицами в среде Delphi;

Создание формы для ввода данных в базу данных;

Редактирование программного кода формы;

Организация поиска данных в БД;

Организация фильтрации записей в БД;

Создание базы данных в Access.

1. Создадим базу данных в Access, файлу присвоим имя «ok"(помещаем его в папку «База отдел кадров», в которую в дальнейшем будет сохранено приложение Delphi);

В самом Access, создадим 4 таблицы: «Adres», «Doljnost», «LichData», «Telefones».

Начнём с таблицы «Adres», для этого выбираем вкладку Создание/Таблица (Рис.30).

Рис. 30.

2. Сохраняем таблицу под нужным именем, для этого жмём правой кнопкой мыши по таблице и выбираем «сохранить"(Рис.31);

Рис. 31.

И появившемся окне вводим нужное имя и нажимаем «ок"(Рис.32).

Рис. 32.

В результате получим таблицу (Рис.33).

Рис. 33.

Аналогично создаём, остальные таблицы (Рис.34).

Рис. 34.

3. Далее заполняем таблицы данными Выбираем нужную таблицу и в контекстном меню выбираем поле «конструктор"(Рис.35).

Рис. 35.

В появившемся окне и происходи заполнение таблиц (Рис.36) ;

Они должны содержать следующие поля и их тип:

Adres (Рис.37).

Рис. 37.

Doljnost (Рис.38).

Рис. 38.

LichData (Рис.39).

Рис. 39.

Telefones (Рис.40).

Рис. 40.

Пункт 2 (Создание клиентского приложения в Delphi).

Запускаем Delphi новый проект создаётся автоматически.

1. Сохраняем его в папку «База отдел кадров», для этого выбираем File/Save All и указываем нужную директорию (Рис. 41,Рис.42).

Рис. 41.

Рис. 42.

2. Добавим на форму три панели (вкладка Standard/Panel)(Рис. 43, Рис.44).

Рис. 43.

Рис. 44.

3. Свойству Align верхней панели присвоим значение alTop (весь верх). Свойству Align нижней панели присвоим значение alBottom.(Рис. 45,Рис.46).

Рис. 45.

Рис. 46.

4. Поместим компонент Splitter, вкладка (Additional/Splitter) (Рис.47).

Рис. 47.

Присвоим его свойству Align также alBottom, после чего он прижмется к нижней панели.(Рис.48).

Рис. 48.

Splitter — это разделитель между панелями, с его помощью пользователь мышью сможет передвигать нижнюю панель, меняя ее размеры.

6. Свойству Align средней панели присвоим значение alClient, чтобы она заняла все оставшееся место на форме. (Рис.49).

7. Очистим свойство Caption всех трех панелей.(Рис. 50, Рис.51).

Рис. 50.

Рис. 51.

8. На верхнюю панель поместим три компонента RadioButton вкладка (Standard/Radio Button).(Рис. 52, Рис.53).

Рис. 52.

Рис. 53.

9. В их свойствах Caption напишем, соответственно, «Адрес», «Телефоны» и «Должность». (Рис.54).

Рис. 54.

Переключаясь между ними, пользователь сможет выводить в нижнюю, подчиненную сетку DBGrid нужные данные.

10. Свойству Checked первой радиокнопки присвойте значение True, чтобы включить ее.(Рис.55).

Рис. 55.

11. Раздел с переключателями разделим компонентом Bevel, вкладка (Additional/Bevel) (Рис.56).

Рис. 56.

12. Его ширину (свойство Width) сделаем равным 2 пикселям, превратив его в вертикальную разделительную полосу.(Рис.57).

Рис. 57.

13. Сделаем раздел поиска (Рис.61), поместив в него Label, вкладка Standard/label.(Рис.58), (с текстом «Фильтр по фамилии»), Edit, вкладка Standart/Edit.(Рис.59);

А так же ещё один Label (с текстом «Поиск по имени»), Edit для него и кнопку «Найти», вкладка Standard/(Рис.60);

Добавим ещё один компонентом Bevel, с шириной так же 2(Рис.61).

Рис. 58.

Рис. 59.

Рис. 60.

Рис. 61.

14. В последнем разделе верхней панели находятся еще три кнопки Button. Одна из них предназначена для редактирования текущей записи, другая — для добавления новой, третья кнопка предназначена для удаления (Рис.62).

Рис. 62.

15. Вторая и третья панели содержат только по одному компоненту DBGrid, вкладка (DataControls/ DBGrid)(Рис.63), свойствам Align которых присвоим значение alClient.(Рис.64).

Рис. 63.

Рис. 64.

16. Свойству Name формы присвоим значение fMain, свойство Caption формы присвоим значение «Отдел кадров"(Рис. 65, Рис.66).

Рис. 65.

Рис. 66.

17. Модуль сохраним под именем Main. pas, а проект в целом назовем ok (отдел кадров, Рис. 67,Рис.68).

Рис. 67.

Рис. 68.

Пункт 3 (Подключение БД к клиентскому приложению).

1. Добавим в проект модуль данных (FileNewData Module)(Рис.70).

Рис. 69.

Модуль данных — это не визуальный контейнер для размещения на нем не визуальных компонентов (Рис.70).

Рис. 70.

Также модуль данных часто используют и для хранения глобальных переменных, общих функций и процедур, которые должны быть видны по всей программе. Модуль данных не имеет формы, но сохраняется как модуль в файле *.pas.

Свойству Name модуля данных мы присвоим имя fDM, а модуль сохраним как DM. pas (Рис. 71, Рис.72).

Рис. 71.

Рис. 72.

2. Добавляем в модуль компонент ADOConnection, вкладка (ADO/ADOConnection)(Рис.73).

Рис. 73.

Этот компонент обеспечит связь других компонентов с базой данных при помощи механизма ADO. Связь обеспечивается свойством компонента ConnectionString. В общем-то, у таких компонентов, как ADOTable тоже есть это свойство, однако, имея четыре таблицы, придется четыре раза устанавливать связь. Проще один раз соединиться компонентом ADOConnection и использовать его для связи других компонентов.

3. Щелкнем дважды по свойству ConnectionString компонента ADOConnection (Рис.74).

Рис. 74.

Откроется окно подключения компонента к ADO (Рис.75).

Рис. 75.

Нажмите кнопку Build. Откроется новое окно, содержащее настройки подключения (Рис.76).

Для связи с базой данных MS Access выбираем «Microsoft Jet 4.0 OLE DB Provider"(Рис.76).

Нажимаем на кнопку «Далее», либо переходим на вкладку «Подключение"(Рис.76).

Рис. 76.

Здесь необходимо выбрать или ввести базу данных. Так как файл с базой данных находится там же, где находится программа, то можно вручную вписать только имя файла с БД, без полного адреса. В этом случае вы сможете перемещать папку с клиентским приложением и базой данных и не нужно будет заново прописывать к ней путь (Рис.77).

Рис. 77.

4. Установим свойство LoginPrompt компонента ADOConnection в False (Рис.78).

Рис. 78.

Если этого не сделать, то при каждой попытке соединиться с базой данных будет выходить запрос на пользовательское имя и пароль, нам это не нужно, наша база данных без пароля.

5. Свойство Connected переведите в True (Рис.79).

Рис. 79.

Подключение выполнено.

6. Установите в модуль данных четыре компонента ADOTable, по одному на каждую таблицу из нашей базы данных (ADO/ADoTable)(Рис.80).

Рис. 80.

Компонент ADOTable предназначен для создания набора данных.

Выделите все четыре ADOTable (удерживая клавишу), и в их свойстве Connection выберите связь ADOConnection1(Рис.81).

Рис. 81.

Таким образом, все четыре ADOTable мы подключили к базе данных.

Выделите первый компонент ADOTable. Переименуйте его свойство Name в TLichData, а в свойстве TableName выберите главную таблицу базы — LichData (Рис.82).

Рис. 82.

Буква «Т» в начале названия компонента укажет нам в дальнейшем, что это таблица.

7. Рядом с компонентами установите компоненты DataSource, вкладка (Data Access/ DataSource)(Рис.83).

Рис. 83.

Компонент DataSource предназначен для организации связи с наборами данных.

Свойство Name компонента DataSource переименуйте в DSLichData (DS — DataSource). В свойстве DataSet выберите таблицу TLichData (Рис.84).

Рис. 84.

То же самое нужно проделать еще три раза, подключая аналогичным образом компоненты DataSource к другим таблицам:

ADOTable: TDoljnost, TTelephones, TAdres.

DataSource: DSDoljnost, DSTelephones, DSAdres.

8. Свойство Active таблиц переведите в True, открыв их (Рис.85).

Рис. 85.

9. Перейдите на главную форму. Выберите команду FileUse Unit и подключите к ней модуль Data Module (DM) (Рис.86).

Рис. 86.

10. Теперь выберите в компонентах DBGrid в свойстве DataSource необходимые таблицы и вы увидите содержимое этих таблиц (Рис.87).

Рис. 87.

Пункт 4 (Создание связей между таблицами в Delphi).

1. Выделите оба компонента DBGrid и установите в True их свойства ReadOnly — только чтение (Рис.88).

Рис. 88.

Таблицы будут связаны и нам не нужно, чтобы пользователь вводил данные отдельно в каждую таблицу.

Мы для этого сделаем отдельную форму, а DBGrid будем использовать только для просмотра.

Теперь нужно установить связь между таблицами. Это требуется не только для того, чтобы в нижней сетке выходили данные только на сотрудника, выделенного в верхней сетке, но и для того, чтобы мы смогли в дальнейшем вводить связанные данные в окне редактора.

2. Выделите модуль данных. Щелкните дважды по первой таблице, чтобы открыть редактор полей. Правой кнопкой щелкните по этому редактору и выберите команду Add all fields (добавить все поля). В окне редактора полей появились все поля таблицы (Рис. 89, Рис. 90, Рис.91).

Рис. 89.

Рис. 90.

Рис. 91.

Редактор полей предназначен для настройки параметров каждого поля, для добавления новых полей или удаления имеющихся. Если в редакторе полей нет ни одного поля, то в компоненте DBGrid будут отображены все поля таблицы, имеющие параметры по умолчанию. Если же мы добавили в редактор полей хотя бы одно поле, то сетка DBGrid его и отобразит. В редакторе можно для каждого поля изменить различные параметры, например, ширину колонки, название колонки, видимое это поле или нет, и т. п. Кроме того, редактор полей предоставляет возможность добавлять в набор данных новые поля, например вычисляемые или просматриваемые (lookup).

Поле «Ключ» у нас автоинкрементное, предназначено для связи с другими таблицами. Пользователю его видеть не обязательно.

Выделим его, и в свойстве Visible установите False (Рис.92).

Рис. 92.

3. Теперь для пользователя оно будет невидимым. Здесь у нас есть два логических поля — «Сем_Полож» и «Военнообязанный». Чтобы True и False выходили на экране так, как нам нужно, свойству DisplayValues первого из этих полей присвойте значение «Женат;Холост», а второго — «Да;Нет"(Рис.93).

Рис. 93.

Первым здесь идет значение, которое будет обозначать True, вторым — False. Эти значения разделяются точкой с запятой, пробелы не нужны. Таким же образом добавляем все поля в остальные три таблицы.

У них невидимым делаем поле «Сотрудник» — этому полю автоматически будет присвоено такое же число, как у поля Ключ соответствующей записи. Логических полей у них нет.

4. Однако для поля «Телефон» таблицы Telephones следует изменить свойство EditMask. Щелкаем по нему дважды, открыв редактор маски, и в поле Input Mask вводим маску «#(###)-###-##-##». Сохраняем ее, нажав кнопку ОК (Рис.94).

Рис. 94.

Для полей типа Дата в этом свойстве (в таблице LichData два таких поля) введите маску «##.##.####».

5. Теперь создадим связи между таблицами. При помощи кнопки F12 перейдите в редактор кода. В нижней части окна вы увидите вкладку Diagram (Рис.95), перейдите на нее (Рис.96).

Рис. 95.

Рис. 96.

6. Для начала в окно диаграмм нужно добавим наши таблицы. Найдём их в окне дерева объектов ObjectTreeView (Рис.97).

Рис. 97.

Если окно закрыто, откроем его клавишами Shift+Alt+F11 либо командой меню ViewObject TreeView. Ухватимся в этом окне мышью за название главной таблицы LichData и перетащим ее в окно диаграмм. Таблица вместе с полями отобразится в окне (Рис.98).

Рис. 98.

Если бы ранее мы не добавили все поля в окне редактора полей компонента ADOTable, то здесь мы не увидели бы полей. Точно также перетащим остальные таблицы.

7. Связи главная — подчиненная делают кнопкой Master/Detail Connector, которую вы можете увидеть в верхней части окна диаграмм (предпоследняя, Рис.99).

Рис. 99.

Нажимаем на кнопку, затем ведём указатель мыши к боковой границе главной таблицы, нажимаем левую кнопку и, удерживая ее, проводим линию к боковой границе таблицы Adres. Как только вы отпустите кнопку, появится окно связей (Рис.100).

Рис. 100.

8. Здесь в поле Detail Fields нужно выбрать поле, по которому будет осуществляться связь, в нашем случае это поле «Сотрудник». В поле Master Fields выбираем ключевое поле «Ключ». Затем нажимаем кнопку Add и кнопку OK. Связь установлена (Рис.101).

Рис. 101.

При установке связей главный/подчиненный важно начинать вести линию с главной таблицы к подчиненной. Если бы мы сделали иначе, то главной таблицей стала бы TAdres. Такую же связь установите и с остальными таблицами.

Пункт 5 (Создание формы для ввода данных в базу данных).

• 1. Создаём новую форму (FileNewForm). Ее свойство Name переименуем в fEditor, а при сохранении формы дадим модулю имя Editor.
• 2. Командой FileUse Unit подключите к форме модуль данных DM. Установим на форму четыре панели GroupBox, вкладка (Standard/GroupBox), на каждую таблицу свой GroupBox (Рис.102).

Рис. 102.

3. Займемся первой таблицей. В свойстве Caption компонента GroupBox впишите «Личные данные», это название отразится в заголовке панели.

Так же подпишем и остальные GroupBox.

4. Далее нам понадобятся компоненты:

Label.

Edit.

DBCheckBox1/Data Controls.

DBComboBox1/Data Controls.

Button.

На (Рис.103) изображена готовая форма и все компоненты, которые должны на ней располагаться:

Рис. 103.

Для того, чтобы заполнить списки компонентов DBComboBox, нужно у них выбрать свойство Items, щёлкнув по нему 2 раза, откроется окно, куда и нужно вносить данные (Рис.104).

Рис. 104.

Аналогично заполняем и другие DBComboBox (Табл.1).

Табл. 1.

5. Теперь займемся подключением компонентов контроля. Удерживая Shift, выделите все компоненты кроме Edit на первой панели. В их свойстве DataSource выберите fDM. DSLichData, подключив компоненты к нужной таблице, аналогично подключаются и компоненты DBComboBox (Рис.105).

Рис. 105.

Выделите первый DBEdit. В его свойстве DataField выберите поле «Фамилия», так же и у компонентов DBComboBox (Рис.106).

Рис. 106.

Это свойство подключает выбранный компонент к определенному полю таблицы. Таким же образом подключаем к соответствующим полям остальные компоненты. Затем подключаем компоненты других таблиц, каждое к своей таблице и к соответствующему полю. Сетка DBGrid подключается к fDM. DSTelephones и не имеет поля. Она отображает все видимые поля таблицы.

6. В правой нижней части для удобства пользователя установим навигационный компонент DBNavigator, вкладка (Data Controls/ DBNavigator).

Этот компонент предназначен для перемещения по записям, включения режима редактирования записи, сохранения или отмены сделанных изменений, добавления новой записи или удаления существующей. В его свойстве DataSource выберите fDM. DSLichData, чтобы подключить компонент к главной таблице (Рис.107).

Рис. 107.

Нам нужна от этого компонента только возможность перехода на начало или конец таблицы, на следующую или предыдущую запись. Поэтому раскройте его свойство VisibleButtons и переключите в False все кнопки, кроме nbFirst, nbPrior, nbNext и nbLast (Рис.108).

Рис. 108.

Нажатие на эти кнопки приведет к вызову соответствующих методов компонента ADOTable. Эти методы делают следующее:

First — переход на первую запись таблицы;

Prior — переход на предыдущую запись;

Next — переход на следующую запись;

Last — переход на последнюю запись.

Когда у DBNavigator останется всего четыре кнопки, эти кнопки окажутся вытянутыми. Уменьшите ширину компонента, чтобы кнопки приняли более привычный вид.

Пункт 6 (Редактирование программного кода формы).

1. Связь между таблицами в нашей базе данных происходит по полю «Ключ». На форме это поле отсутствует — его значение генерируется автоматически. После того, как мы внесли записи на первой панели GroupBox, их необходимо сохранить — для того, чтобы другие таблицы смогли связаться с внесенными записями.

Для сохранения изменений в таблице мы пропишем метод Post, который будет выполняться при выходе из панели GroupBox.

Выделите первый GroupBox, и дважды щелкните по событию onExit на вкладке Events инспектора объектов (Рис.109).

Рис. 109.

2. Это событие происходит всякий раз, когда пользователь перейдет к другой панели GroupBox, либо к кнопкам, расположенным в нижней части окна. В сгенерированной процедуре впишите код:

{Вышли из редактирования LichData}.

procedure TfEditor. GroupBox1Exit (Sender: TObject);

begin.

if fDM.TLichData.Modified then.

fDM.TLichData.Post;

end;

Введенный код означает, что если запись была изменена, то следует ее сохранить. Сгенерируйте событие onExit для оставшихся панелей GroupBox и таким же образом сохраните изменения записей в соответствующих таблицах.

3. Далее сгенерируйте событие нажатия на кнопку «Добавить» в GroupBox с телефонными данными (Рис110).

Рис. 110.

Этой кнопкой мы будем добавлять новые записи в таблицу, ведь один сотрудник может иметь более одного телефона. Код в процедуре будет такой:

if fDM.TTelephones.Modified then.

fDM.TTelephones.Post;

fDM.TTelephones.Append;

DBEdit14.SetFocus;

Вначале мы сохраняем измененные значения, если они были. Затем методом Append мы добавляем в таблицу новую запись. Далее мы переводит фокус ввода на DBEdit с телефонными номерами, чтобы пользователю не пришлось делать это самому. В процедуре нажатия на кнопку «Сохранить и выйти» (Рис.111) код простой:

Рис. 111.

if fDM.TLichData.Modified then.

fDM.TLichData.Post;

if fDM.TDoljnost.Modified then.

fDM.TDoljnost.Post;

if fDM.TAdres.Modified then.

fDM.TAdres.Post;

if fDM.TTelephones.Modified then.

fDM.TTelephones.Post;

Close;

Для кнопки «Добавить сотрудника» (Рис.112) пропишите:

Рис. 112.

fDM.TLichData.Append;

fDM.TDoljnost.Append;

fDM.TAdres.Append;

fDM.TTelephones.Append;

DBEdit1.SetFocus;

Здесь мы добавляем новую запись в каждую таблицу и переводим курсор в первый DBEdit, в котором редактируется фамилия.

4. Переходим к главной форме. Начнем с кнопки «Новый сотрудник» (Рис.113).

Рис. 113.

Нам необходимо добавить новую запись в каждую таблицу, после чего открыть окно редактора:

fDM.TLichData.Append;

fDM.TDoljnost.Append;

fDM.TAdres.Append;

fDM.TTelephones.Append;

fEditor.ShowModal;

5. Сгенерируйте процедуру onClick для кнопки «Редактировать» (Рис.114).

Рис. 114.

Тут будет лишь одна строчка кода: fEditor. ShowModal;

В результате откроется окно редактора, и компоненты будут отображать данные текущей записи.

6. Предположим, пользователю будет удобней дважды щелкнуть по записи в верхней сетке DBGrid, чем нажимать кнопку. Поэтому выделите сетку с главной таблицей и сгенерируйте для нее событие onDBLClick (Рис.115).

Рис. 115.

Там введите такую же строчку кода.

7. Перейдем к программированию радиокнопок. По нашему замыслу, при открытии программы в верхней сетке DBGrid будут отображаться данные из главной таблицы, а в нижней — из таблицы Adres. Также будет выделена радиокнопка с надписью «Адрес». Если пользователю захочется посмотреть должность или телефоны текущего сотрудника, он будет щелкать соответствующую радиокнопку, и эти данные должны быть отображены в нижней DBGrid. Выделите первую радиокнопку с надписью «Адрес» и сгенерируйте для нее событие onClick, которое будет возникать, когда пользователь щелкнет по ней (Рис.116).

Рис. 116.

В процедуре этого события впишите следующий код:

if RadioButton1. Checked then.

DBGrid2.DataSource := fDM. DSAdres;

Здесь мы проверили, включена ли данная радиокнопка. Если да, то мы меняем связь нижней сетки DBGrid и подключаем ее к таблице Adres. Ведь связь сетки с таблицей осуществляется через соответствующий компонент DataSource, а у нас их четыре. Подключаясь то к одному, то к другому DataSource, мы можем программно менять отображенную в сетке таблицу.

Для события onClick радиокнопки с надписью «Телефоны» код будет таким:

if RadioButton2. Checked then.

DBGrid2.DataSource := fDM. DSTelephones;

А для события onClick радиокнопки с надписью «Должность», соответственно, код будет следующим:

if RadioButton3. Checked then.

DBGrid2.DataSource := fDM. DSDoljnost;

Таким образом, в нижней сетке мы отображаем то одну, то другую подчиненную таблицу, и всякий раз в этих таблицах будут показаны данные текущего сотрудника.

Сохраните проект и скомпилируйте его (по умолчанию компиляция происходит каждый раз при запуске проекта на выполнение).

Пункт 7 (Организация поиска данных в БД).

1. Для организации поиска в своей базе данных я использовал метод Lookup.

Метод Lookup, в отличие от Locate, не меняет положение курсора в таблице. Вместо этого он возвращает значения некоторых ее полей. Причем в отличие от Locate, этот метод осуществляет поиск лишь на точное соответствие. Такой способ поиска востребован реже, однако в некоторых случаях этим методом очень удобно пользоваться.

Для поиска воспользуемся кнопкой с надписью «Найти», расположенной в верхней части главной формы. Пользователь вводит в поле Edit1 какую то фамилию и нажимает кнопку «Найти». Результаты выводим на экран функцией ShowMessage (),(Рис.117).

Рис. 117.

2. Итак, в окне главной формы дважды щелкните по кнопке «Найти», создавая событие onClick, и впишите следующий листинг:

{щелкнули по кнопке Найти}.

procedure TfName. Button1Click (Sender: TObject);

var.

myLookup: Variant; //для получения результата.

s: String; //для отчета.

begin.

//получаем результат:

Application.Title:='Уведомление';

myLookup := fDM.TLichData.Lookup ('Имя', Edit1. Text,'Фамилия;Имя;Отчество;Образование');

//проверяем, не Null ли это:

if VarType (myLookup) = varNull then.

ShowMessage ('Сотрудник с таким именем не найден!').

else.

if VarType (myLookup) = varEmpty then.

ShowMessage ('Запись не найдена!').

//если это массив, то из его элементов собираем.

//многострочную строку:

else if VarIsArray (myLookup) then begin.

s := myLookup[0] + #13 + myLookup[1] + #13 +myLookup[2] + #13 + myLookup[3];

//и выводим ее на экран:

Application.Title:='Уведомление';

ShowMessage (s);

end;//else if.

end;

Пункт 8 (Организация фильтрации записей в БД).

1. Фильтрацию данных применяют не реже чем поиск. Разница в том, что при поиске данных пользователь видит все записи таблицы, при этом курсор либо переходит к искомой записи, либо он получает данные этой записи в виде результата работы функции. При фильтрации пользователь видит только те записи, которые удовлетворяют условиям фильтра, остальные записи становятся скрытыми. Таким образом искать нужные данные проще.

Фильтрация осуществляется при помощи свойства Filter и события onFilterRecord. Рассмотрим основные способы фильтрации записей.

Фильтрация при помощи свойства Filter.

Свойство Filter — наиболее часто используемый способ фильтрации записей, имеет тип String. Вначале программист задает условия фильтрации в этом свойстве, затем присваивает логическому свойству Filtered значение True, после чего таблица будет отфильтрована.

Применяя это свойство, достаточно сложных условий задать невозможно, но если условия фильтрации просты, то данный способ незаменим.

Фильтрация при помощи события onFilterRecord.

Это событие возникает при установке значения True в свойстве Filtered. Применение этого способа имеет большой плюс, и большой минус. Плюс в том что, сгенерировав это событие, программист получает возможность задать гораздо более сложные условия фильтрации. Минус заключается в том, что проверка осуществляется перебором всех записей таблицы. Если таблица содержит очень много записей, процесс фильтрации может затянуться.

Рассмотрим этот способ на примере. Сделаем так, чтобы если пользователь введет букву «П», то останутся только фамилии, начинающиеся на «П». Если пользователь введет еще букву «е», то останутся только фамилии, начинающиеся на «Пе», и так далее. Поочередно вводя начальные буквы, пользователь доберется до нужных фамилий.

Для начала подготовим модуль данных. В нем нам потребуется создать глобальную переменную ed, чтобы мы могли передавать в нее текст из компонента Edit3(Рис.118):

Рис. 118.

Пишем в раздел public:

var.

fDM: TfDM;

ed: String; //текст из Edit1.

Этого действия можно было бы избежать, если бы компонент ADOTable, подключенный к таблице LichData, располагался на главной форме. Но поскольку он находится в модуле данных, то и событие onFilterRecord будет сгенерировано в нем. А в этом событии нам нужно будет знать, что в данный момент находится в поле ввода Edit3. Именно для этого и нужна глобальная переменная ed. Далее выделяем TLichData, то есть, компонент ADOTable, подключенный к таблице LichData. На вкладке Events (События) инспектора объектов найдите событие onFilterRecord и дважды щелкните по нему, сгенерировав процедуру (Рис.119).

Рис. 119.

Полный листинг процедуры:

{onFilterRecord главной таблицы}.

procedure TfDM. TLichDataFilterRecord (DataSet: TDataSet;

var Accept: Boolean);

var.

s: String; //для значения поля.

begin.

//получаем столько начальных букв из поля Фамилия,.

//сколько букв имеется в переменной ed:

s := Copy (DataSet['Фамилия'], 1, Length (ed));

//делаем проверку на совпадение значений:

Accept := s = ed;

end;

Здесь в переменную s попадает столько начальных букв из поля «Фамилия», сколько букв содержит в данный момент компонент Edit3 на главной форме (эти буквы мы передадим в переменную ed чуть позже). Если текст в переменной s совпадает с текстом из поля Edit3, то переменной Accept присваивается True, и запись принимается. Иначе запись отфильтровывается. Не забудьте сохранить проект.

Далее перейдем в главную форму. Нужно удалить весь текст из события onChange компонента Edit3, и вписать новый (Рис.120):

Рис. 120.

{Изменение поиска по фамилии}.

procedure TfMain. Edit1Change (Sender: TObject);

begin.

//если в поле Edit1 есть хоть одна буква,.

if Edit1. Text «then begin.

fDM.TLichData.Filtered := False; //отключаем фильтр

fDM.ed := Edit1. Text; //передаем в fDM новый текст.

fDM.TLichData.Filtered := True; //включаем фильтр

end.

//если букв нет, фильтрацию отключаем:

else fDM.TLichData.Filtered := False;

end;

Как только пользователь введет хоть одну букву, срабатывает событие onChange компонента Edit3. Если в Edit3 есть хоть одна буква, то мы вначале отключаем фильтрацию, отменяя прошлый фильтр, если он был. Затем мы передаем в глобальную переменную ed, расположенную в модуле данных, текст из Edit3. Далее снова включаем фильтр. При этом срабатывает событие onFilterRecord нашей таблицы, и в этом событии сравнивается текущее значение переменной ed и записей поля «Фамилия» (Рис. 121,Рис.122).

Рис. 121.

Рис. 122.

Заключение

Целью данной работы был анализ возможности среды Borland Delphi 7 для работы с базами данных (Access) и создание клиентского приложения, демонстрирующее работу с базой данных «Отдел кадров».

В первой главе работы, были рассмотрены теоретические основы создания и работы с базами данных в среде Borland Delphi 7:

1. Назначение системы.

Delphi 7 — это среда быстрой разработки, в которой в качестве языка программирования используется строго типизированный объектно-ориентированный язык Delphi.

• 2. Интерфейс и его элементы
• 3. Главное окно интерфейса

Окно иерархии (дерево компонентов приложения (Object Tree View).

Объектный инспектор Палитра компонентов Окно будущего приложения (Форма) Интерактивный Редактор Кода Основные компоненты и их свойства (Borland Delphi7).

Они расположены на страницах: Standard, Win32, System.

Основные компоненты и их свойства (для работы с БД в Delphi 7).

Они расположены на страницах: Data Access, Data Controls, BDE, ADO (Delphi 7), InterBase.

Это компоненты:

ADOconnection — используется для подключения к БД.

ADOTable — связывается с конкретной таблицей.

DataSource — компонент, используется как связка данных из таблиц, с отображающими и управляющими компонентами Delphi.

DBGrid — таблица, позволяющая вывести содержимое таблицы БД на пользовательскую форму.

AdoQvery — служит для определения SQL-операторов, позволяющих осуществить доступ к одной или нескольким таблицам в базе данных Во второй главе, был описан процесс проектирования и создания приложения для работы с базой данных в среде Delphi 7.

Анализ предметной области Основная функция отдела кадров на предприятии — подбор персонала и постоянная работа с коллективом Алгоритм создания приложения для работы с базой данных «Отдел кадров».

Создание базы данных в Access.

Создание клиентского приложения в Delphi.

Подключение БД к клиентскому приложению Создание связей между таблицами в Delphi.

Создание формы для ввода данных в базу данных Редактирование программного кода формы Организация поиска данных в БД Организация фильтрации записей в БД Обобщая вышесказанное, можно сделать вывод, что цель данной работы достигнута.

На практике приложение может быть применено в качестве системы для работы с данными сотрудников, небольшой фирмы.