ть запит на додавання в БД його дані. Другий компонент DBGrid виводить всіх клієнтів які записалися до лікарів, де можна користувач може побачити себе в записі. Зовнішній вигляд макета форми додатка повинен виглядати так:
Код третьої форми:
procedure TForm3. FormCreate (Sender: TObject) ;. Left:=round (screen. Width/2-form3. Width/2) ;. top:=round (screen.height/2-form3.height/2) ;. Insert ;. Columns. Items [0] .Width:=1 ;. Columns. Items [1] .Width:=280 ;. Columns. Items [2] .Width:=160 ;. Columns. Items [3] .Width:=288 ;; TForm3. ComboBox1Click (Sender: TObject) ;. SQL. Clear; .SQL. Add ( SELECT * From Доктор Where Спеціалізація= + combobox1. Text) ;. Parameters. ParamByName (combobox1. Text) .Value:=combobox1. Text ;. DataSet. Open ;. Columns. Items [0] .Width:=1 ;. Columns. Items [1] .Width:=280 ;. Columns. Items [2] .Width:=160 ;. Columns. Items [3] .Width:=190 ;. Columns. Items [4] .Width:=90 ;. Text:= raquo ;;; TForm3.DBGrid1CellClick (Column: TColumn); a, p: integer ;. Clear; DBGrid1. Fields [3] .CurValue= 08.00-13.00 then begin:=8; p:=0; a lt; 13 do beginp=0 then. Items. Add (inttostr (a) + . Raquo; + inttostr (p) + inttostr (p)) ComboBox2. Items. Add (inttostr (a) + . Raquo; + inttostr (p)); p=30 then begin:=0;:=a + 1 ;;:=p + 30 ;;; DBGrid1. Fields [3] .CurValue= 14.00-18.00 then begin:=14; p:=0; a lt; 18 do beginp=0 then. Items. Add (inttostr (a) + . Raquo; + inttostr (p) + inttostr (p)) ComboBox2. Items. Add (inttostr (a) + . Raquo; + inttostr (p)); p=30 then begin:=0;:=a + 1 ;;:=p + 30 ;;;; TForm3. Button1Click (Sender: TObject) ;. Post ;. Insert ;;; TForm3. ComboBox2Change (Sender: TObject) ;. Text:=combobox2. Text ;; TForm3.DBEdit4Change (Sender: TObject) ;. Text:=DBEdit4.text;
end;
. Створимо четверту форму, яка буде викликати при натисканні на кнопку «Адміністратор» і введемо в неї код:
procedure TForm1. Button3Click (Sender: TObject) ;. show ;;
З вкладки DataControl переносимо одна DBEdit, 1 DBGrid. З вкладки ADO переносимо ADOConnection і ADOQuery. C вкладки Data Access переносимо DataSource. У ADOQuery у властивості SCQ пропишемо запит на видалення: SELECT * From Запісь_на_пріем. DBGrid буде виводити всіх клієнтів з БД які записані на прийом до лікаря. При виборі одного з них можна видалити зі списку. Введемо код на кнопку «Видалити клієнта» :. 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.
. Гончаров А.В. «Microsoft Access в прикладах». [Текст]/Гончаров А.В.- СПб - Пітер, 2007. - 256 с
7. Гончаров А. Access в прикладах. [Текст]/Гончаров А.-С.-Петербург: Питер, 2008. - 302 с.
8. Горєв А., Ахаян Р., Макашарипов С. Ефективна робота з СУБД. [Текст]/Горев А., Ахаян Р СПб .: Питер, 2007. - 412 с.
9. Глушаков С.В., Ломотько Д.В. Бази даних: Навчальний курс.- Харків: Фоліо; Ростов н/Д: Фенікс...
