Этапы создания БД в Delphi используя СУБД Access

Содержание

 

 

 

I. Введение

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

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

В настоящее время  существует достаточно большое количество программных систем, позволяющих  создавать и использовать локальные (dBASE, FoxPro, Access, Paradox) и удаленные (Interbase, Oracle, Sysbase, Infomix, Microsoft SQL Server) базы данных.

В состав Delphi входят компоненты, позволяющие создавать программы  работы с файлами данных, созданными различными системами: от dBASE до Infomix и Oracle. Delphi также позволяет программисту, используя утилиту Borland Database Desktop, создавать файлы баз данных в различных форматах.

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

Типичным примером "бумажной" базы данных является каталог библиотеки — набор бумажных карточек, содержащих информацию о книгах. Информация в  этой базе однородная (содержит сведения только о книгах) и упорядоченная (карточки расставлены, например, в соответствии с алфавитным порядком фамилий авторов). Другими примерами "бумажной" базы данных являются телефонный справочник и расписание движения поездов.

Компьютерная база данных представляет собой файл (или набор связанных файлов), содержащий информацию.

 

II. Этапы создания БД в Delphi  используя СУБД Access.

Создание таблиц.

При создании БД в Делфи  используется Access. В Access создаются таблицы БД а в делфи они подключаются при помощи специальных компонентов. Итак, приступим к созданию БД.

 

Запускаем Access путем команды Пуск\программы\Microsoft Access. Перед вами откроется окно вида (рис 1)

 

 

рис 1. окно Microsoft Access.

 

В этом окне нужно создать  БД, для этого можно щелкнуть по пункту новая база данных или дать команду Файл\создать и выбрать пункт Новая БД. После нажатия перед вами откроется окно вида (рис 2):

рис 2. Окно создания БД

 

Теперь вам нужно  создать на диске С вашу папку  и назвать ее так как называется ваша БД в нашем случае это Сотрудники . После создания папки нужно задать имя БД в строке Имя файла вводите Сотрудники и нажимаете кнопку Создать. После создания БД перед вами откроется окно вида (рис 3):

рис 3. окно создания таблиц.

 

 

Так как мы будем задавать поля таблицы самостоятельно, то нужно выбрать пункт Создание таблицы в режиме конструктора и щелкнуть два раза по нему или нажать в панели Конструктор. Перед вами откроется окно вида (рис 4):

 

 

рис 4. создание таблицы  в режиме Конструктора.

 

Теперь перечислим те поля которые будут в нашей таблице:

1. Key- тип счетчик. Т.е. это поле будет заполняться автоматически по мере заполнения таблицы. Далее снизу определим свойства этого поля. Размер поля-длинное целое. Индексированное поле – «Да (Совпадения не допускаются)».
2. Familia – тип текстовый. Размер – 50. Индексированное поле – «Да (Совпадения допускаются)».
3. Ima – тип текстовый. Размер поля – 40. Индексированное поле – «Да (Совпадения допускаются)».
4. Adres – тип текстовый. Размер поля – 60. Индексированное поле – «Да (Совпадения допускаются)».
5. Oklad – тип числовой. Размер поля – длинное целое. Индексированное поле – «Да (Совпадения допускаются)».
6. Birthday  - тип поля Дата\время.  Заметьте это поле пишется со знаком подчеркивания. Это нужно для организации поиска. Но об этом попозже.

 

Ну пока хватит при  желании мы можем спокойно добавить еще поля. Теперь нам нужно сохранить  нашу таблицу в нашей БД. Для  этого дать команду Файл\Сохранить назовите таблицу Сотрудники. При сохранении таблицы перед вами выйдет сообщение вида (рис 5.):

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

 

Создание приложения.

 Запустите Делфи. Нам теперь  нужно связать Делфи и Access. Для этого используются компоненты вкладки ADO (см рис 6 ):

 

 

Итак, начнем.  Перейдите на вкладку ADO, найдите там компонент ADOConnection1  и разместите его на форме. Теперь нам нужно настроить этот компонент, т.е. задать определенные свойства. Для этого выделите компонент ADOConnection1 перейдите в окно Object Inspector (Инспектор объектов). Найдите там свойство Connection String, справа от него щелкните на кнопке с тремя точками, перед вами откроется окно вида

(рис 7):

 

 

в строке Use Connection String нам нужно выбрать специальный драйвер для подключения к СУБД Access. Для этого щелкните по кнопке Build и перед вами откроется окно вида (рис 8):

 

 

Выберите там пункт Microsoft Jet 4.0. Ole DB Provaider и нажмите кнопку Next (Далее). Перед вами откроется окно вида (рис 9):

