Файл: Разработка базы данных аптеки.docx

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 05.05.2024

Просмотров: 30

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
. Нормальныеслучаи – это примеры с правильными входными данными. Если программа не работает в подобных случаях, она требует серьезных переделок. Граничные контрольные примеры помогают установить, способна ли программа нормально реагировать на особые случаи во входных данных. Граничныепримерыпредставляют собой данные, которые, будучи математически корректными, приводят программу к необходимости работать особым образом. Неправильнымиявляются такие данные, которые расположены вне допустимого диапазона. Примеры с неправильными данными должны быть обработаны соответствующим образом, поскольку в повседневной эксплуатации программе придется иметь дело и с неверными входными данными.

Заключение

В ходе курсовой работы, было разработано программное обеспечение, которое обеспечивает введение базы данных «Аптеки». Проанализирована работа «Учета лекарств и их продажи» и внесены в базу данных те операции, которые выполняются для «Учета продаж и лекарств».

Основной целью настоящей курсовой работы было создание программного обеспечения «Разработка базы данных аптеки».

В процессе выполнения работы были изучены следующие аспекты:

  • Требования, предъявляемые к программному обеспечению «Учета продаж и гарантийного обслуживания компьютерной техники»

  • Особенности реализация механизма поиска и сортировки данных

  • Удобное добавления записи

  • Требования, обычно предъявляемые к пользовательским интерфейсам

  • Особенности реализации навигационного доступа к данным

Выполнив все требования, которые предъявляются к разработке программного продукта, была создана программа, которая способна добавлять, редактировать информацию о поставщиках, лекарствах и продаж. Программа реализована с помощью многопользовательской базы данных, отлажена и протестирована.

В главах пояснительной записки была подробно изложена информация о компонентах для работы с базами данных и подключении базы данных к Delphi.

Цель, которая ставилась перед началом выполнения работы, достигнута. Разработанное программное обеспечение облегчит пользователю деятельность, направленную на введение базы данных «Аптеки».

Список используемой литературы

  1. ГОСТ 19.201-78 Техническое задание. Требования к содержанию и оформлению.

  2. ГОСТ 7.83-2001 «Электронные издания. Основные виды и выходные сведения»

  3. РД 50-34.698-90. Руководство пользователя

  4. ГОСТ 19.701-90 – Схемы алгоритмов, программ данных и схем. Условные обозначения и правила выполнения

  5. ГОСТ — ГОСТ 7.60-2003 «СИБИД. Издания. Основные виды. Термины и определения»

  6. Абрамов, С. А. Задачи по программированию / С. А. Абрамов, Г. Г. Гнездилова. М.: Наука, 2008. 224 с.

  7. Гвоздева, В. А. Введение в специальность программиста: Учебник / Гвоздева, В. А.– 2, испр. и доп. М.: .Форум; М.: ИНФРА-М, 2011. 208 c. ;

  8. Гектор, Г. М. Системы баз данных. Полный курс / Г. М. Гектор. Ростов н/Д: Феникс, 2008. 1240 c.

  9. Говриков, М.М. Теоретические основы разработки и реализации языков программирования : монография. М.: КноРус, 2010. 184с.;

  10. Культин, Н.Б. Delphi в задачах и примерах: Пособие / 3-е изд. перераб. и доп. СПб. : БХВ-Петербург, 2012. 288 с: ил. – ISBN 978-5-9775-0811-7

  11. Липаев, В.В. Сертификация программных средств : учебник / В.В. Липаев. М. : СИНТЕГ, 2010. 348с.;

  12. Липаев, В.В. Тестирования компонентов и комплексов программ: учебник / В.В.Липаев. М. : СИНТЕГ, 2010. 400с.;

  13. Немцова Т. И., Голова С. Ю., Терентьев А.И. Программирование на языке высокого уровня. Программирование на языке Delphi: Учебное пособие . М.: ФОРУМ; М.: ИНФРА-М, 2012. 512с.;

  14. Осипов, Д.Л.Delphi. Программирование для Windows, OSX, IOS и Android: Практикум / . СПб. : БВХ-Петербург, 2014. 464 с .;

  15. Осипов, Д.Л. InterBase и Delphi. Клиент-Серверные Базы Данных: Практикум / . ДМК пресс, 2015. 536 с.;

  16. Осипов, Д.Л. База данных и Delphi. Теория и практика: Практикум / . СПб. : БВХ-Петербург, 2011. 752 с – ISBN 978-59775-0659-5

  17. Рудаков, А.В. Технология создания программных продуктов: Учебник для студ. сред. проф. образования 7-е изд. / А. В. Рудаков . М.: Академия, 2012. 208 с.

  18. Устюгова В.Н. Использования Delphi для создания приложений баз данных: Учебно-Методическое пособие .Казань: , 2010. 72с.;

  19. Фаронов, В.В. Программирование на языке высокого уровня: Учебник для вузов / В.В. Фаронов. СПб.: БХВ - Петербург, 2009. 640 с.

  20. Фаулер, Ч. Программист фанатик: Практикум/ СПБ.Питер, 2015. 208 с. – ISBN 978-5-496-01062-7

  21. Фленов, Н.И. Библия Delphi: Учебное пособие / 3-е изд. перераб. и доп. СПб. : БХВ-Петербург, 2011. 688 с.

  22. Чиртик, А.А. Программирования в Delphi. Трюки и эффекты: Учебное пособие / А.А.Чиртик. – СПб : Питер ком, 2010. Иванова, Г.С. Программирование: учебник / Г.С.Иванова. М: КноРус, 2014

  23. Шейкер, Т.Д. Разработка приложений баз данных в системе Delphi: Учебное пособие / Т.Д.Шейкер. Владивосток: ДВГТУ, 2009. 138 с.

  24. ЭйдлинаГ.М., Константин Александрович Милорадов. Delphi: программирование в примерах и задачах: Практикум .М. : РИОР; М. : ИНФРА-М, 2012. 116 с. – ISBN 978-5-369-01084-6


