Разработка информационной системы финансового контроля на предприятии

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

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

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

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

Следствием внедрения системы учета стало:

- Значительное повышение производительности труда и снижение трудозатрат.

- Повышение скорости выполнения задач, связанных с учетом.

- Снижение количества ошибок в документации, отчетах и т. д.

- Повышение эффективности учета, а зачастую увеличение рентабельности предприятия.

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

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



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

1 Омарова Ш.Е., Дрозд В.Г., Косова Е.Г. - Учебное пособие «Проектирование баз данных»

2 Кокорева Л.В., Перевозчикова О.Л. Диалоговые системы и представление знаний. - М: Мир, 2007.

3 Бронин Е.И. Принципы построения и архитектура САПР. - М.: Мир, 2008.

4 Борзов Ю.В. Методы тестирования и отладки программ ЭВМ. - Р.: ЛГУ им. П. Стучки, 2009.

5 Хендерсон К. Руководство разработчика баз данных в Delphi 2. - К.: Диалектика, 2008.

6 Бронин Е.И. Принципы построения и архитектура САПР. - М.: Мир, 2009.

7 Вермишев Ю.Х. Основы автоматизации проектирования. - М.: Бином, 2008.

8 Гради Буч. Объектно-ориентированный анализ и проектирование. - М.: Бином, 2007.

9 Гусев К.Г., Бабаков М.Ф. Основы теории надежности, Учебное пособие. - Харьков: ХАИ, 2009.

10 Гудман С. Введение в разработку и анализ алгоритмов. - М.: Мир, 2008.

11 Архангельский А.Я. Delphi 5: Справочное пособие. - М.: Бином, 2009.

12 Бойко В.В., Савинков В.М. Проектирование информационной базы автоматизированной системы на основе СУБД. - М.: ФиС, 2008.

13 Грого П. Программирование на языке Delphi. - М.: Наука, 2009.

14 Дантеманн Дж. Программирование в среде Delphi. - М.: Наука, 2009.

15 Гофман В.Э., Хомоненко А.Д. Delphi 7. - СПб.: БХВ - Санкт-Петербург, 2009.

16 Майерс Г. Надежность ПО. - М.: Мир Мир, М., 2008.

17 Когсвелл Д. Изучи сам программирование баз данных в Dephi 2.0 сегодня. /Пер. с англ. Мн.: ООО «Поппури», 2007.-448с.,ил.

18 Джексон Г. Проектирование реляционных баз данных для использования с микро-ЭВМ. - М.: ФиС, 2008.

19 Мартин Дж. Организация баз данных в вычислительных системах. - СПб.: Русская редакция, 2007.

20 Грэй П. Логика, алгебра, и БД. - М.: Мир, 2009.

21 Митчелл К. Виртуальный служащий: полцарства за розетку для ПК. // BusinessWeek, №7, 2007, с. 12-14.

22 ГОСТ 12.1.005-88. ССБТ. Воздух рабочей зоны. Общие санитарно - гигиенические требования. М.: Изд-во стандартов.

23 ГОСТ 12.1. 004 - 76. Пожарная безопасность. М.: Изд-во стандартов.

24 ГОСТ 12.2.032 78. Требования к организации и оборудованию рабочего места сотрудника вычислительного центра. М.: Изд-во стандартов.

25 ГОСТ 12.1.030-81. ССБТ. Электробезопасность. Защитное заземление, зануление. М.: Изд-во стандартов.

26 ГОСТ 12.1.003-83. ССБТ. Шум Общие требования безопасности. М.: Изд-во стандартов.

27 Аксенова И.Н. Изменение функционального состояния операторов ЭВМ под влиянием физических тренировок с элементами лечебной гимнастики и приема семакса: автореф. дис.... канд. мед.наук / И.Н.Аксенова. - М.: Наука, 2009.

28 Информационные системы в экономике. / Под ред. проф. В.В. Дика, - М.: ФиС, 2007.

29 Майоров С.И. Информационный бизнес: коммерческое распространение и маркетинг. - М.: ФиС, 2009.

30 Блюминау Д.И. Информация и информационный бизнес. - М.: Наука, 2008.

31 Хоскинг А. Курс предпринимательства. - М.: Международные отношения, 2009.

