Разработка автоматизированного рабочего места «Автостоянка»

№	Наименование	Стоимость, тенге
1	Затраты  на материалы	8 100
2	Фонд заработанной платы	99 527
3	Амортизационные отчисления	10 792
4	Затраты на освещение	1 097
5	Затраты на отопление	2 700
6	Себестоимость создания системы	128 259
7	Договорная стоимость системы	346 299
8	НДС	69 260
9	Налог на прибыль	124 668
10	Социальный налог	9 953
11	Накладные расходы	7 150
12	Чистая прибыль от продажи	208 077

ЗАКЛЮЧЕНИЕ

 Целью данной выпускной работы была разработка автматизированного рабочего места «Автостоянка» предназначенная для  операторов на частной стоянке.

В результате проделанной  работы была разработана база данных «Автостоянка» которая  автоматизирует  работу оператора автостоянки  и решает следующие задачи:

• позволяет вводить данные о вновь прибывших машинах;
• позволяет вводить данные об убывших машинах;
• вводит информацию о постоянных клиентах;
• производит автоматический расчет суммы необходимой к выплате за стоянку;
• выводит на печать квитанции об оплате места;

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

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

Чистая прибыль от разработанного программного обеспечения составляет 208 077 тенге.

 

 

 

 

 

 

 

 

 

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

1. ГОСТ 12.1.019-79. ССБТ.    Электробезопасность.  Общие требования.
2. ГОСТ 12.1.004-85.ССБТ. Пожарная безопасноть объектов с электрическими сетями.
3. ГОСТ 12.1.003-83.ССБТ. Шум. Общие требования безопасности.
4. СНиП 2.04.05.-86. Отопление, вентиляция и кондиционирование.
5. Гражданский кодекс Республики Казахстан
6. А.Я.Архангельский Программирование в Delphi 7- М.: ООО «Бином-Пресс», 2004 г.-1152с.:ил.
7. Бухгалтерский учет и аудит, учеб.пособие под.редакцией А.Сажина,2004г.
8. Бырова Л.О., Чепиженко А.З. Обеспечение  стойкости аппаратуры связи к ионизирующим и электромагнитным излучениям. МЖРадио и связь 2000г.
9. В.А.Гвоздева основы построения Автоматизированных информационных систем: учебник.- М.: ИД «Форум»: ИНФРА-М, 2007.-320с.
10. С.В.Глушаков., А.Л. Клевцов. Программирование в среде Delphi 7.0- Харьков:Фолио, 2003.-528с.
11. С.М.Диго Базы данных: проектирование и использование: Учебник.-М.:Финансы и статистика,2005.-592с.:ил.
12. П.Г.Драхвелидзе Программирование в Delphi 7.-СПб.: БХВ-Петербург, 2004.-784 с.: ил.
13. Н.З. Емельянова, Т.Л.Патрыка Основы построения автоматизированных информационных систем: Учебное пособие.-М.:ФОРУМ:ИНФРА-М, 2005.-416с.:ил.
14. Г.С. Иванова Технология программирования: М.:Издательство МГТУ имени Бауэмана, 2003.-320с.:ил.
15. В.Понамарев Базы данных в Delphi 7.- СПб.: питер, 2003.- 224с.:ил.
16. Б.Я.Советов., В.В.Цехановский., В.Д.Чертовской, Базы даных., Теория и пракктика, .-М.: Высш.шк., 2005г
17. А.В.Сорокин Delphi Разработка баз данных.-СПб.: Питер, 2005.-477с.:ил.
18. В.В.Фаронов. Программирование баз данных в среде Delphi 7.0. Учебный курс.-СПб.:Питер, 2004.
19. А.Д.Хомоненко., В.Г.Гофман., Самоучитель Delphi 7.0. Учебный СПб.: БХВ-Петербург, 2003г.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ  А

ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1 Введение

Настоящее техническое задание распространяется на разработку автоматизированного рабочего места «Автостоянка», предназначенной для автоматизации ведения учета машин прибывающих на автостоянку. Предполагается, что использовать данную систему будут операторами автостоянки.

2 Основание для разработки

Система разрабатывается на основании  приказа заведующего Абайским филиалом КПТК № 14У от 17.04.2009 и в соответствии с планом мероприятий по совершенствованию учебного процесса на 2008-2009 учебный год.

3 Назначение

Система предназначена для автоматизации процесса учета и регистрации машин на автостоянке.

4 Требования к программе или программному изделю

4.1.Требования к функциональным  характеристикам

4.1.1. Система должна обеспечивать  возможность выполнения следующих  функций:

• инициализацию системы ( ввод данных о машинах, о клиентах,лиентах);
• хранение информации о квартирах;
• расчет оплаты за стоянку.

4.1.2 Исходные данные:

• данные о машиных;
• данные о хозяине машине;

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ А

• расценки на стоянку;

4.1.3 Результаты:

• выдача квитанции о оплате.

4.2 Требования к надежности

