Вход

Разработка информационной системы «Рестораны»

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 292826
Дата создания 18 июня 2014
Страниц 62
Мы сможем обработать ваш заказ 23 мая в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 200руб.
КУПИТЬ

Описание

База на основе MS Acсess
Оболочка Delphi 7 ...

Содержание

1.ТЕХНИЧЕСКОЕ ЗАДАНИЕ НА РАЗРАБОТКУ ИНФОРМАЦИОННОЙ СИСТЕМЫ
1.1. Введение
1.2. Основания для разработки
1.3. Назначение разработки
1.4. Требования к программе или программному изделию
1.4.1. Требования функциональным характеристикам
1.4.2. Требование к надежности
1.4.3. Требования к составу и параметрам технических средств
1.4.4. Требования к информационной и программной совместимости
1.5. Требования к программной документации
1.6. Стадии этапа разработки
1.7. Порядок контроля и приемки
1.8. Регистрация изменений

2.ПОЯСНИТЕЛЬНАЯ ЗАПИСКА (теоретическая часть)
2.1. РАЗРАБОТКА СТРУКТУРЫ ПРОГРАММЫ И МОДУЛЬНОЕ ПРОГРАММИРОВАНИЕ
2.2. РАЗРАБОТКА ПРОГРАММНОГО МОДУЛЯ
3. ОПИСАНИЕ ПРОГРАММЫ
4. ТЕКСТ ПРОГРАММЫ
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

Введение

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

Фрагмент работы для ознакомления