здесь нам нужно в строке 1 указать  путь к нашей БД, для этого щелкните по кнопке с тремя точками, найдите нашу папку, откройте ее и нажмите два раза. Все остальное оставьте без изменения. Теперь щелкните по кнопке Test Connection (Проверить подключение), если все правильно, то перед вами должно появиться следующее (рис 10):

 нажмите ОК,  затем еще раз и так пока не закроете все окна. 

после этого выделите наш ADOConnection1, перейдите в Инспектор объектов найдите свойство Login Promt поменяйте там true на false, это нужно для того чтобы у нас не выходило окно запроса пароля. Теперь в свойстве Connection установите значение True. Все мы подключили нашу БД к Делфи. Теперь нам нужно отразить нашу таблицу на форме. Для этого перейдите на вкладку ADO, найдите там компонент ADOTable разместите на форме, выделите его и в свойстве name напишите  Sotrtable , затем выделите наш компонент ADOTable, и вы увидите что он поменял название. Этот компонент еще называют источником данных. Настроим его, для этого выделите его, найдите свойство Connection и там в выпадающем списке (справа от свойства нажать на треугольник ) выберите единственный пункт ADOConnection1. Этим самым мы подключили к нашему источнику данных нашу БД. Теперь выделите компонент Sotrtable найдите свойство TableName, там в выпадающем списке выберите нашу таблицу Сотрудники, теперь перейдите в свойство Active и поменяйте там значение false на true. Этим самым мы открыли набор данных. Теперь нам нужно непосредственно отразить на форме нашу таблицу, для этого служит компонент DBGrid с вкладки DataControls разместите его на форме. Теперь нам нужно связать DBGrid с источником данных, для этого служит компонент DataSource с вкладки DataAccess разместите его, выделите, в свойстве Name напишите Sotrsource, найдите свойство DataSet там в выпадающем списке выберите значение  SotrTable. Теперь выделите компонент DBGrid1 найдите свойство DataSource и в выпадающем списке выберите значение Sotrsource. Теперь если вы все правильно сделали у вас должно получиться вот так (рис 10):

Создание  меню

Теперь наведем красоту на нашей форме. Добавим пункты меню. Для этого перейдите на вкладку Standard найдите компонент MainMenu расположите его на форме. Выделите его, найдите свойство Items, справа от него щелкните  два раза и перед вами откроется окно вида (рис 11):

 

перейдите в свойство Caption и напишите там Файл у вас должно получиться следующее

 

 

далее щелкните снизу от меню Файл, перейдите в свойство Caption и напишите Выход. Теперь щелкните справа от меню Файл в свойстве Caption напишите Редактирование. Щелкните снизу от меню Редактирование в свойстве Caption напишите Добавить запись, затем добавьте сюда же Редактировать запись, Удалить запись. Должно все выглядеть так (рис 12):

 

 Теперь щелкните справа от меню Редактирование, в свойстве Caption напишите Сортировка, добавьте в это меню подпункты: По фамилии, затем щелкните по пункту По фамилии правой кнопкой мыши дайте команду Create Submenu (Создать подменю) в свойстве Caption напишите По возрастанию после этого щелкните снизу от подменю По возрастанию и в свойстве Caption напишите По убыванию у вас должно получиться следующее (рис 13):

 

 

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

Теперь добавим пункт меню Поиск, для этого справа от пункта меню Сортировка щелкните кнопкой мыши в свойстве Caption напишите Поиск, добавьте подпункты По Фамилии, По имени, По окладу, По дате рождения.

Добавьте пункт меню Фильтрация и подпункты По окладу, По дате рождения, по Фамилии.

На этом проектирование пунктов меню закончим окончательный  вид (рис 14):

 

рис 14. Окончательный  вид меню.

 

Теперь закроем конструктор  меню. Выделим  DBGrid1, два раза щелкните по нему кнопкой мыши, откроется редактор столбцов (рис 15. ).

 

рис 15. Редактор столбцов.

 

Теперь в этом поле щелкните правой кнопкой  мыши выберите пункт ADD all fields (Добавить все поля). У вас должно получиться следующее (см рис 16).

рис 16. Вид редактора  после добавления полей.

 