Приложение 1. Листинг программы

unit Unit1;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, ComCtrls, Menus, StdCtrls, DB, IBCustomDataSet,

IBTable, IBDatabase;
type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

IBDatabase1: TIBDatabase;

IBTransaction1: TIBTransaction;

IBTable1: TIBTable;

IBTable2: TIBTable;

IBTable3: TIBTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.IBTable1.First;

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.IBTable1.Prior;

end;
procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.IBTable1.Next;

end;
procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.IBTable1.Last;

end;
procedure TForm1.Button5Click(Sender: TObject);

begin

Form2.ShowModal;

end;
procedure TForm1.Button7Click(Sender: TObject);

begin

Form1.IBTable1.Delete;

end;
procedure TForm1.Button8Click(Sender: TObject);

begin

Form1.IBTable2.First;

end;
procedure TForm1.Button9Click(Sender: TObject);

begin

Form1.IBTable2.Prior;

end;
procedure TForm1.Button10Click(Sender: TObject);

begin

Form1.IBTable2.Next;

end;
procedure TForm1.Button11Click(Sender: TObject);

begin

Form1.IBTable2.Last;

end;
procedure TForm1.Button14Click(Sender: TObject);

begin

Form1.IBTable2.Delete;

end;
procedure TForm1.Button15Click(Sender: TObject);

begin

Form1.IBTable3.First;

end;
procedure TForm1.Button16Click(Sender: TObject);

begin

Form1.IBTable3.Prior;

end;
procedure TForm1.Button17Click(Sender: TObject);


begin

Form1.IBTable3.Next;

end;
procedure TForm1.Button18Click(Sender: TObject);

begin

Form1.IBTable3.Last;

end;
procedure TForm1.Button21Click(Sender: TObject);

begin

Form1.IBTable3.Delete;

end;
procedure TForm1.Button12Click(Sender: TObject);

begin

Form3.ShowModal;

end;
procedure TForm1.Button19Click(Sender: TObject);

begin

Form4.ShowModal;

end;
procedure TForm1.Button6Click(Sender: TObject);

begin

Form5.ShowModal;

end;
procedure TForm1.Button13Click(Sender: TObject);

begin

Form6.ShowModal;

end;
procedure TForm1.Button20Click(Sender: TObject);

begin

Form7.ShowModal;

end;
procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;
procedure TForm1.N5Click(Sender: TObject);

begin

Form8.ShowModal;

end;
procedure TForm1.N6Click(Sender: TObject);

begin

TabSheet1.Show;

end;
procedure TForm1.N7Click(Sender: TObject);

begin

TabSheet2.Show;

end;
procedure TForm1.N8Click(Sender: TObject);

begin

TabSheet3.Show;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin
end;
end.

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.IBTable1.Insert;

Form1.IBTable1.FieldByName('KOD_LEKARSTVA').Text:=Edit1.Text;

Form1.IBTable1.FieldByName('NAZVANIE').Text:=Edit2.Text;

Form1.IBTable1.FieldByName('GRUPPA').Text:=Edit3.Text;

Form1.IBTable1.FieldByName('STOIMOST').Text:=Edit4.Text;

Form1.IBTable1.Post;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Close;
end;
procedure TForm2.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Close;

end;
end.
procedure TForm6.Button1Click(Sender: TObject);

begin

Form1.IBTable2.Post;

Close;
end;

Смотрите также файлы