Разработка АИС

Для того чтобы запустить программу  нужно  двойным щелчком мыши щелкнуть по файлу «Project2.exe», откроется окно автоматизированной информационной системы «Клиентская база ОАО Сбербанк России», представленная  в соответствии с рисунком 9.

 

Рисунок 9–Внешний вид АИС

Для открытия базы данных необходимо щелкнуть на кнопку «Войти в систему». Откроется окно для ввода пароля, представленное на рисунке 10.

 

 

Рисунок 10– Окно для ввода или смены пароля

 

Если пароль верен, то на экране появится главное окно программы и все пункты главного меню станут активными.

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

Практически во всех окнах программы пользователю доступно добавление, удаление, просмотр, поиск и сортировку данных, а также формирование отчетов и выпуск на печать.

Сообщения пользователю

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

Окно сообщения об ошибке, если БД не зарегестрирована представлена на  рисунке 11.

Рисунок 11 – Сообщение об ошибке регистрации базы данных

Пользователь ввел неправильный логин или пароль. Для устранения ошибки повторить ввод логина и пароля. Окно ошибки представлено на рисунке 12.

Рисунок 12 – Сообщение об ошибке

 

Если пользователь пытается добавить запись, которая уже существует в БД, то на экране появляется сообщение представленное на рисунке 13.

Рисунок 13 – Сообщение об ошибке

 

При правильном вводе пароля откроется форма, где будут показаны данные о клиентах сбербанка  – рисунок 14.

 

 

Рисунок 14– Форма данных о клиентах банка

 

С помощью панели инструментов  можно выполнить ряд функций.

Чтобы добавить информацию о клиенте, необходимо нажать  значок на панели «Добавить». В результате появится форма, представленная в  соответствии  с рисунком 15. В форму вводятся данные о новом  ветеране.

 

Рисунок 15– Форма добавления клиента

 

Чтобы редактировать  информацию о студенте, необходимо нажать  значок на панели «Редактинрование». В окне ввести нужные изменения информации и нажать кнопку «Сохранить». Результат действий- рисунок 16.

 

 

Рисунок 16– Форма редактирования данных

Чтобы удалить информацию о ветеране, необходимо нажать  значок на панели «Удалить запись». В появившемся окне нажать кнопку «Да».Результат этой  операции в соответствии  с рисунком 17.

 

 

Рисунок 17– Диалоговое окно  удаления данных

 

Чтобы найти информацию о клиенте необходимо в поле ввода ввести Фамилия  нужного человека. В таблице останутся данные, удовлетворяющие условию поиска, представленные в соответствии с рисунком 18.

 

Рисунок 18– Отображение записи, соответствующей условию поиска

 

 Чтобы узнать о разработчике программы нужно нажать «О разработчике» и появиться новое окно. Результат операции- рисунок 19.

Рисунок 19– Результат о разработчике

 

Для настройки параметров печати необходимо  нажать кнопку – «Параметры печати». Для немедленной печати необходимо  нажать кнопку – «Печать».

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

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

 

ЗАКЛЮЧЕНИЕ

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

Результаты экономических расчётов показали, что вложения затрат в разработку и внедрение системы, является целесообразным.

Экономическая эффективность АИС формируется не только за счёт сокращения затрат на вычислительные работы и экономии времени, но и в результате реального улучшения деятельности предприятия.

В данной работе  была создана автоматизированная информационная система «Клиентская база ОАО Сбербанк России» предназначена для автоматизации данных о клиентах сбербанка.

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

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

В перспективе база данных будет обновляться по мере приема заполнения. С учетом этого она и была спроектирована. Надеюсь, что спроектированная АИС существенно облегчит деятельность ресторана и составления меню. А при правильном и своевременном обновлении, использовании и администрировании так оно и будет.

Таким образом, в процессе проектирования базы данных, можно прийти к выводу, что правильная организация хранения и представления данных является неотъемлемой частью для успешного функционирования программы. Огромную роль в построении базы данных в MS Access играют такие полезные функции, как создание запросов, которые позволяют делать выборку необходимых полей из большой совокупности данных, а также производить арифметические и логические операции над этими полями.

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

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

Для проектирования и разработки программного продукта использовалась система быстрой разработки - приложение СodeGear Rad Studio и система управления базами данных Microsoft Access.

