Разработка фрагмента информационной системы "Аптека" в среде Delphi с применением технологии ADO
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
сей базы данных.
Далее при работе нажатии кнопки Редактировать все поля на конкретной вкладке становятся активными и кнопка меняет название на Принять.
Для того, чтобы не добавлять много кнопок на форму, используется конструкция if…then…else, где функциональную роль исполняют переменные i1, i2, i3. Это позволяет, меняя названия у одной кнопки, варьировать ее назначение.
procedure Tapteka_form.tovar_Button1Click(Sender: TObject);i1=0_dbedit1.Enabled:=true;_dbedit2.Enabled:=true;_dbedit3.Enabled:=true;_dbedit4.Enabled:=true;_dbedit5.Enabled:=true;_dbmemo1.Enabled:=true;_dbmemo2.Enabled:=true;_button1.Caption:=Принять;:=1;_dbedit1.Enabled:=false;_dbedit2.Enabled:=false;_dbedit3.Enabled:=false;_dbedit4.Enabled:=false;_dbedit5.Enabled:=false;_dbmemo1.Enabled:=false;_dbmemo2.Enabled:=false;_button1.Caption:=Редактировать;:=0;
end;;
Аналогичным методом описываем событие OnClick для оставшихся кнопок с вкладок Поставщики и Персонал
Заключение
Таким образом, работа над фрагментом информационной системы базы данных Аптека была завершена, что является достижением поставленной цели.
Для этого было необходимо изучить основы аптекарского дела, включающие в себя информацию о лекарственных препаратах - различные классификации, особенности выпуска и проч.; мы узнали, какие виды аптек существуют, чем они друг от друга отличаются; был рассмотрен минимальный кадровый состав отдельной аптеки и функции персонала.
Самой важной частью моей теоретической работы является изучение особенностей баз данных и их свойств, анализ СУБД и основных компонентов среды Delphi и технологии ADO, которые позволяют оперировать базами данных.
Затем в СУБД MS Access была составлена база данных из трех таблиц, которая отражает знания из предметной области. Когда база данных Аптека была готова, было создано приложение методами среды программирования Delphi и технологии ADO. Оно содержит необходимые компоненты для подключения базы данных и вывода ее таблиц на экран, а также снабжено возможностью пользовательского редактирования записей.
Литература
1.Аптека и ее функции [Электронный ресурс] / Информационный сервер Medkurs.ru. Режим доступа:
2.Венгеровский А.И. Лекции по фармакологии / Венгеровский А.И. - Физико-математическая литература, 2007. - 704 с.
3.Когаловский М.Р. Энциклопедия технологий баз данных / Когаловский М.Р. - М.: Финансы и статистика, 2002. - 800 с.
4.Отраслевой стандарт. Правила отпуска (реализации) лекарственных средств в аптечных организациях. ОСТ 91500.05.0007-2003 [Электронный ресурс] / КонсультантПлюс. Некоммерческая интернет-версия. Режим доступа:
5.Правила надлежащей фармацевтической (аптечной) практики таможенного союза (Good Pharmacy Practice, GPP) [Электронный ресурс] / Качество.рф. Режим доступа:
6.Пономарев В.А. Базы данных в Delphi 7. Самоучитель [Электронный ресурс] / Пономарев В.А. Режим доступа:
7.Федеральный закон от 12 апреля 2010 г. N 61-ФЗ "Об обращении лекарственных средств" [Электронный ресурс] / КонсультантПлюс. Некоммерческая интернет-версия. Режим доступа:
8.Фленов М.Е. Библия Delphi / Фленов М.Е. - СПб.: БХВ-Петербург, 2011. - 688 с.
9.Хомоненко А.Д. Самоучитель Delphi.NET / Хомоненко А. Д. - СПб.: БХВ-Петербург, 2006. - 464 с.
.Швецов В.И., Визгунов А.Н., Мееров И.Б. Базы данных : учеб. пособие / Швецов В.И., Визгунов А.Н., Мееров И.Б. - Н. Новгород: Изд-во ННГУ, 2004. - 217 с.
.ADO [Электронный ресурс] / Электронная энциклопедия Википедия. Режим доступа:
Приложение
Листинг программного кода
фрагмента информационной системы Аптека
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls,.Grids, Vcl.DBGrids, Data.DB, Data.Win.ADODB, Vcl.StdCtrls, Vcl.Mask;_form = class(TForm)_pages: TPageControl;_page: TTabSheet;_grid: TDBGrid;_navigator: TDBNavigator;_page: TTabSheet;_grid: TDBGrid;_navigator: TDBNavigator;_page: TTabSheet;_grid: TDBGrid;_navigator: TDBNavigator;_DBEdit2: TDBEdit;_DataSource: TDataSource;_ADOConnection: TADOConnection;_ADOTable: TADOTable;_DBEdit3: TDBEdit;_DBEdit4: TDBEdit;_DBEdit5: TDBEdit;_DBEdit6: TDBEdit;_DBEdit7: TDBEdit;_DBEdit8: TDBEdit;_DBEdit9: TDBEdit;_DBEdit10: TDBEdit;_Button1: TButton;_DataSource: TDataSource;_DataSource: TDataSource;_ADOTable: TADOTable;_ADOTable: TADOTable;_DBEdit1: TDBEdit;_DBMemo1: TDBMemo;_DBEdit2: TDBEdit;_DBEdit3: TDBEdit;_Label2: TLabel;_Label1: TLabel;_DBEdit4: TDBEdit;_Button1: TButton;_Label1: TLabel;_Label4: TLabel;_DBEdit2: TDBEdit;_DBEdit1: TDBEdit;_DBMemo1: TDBMemo;_DBMemo2: TDBMemo;_DBEdit3: TDBEdit;_DBEdit4: TDBEdit;_DBEdit5: TDBEdit;_Label3: TLabel;_Label2: TLabel;_Button1: TButton;_Label1: TLabel;_Label2: TLabel;_Label3: TLabel;: TLabel;_Label5: TLabel;_Label6: TLabel;_DBMemo1: TDBMemo;_DBEdit1: TDBEdit;FormActivate(Sender: TObject);tovar_Button1Click(Sender: TObject);postav_Button1Click(Sender: TObject);personal_Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_form: Tapteka_form;
{$R *.dfm}i1,i2,i3:integer;Tapteka_form.FormActivate(Sender: TObject);:=0;:=0;:=0;_dbedit1.Enabled:=false;_dbedit2.Enabled:=false;_dbedit3.Enabled:=false;_dbedit4.Enabled:=false;_dbedit5.Enabled:=false;_dbmemo1.Enabled:=false;_dbmemo2.Enabled:=false;_dbedit1.Enabled:=false;_dbedit2.Enabled:=false;_dbedit3.Enabled:=false;_dbedit4.Enabled:=false;_dbmemo1.Enabled:=false;_dbedit1.Enabled:=false;_dbedit2.Enabled:=false;_dbedit3.Enabled:=false;_dbedit4.Enabled:=false;_dbedit5.Enabled:=false;_dbedit6.Enabled:=false;_dbedit7.Enabled:=false;_dbedit8.Enabled:=false;_dbedit9.Enabled:=false;_dbedit10.Enabled:=false;_dbmemo1.Enabled:=false;;Tapteka_form.personal_Button1Click(Sender: TObject);i3=0_dbedit1.Enabled:=true;_dbedit2.Enabled:=true;_dbedit3.Enabled:=true;_dbedit4.Enabled:=true;_dbedit5.Enabled:=true;_dbedit6.Enabled:=true;_dbedit7.Enabled:=true;_dbedit8.Enabled:=true;_dbedit9.Enabled:=true;_dbedit10.Enabled:=true;_dbmemo1.Enabled:=true;_button1.Caption:=Принять;:=1;_dbedit1.Enabled:=false;_dbedit2.Enabled:=false;_dbedit3.Enabled:=false;_dbedit4.Enabled:=false;_dbedit5.Enabled:=false;_dbedit6.Enabled:=false;_dbedit7.Enabled:=false;_dbedit8.Enabled:=false;_dbedit9.Enabled:=false;_dbedit10.Enabled:=false;_dbmemo1.Enabled:=false;_button1.Caption:=Редактировать;:=0;;;Tapteka_form.postav_Button1Click(Sender: TObject);i2=0_dbedit1.Enabled:=true;_dbedit2.Enabled:=true;_dbedit3.Enabled:=true;_dbedit4.Enabled:=true;_dbmemo1.Enabled:=true;_button1.Caption:=Принять;:=1;_dbedit1.Enabled:=false;_dbedit2.Enabled:=false;_dbedit3.Enabled:=false;_dbedit4.Enabled:=false;_dbmemo1.Enabled:=false;_button1.Caption:=Редактировать;:=0;;;Tapteka_form.tovar_Button1Click(Sender: TObject);i1=0_dbedit1.Enabled:=true;_dbedit2.Enabled:=true;_