ZaprosPoRestoranyDSDesigner7: TIntegerField;
ZaprosPoRestoranyDSDesigner8: TIntegerField;
ZaprosPoRestoranyDSDesigner9: TIntegerField;
ZaprosPoRestoranyDSDesigner10: TIntegerField;
ZaprosPoRestoranyDSDesigner11: TWideStringField;
ZaprosPoRestoranyDSDesigner12: TWideStringField;
ZaprosPoRestoranyDSDesigner13: TIntegerField;
ZaprosPoDolznostiDSDesigner: TAutoIncField;
ZaprosPoDolznostiDSDesigner2: TWideStringField;
ZaprosPoDolznostiDSDesigner3: TIntegerField;
RestoranIntegerField: TTimeField;
RestoranIntegerField2: TTimeField;
RestoranIntegerField3: TTimeField;
RestoranIntegerField4: TTimeField;
ZaprosPoBludy: TADOQuery;
DataSourceZaprosPoBludy: TDataSource;
ZaprosPoBludyDSDesigner: TAutoIncField;
ZaprosPoBludyDSDesigner2: TIntegerField;
ZaprosPoBludyDSDesigner3: TWideStringField;
Menu3: TADOTable;
DataSourceMenu3: TDataSource;
Menu3DSDesigner: TIntegerField;
Menu3DSDesigner2: TIntegerField;
Menu3DSDesigner3: TBCDField;
Menu3DSDesigner11: TIntegerField;
Menu3DSDesigner4: TMemoField;
Menu3DSDesigner5: TIntegerField;
ZaprosPoBludyIntegerField: TStringField;
Menu3IntegerField: TStringField;
Menu3IntegerField2: TStringField;
Menu3IntegerField3: TStringField;
Menu3IntegerField4: TStringField;
SotrydnikiIntegerField: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit11,
Unit12, Unit13, Unit9;
{$R *.dfm}
end.
Этот Unit описывает таблицу "Должность".
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ComCtrls, ToolWin, ExtCtrls;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Image1: TImage;
StatusBar1: TStatusBar;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2, Unit10, Unit11, Unit12, Unit4, Unit5, Unit6, Unit7,
Unit8, Unit9;
{$R *.dfm}
procedure TForm3.ToolButton1Click(Sender: TObject);
begin
DataModule2.Dolznost.Insert;
DBGrid1.SetFocus;
end;
procedure TForm3.ToolButton3Click(Sender: TObject);
begin
if DataModule2.Dolznost.Modified then
DataModule2.Dolznost.Post;
end;
procedure TForm3.ToolButton5Click(Sender: TObject);
begin
DataModule2.Dolznost.Delete;
end;
end.
Этот Unit описывает справочник "Блюда".
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
Image1: TImage;
DBGrid2: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image11: TImage;
Image12: TImage;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Image22: TImage;
Image23: TImage;
Image24: TImage;
Image25: TImage;
Image26: TImage;
Image27: TImage;
Image28: TImage;
Image29: TImage;
Image30: TImage;
Image31: TImage;
Image10: TImage;
Image13: TImage;
Image14: TImage;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm4.ToolButton1Click(Sender: TObject);
begin
DataModule2.VidBluda.Insert;
DBGrid1.SetFocus;
end;
procedure TForm4.ToolButton3Click(Sender: TObject);
begin
if DataModule2.VidBluda.Modified then
DataModule2.VidBluda.Post;
end;
procedure TForm4.ToolButton5Click(Sender: TObject);
begin
DataModule2.VidBluda.Delete;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
DataModule2.Bludo.Insert;
DBGrid2.SetFocus;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
DataModule2.Bludo.Delete;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
if DataModule2.Bludo.Modified then
DataModule2.Bludo.Post;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
DataModule2.VidBluda.Delete;
end;
procedure TForm4.Button5Click(Sender: TObject);
begin
if DataModule2.VidBluda.Modified then
DataModule2.VidBluda.Post;
end;
procedure TForm4.Button6Click(Sender: TObject);
begin
DataModule2.VidBluda.Insert;
DBGrid1.SetFocus;
end;
end.
Этот Unit описывает Форму для редактирования "Сотрудники".
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, ToolWin, Grids, DBGrids;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Image1: TImage;
Image2: TImage;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit2,
Unit3, Unit4, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm5.ToolButton1Click(Sender: TObject);
begin
DataModule2.Sotrydniki.Insert;
DBGrid1.SetFocus;
end;
procedure TForm5.ToolButton3Click(Sender: TObject);
begin
DataModule2.Sotrydniki.Delete;
end;
procedure TForm5.ToolButton5Click(Sender: TObject);
begin
if DataModule2.Sotrydniki.Modified then
DataModule2.Sotrydniki.Post;
Close;
end;
end.
Этот Unit описывает справочник "Сотрудники".
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls, jpeg, Menus, Mask,
DBCtrls;
type
TForm6 = class(TForm)
DBGrid1: TDBGrid;
DBGrid3: TDBGrid;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Image23: TImage;
Image17: TImage;
Image19: TImage;
Image20: TImage;
Image21: TImage;
Image25: TImage;
Image27: TImage;
Button6: TButton;
Image14: TImage;
Button1: TButton;
Button4: TButton;
Button7: TButton;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image22: TImage;
Button3: TButton;
Image1: TImage;
Image10: TImage;
Image11: TImage;
Image9: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button7Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit2, Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16,
Unit3, Unit4, Unit7, Unit8, Unit9, Unit5, Unit20;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
DataModule2.Restoran.Delete;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
Form11.ShowModal;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
DataModule2.Sotrydniki.Insert;
Form20.ShowModal;
end;
procedure TForm6.Button4Click(Sender: TObject);
begin
DataModule2.Sotrydniki.Delete;
end;
procedure TForm6.Button5Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm6.Button6Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DataModule2.Restoran.Modified then
DataModule2.Restoran.Post;
if DataModule2.Dolznost.Modified then
DataModule2.Dolznost.Post;
if DataModule2.Sotrydniki.Modified then
DataModule2.Sotrydniki.Post;
end;
procedure TForm6.Button7Click(Sender: TObject);
begin
DataModule2.Restoran.Insert;
Form11.ShowModal;
end;
procedure TForm6.N4Click(Sender: TObject);
begin
Form8.ShowModal;
end;
end.
Этот Unit описывает справочник "Меню".
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls;
type
TForm7 = class(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
DBMemo1: TDBMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit2, Unit10, Unit1, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16,
Unit17, Unit3, Unit4, Unit5, Unit6, Unit9;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
DataModule2.Menu.Delete;
end;
procedure TForm7.Button3Click(Sender: TObject);
begin
DataModule2.Menu.Insert;
Form10.ShowModal;
end;
end.
Этот Unit описывает справочник "Поиск по должности".

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

1. И.Г.Гоулд, Дж.С.Тутилл. Терминологическая работа IFIP (Международная федерация по обработке информации) и ICC (Международный вычислительный центр)// Журн. вычисл. матем. и матем. физ., 1965, #2. - С. 377-386.
2. Г.Майерс. Надежность программного обеспечения. - М.: Мир, 1980.
3. Э. Дейкстра. Заметки по структурному программированию// У. Дал, Э. Дейкстра, К. Хоор. Структурное программирование. - М.: Мир, 1975. - С. 7-97.
4. 6.Лекция Жоголева- "Основы программирования".
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022