Базы данных страхование

Банк принимает платёжные поручения от организаций. Данные по каждой организации заносятся в базу данных (ИНН организации, адрес, название, ФИО директора, годовой доход, телефон).

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

В базе данных регистрируется следующая информация:

1. Информация  об организации:

• ИНН организации
• Название
• Телефон
• Адрес
• ФИО директора
• Годовой доход

Обслуживание конкретного платежного поручения осуществляется одним из сотрудников банка, но, с течением времени, он может поменяться, например из-за увольнения. Все данные, а также изменения заносятся в документ следующей формы:

• Номер платежного поручения
• ИНН организации
• Название организации
• ИНН сотрудника
• ФИО сотрудника
• Дата поступления
• Отметка о выполнении

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

Данные о сотрудниках, включая ИНН, ФИО, стаж работы, дату рождения и номер отдела, к которому они прикреплены, содержатся в документах следующей формы:

• ИНН сотрудника
• ФИО сотрудника
• Номер отдела
• Стаж работы (полных лет)
• Дата рождения

Прежде чем прикрепить сотрудника к отделу, нужно назначить менеджера, но только в том случае, если отдел вновь создан, для этого в срочном порядке составляется следующий документ:

• Номер отдела
• ИНН сотрудника
• ФИО главного
• Телефон отдела

ФИО главного заполняется из базы данных по соответствующему ИНН. Данные о менеджерах, включая ИНН, ФИО, стаж работы и дату рождения хранятся в документах следующей формы:

• ИНН главного
• ФИО главного
• Стаж работы (полных лет)
• Дата рождения

 

 

3.1 Схема данных

 

 

Типы полей:

 

база данный банк автоматизация

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3.2 Технология доступа к данным

 

Доступ ко всем формам, запросу и отчету осуществляется через главную кнопочную форму:

 

 

Доступ к данным непосредственно через таблицы невозможен. Для обеспечения удобства и корректности добавления и редактирования информации в БД доступ к данным, содержащимся в таблицах, осуществляется через формы.

Формы

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

 

 

 

Информация о платежном поручении представлена в форме:

 

 

 

Для просмотра, ввода и редактирования данных о сотрудниках, отделах и менеджерах созданы формы:

 

 

Заключение

 

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

Программное обеспечение, предназначенное для работы с базами данных, называется система управления базами данных (СУБД). СУБД используются для упорядоченного хранения и обработки больших объемов информации. СУБД организует хранение информации таким образом, чтобы ее было удобно: просматривать, пополнять, изменять, искать нужные сведения, делать любые выборки, осуществлять сортировку в любом порядке.

Банк принимает платёжные поручения от организаций. Данные по каждой организации заносятся в базу данных (ИНН организации, адрес, название, ФИО директора, годовой доход, телефон). При оформлении документов, каждое платёжное поручение получает уникальный номер, регистрируются следующие данные: ИНН организации, дата его поступления, отметка об его выполнении, ИНН сотрудника оформляющего это поручение. Организации, которые не подали заявку о регистрации в базе данных, к оформлению платёжных поручений не допускаются. В заявку обязательно должны входить следующие данные об организации: ИНН организации, адрес, название и номер телефона, дополнительные данные, такие как ФИО директора и годовой доход предоставляются по желанию.

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

Средствами Delphi создан удобный пользовательский интерфейс. Приложение позволяет решать все задачи, сформулированные в задании на курсовую работу. Это позволяет сделать вывод, что задание выполнено полностью.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список использованных источников

 

1. Ларс Кландер, «Полное руководство по безопасности компьютера»
2. Роберта Браг; «Система безопасности Windows 2000»
3. Стюарт Мак-Клар, Джоел Скембрей, Джордж Курц; «Секреты хакеров. Безопасность сетей - готовые решения». 3-е издание. : Пер. с англ. — М. : Издательский дом "Вильяме", 2002.
4. Джерри Хонейкатт; Реестр Windows XP, Справочник профессионала. Практическое пособие / Перевод с англ. М.: Издательство «СП-ЭКОМ», 2003.
5. Безруков Н.Н. Компьютерная вирусология. Ч. 1 Общие принципы функционирования, классификация и каталог вирусов в среде MS DOS Киев, 1999
6. Герасименко В.А. Защита информации в автоматизированных системах. ч. 1, 2 М.: "Высшая школа", 1995.
7. Кнут Д. Искусство программирования для ЭВМ. Т. 2. Получисленные алгоритмы.- М.: Мир, 1977.
8. О. В. Бурдаев, М. А. Иванов; «Ассемблер в задачах защиты информации»
9. Alex WebKnacKer; «Быстро и легко. Хакинг и антихакинг: защита и нападение» Учебное пособие.— М.: Лучшие книги, 2004 
10. А. В. Домашев, М. М. Грунтович, В. О. Попов; «Программирование алгоритмов ЗИ»

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение А

 

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