Разработанная автоматизированная информационная система «Клиентская база ОАО сбербанк России» автоматизирует обработку и управление информацией о кредитах и вкладах клиентов сбербанка.

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

 

 

 

 

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Агафонов В.А. Анализ стратегий и разработка комплексных программ. М.: Наука, 2010 г.
2. Андрей Боровский. Программирование в Delphi 2007. Издат.: БХВ-Петербург, 2011. – 448 с.
3. Агальцов В.П.   Базы данных: учебное пособие для СПО. - М: Мир, 2012.- 376 с.
4. Алгоритмические языки и программирование. Система программирования DELPHI: учеб. пособ. для вузов / разраб. Т.А.Лабзиной. - М: Совр. Гум. Ун-т, 2012.
5. Ахангельский А.Я. Программирование в Delphi 7. – М.: ООО «Бином-Пресс», 2013 г. – 1152с.
6. Бобровский С. Delphi 7: учебный курс. - СПб.: Издательство «Питер», 2009. - 640 с, ил.
7. Гаевский А.Разработка программных приложений на Delphi 7 – М.: Киев, 2010
8. Гайдамакин Н.А.   Автоматизированные информационные системы, банки и базы данных. Вводный курс: учебное пособие. - М: Гелиос АРВ, 2012.- 368 с.
9. Голицина ОЛ, Максимов НВ, Попов ИИ. «Базы данных». М.: Диалектика, 2009 г. – 350 с.
10. Гофман В.Э., Хомоненко А.Д. Работа с базами данных в Delphi. – 2-е изд. – СПб.: БХВ-Петербург, 2009. – 624 с.:
11. Дарахвелидзе П. Г., Марков Е. П. - Программирование в Delphi 7. — СПб.: БХВ-Петербург, 2009. —784 с.: ил.
12. Дэйт К.Введение в системы баз данных.-М.,2009
13. Дубнов П.Ю. Access 2003: Самоучитель. - М.: ДМК Пресс, 2010.-
14. Епанищников А., Епанищников В. Программирование в среде Delphi 7  .- М.: Диалог-МИФИ, 2011
15. Вирт Н. Алгоритмы + структура данных = программы. - М.: Мир, 2010
16. Каревич Ю. Б., Пушкина Н. В. MS Access 2007 за 30 занятий. - СПб: БХВ-Петербург, 2009. - 492 с.
17. Карпов Б. Microsoft Access 2007: Справочник. - СПб:Питер, 2009. – 416с.
18. Конноли Т.К. «Базы данных проектирование реализация и сопровождение». Берг: Диалектика, 2009 г.-180 с.
19. Культин Н.Б. Программирование в Turbo Pascal и Delphi.— СПб.: BHV — Санкт-Петербург, 2010.
20. Марков Е. П., Никифоров В. В. -  Delphi 2007 для .NET. - СПб.: БХВ- Петербург, 2009. - 896 с : ил.
21. Михеева Е.В. Информационные технологии в профессиональной деятельности: учебн. пособие для студ. сред. проф. образования. – 7- е изд.. – М.: Издательский центр «Академия», 2009
22. Новичков В.С. Алгоритмические языки. Delphi 7. –М.: Высшая школа,2009.
23. Праг, Ирвин. Access 2007. Библия пользователя.: Пер. с англ. – М.: Издательский дом «Вильямс», 2010. – 1040с
24. Практикум по информационным технологиям в профессиональной деятельности: учебн. пособие для студ. сред. проф. образования. – 7- е изд.. – М.: Издательский центр «Академия», 2011г.
25. Пратт Т."Языки программирования: разработка и реализация" М. 2009
26. Ульман Д. «Теория и практика БД». М.: Машиностроение, 2010 г.-250 с.
27. Фаронов В.В. Delphi 7 Начальный курс. Нолидж, 2010
28.   Фленов М. Е. Библия Delphi / М. Е. Фленов. -- 2-е изд. , перераб. и доп. - СПб. : БХВ-Петербург, 2011. -- 800 с.
29. Харитонова И.А., Михеева В.Д. Microsoft ACCESS 2003: разработка приложений. – СПБ.: БХВ – Петербург, 2009. – 832с.

 

 

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЯ

Приложение А

 

Интерфейс СУБД Microsoft Access 2013

 

 

 

 

Приложение Б

 

Интерфейс среды RAD Studio

 

 

 

Приложение В

 

Листинг программы

 

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, jpeg;

type

  TForm7 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Image1: TImage;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

uses Unit8, Unit10, Unit11, Unit9, Unit3;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm7.Button3Click(Sender: TObject);

begin

Form11.Close;

Form10.Close;

Form9.Close;

Form8.Close;

Form7.Close;

end;

end.

unit Unit8;

interface

uses

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

  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

  TForm8 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ADOConnection1: TADOConnection;

    ADODataSet1: TADODataSet;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form8: TForm8;

implementation

uses Unit7, Unit9, Unit10, Unit11, Unit1, Unit2;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Form10.Show;

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

Form11.Show;

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

form8.ADODataSet1.Delete;

end;

procedure TForm8.Button5Click(Sender: TObject);

begin

form8.ADODataSet1.Edit;

end;

 

end.

unit Unit9;

interface

uses

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

  Dialogs, StdCtrls, ComCtrls;

type

  TForm9 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    ComboBoxEx1: TComboBoxEx;

    Label8: TLabel;

    procedure ComboBoxEx1Change(Sender: TObject);

      private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form9: TForm9;

implementation

uses Unit8, Unit1, Unit2;

{$R *.dfm}

procedure TForm9.ComboBoxEx1Change(Sender: TObject);

begin

if comboboxex1.Text='Кредиты' then form1.Show;

if comboboxex1.Text='Вклады' then form2.Show;

end;

end.

unit Unit10;

interface

uses

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

  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

  TForm10 = class(TForm)

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ADODataSet1: TADODataSet;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form10: TForm10;

implementation

uses Unit8, Unit1;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

begin