Информационные системы учета

-         Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

-         Масштабируемые средства для построения баз данных

Разработанный проект по задаче  «Учет наличности в кассе», реализован на языке объектно-ориентированного программирования «Delphi».

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

Delphi поддерживает использование уже существующих объектов, включая DLL, написанные на С и С++, OLE сервера, VBX, объекты, созданные при помощи Delphi. Из готовых компонент работающие приложения собираются очень быстро. Кроме того, поскольку Delphi имеет полностью объектную ориентацию, разработчики могут создавать свои повторно используемые объекты для того, чтобы уменьшить затраты на разработку.

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

  Эг = 1 492 386 тенге.

Срок окупаемости системы:

              Ток = 1 090 000/ 1 492 386= 0,73года.

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

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1.          Анисимова Ж.М., Дуберштейн Б.А. Сборник задач по автоматизированной системе экономической информации. - Минск: Высшая школа, 1991.

2.          Брага В.В. Компьютеризация бухгалтерского учета. - М.: Финстатинформ, 1996.

3.          Вендров А.М. Проектирование программного обеспечения ЭИС, учебник, -  М.: Финансы и статистика, 2000.

4.          Гондюхин С.В. Цхай С.М. АРМ-специалистов. - Караганда, КИПК, 1991.

5.          Диго С.М. Проектирование и использование баз данных. - М.: Финансы и статистика, 1993.

6.          Дик В.В. Информационные системы в экономике -  М.: Финансы и статистика, 1996.

7.          Дрогобыцкий И.Н. Проектирование автоматизированных информационных систем: организация и управление. - М.: Финансы и статистика, 1992.

8.          Мамиконов А.Г. Проектирование АСУ, учебник, -  М.: Высшая школа, 1987г.

9.          Назарова С.В. Компьютерные технологии обработки информации. -  Москва, Финансы и статистика, 1995.

10.      Подольский В.И., Дин В.В. Уринцов А.М. ИС бухучета. -  ЮНИТИ. М.: Аудит, 1998.

11.      Половнев Н.М. Автоматизированное рабочее место. -  Алматы: Экономика, 1994.

12.      Радостовец Н.Н. Бухгалтерский учет на предприятии издание второе дополненное и переработанное. -  Алматы, Центраудит, Казахстан, 1998.

13.      Рожнов В.С., Либерман В.Б., Умнова Э.А. Автоматизированные системы обработки учетно-аналитической информации, учебник, -  М.: Финансы и статистика, 1992.

14.      Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование ЭИС, учебник, - М.: Финансы и статистика, 2001.

15.      Трубилин И.Т., Семенов М.И., Лойко В.И., Барановская Т.П. Автоматизированные информационные технологии в экономике, - М.: Финансы и статистика, 2000.

16.      Тулегенов Э.Т., Бралиева Н.Б., Стороженко Л.А., Матвеева И.А. Бухгалтерские информационные системы. -  Алматы, Экономика, 1999г.

17.      Якубайтис Э.А. Информационные сети и системы. -  М.: Финансы и статистика, 1996.

18.      Шендрик В. Обзор рынка компьютерных бухгалтерий. // Бухгалтер и компьютер №6, июнь 2000.

19.      Шалтыкова Ж. Как выбрать программный продукт для автоматизации бухгалтерского учета. // Бухгалтер и компьютер №10, октябрь 2001.

20.      Попова Т.В. Составление документов. // Бухгалтер и компьютер №7-8, июль-август 2001.

ПРИЛОЖЕНИЕ А

Экранная форма «Ввод данных»

ПРИЛОЖЕНИЕ Б

Экранная форма «Массивы данных»

ПРИЛОЖЕНИЕ В

Экранная форма «Вывод данных»

ПРИЛОЖЕНИЕ Г

Экранная форма «Выход»

ПРИЛОЖЕНИЕ Д

Реализация программных модулей на ПЭВМ

unit Unit2;

interface

