Файл: Автоматизация учета инвестиций и ценных бумаг.pdf

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

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

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

• - Провести анализ и описание предметной области;
• - Создать хранилище данных;
• - Обеспечить систему функцией контроля правильности оформления документов;
• - Изучить особенности работы пользователя и области применения информационной системы;
• Обеспечить максимальную безопасность данных в системе;
• Разработать интерфейс пользователя, учитывающий особенности специфики работы пользователя;

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

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

1. Абрамов Г.В., Медведкова И.Е., Коробкова Л.А. «Проектирование информационных систем» - Воронеж:ВГУИТ, 2012. - 172 с.
2. Аверченков В.И., Лозбинев Ф.Ю., Тищенко А.А. «Информационные системы в производстве и экономике» - М.:ФЛИНТА, 2011. - 274 с.
3. Братищенко В.В. «Проектирование информационных систем» - Иркутск: Изд-во БГУЭП, 2010. - 84 с.
4. Вендеров А.М. «Проектирование программного обеспечения экономических информационных систем» - М.: Финансы и статистика, 2012.
5. Гвоздева Т.В., Баллод Б.А. «Проектирование информационных систем» - М.:Феникс, 2011. - 512 с.
6. Гвоздева В.А., Лаврентьева И.Ю. «Основы построения АИС» - М.: ИД «ФОРУМ»: ИНФРА-М, 2010. – 320с.
7. Калянов Г.Н. «Стратегическое управление информационными системами» - М.:БИНОМ, 2010. - 510 с.
8. Коровкина Н.Л. «Проектирование информационных систем» - М.: Инетрнет-университет информационных технологий - ИНТУИТ. ру, 2013.
9. Мишенин А.И. «Теория экономических информационных систем» - М.: Финансы и статистика, 2011. - 240 с.
10. Соловьев И.В., Майоров А.А. «Проектирование информационных систем» - М.:Академический проект, 2011. - 400 с.
11. Титоренко Г.А. «Информационные системы и технологии управления» - М.:ЮНИТИ-ДАНА, 2012. - 591 с.
12. Черемных С.В. «Моделирование и анализ систем» - М.: Финансы и статистика, 2013. - 192 с.
13. Информационная безопасность и защита информации / В.П. Мельников. – М.: Академия, 2012. – 336 с.
14. Кузнецов, С.Д. Базы данных. Модели и языки. – М.: Бином-Пресс, 2013. – 720 с.
15. Култыгин, О.П. Администрирование баз данных. СУБД MS SQL Server. – М: Московская финансово-промышленная академия, 2012. – 232 с. (Университетская серия).
16. Мезенцев, К.Н. Автоматизированные информационные системы: Учебник для студентов учреждений среднего профессионального образования / К.Н. Мезенцев. - М.: ИЦ Академия, 2013. – 176 c.
17. Норенков, И.П. Автоматизированные информационные системы: Учебное пособие / И.П. Норенков. - М.: МГТУ им. Баумана, 2011. – 342 c.
18. . Пестриков, Виктор Delphi на примерах / Виктор Пестриков , Артур Маслобоев. - М.: БХВ-Петербург, 2017. - 496 c.
19. Устройство и функционирование информационных систем / Н.З. Емельянова, Т.Л. Партыка, И.И. Попов. Учебное пособие. – М.: ФОРУМ, НИЦ, ИНФРА-М. – 2012. – 448 с.
20. Федорова, Г.Н. Информационные системы: Учебник для студ. учреждений сред. проф. образования / Г.Н. Федорова. - М.: ИЦ Академия, 2013. – 208 c.

Приложение

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

var a,s:string;

begin

a:=Edit2.Text;

s:=Edit1.Text;

if ((s='Admin') and (a='123')) then

Form2.ShowModal

else

begin

ShowMessage('Íåïðàâèëüíûé ëîãèí èëè ïàðîëü');

Edit1.Clear;

Edit2.Clear;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close();

end;

end.

unit Unit2;

interface

uses

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

Dialogs, Menus, StdCtrls, DB, ADODB, jpeg, ExtCtrls, Grids, DBGrids;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

DBGrid1: TDBGrid;

Button6: TButton;

Button7: TButton;

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 N12Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit11, Unit10,

Unit12;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Form6.ShowModal;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

Adotable6.Delete;

end;

procedure TForm2.N12Click(Sender: TObject);

begin

Form11.ADOQuery1.Active:=false;

Form11.ADOQuery1.Active:=true;

Form11.ShowModal;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

Form10.ShowModal;

end;

procedure TForm2.N13Click(Sender: TObject);

begin

Form12.ADOQuery1.Active:=false;

Form12.ADOQuery1.Active:=true;

Form12.ShowModal;

end;

procedure TForm2.N4Click(Sender: TObject);

begin

Form3.ShowModal;

end;