Описание средств визуальной разработки
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
»ица DannieChitatelia в режиме конструктора
Рисунок 3.4 - Таблица DannieChitatelia
В таблице "Учёт выдачи книг" имеются поля: № п/п - счётчик, код читателя, код книги - числовой, дата выдачи и дата возврата тип данных - Дата/время, отметка о возврате - логический. Таблица представлена на рисунках 3.5, 3.6.
Рисунок 3.5 - Таблица UchetVidachiKnig в режиме конструктора
Рисунок 3.6 - Таблица UchetVidachiKnig
3.2 Создание форм в Delphi
Создаю новый проект. Для создания форм в Delphi используются команды: File - New Form. На первой форме размещаю DBGrid, где будет располагаться таблица "Библиотечный фонд". Чтобы она отобразилась необходимо создать DataModule командами File - New - DataModule, затем из закладки ADO выбрать ADOConnection и занести его в DataModule. После чего двойным щелчком по ADOConnection вызываю окно соединения с базой данных, указываю путь к базе данных. Устанавливаю свойства LoginPrompt - False, чтобы программа не запрашивала пароль при запуске, Connected (Связанное) - True. Теперь надо получить доступ к таблице "Библиотечный фонд". Для этого на DataModule добавляю компонент ADOTable с закладки ADO палитры компонентов. Сразу изменяю его свойство Name на Biblioteka Для отображения данных из таблицы надо ещё установить на форму компонент DataSource с закладки Data Access палитры компонентов. Теперь этому компоненту надо указать, какую именно таблицу он должен отображать. Для этого в свойстве DataSet нужно из выпадающего списка выбрать таблицу Biblioteka. Теперь таблица активизирована. Добавляю Main Menu (Главное меню). В пункте меню "Открыть" добавляю подпункты "Учёт выдачи книг" и "Данные читателя". В пункте "Редактировать" прописываю все названия таблиц, т.к. для каждой таблицы нужно создавать отдельную форму редактирования. В пункте найти располагаю поиски по учёту выдачи книг, по данным читателя, по библиотечному фонду. Позднее в меню нужно будет описать события, по которым откроются формы с другими таблицами и редактированием этих таблиц.
На форме "Библиотечный фонд" в таблице названия полей Display label описываю русскими буквами. Меняю вид и размер шрифта текста, ширину столбцов таблицы, цвет фона на форме. Добавляю кнопки Удалить запись, Изменить запись, Добавить запись. Описываю процедуру для каждой кнопки. Процедура для кнопки Добавить запись:TMainForm. SpeedButDobClick (Sender: TObject);. Biblioteka. Insert;. Biblioteka. Edit;. ShowModal;;
Процедура для кнопки Удалить запись:TMainForm. SpeedButDelClick (Sender: TObject);Application. MessageBox (PChar ('Вы действительно хотите удалить книгу '
+Dm. BibliotekaNazvanie. AsString+'? '), 'Внимание!!! ',_OKCANCEL) =id_OK then. Biblioteka. Delete;;
Процедура для кнопки Изменить запись:TMainForm. SpeedButIzmenClick (Sender: TObject);. Biblioteka. Edit;. ShowModal;;
Добавляю главное меню в котором описываю команды для открытия других форм, чтобы они были доступны пользователю. Процедура открытия формы Учёт выдачи книг:
TMainForm. UchClick (Sender: TObject);. ShowModal;;
Форма Библиотечный фонд с таблицей представлена на рисунке 3.7
Рисунок 3.7 - Форма Библиотечный фонд
Для формы Библиотечный фонд создаю форму редактирования записей. Вставляю кнопки Удалить запись, Изменить запись, Добавить запись, Следующая, Предыдущая, Сохранить. Процедура для кнопки Следующая:
TFmRedBib. SpeedButtNextClick (Sender: TObject);. Biblioteka. Next;;
Процедура для кнопки Предыдущая:TFmRedBib. SpeedButPriorClick (Sender: TObject);. Biblioteka. Prior;;
Процедура для кнопки Сохранить:TFmRedBib. SpeedButSohrClick (Sender: TObject);. Biblioteka. Post;;
Форма редактирования записей библиотечного фонда представлена на рисунке 3.8
Рисунок 3.8 - Редактирование таблицы "библиотечный фонд"
На форме Данные читателя расположена таблица с информацией о читателях: фамилия, имя, отчество, дата рождения, адрес, место работы (учёбы), № удостоверения. На форму добавляю кнопки и главное меню. Это представлено на рисунке 3.9.
Рисунок 3.9 - Форма Данные читателя
Для формы Данные читателя создаю форму редактирования записей. Это можно увидеть на рисунке 3.10
Рисунок 3.10 - Редактирование таблицы "Данные читателя"
Форма Учёт выдачи книг содержит информацию о выдаче книг читателям. Форма представлена на рисунке 3.11
Рисунок 3.11 - Форма Учёт выдачи книг
Для редактирования таблицы Учёт выдачи книг создаю форму, на которой можно будет изменять, удалять, добавлять записи. Это представлено на рисунке 3.12.
Рисунок 3.12 - Редактирование таблицы "Учёт выдачи книг"
.3 Создание запросов
Для работы с запросами создаётся новая форма, на которой будет располагаться DBGrid, поля для ввода искомой информации - Edit, DateTimePicker, кнопка, по нажатию которой будет осуществляться поиск. Опишу поиск по книгам. В DataModule добавляю ADOQuery из закладки ADO и DataSource. Выделяю ADOQuery и в свойстве Connection устанавливаю ADO Connection, в свойстве Name набираю knigiQuery. Выделяю DataSource и в свойстве DataSet выбираю knigiQuery, а в Name переименовываю в knigiSource. Также создаётся поиск по учёту выдачи книг и поиск по клиентам. Формы поиска представлены на рисунках 3.13, 3.14.
Рисунок 3.13 - Поиск по книгам
Рисунок 3.14 - Форма поиска данных читателя
Рисунок 3.15 - Форма поиска учёта выдачи книг
3.4 Описание работы программы
При запуске программы открывается форма с таблицей библиотечного фонда. На ней расположено главное меню, где по нажатию пункта Открыть можно открыть другие формы с таблицами. По нажатию пункта Редактировать получаем доступ к редактированию любой таблицы. По нажатию пункта Найти открываются форм