uses

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

  StdCtrls, Db, DBTables, Grids, DBGrids, Menus, Mask, DBCtrls, Qrctrls,

  QuickRpt, ExtCtrls;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    GroupBox1: TGroupBox;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DataSource1: TDataSource;

    Table1: TTable;

    DataSource2: TDataSource;

    Query1: TQuery;

    Table1Numer1: TIntegerField;

    Table1Data1: TDateField;

    Table1Platelschik: TStringField;

    Table1Schet1: TIntegerField;

    Table1Osnovanie1: TStringField;

    Table1Summa1: TIntegerField;

    Button1: TButton;

    Button2: TButton;

    GroupBox2: TGroupBox;

    DBGrid3: TDBGrid;

    DBGrid4: TDBGrid;

    DataSource3: TDataSource;

    Table2: TTable;

    DataSource4: TDataSource;

    Query2: TQuery;

    Table2Numer2: TIntegerField;

    Table2Data2: TIntegerField;

    Table2Poluchatel: TStringField;

    Table2Schet2: TIntegerField;

    Table2Osnovanie2: TStringField;

    Table2Summa2: TIntegerField;

    Button3: TButton;

    Button4: TButton;

    GroupBox3: TGroupBox;

    DBGrid5: TDBGrid;

    DataSource5: TDataSource;

    Table3: TTable;

    Button5: TButton;

    Button6: TButton;

    GroupBox4: TGroupBox;

    GroupBox5: TGroupBox;

    DBGrid6: TDBGrid;

    DataSource6: TDataSource;

    DBGrid7: TDBGrid;

    DBGrid8: TDBGrid;

    DataSource7: TDataSource;

    Query3: TQuery;

    DataSource8: TDataSource;

    Query4: TQuery;

    N7: TMenuItem;

    N8: TMenuItem;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DataSource9: TDataSource;

    Query5: TQuery;

    DataSource10: TDataSource;

    Query6: TQuery;

    DataSource11: TDataSource;

    Table5: TTable;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    PrintDialog1: TPrintDialog;

    Query8: TQuery;

    Query8SUMOFOstatoknanachalo: TFloatField;

    Query8SUMOFSumma1: TFloatField;

    Query8SUMOFSumma2: TFloatField;

    Query8Ostatoknakonez: TCurrencyField;

    GroupBox6: TGroupBox;

    QuickRep1: TQuickRep;

    QRSubDetail1: TQRSubDetail;

    QRSysData1: TQRSysData;

    QRSubDetail2: TQRSubDetail;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRLabel5: TQRLabel;

    QRLabel6: TQRLabel;

    QRSubDetail3: TQRSubDetail;

    QRDBText1: TQRDBText;

    QRDBText2: TQRDBText;

    QRDBText3: TQRDBText;

    QRDBText4: TQRDBText;

    QRSubDetail4: TQRSubDetail;

    QRDBText5: TQRDBText;

    QRDBText6: TQRDBText;

    QRDBText7: TQRDBText;

    QRDBText8: TQRDBText;

    QRSubDetail5: TQRSubDetail;

    QRLabel7: TQRLabel;

    QRDBText9: TQRDBText;

    QRDBText10: TQRDBText;

    QRSubDetail6: TQRSubDetail;

    QRLabel8: TQRLabel;

    QRDBText11: TQRDBText;

    QRSubDetail7: TQRSubDetail;

    QRLabel9: TQRLabel;

    QRDBText12: TQRDBText;

    QRLabel1: TQRLabel;

    QRLabel2: TQRLabel;

    procedure N2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure Query8CalcFields(DataSet: TDataSet);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.N2Click(Sender: TObject);

begin

GroupBox1.Visible:=True;

GroupBox2.Visible:=False;

GroupBox3.Visible:=False;

GroupBox4.Visible:=False;

GroupBox5.Visible:=False;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Table2.Append;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Table2.Delete;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

GroupBox1.Visible:=False;

GroupBox2.Visible:=True;

GroupBox3.Visible:=False;

GroupBox4.Visible:=False;

GroupBox5.Visible:=False;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Table3.Append;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Table3.Delete;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

GroupBox1.Visible:=False;

GroupBox2.Visible:=False;

GroupBox3.Visible:=True;

GroupBox4.Visible:=False;

GroupBox5.Visible:=False;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

GroupBox1.Visible:=False;