Так как поле Key1 может и не отображаться при запуске программы можно его скрыть. для этого выделите это поле в редакторе столбцов, найдите в Инспекторе Объектов свойство Visible и поменяйте значение true на false. Поле автоматически скроется. Теперь изменим ширину каждого столбца, для этого поочередно выделяйте каждое поле и изменяйте свойство Width. После этого закройте редактор столбцов.  Давайте теперь назовем нашу форму (назовем значит изменим свойство Name формы) MainForm и изменим заголовок (свойство Caption) на Главная форма. Теперь поменяем английские названия на русские для этого выделите поле Familia найдите свойство Title раскройте его, нажав на плюс справа от него, и в свойстве Caption поменяйте Familia на Фамилия. Тоже самое проделайте со всеми полями.

Создание формы

Теперь займемся нашим меню. Зайдите в меню Редактирование выделите пункт Добавить запись и щелкните по нему кнопкой мыши перед вами откроется кода, куда следует добавить следующее:

 

MainForm.SotrTable.Insert;

RecordForm.showmodal;

 

Эта запись означает что  если набор данных Sotrtable находиться в режиме Добавления записи, то должна появиться новая форма с полями добавления записей. Теперь добавим эту форму, для этого зайдите в меню File (Файл)/New(Создать)/Form (Форма) на экране появиться пустая форма, назовем ее RecordForm (Свойство Name). Теперь чтобы форма появилась при нажатии на пункт Добавить запись нужно связать MainForm  и RecordForm для этого перейдите на MainForm и дайте такую команду File (Файл)/Use Unit (Использовать модуль) и в открывшемся окне выбрать соответствующий пункт, в нашем случае это Unit2 и нажать кнопку ОК, то же самое проделать перейдя на RecordForm. Запустите программу и нажмите пункт меню Добавить запись если появляется вторая форма значит вы все сделали правильно. Теперь добавим на новую форму компоненты для добавления записи. Для этого служат компоненты вкладки DataControls. Разместите на форме 5 компонентов Label с вкладки Standard и 5 компонентов DBEdit с вкладки DataControls и кнопку BitBtn с вкладки Additional. Выделите компонент BitBtn измените его свойство Kind на OK. Выделите компонент Label 1 и измените его свойство Caption на Фамилия, Label2 на Имя и т.д . В результате должно получиться как показано на рисунке 17.

рис 17. Окно добавления записей.

 

Теперь настроим компоненты доступа  к БД. Выделите компонент DBEdit1, в Инспекторе Объектов найдите свойство DataSource, справа от него щелкните по треугольнику и перед вами откроется список, выберите здесь единственное значение MainForm.sotrsource, найдите свойство DataField и в выпадающем списке найдите пункт Фамилия, и нажмите его. Так поступите со всеми полями только будет меняться значение поля DataField. Теперь пропишем Кнопку ОК. Для этого щелкните по ней два раза откроется окно кода и добавьте туда следующую запись:

 

If  MainForm.SotrTable.Modified then

   MainForm.SotrTable.Post;

   close;

  

Эта запись означает: если в наборе данных SotrTable произошли изменения то запомнить их. Теперь выделите компонент DBGrid1 найдите свойство Options  раскройте его и в пункте dgEditing поменяйте True на False. Этим самым вы запретили изменять данные в таблице. Теперь запустите программу и попробуйте внести какую – нибудь запись, ничего не получается, а теперь зайдите в меню Редактирование записей выберите пункт Добавить запись и попробуйте что-нибудь записать, не забудьте нажать кнопку ОК. Теперь записи добавляются. Но неудобно одно поле Год рождения заполнять неудобно для этого создадим шаблон. Щелкните по компоненту SotrTable два раза, выделите пункт Дата_Рождения в свойстве DefaultExpress запишите следующее: dddddd

Теперь найдите свойство EditMask, справа от него щелкните по кнопке с тремя точками в результате чего откроется окно редактора (см рис 18.) :

 рис 18. Окно редактора.

 

В поле Input Mask введите следующее: 99/99/9999 нажмите ОК и запустите программу. Попробуйте ввести год рождения вы видите что стало более удобно вводить год рождения.

 

Теперь примемся за пункт  меню Редактировать запись откройте окно кода и впишите следующее:

 

recordform.ShowModal;

 

Эта запись означает что  если курсор стоит на определенной записи и вы  нажимаете Редактировать запись, то открывается окно редактирования именно этой записи.

 

Запустите программу  и внесите несколько записей, отредактируйте некоторые из них.

 

Выйдите из программы. Теперь пропишем пункт меню Удалить запись. Откройте окно кода (щелкните по пункту Удалить запись)  и впишите следующий код:

 

If   application.MessageBox(PChar( ' Ты действительно хочешь удалить запись  ' +

mainform.SotrTableFamilia.AsString), ' Внимание ', MB_OkCancel)=id_OK

then

mainform.SotrTable.Delete;

 

примечание: