Автоматизация заказа блюд в ресторане

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

с базой данных

Проектировани форм программы происходило в среде визуального программирования Delphi. Некоторые результирующие формы показаны на рисунках.

 

Рисунок 2.9 - Главная форма

 

Рисунок 2.10 - Форма ввода и корректировки справочников

 

 

ЗАКЛЮЧЕНИЕ

 

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

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

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

 

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

 

1. Вендров А.М. Case - технологии. Современные методы и средства проектирования информационных систем. - Internet, http/www.citforum.ru/case....-158 с., ил.

2. Марка Д., МакГоуэн К. Методология структурного анализа и проектирования: Пер. с англ. - М.: 1999.- 240 с., ил.

3. Шумаков П.В. Delphi 5 и разработка приложений баз данных. - М.: Нолидж, 2001. - 704 с., ил.

4. Грабер М. Введение в SQL: Пер. с англ. - М.: ЛОРИ, 1996.- 341с., ил.

5. Дейт К. Дж. Введение в системы баз данных: Пер. с англ. - 6-е изд. - К.: Диалектика, 1998. - 784с., ил.

6. Калянов Г.Н. Case-средства. Структурный и системный анализ (автоматизация и применение). - М.: ЛОРИ, 1999. - 249 с., ил.

7. Хендерсон Кен Delphi 5 и системы клиент/сервер. Руководство разработчика. : Пер. с англ. - К.: Диалектика, 2000. - 736 с., ил.

 

 

Приложение А

 

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

 

unit About;

 

interface

 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

 

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

AboutBox: TAboutBox;

 

implementation

uses Main, InformUnit;

 

{$R *.dfm}

 

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

MainForm.Show;

InformForm.Show;

end;

 

end.

 

unit InformUnit;

 

interface

 

uses

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

Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Buttons;

 

type

TInformForm = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

DBGrid2: TDBGrid;

GroupBox2: TGroupBox;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

GroupBox3: TGroupBox;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

GroupBox4: TGroupBox;

GroupBox5: TGroupBox;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

BitBtn1: TBitBtn;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

InformForm: TInformForm;

 

implementation

 

uses Main;

 

{$R *.dfm}

 

procedure TInformForm.BitBtn1Click(Sender: TObject);

begin

informform.Hide;

end;

 

end.

 

 

unit Main;

 

interface

 

uses

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

Dialogs, ComCtrls, StdCtrls, ExtCtrls, ToolWin, ActnMan,

ActnCtrls, Menus, Grids, DBGrids, DBCtrls, QuickRpt, QRCtrls, DBTables,

DB, AppEvnts, Buttons, jpeg;

 

type

TMainForm = class(TForm)

TreeView1: TTreeView;

WorkArea: TPanel;

Panel2: TPanel;

GroupBox1: TGroupBox;

Memo1: TMemo;

DS_spisokB: TDataSource;

T_typeB: TTable;

T_products: TTable;

T_EI: TTable;

T_ProdinRec: TTable;

T_spisokB: TTable;

DS_EI: TDataSource;

Session1: TSession;

DS_ProdinRec: TDataSource;

DS_products: TDataSource;

DS_TypeB: TDataSource;

T_productsIdP: TIntegerField;

T_productsNameProduct: TStringField;

T_productsKol_vo: TFloatField;

T_productsCenaP: TFloatField;

T_productsIdEI: TIntegerField;

T_productsRelatEI: TStringField;

T_spisokBIDB: TIntegerField;

T_spisokBNameB: TStringField;

T_spisokBCenaB: TFloatField;

T_spisokBIdTB: TIntegerField;

T_spisokBFlagCur: TBooleanField;

T_spisokBRelatTypeB: TStringField;

T_ProdinRecIDB: TIntegerField;

T_ProdinRecIDP: TIntegerField;

T_ProdinRecKol_voPvB: TFloatField;

T_ProdinRecRelatEIonP: TStringField;

T_ProdinRecRelatP: TStringField;

T_spisokBStoim: TFloatField;

T_ProdinRecRelatPCena: TFloatField;

DS_Zakaz: TDataSource;

T_zakaz: TTable;

T_zakazIDB: TIntegerField;

T_zakazKol_voZ: TIntegerField;

T_zakazRelatNB: TStringField;

T_EIIdEI: TIntegerField;

T_EINameEI: TStringField;

T_typeBIdTB: TIntegerField;

T_typeBNameTB: TStringField;

BitBtn1: TBitBtn;

Image1: TImage;

BitBtn2: TBitBtn;

FontDialog1: TFontDialog;

T_zakazLU_CEnaB: TVariantField;

T_zakazCalc_stoim: TVariantField;

 

 

procedure T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure T_spisokBFlagCurSetText(Sender: TField; const Text: String);

procedure T_spisokBCalcFields(DataSet: TDataSet);

procedure T_zakazRelatNBSetText(Sender: TField; const Text: String);

procedure T_zakazKol_voZSetText(Sender: TField; const Text: String);

procedure T_zakazAfterInsert(DataSet: TDataSet);

procedure T_zakazAfterPost(DataSet: TDataSet);

procedure T_spisokBAfterInsert(DataSet: TDataSet);

procedure T_spisokBBeforeInsert(DataSet: TDataSet);

procedure T_spisokBAfterPost(DataSet: TDataSet);

procedure T_productsBeforeInsert(DataSet: TDataSet);

procedure T_productsAfterInsert(DataSet: TDataSet);

procedure T_productsAfterPost(DataSet: TDataSet);

procedure T_EIBeforeInsert(DataSet: TDataSet);

procedure T_EIAfterInsert(DataSet: TDataSet);

procedure T_EIAfterPost(DataSet: TDataSet);

procedure T_typeBBeforeInsert(DataSet: TDataSet);

procedure T_typeBAfterInsert(DataSet: TDataSet);

procedure BitBtn2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure T_zakazCalcFields(DataSet: TDataSet);

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

 

 

var

MainForm: TMainForm;

flager:byte;

mkeyvalue:integer;

implementation

 

uses InformUnit, RepMenu, ZakazUnit, RepZakaz, About;

 

{$R *.dfm}

 

procedure TMainForm.T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

If T_spisokBFlagCur.Value then text:=+

else text:=-&

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• Далее