Разработка АРМ "Меню"

Автор работы: Пользователь скрыл имя, 26 Декабря 2012 в 07:07, курсовая работа

Описание работы

Целью данного курсового проекта является создание информационной системы общественного питания: подсистемы «Меню». Система должна иметь интуитивно понятный пользовательский интерфейс, ориентированный на сбор, хранение, поиск и обработку информации. Для полноценного функционирования системы должна быть предусмотрена реляционная база данных, реализованная на MS Access.

Содержание работы

ВВЕДЕНИЕ 2
1.ОСНОВНАЯ ЧАСТЬ 4
1.1.ТЕОРЕТИЧЕСКАЯ ЧАСТЬ 4
1.2. ИССЛЕДОВАТЕЛЬСКАЯ ЧАСТЬ 5
1.2.1.АНАЛИТИЧЕСКАЯ ЧАСТЬ 5
1.2.1.1 ОПИСАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ 5
1.2.2.ПРОЕКТНАЯ ЧАСТЬ 6
1.2.2.1СОЗДАНИЕ БАЗЫ ДАННЫХ ПОДСИСТЕМЫ «МЕНЮ» 8
1.2.2.1.1. СОЗДАНИЕ ИНФОЛОГИЧЕСКИЙ И ДАТОЛОГИЧЕСКОЙ МОДЕЛИ БАЗЫ ДАННЫХ 8
1.2.2.1.2. РАЗРАБОТКА ИНФОРМАЦИОННОГО ПРИЛОЖЕНИЯ ПОДСИСТЕМЫ «МЕНЮ» 13
1.3.ЭКОНОМИЧЕСКАЯ ЧАСТЬ 19
1.3.1. РАСЧЕТ ЗАТРАТ НА РАЗРАБОТКУ АВТОМАТИЗИРОВАННОЙ ИНФОРМАЦИОННОЙ СИСТЕМЫ 19
1.3.2. РАСЧЕТ ПРИБЫЛИ ОТ РЕАЛИЗАЦИИ СИСТЕМЫ 23
ЗАКЛЮЧЕНИЕ 25
СПИСОК ЛИТЕРАТУРЫ 26
ПРИЛОЖЕНИЯ 27