type 

  TForm1 = class(TForm)

    Image1: TImage;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

implementation

uses Unit2, Unit4, Unit7, Unit9;

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2.show;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

form7.show;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

form9.show;

end;

end.

 

procedure TForm3.CheckBox1Click(Sender: TObject);

var pass: string;

begin

pass:='family777';

if (Edit1.text='') or (edit1.text<>pass) then showmessage ('вы не можете изменить таблицу') else

begin

if (Edit1.Text=pass) then table1.append;  table1.fieldbyname ('ИИН организации').

AsString:='новый филиал';  table1.post;

end;

end;

end.

 

procedure TForm6.Button1Click(Sender: TObject);

begin

table1.append;  table1.fieldbyname ('ФИО клиента').

AsString:='оформить кредит';  table1.post;

end;

 

procedure TForm6.Button2Click(Sender: TObject);

begin

table1.delete;

end;

end.

 

procedure TForm8.CheckBox1Click(Sender: TObject);

begin

table1.append;  table1.fieldbyname ('ИИН сотрудника').

AsString:='новый сотрудник';  table1.post;

end;

 

procedure TForm8.CheckBox2Click(Sender: TObject);

begin

if table1.canmodify=true then

table1.edit;

table1.fieldbyname ('ИИН сотрудника'). AsString:='изменение';  table1.post;

end;

 

procedure TForm8.CheckBox3Click(Sender: TObject);

begin

table1.delete;

end;

end.

 

procedure TForm10.Button1Click(Sender: TObject);

var pass: string;

begin

pass:='family777';

if  (Edit2.Text=pass) then Form8.Show else form10.close;

end;

 

procedure TForm10.Button2Click(Sender: TObject);

var

   s,s1:string;

f: TextFile;

i: integer;

begin

AssignFile(f,'myadmin.txt');

Rewrite(f);

s:=edit2.text;

 

for i:=0 to length(s) do

s1:=s1+Inttostr(ord(s[i]))+';';

   for i:=1 to length(s1) do

write(f,s1[i]);

CloseFile(f);

showMessage('Данные записаны в файл myadmin');

end;

end.

 

procedure TForm12.Button2Click(Sender: TObject);

begin

if (Edit1.Text=Ini.ReadString('asdas','Login', Edit1.Text)) and (edit2.Text=Ini.ReadString('asdas','PassWord', Edit2.Text)) then

form6.show

else

  Showmessage('Вы должны зарегистрироваться!')

end;

procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Ini.WriteBool('MAIN','ButtonLogin', Button1.Enabled);

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');

Button2.Enabled:=Ini.ReadBool('MAIN','ButtonLogin', Button2.Enabled);

end;

procedure TForm12.Button3Click(Sender: TObject);

begin

form13.show;

end;

end.

 

procedure TForm13.Button1Click(Sender: TObject);

begin

showmessage('вы не зарегистрировались, поэтому не можете добавить клиента')

end;

 

procedure TForm13.Button2Click(Sender: TObject);

begin

showmessage('вы не зарегистрировались, поэтому не можете изменить таблицу')

end;

end.

 

procedure TForm15.Button2Click(Sender: TObject);

var

   s,s1:string;

f: TextFile;

i: integer;

begin

AssignFile(f,'myadmin.txt');

Rewrite(f);

s:=edit1.text;

 

for i:=0 to length(s) do

s1:=s1+Inttostr(ord(s[i]))+';';

   for i:=1 to length(s1) do

write(f,s1[i]);

CloseFile(f); 

showMessage('Данные записаны в файл myadmin');

end;