32 Лейбман Л. Проблемы глобальных коммуникаций. // ComputerWorld, №41, 2007, с. 35-36.

33 Прайс-лист компании «Белый ветер», 2013.



Приложение А. Листинг программы

unit Unit1;

interface

uses

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

Dialogs, Buttons, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Form1.Visible:=false;

Form2.Show;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

close;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, jpeg, ExtCtrls, ComCtrls, Buttons, DB, ADODB, Grids, DBGrids,

DBCtrls;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

SpeedButton2: TSpeedButton;

MonthCalendar1: TMonthCalendar;

SpeedButton1: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

Bevel1: TBevel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4, Unit5, Unit7, Unit9, Unit10, Unit11;

{$R *.dfm}

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

Form2.Visible:=false;

Form1.Show;

end;

procedure TForm2.SpeedButton5Click(Sender: TObject);

begin

Form3.QuickRep1.Preview;

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm2.SpeedButton8Click(Sender: TObject);

begin

Form2.Visible:=false;

Form5.Show;

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

Form2.Visible:=false;

Form7.Show;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

Form2.Visible:=false;

Form9.Show;

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

Form2.Visible:=false;

Form10.Show;

end;

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

Form2.Visible:=false;

Form11.Show;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, DB, ADODB, ExtCtrls;

type

TForm3 = class(TForm)

QuickRep1: TQuickRep;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

SummaryBand1: TQRBand;

QRLabel1: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRExpr1: TQRExpr;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRExpr2: TQRExpr;

QRSysData1: TQRSysData;

QRLabel10: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

unit Unit4;

interface

uses

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

Dialogs, Buttons, StdCtrls, Mask, DBCtrls;

type

TForm4 = class(TForm)

SpeedButton1: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

DBText1: TDBText;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4.SpeedButton1Click(Sender: TObject);

begin

Form2.ADOQuery1.Post;

close;

end;

end.

unit Unit5;

interface

uses

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

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

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DBNavigator1: TDBNavigator;

SpeedButton5: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit6, Unit2;

{$R *.dfm}

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

Form6.QuickRep1.Preview;

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

Form5.Visible:=false;

Form2.Show;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;

type

TForm6 = class(TForm)

QuickRep1: TQuickRep;

ColumnHeaderBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

DetailBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRSysData1: TQRSysData;

SummaryBand1: TQRBand;

QRLabel9: TQRLabel;

QRExpr2: TQRExpr;

QRLabel10: TQRLabel;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

QRDBText7: TQRDBText;

QRLabel11: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

end.

unit Unit7;

interface

uses

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

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

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DBNavigator1: TDBNavigator;

SpeedButton2: TSpeedButton;

SpeedButton7: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit2, Unit8;

{$R *.dfm}

procedure TForm7.SpeedButton2Click(Sender: TObject);

begin

Form7.Visible:=false;

Form2.Show;

end;

procedure TForm7.SpeedButton7Click(Sender: TObject);

begin

Form8.Show;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

TForm8 = class(TForm)

SpeedButton1: TSpeedButton;

DBText1: TDBText;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit1: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm8.SpeedButton1Click(Sender: TObject);

begin

Form7.ADOQuery1.Post;

close;

end;

end.

unit Unit9;

interface

uses

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

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

type

TForm9 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DBNavigator1: TDBNavigator;

SpeedButton2: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm9.SpeedButton2Click(Sender: TObject);

begin

Form9.Visible:=false;

Form2.Show;

end;

end.

unit Unit10;

interface

uses

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

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

type

TForm10 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DBNavigator1: TDBNavigator;

SpeedButton2: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm10.SpeedButton2Click(Sender: TObject);

begin

Form10.Visible:=false;

Form2.Show;

end;

end.

unit Unit11;

interface

uses

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

Dialogs, ExtCtrls, jpeg, StdCtrls, DB, ADODB, Buttons, DBCtrls, Grids,

DBGrids;

type

TForm11 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

SpeedButton2: TSpeedButton;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

Label1: TLabel;

Label2: TLabel;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

ADOQuery3: TADOQuery;

DataSource3: TDataSource;

Label3: TLabel;

Bevel1: TBevel;

Bevel2: TBevel;

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm11.SpeedButton2Click(Sender: TObject);

begin

Form11.Visible:=false;

Form2.Show;

end;

end.

Размещено на Allbest.ru