Скачать архив (426.44 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Меню Пояснительная записка123.doc

— 739.00 Кб (Скачать файл)

 

Цд = Ссозд*(1+Нр/100),                                     (14)

 

где

Ссозд - себестоимость  создания системы; 

Нр - нормативная рентабельность, проценты.

Основываясь на величине полезности работы (ее результативности) для программного обеспечения нормативная рентабельность составляет 170%. Тогда по формуле (14):

Цд = 67433 • (1+170/100) = 182070 тг.

Чистая  прибыль определяется по формуле:

 

     Пч = Цд - (НДС+Нп+Нс),                           (15)

 

где

Цд - договорная стоимость на продажу системы;

НДС - налог на добавленную стоимость;

Нп - налог на прибыль;

Нc - социальный налог.

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

НДС составляет 15% от стоимости системы.

НДС = 182070*0,15 = 27311 тг.

Данный  показатель необходимо включить в стоимость  продажи системы. Тогда договорная стоимость на продажу системы, включая НДС равна:

Цд= 182070+27311 = 209381 тг. 

Налог на прибыль составляет 30% от стоимости  продажи:

Нп= 209381*0,3 = 62814 тг.

Социальный  налог составляет примерно 18% заработной платы:

Нc = 676*61*0,18 =7423 тг.

По  формуле (15) чистая прибыль от продажи программного продукта равна:

Пч = 209381 - (27311+62814+7423) = 111833 тенге.

Таким образом, чистая прибыль от разработанного программного обеспечения составляет 111833 тенге.

 

ЗАКЛЮЧЕНИЕ

 

 

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

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

  • ведение информационных справочниках о блюдах и их типах;
  • формирование меню;
  • Вывод формы отчетности в MS Excel.

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

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

В целом курсовой проект разработан в соответствии с поставленными  задачами. Рассмотрены и разработаны  все поставленные критерии. Разработанное приложение протестировано и готово к использованию.

 

 

 

 

 

СПИСОК ЛИТЕРАТУРЫ

 

  1. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 1989.;
  2. Мартин Дж. Планирование развития автоматизированных систем. – М.: Финансы и статистика, 1984. ;
  3. Хаббард Дж. Автоматизированное проектирование баз данных. – М.: Мир, 1984. ;
  4. Демьяненко В.Б. Программные средства создания и ведения баз данных .-М., 1986;
  5. Денисенко Г.Ф. "Охрана труда";
  6. Мамеконов А.Г. Проектирование АСУ. – М.: Высш. шк., 1987;
  7. Павлов А.А., Гриша С.Н. и др. Основы системного анализа и проектирование АСУ.- Киев: Высш. шк., 1991;
  8. Вендров А.М., САSE- технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 1998;
  9. Атре Ш. Структурный подход к организации баз данных. – М.: Финансы и статистика, 1983;
  10. Джексон Г. Проектирование реляционных баз данных для использования с микроЭВМ. -М.: Мир, 1991;
  11. Кириллов В.В. Структурированный язык запросов (SQL). – СПб.: ИТМО, 1994. – 80 с.;
  12. Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., – М.: Мир, 1985. Кн. 1. – 287 с.: Кн. 2. – 320 с.;
  13. Ревунков Г.И. и др. Базы и банки данных и знаний Учеб. Для вузов по спец. "АИС". -М.: Высш. школа, 1992 г.;

Квартальнов В.А. Иностранный туризм. М.: Финансы и статистика, 1995.

 

 

ПРИЛОЖЕНИЯ

 

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

unit UnitStart;

 

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

 

type

  TForm1 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses UnitMain;

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form2.show;

form1.Hide;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

 

end.

 

unit UnitMain;

 

interface

 

uses

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

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

 

type

  TForm2 = class(TForm)

    Image1: TImage;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    GroupBox3: TGroupBox;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBGrid3: TDBGrid;

    ADOConnection1: TADOConnection;

    ADOQuery1: TADOQuery;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    ADOQuery2: TADOQuery;

    DataSource3: TDataSource;

    ADOQuery3: TADOQuery;

    procedure exportexcel;

   procedure FormCreate(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

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

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses ComObj, UnitAddT, UnitAddB, UnitAddM;

 

{$R *.dfm}

 

procedure TForm2.ExportExcel;

var

  MyExcel: Variant;

  i,j: integer;

// e: boolean;

begin

try

  MyExcel:=CreateOleObject('Excel.Application');

except

  MessageBox(handle,pchar('У Вас не та версия Excel или Excel не установлен!!!'),pchar('Ошибка экспорта'),16);

  exit;

end;

  application.ProcessMessages;

  MyExcel.WorkBooks.Add;

  //MyExcel.ActiveSheet.Name:='Отчёт №'+inttostr(q);

  //MyExcel.Cells[1,1].value:='Отчёт №'+inttostr(q);

  //ADODataSet1.First;

  ADOQuery2.First;

  for i:=0 to ADOQuery2.FieldCount-1 do begin

  MyExcel.cells[1,i+1].value:=ADOQuery2.Fields[i].DisplayName;

  end;

  ADOQuery2.First;

  for j:=0 to ADOQuery2.RecordCount-1 do begin

  for i:=0 to ADOQuery2.FieldCount-1 do begin

  MyExcel.Cells[j+2,i+1].value:=ADOQuery2.Fields[i].AsString;

  MyExcel.Columns[i+1].ColumnWidth:=35;

  MyExcel.Cells[j+2,i+1].Borders.Weight:=4;

  MyExcel.Cells[j+2,i+1].Borders.Weight:=2;

  application.ProcessMessages;

end;

  ADOQuery2.Next;

end;

  MyExcel.Visible:=true;

  application.ProcessMessages;

  MessageBox(handle,pchar('Экспорт в Excel завершен!'),pchar('Экспорт завершен'),64);

 

end;

 

 

procedure TForm2.FormCreate(Sender: TObject);

var

st1, st2, st3:string;

begin

ADOQuery1.SQL.Clear;

st1:='';

st1:='select [Tipy.KodT] as "Код типа", [Tipy.NameT] as "Наименование типа"  ';

st1:=st1+ 'from Tipy';

ADOQuery1.SQL.Add(st1);

adoquery1.ExecSQL;

adoquery1.Active:=true;

 

ADOQuery2.SQL.Clear;

st2:='';

st2:='select [Bluda.KodB] as "Код блюда", [Tipy.NameT] as "Тип блюда", [Bluda.NameB] as "Наименование блюда", [Bluda.Sostav] as "Состав"  ';

st2:=st2+ 'from Bluda, Tipy  ' ;

st2:=st2+ 'where ([Tipy.KodT]=[Bluda.KodT])';

ADOQuery2.SQL.Add(st2);

adoquery2.ExecSQL;

adoquery2.Active:=true;

 

ADOQuery3.SQL.Clear;

st3:='';

st3:='select [Menu.KodM] as "Код", [Bluda.NameB] as "Наименование блюда", [Menu.Vyhod] as "Выход", [Menu.Cena] as "Цена"  ';

st3:=st3+ 'from Menu, Bluda  ';

st3:=st3+ 'where ([Bluda.KodB]=[Menu.KodM])';

ADOQuery3.SQL.Add(st3);

adoquery3.ExecSQL;

adoquery3.Active:=true;

end;

 

procedure TForm2.BitBtn7Click(Sender: TObject);

begin

close;

end;

 

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

begin

application.Terminate;

end;

 

procedure TForm2.BitBtn6Click(Sender: TObject);

begin

exportexcel;

end;

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

form3.showmodal;

end;

 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

form4.showmodal;

end;

 

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

form5.showmodal;

end;

 

procedure TForm2.BitBtn4Click(Sender: TObject);

var

st2, st3, t1:string;

begin

  t1:=DBGrid2.DataSource.DataSet.Fields[0].asstring;

      adoquery2.SQL.Clear;

      st2:='DELETE * FROM Bluda Where ([KodB]='+t1+') ';

       adoquery2.SQL.Add(st2);

       adoquery2.execsql;

        adoquery2.SQL.Clear;

    ADOQuery2.SQL.Clear;

 

    ADOQuery2.SQL.Clear;

st2:='';

st2:='select [Bluda.KodB] as "Код блюда", [Tipy.NameT] as "Тип блюда", [Bluda.NameB] as "Наименование блюда", [Bluda.Sostav] as "Состав"  ';

st2:=st2+ 'from Bluda, Tipy  ' ;

st2:=st2+ 'where ([Tipy.KodT]=[Bluda.KodT])';

ADOQuery2.SQL.Add(st2);

adoquery2.ExecSQL;

adoquery2.Active:=true;

end;

 

procedure TForm2.BitBtn5Click(Sender: TObject);

var

st2, st3, t1:string;

begin

  t1:=DBGrid3.DataSource.DataSet.Fields[0].asstring;

      adoquery3.SQL.Clear;

      st3:='DELETE * FROM Menu Where ([KodM]='+t1+') ';

       adoquery3.SQL.Add(st3);

       adoquery3.execsql;

        adoquery3.SQL.Clear;

    ADOQuery3.SQL.Clear;

 

    ADOQuery3.SQL.Clear;

st3:='';

st3:='select [Menu.KodM] as "Код", [Bluda.NameB] as "Наименование  блюда", [Menu.Vyhod] as "Выход", [Menu.Cena] as "Цена"  ';

st3:=st3+ 'from Menu, Bluda  ';

st3:=st3+ 'where ([Bluda.KodB]=[Menu.KodM])';

ADOQuery3.SQL.Add(st3);

adoquery3.ExecSQL;

adoquery3.Active:=true;

   

end;

 

end.

 

unit UnitAddT;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm3 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

uses UnitMain;

 

{$R *.dfm}

 

procedure TForm3.Button2Click(Sender: TObject);

begin

form3.Close;

edit1.Clear;

end;

 

procedure TForm3.Button1Click(Sender: TObject);

var

st1:string;

begin

Form2.ADOQuery1.SQL.Clear;

st1:='Insert Into [Tipy] ([NameT]) ';

st1:= st1 + ' VALUES  ('''+ Edit1.Text +''' )';

Form2.ADOQuery1.SQL.Add(st1);

Form2.ADOQuery1.ExecSQL;

 

Form2.ADOQuery1.SQL.Clear;

 

Form2.ADOQuery1.SQL.Clear;

st1:='';

st1:='select [Tipy.KodT] as "Код типа", [Tipy.NameT] as "Наименование типа"  ';

st1:=st1+ 'from Tipy';

Form2.ADOQuery1.SQL.Add(st1);

Form2.adoquery1.ExecSQL;

Form2.adoquery1.Active:=true;

 

edit1.Clear;

form3.Close;

 

 

 

 

end;

 

end.

 

unit UnitAddM;

 

interface

 

uses

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

  Dialogs, DB, ADODB, StdCtrls, DBCtrls;

 

type

  TForm5 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

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

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

uses UnitMain;

 

{$R *.dfm}

 

procedure TForm5.Button2Click(Sender: TObject);

begin

edit1.Clear;

form2.show;

form5.Close;

end;

 

procedure TForm5.Button1Click(Sender: TObject);

var

st3:string;

begin

Form2.ADOQuery3.SQL.Clear;

st3:='Insert Into [Menu] ([KodB], [Vyhod] , [cena]) ';

st3:= st3 + ' VALUES  (' + floattostr(dblookupcombobox1.KeyValue) +' , '''+ Edit1.Text +''' , '''+ Edit2.Text +''' )';

Form2.ADOQuery3.SQL.Add(st3);

Form2.ADOQuery3.ExecSQL;

 

Form2.ADOQuery3.SQL.Clear;

 

Form2.ADOQuery3.SQL.Clear;

st3:='';

st3:='select [Menu.KodM] as "Код", [Bluda.NameB] as "Наименование блюда", [Menu.Vyhod] as "Выход", [Menu.Cena] as "Цена"  ';

st3:=st3+ 'from Menu, Bluda  ';

st3:=st3+ 'where ([Bluda.KodB]=[Menu.KodM])';

Form2.ADOQuery3.SQL.Add(st3);

Form2.adoquery3.ExecSQL;

Form2.adoquery3.Active:=true;

 

edit1.Clear;

form2.show;

form5.Close;

end;

 

procedure TForm5.FormCreate(Sender: TObject);

begin

adotable1.Active:=true;

end;

 

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

begin

adotable1.Active:=false;

end;

 

end.

 

unit UnitAddB;

 

interface

 

uses

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

  Dialogs, DB, ADODB, StdCtrls, DBCtrls;

 

type

  TForm4 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

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

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

   { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

uses UnitMain;

 

{$R *.dfm}

 

procedure TForm4.Button2Click(Sender: TObject);

begin

form4.Close;

form2.show;

end;

 

procedure TForm4.FormCreate(Sender: TObject);

begin

adotable1.Active:=true;

end;

 

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

begin

adotable1.Active:=true;

end;

 

procedure TForm4.Button1Click(Sender: TObject);

var

st2:string;

begin

Form2.ADOQuery2.SQL.Clear;

st2:='Insert Into [Bluda] ([KodT], [NameB] , [sostav]) ';

st2:= st2 + ' VALUES  (' + floattostr(dblookupcombobox1.KeyValue) +' , '''+ Edit1.Text +''' , '''+ Edit2.Text +''' )';

Form2.ADOQuery2.SQL.Add(st2);

Form2.ADOQuery2.ExecSQL;

 

Form2.ADOQuery2.SQL.Clear;

 

Form2.ADOQuery2.SQL.Clear;

st2:='';

st2:='select [Bluda.KodB] as "Код блюда", [Tipy.NameT] as "Тип блюда", [Bluda.NameB] as "Наименование блюда", [Bluda.Sostav] as "Состав"  ';

Информация о работе Разработка АРМ "Меню"