Разработка программы для редактора БД MS Access

Таблица 1. Свойства компонент приложения

4. В ADOQuery есть свойство SCL, в нем пропишем запрос на вывод всех врачей в BDGrid: SELECT * From Доктор

5. Перенесем на макет второй формы приложения компонент DBGrid и настроив его свойства в соответствии с табл. 2.

Компонента	Свойство	Значение
DBGrid	Name	DBGrid1
	DataSource	DataSource1

Таблица 2. Свойства компонент приложения

 

6. Для отображения таблицы в компоненте DBGrid устанавливается свойство компонента ADOTable Active в true.

7. Внешний вид макета формы приложения должен соответствовать рисунку.

 

Компоненты вкладки Data Access являются служебными и относятся к невидимым (т. е. отображаются на стадии разработки приложения и не отображаются в процессе выполнения), a Data Control к отображаемым как в процессе разработки, так и в процессе выполнения.

Основные свойства объекта ADOTable:

Name - имя объекта используемое в программе (является указателем, заданным в соответствии с шаблоном компоненты); Connection – указывает на соединение с объектом хранилища данных ADO (в нашем случае это файл Поликлиника.MDB); TableName – имя файла таблицы (выбирается из списка, если указан псевдоним БД или файл с таблицей и проект находятся в одном каталоге); Active – позволяет отображать данные из таблицы в процессе разработки и автоматически открывает файл при выполнении (когда установлено true).

Служебная компонента DataSource выполняет роль связующего звена и имеет следующие свойства:

Name - имя объекта используемое в программе (является указателем, заданным в соответствии с шаблоном компоненты); DataSet - имя таблицы связанной с данным объектом (выбирается из списка).

Объект ADOTable позволяет приложению работать с таблицей, но для отображения данных на экране необходимо использовать компоненту DBGrid.

Основные свойства объекта DBGrid: Name - имя объекта используемое в программе (является указателем, заданным в соответствии с шаблоном компоненты); DataSource – имя источника данных, посредством которого осуществляется связь объекта DBGrid с объектом Table (выбирается из списка).

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

8. Создадим третью форму, которая будет вызываться при нажатии на кнопку «Записаться на прием», в кнопку введем код:

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;

9. Третья форма будет иметь следующие компоненты:

С вкладки DataControl переносим один ComboBox, три DBEdit, 2 DBGrid. С вкладки ADO переносим ADOConnection и ADOQuery. C вкладки Data Access переносим DataSource.

ComboBox будет хранить специализацию  врача и при выборе будет создавать запрос к БД на вывод в DBGrid именно тех врачей что выбрал пользователь. После вывода врачей, пользователь может выбрать одного из рекомендуемых: выбрать время, ввести свое ФИО и после нажать на кнопку «Записаться». После нажатии на кнопку, программа делает запрос на добавление в БД его данные. Второй компонент DBGrid выводит всех клиентов которые записались к врачам, где можно пользователь может увидеть себя в записи. Внешний вид макета формы приложения должен выглядеть так:

Код третьей формы:

procedure TForm3.FormCreate(Sender: TObject);

begin

form3.Left:= round(screen.Width/2-form3.Width/2);

form3.top:= round(screen.height/2-form3.height/2);

ADOQuery4.Insert;

DBGrid2.Columns.Items[0].Width:=1;

DBGrid2.Columns.Items[1].Width:=280;

DBGrid2.Columns.Items[2].Width:=160;

DBGrid2.Columns.Items[3].Width:=288;

end;

procedure TForm3.ComboBox1Click(Sender: TObject);

begin

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('SELECT * From Доктор Where Специализация='+combobox1.Text);

ADOQuery3.Parameters.ParamByName(combobox1.Text).Value := combobox1.Text;

DataSource3.DataSet.Open;

DBGrid1.Columns.Items[0].Width:=1;

DBGrid1.Columns.Items[1].Width:=280;

DBGrid1.Columns.Items[2].Width:=160;

DBGrid1.Columns.Items[3].Width:=190;

DBGrid1.Columns.Items[4].Width:=90;

DBEdit1.Text:='';

end;

procedure TForm3.DBGrid1CellClick(Column: TColumn);

var a,p:integer;

begin

ComboBox2.Clear;

if DBGrid1.Fields[3].CurValue = '08.00-13.00' then begin

  a:=8; p:=0;

    while a < 13 do begin

      if p = 0 then

        ComboBox2.Items.Add(inttostr(a)+'.'+inttostr(p)+inttostr(p))

      else ComboBox2.Items.Add(inttostr(a)+'.'+inttostr(p));

      if p = 30 then begin

        p:=0;

        a:=a+1;

      end;

      p:=p+30;

    end;

end;

if DBGrid1.Fields[3].CurValue = '14.00-18.00' then begin

  a:=14; p:=0;

    while a < 18 do begin

      if p = 0 then

        ComboBox2.Items.Add(inttostr(a)+'.'+inttostr(p)+inttostr(p))

      else ComboBox2.Items.Add(inttostr(a)+'.'+inttostr(p));

      if p = 30 then begin

        p:=0;

        a:=a+1;

      end;

      p:=p+30;

    end;

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