4.2.1 Предусмотреть контроль вводимой информации.

4.2.2 Предусмотреть блокировку некорректных действий пользователя при работе с системой.

4.2.3 Обеспечить целостность хранимой информации.

4.3.  Требования к составу и  параметрам технических средств

4.3.1 Система должна работать на IBM совместимых персональных компьютерах.

4.3.2 Минимальная конфигурация:

• тип процессора III Pentium выше;
• объем оперативного запоминающего устройства 32 Мб и более.

4.4 Требования к информационной и программной совместимости

Система  должна работать под управлением  семейства операционных системы Win32 ( Windows 95, Windows 98, Windows 2000, Windows NT и т.п.)

5 Требования к программной документации

5.1 Разрабатываемые программные модули должны быть самодокумен-тированны, т.е. тексты программ должны содержать все необходимые комментарии;

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

5.3.1 Пояснительная записка на 66-80 листах, содержащая описание разработки

5.3.2 Руководство пользователя

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ А

 

5.3.3 Графическая часть на двух листах формат А4:

5.3.3.1 Схема структурная программной системы

5.3.3.2 Контрольный пример

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

 

 

 

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ  Б

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

Для запуска программы необходимо в папке «Автостоянка» нажать левой клавишей мыши на значек нарисованный на рисунке Б.1

Рисунок Б.1- Значок запуска приложения

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

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

 

Рисунок Б.2-Навигатор для работы с записями в таблицах базы данных

Каждая кнопка снабжена всплывающей  подсказкой, которая появляется при  наведения указателя мыши на этой кнопки.

Работа с окном  осуществляется с помощью кнопок  управления окном, рисунок Б.3

Рисунок Б.3-Кнопки управления окном

 

 

ПРИЛОЖЕНИЕ В

ЛИСТИНГ ПРОГРАММЫ

 

end.unit Unit2;

interface

uses

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

  Dialogs;

type

  TForm3 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    BitBtn8: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

begin

Form3.Show;

end;

end.

unit Unit5;

interface

uses

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

  Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

  Buttons;

type

  TForm2 = class(TForm)

    DBNavigator1: TDBNavigator;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Table1: TTable;

    Label1: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    Query1: TQuery;

    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form2.q_Poisk.Close;

Form2.q_Poisk.Active:=True;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Close;

end;

end.

unit Unit3;

interface

uses

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

  Dialogs;

type

  TForm4 = class(TForm)

    Edit1: TEdit;

    DBNavigator1: TDBNavigator;

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    DataSource1: TDataSource;

    Table1: TTable;

    procedure Edit1Change(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Edit1Change(Sender: TObject);

begin

if Length (Edit1.Text)>0 then

Form4.Table2.Filtered:=true

else

Form4.Table2.Filtered:=false;

Form4.Table2.Filter:='Name>='''+Edit1.Text+'''';

if  Form4.Table2.Filter <> 'Name'''+Edit1.Text+''''

then MessageDlg('Такой записи нет',mtError,[mbOk],0);

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form4.Show;

end;

unit Unit7;

interface

uses

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

  Dialogs;

type

  TForm7 = class(TForm)

    Edit1: TEdit;

    DBNavigator1: TDBNavigator;

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    DataSource1: TDataSource;

    Table1: TTable;

   

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

if  Form7.Table7.Modified then

Table4.Post;

Table4.Refresh;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

DataSet.FieldByName('Sum').AsCurrency :=

DataSet.FieldByName('PricePurch').AsCurrency DataSet.FieldByName('QuantityInc').AsCurrency;

end;

end.

 

 

 

 

 

ПРИЛОЖЕНИЕ Г

КОНТРОЛЬНЫЙ ПРИМЕР

Рассмотрим пример оформления машины на автостоянку. Запустим программу, в главном окне программы зарегистрируем водителя, нажмем кнопку «Водители», и зарегистрируем водителя. как показано на рисунке Г.1

Рисунок Г.1-Регистрация водителя

Затем закроем это окно и в  главном окне выберем пункт «Регистрация въезда», нажмем кнопку добавить и в  откравшемся окне введем данные, как показано на рисунке Г.2

Рисунок Г.2- Регистрация въезда водителя на стоянку

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ Г

Затем после того, как машина будет  выезжать со стоянки, необходимо произвести расчет. Для этого в главном  окне программы необходимо нажать на кнопку «Регистрация выезда», в результате в открывшемся окне необходимо выбрать пункт, Расчет суммы, и в откравшемся окне заполнить данные, как показано на рисунке Г.3

Рисунок Г.3- Расчет суммы к оплате

После Этого необходимо зпарегестрировать  данные в справочники вызовов  для этого необходимо. Нажать на кнопку «Внести в справочник», для  проверки были ли введены данные в  наш справочник необходимо в главном  окне открыть окно «Карточки регистрации», где можно просмотреть все регистрации клиентов, как показано  на рисунке Г.4

 

 

ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ Г

 

 

Рисунок Г.4- Журнал регистрации всех клиентов