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

База на основе 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 описывает справочник "Поиск по должности".