ADOQuery4.Post;

ADOQuery4.Insert;

close;

end;

procedure TForm3.ComboBox2Change(Sender: TObject);

begin

DBEdit2.Text:=combobox2.Text;

end;

procedure TForm3.DBEdit4Change(Sender: TObject);

begin

DBEdit3.Text:=DBEdit4.text;

end;

 

10. Создадим четвертую форму, которая будет вызывать при нажатии на кнопку «Администратор» и введем в нее код:

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show;

end;

С вкладки DataControl переносим один DBEdit, 1 DBGrid. С вкладки ADO переносим ADOConnection и ADOQuery. C вкладки Data Access переносим DataSource. В ADOQuery в свойстве SCQ пропишем запрос на удаление: SELECT * From Запись_на_прием. DBGrid будет выводить всех клиентов из БД которые записаны на прием к врачу. При выборе одного из них можно удалить из списка. Введем код на кнопку «Удалить клиента»:

ADOQuery5.Delete;

 

После того как пользователь выделит нужного ему клиента и нажмет кнопку – клиент будет удален из БД.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

Разработанная в ходе выполнения курсового проекта база данных "Поликлиника", является актуальной на сегодняшний день и имеет большую практическую значимость. Она помогает в работе сотрудников поликлиники по сбору данных, необходимых при лечении, а также по сбору данных о самих сотрудниках.

В результате выполнения данного курсового проекта были решены задачи, поставленные в начале работы. Была разработана структура базы данных; в программу были включены функции поиска, выполнения различных запросов. При этом были учтены все требования, выдвинутые в начале выполнения данного проекта.

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Использованная литература

 

1. Бакаревич Ю.Б., Пушкина Н.В. MS Access 2000 за 30 занятий. [Текст] / Бакаревич Ю.Б., Пушкина Н.В. – СПб.: БХВ-Петербург, 2001. – 510 с. – ISBN 8-098-5678-098-0.
2. Бакаревич Ю.Б., Пушкина Н.В. Самоучитель Microsoft Access 2002. [Текст] / Бакаревич Ю.Б., Пушкина Н.В. – СПб.: БХВ-Петербург, 2002. – 720 с.
3. Бакаревич Ю., Пушкина Н. MS Access 2000 за 30 занятий. [Текст] / Бакаревич Ю.Б., Пушкина Н.В. – СПб: ВНV, 2000. – 657 с.
4. Бакаревич Ю.Б., Пушкина Н.В., Смирнова Е.Ю. Управление базами данных. [Текст] / Бакаревич Ю.Б., Пушкина Н.В. – СПб.: Изд. СПбГУ, 2009. – 754 с.
5. Брукшир Дж. Информатика и вычислительная техника [Текст] / Дж. Брукшир. - СПб: Питер, 2004.-620с. – ISBN 8-098-5678-098-0.
6. Гончаров А.В. “Microsoft Access в примерах”.[Текст] / Гончаров А.В. – СПб – Питер, 2007. – 256 с
7. Гончаров А. Access в примерах. [Текст] / Гончаров А.–С.-Петербург: Питер, 2008. – 302 с.
8. Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. [Текст] / Горев А., Ахаян Р СПб.: Питер, 2007. – 412 с.
9. Глушаков С.В., Ломотько Д.В. Базы данных: Учебный курс. - Харьков: Фолио; Ростов н/Д: Феникс; Киев: Абрис, 2000. - 504 с.
10. Дженнингс Р. Использование Microsoft Access 2000. [Текст] / Дженнингс Р. – М: Издательский дом «Вильямс», 2000. – 387 с.
11. Золотова С.И. Практикум по Access.[Текст] / Золотова С.И. – М.: Финансы и статистика, 2001г.
12. Карпова Т.С. Базы данных. Модели, разработка, реализация/СПб.: Питер, 2002. - 304 с.
13. Корнеев В.В. и др. Базы данных. Интеллектуальная обработка информации // М.: Нолидж, 2000. - 352 с.
14. Мари Свонсон. Microsoft Access 97: наглядно и конкретно. [Текст] / Мари Свонсон -Москва: Microsoft Press, Русская редакция, 2007. – 613 с.
15. Марченко А.П. Microsoft Access : Краткий курс. [Текст] / Марченко А.П. – СПб.: Питер, 2005. – 288 с.
16. Макарова Н.В. Информатика. [Текст] / Макарова Н.В. - Москва: Финансы и статистика, 2007. – 364 с.
17. Скотт Баркер. Использование Microsoft Access. [Текст] / Скотт Баркер -Киев-Москва: Диалектика, 2007. – 506 с.
18. Стенли Б. Липпман. Delphi для начинающих: Пер. с англ. 2тт. - Москва: Унитех; Рязань: Гэлион, 2002, 304-345сс.
19. Харитонова И.А. Михеева В.Д. Microsoft Access 2003. – СПб.: БХВ – Санкт-Петербург, 2004. – 1088 с., ил.
20. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных. Учебник для ВУЗов /под ред. проф.А.Д. Хомоненко // СПб.: КОРОНАпринт, 2000. - 416 с.