Руководство оператора
Чтобы открыть таблицу выбрать соответствующий пункт меню «Таблицы». Выбрать из списка соответствующую таблицу и нажать левую клавишу мыши. Для добавления и удаления строк нажать клавиши «+» и «-» на панели навигатора. Навигатор расположен в нижней части рабочего экрана. Совершение выхода производится нажатием на клавишу «Close», расположенной в нижнем правом углу рабочего окна приложения. Для поиска необходимой информации вводить в соответствующее поле запроса информацию и нажать клавишу «Найти».
Разработка клиентского приложения
Для создания клиентского приложения необходимо сначала связать базу данных с формой Borland Delphi. Для этого используется элемент ADOConnection. В свойствах добавленного ADOConnection зададим поставщика данных Microsoft Jet 4.0 OLE DB Provider, как наиболее подходящего для работы с БД MS Access, и укажем путь к созданной базе данных Курсовая.mdb. Также выставим свойство LoginPrompt в False, чтобы программа при открытии не запрашивала пароль доступа к БД. У компонента ADOTable необходимо в свойстве Connection указать созданный компонент ADOConnection, а у компонента DataSource в свойстве DataSet указать ADOTable. В свойствах DataSource компонента DBGrid указать DataSource1.
Добавление данных
Для добавления данных необходимо выбрать соответствующую таблицу и нажать кнопку «+» на панеле навигатора.
При нажатии кнопки появляется курсор для добавления. Она содержит поля , в которые нужно вписывать данные. Вверху над полями написано, какого рода информация должна вводиться в соответствующее поле.
Разберем добавление данных на примере таблицы «Список заключенных».
При выборе таблицы «Список заключенных» и нажатии на кнопку «+» появляется курсор для добавления. Заполним строку. Заполненная строка представлена на рисунке 5- Форма для добавления.
Рисунок 5- Форма для добавления.
При нажатии на клавишу + происходит добавление данных. В этой процедуре сначала проверяется, все ли поля для добавления заполнены. Если заполнены не все поля, появляется сообщение «Заполните все поля». Если все поля заполнены, происходит его добавление.
Результат добавления в таблицу «Клиенты» представлен на рисунке 6- Добавление данных.
Рисунок 6- Добавление данных
Удаление данных
Для удаления данных необходимо выбрать соответствующую таблицу и строку, требующую удаления, нажать кнопку «-» на навигаторе.
Разберем удаление данных на примере таблицы «Список заключенных». Откроем таблицу и выберем строку, требующую удаления. При нажатии на кнопку - происходит процедура удаления.
Таблица «Клиенты» до удаления записи и после представлена соответственно на рисунке 7- Таблица «Клиенты» и на рисунке 8- Удаление записи.
Рисунок 7- Таблица «Клиенты»
Рисунок 8- Удаление записи
Поиск данных
Для поиска данных необходимо выбрать просмотр.
В просмотре нужно выбрать по какому полю искать и по какому признаку, то есть по убыванию или возрастанию.
Процедура поиска происходит с помощью свойства элемента GroupBox1.». Внутрь 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;
Полный код поиска представлен в приложении А.
Разберем процедуру поиска на примере. Выберем параметры поиска. Выберем поле «Список.Фамилия». Отсортированная таблица представлена на рисунке 9 – Отсортированная таблица.
Рисунок 9- Отсортированная таблица