Курсовая работа (т): Разработка приложения в среде Delphi, взаимодействующего с базами данных в Access
На рисунке 3.3.1 приведены связи между таблицами.
Рисунок 3.3.1 - Схема базы данных приложения
4. ВЗАИМОДЕЙСТВИЕ ПОЛЬЗОВАТЕЛЯ С ПРИЛОЖЕНИЕМ
Пока грузится приложение, пользователь может увидеть заставку приложения, которое будет отображаться либо в течение пяти секунд, либо пока пользователь не нажмет любую клавишу.
После этого пользователю предлагается войти в систему в качестве
пользователя, либо с правами администратора (см. Рисунок 4.1).
Рисунок 4.1 - Вход в систему
Стоит отметить, что при входе в систему как пользователь, данные не могут быть изменены. Если же войти в систему как администратор, то в процессе работы с приложением можно корректировать содержимое таблиц и сохранять изменения в базе данных.
После нажатия кнопки «Пользователь» открывается главная экранная форма, имеющая вид многооконного приложения. А при нажатии кнопки «Администратор» для того чтобы открыть главную экранную форму, необходимо ввести пароль ( см. Рисунок 4.2).
Рисунок 4.2 - Ввод пароля
Главная экранная форма (см. Рисунок 4.3) содержит такие пункты меню как:
«Справочники» (с подпунктами меню содержащими названия всех справочников),
«Окно» (подпункты определяют расположение дочерних форм приложения).
Рисунок 4.3 - Родительская форма приложения
При выборе любого подпункта меню пункта меню «Справочники» открывается
экранная форма, содержащая выбранный пользователем справочник (как показано на
рисунке 4.4). Экранная форма имеет пункты меню «Фильтр» и «Отмена фильтра»,
которые позволяют произвести фильтрацию информации или отмена фильтрации.
Пользователь заполняет необходимые поля, что позволяет ускорить поиск необходимой
для него информации(см. Рисунок 4.5). После чего на экранной форме со
справочником содержится информация, удовлетворяющая введенным параметрам
пользователя (отображено на рисунке 4.6)
Рисунок 4.4 - Справочник
«Должности»
Рисунок 4.5 - Окно параметров фильтрации
Рисунок 4.6 - Результат фильтрации
Так же при нажатии на пункт меню «Окно» можно выбрать режим расположения дочерних форм (как показано на рисунках 4.7, 4.8, 4.9 ):
- каскад;
- по горизонтали;
- по вертикали.
Рисунок 4.7 - Каскадное расположение форм
Рисунок 4.8 - Расположение форм по горизонтали
Рисунок 4.9 Расположение форм по вертикали
ЗАКЛЮЧЕНИЕ
Если осуществлять поиск нужной информации вручную, возможны недочеты и ошибки, к тому же это весьма трудоемкая работа, выполнение которой требует длительного времени. Выполнение данной операции на ЭВМ реализуется в данном ПС. Это позволяет сократить расходы и сэкономить время обслуживания. Возможно, что это приведет так же к сокращению работников. С данным ПС может работать несколько человек одновременно, при этом они смогут зафиксировать все изменения сразу же, что позволит другим сотрудникам находить уже обновленную, не устаревшую информацию.
Внедрение данного ПС экономически обосновано.
Все задачи, поставленные на курсовое проектирование, выполнены полностью.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1 Архангельский, А.Я. Программирование в Delphi / А.Я. Архангельский М.: ООО «Бином-Пресс», 2003. - 1152 с.
Сухарев, М.В. Основы Delphi. Профессиональный подход/ М.В. Сухарев СПб.: Наука и Техника, 2004. - 600 с.
Кенту, М. Delphi 7. Для профессионалов/ М. Кенту СПб.: Питер, 2004. - 1101 с.
Архангельский, А.Я. Работа с локальными базами данных в Delphi 5/ А.Я. Архангельский М.: ЗАО «Издательство БИНОМ», 2000. - 192 с.
Понамарев, В. Базы данных в Delphi 7. Самоучитель/ В. Понамарев СПб.: Питер, 2003. - 224 с.
Луни, К., Брила, Б. 101: Oracle Database 10g Настольная книга администратора / К. Луни, Б. Брила М.: Издательство «Лори», 2008. - 729 с.
Конноли,
Томас, Бегг, Каролин Базы данных. Проектирование, реализация и сопровождение.
Теория и практика. 3-е издание.: Пер. с англ. - М.: Издательский дом “Вильяме”,
2003. - 1440 с.
ПРИЛОЖЕНИЕ
unit UDolj;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, Menus, ExtCtrls, DBCtrls;= class(TForm): TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TDBNavigator;N2Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);N1Click(Sender: TObject);
{ Private declarations }VisibleEdit(bRight : Boolean);
{ Public declarations };: TFormDolj;, UFilterDolj;
{$R *.dfm}TFormDolj.VisibleEdit(bRight : Boolean);.Visible:=bRight;.ReadOnly:=bRight;;TFormDolj.N2Click(Sender: TObject);.ADOQueryDolj.Active:=False;.ADOQueryDolj.SQL.Text:='Select * from Должности';.ADOQueryDolj.ExecSQL;.ADOQueryDolj.Active:=True;;TFormDolj.FormClose(Sender: TObject; var Action: TCloseAction);:=caFree;;TFormDolj.N1Click(Sender: TObject);.ShowModal;;.UFilterDolj;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, jpeg;= class(TForm): TButton;: TButton;: TImage;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;Button2Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
Фильтр должности
var: TFormFilterDolj;;
{$R *.dfm}TFormFilterDolj.Button2Click(Sender: TObject);;;TFormFilterDolj.Button1Click(Sender: TObject);: Boolean;:=False;.ADOQueryDolj.Active:=False;.ADOQueryDolj.SQL.Text:='SELECT * FROM Должности';LEName.Text<>'' thenb=False then:=True;.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+' where';.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+' and';.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+
' Наименование='''+LEName.Text+'''';
end;LEOklad.Text<>'' thenb=False then:=True;.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+' where';.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+' and';.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+
' Оклад>='+LEOklad.Text;;LEOtpusk.Text<>'' thenb=False then:=True;.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+' where';.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+' and';.ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text+
' Отпуск='+LEOtpusk.Text;;.ADOQueryDolj.Active:=True;;;.UMain;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, DB, DBTables, ADODB, jpeg, ExtCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;FormShow(Sender: TObject);MKaskadClick(Sender: TObject);MVertClick(Sender: TObject);MHorizClick(Sender: TObject);MDoctorClick(Sender: TObject);MPacientClick(Sender: TObject);MDoljnClick(Sender: TObject);N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);
{ Private declarations }: Boolean;
{ Public declarations };
Главная форма
: TFMain;, UString, UDoctors, UDolj, UOtdel, UPalata, UPacient, UDoljn,, UEnter;
{$R *.dfm}TFMain.FormShow(Sender:
TObject);.ShowModal;.ShowModal;;TFMain.MKaskadClick(Sender:
TObject);;;TFMain.MVertClick(Sender:
TObject);:=tbVertical;;;TFMain.MHorizClick(Sender: TObject);:=tbHorizontal;;;TFMain.MDoctorClick(Sender:
TObject);:=TFDoctors.Create(Self);.VisibleEdit(bRight);.Show;;TFMain.MPacientClick(Sender:
TObject);:=TFTablePacients.Create(Self);.VisibleEdit(bRight);.Show;;TFMain.MDoljnClick(Sender:
TObject);:=TFormDolj.Create(Self);.VisibleEdit(bRight);.Show;;TFMain.N1Click(Sender:
TObject);:=TFOtdel.Create(Self);.VisibleEdit(bRight);.Show;;TFMain.N2Click(Sender:
TObject);:=TFPalata.Create(Self);.VisibleEdit(bRight);.Show;;TFMain.N3Click(Sender:
TObject);:=TFDiagnoz.Create(Self);.VisibleEdit(bRight);.Show;;.
Пароль
UPassword;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TEdit;: TButton;: TButton;: TImage;BOkClick(Sender: TObject);BCancelClick(Sender: TObject);
{ Private declarations }
{$R *.dfm}TFPassword.BOkClick(Sender: TObject);EPassword.Text='admin' then.Show;;.Close;(Self.Handle,'Неправильный пароль','Ошибка',MB_OK);;TFPassword.BCancelClick(Sender: TObject);.Show;;;