Описание логической структуры

Схема 1. ER-диаграмма.

Входные данные

Входными данными являются:

1) Список клиентов

2) Список сотрудников

3) Список ассортимента

4) Список поставки ассортимента

Выходные данные

Выходными данными являются:

1) Книга продаж.

2) Отчет по накладным.

3) Прайс-лист.

4) Договор купли-продажи транспортного средства.

5) Остаток товара.

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

1) Компонент Главное меню

Компонент главное меню связывает все остальные формы.

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, ComCtrls, jpeg;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

Image1: TImage;

Panel1: TPanel;

Label1: TLabel;

Timer1: TTimer;

Label2: TLabel;

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure timer1timer(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

2) Компонент Оформление клиентов

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

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls,comobj;

type

TForm6 = class(TForm)

DataSource1: TDataSource;

DBGrid3: TDBGrid;

Button1: TButton;

ADOTable1: TADOTable;

ADOTable1idклиент: TAutoIncField;

ADOTable1Фамилия: TWideStringField;

ADOTable1Имя: TWideStringField;

ADOTable1Отчество: TWideStringField;

ADOTable1Контактныйтелефон: TWideStringField;

ADOTable1Адрес: TWideStringField;

ADOTable1Компания: TWideStringField;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

ADOQuery1: TADOQuery;

Button4: TButton;

Button5: TButton;

Panel5: TPanel;

Panel6: TPanel;

ADOQuery1idклиент: TAutoIncField;

ADOQuery1Фамилия: TWideStringField;

ADOQuery1Имя: TWideStringField;

ADOQuery1Отчество: TWideStringField;

ADOQuery1Контактныйтелефон: TWideStringField;

ADOQuery1Адрес: TWideStringField;

ADOQuery1Компания: TWideStringField;

Edit1: TEdit;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

3) Компонент Оформление товара

Компонент оформление товара позволяет просматривать и редактировать информацию ассортимента магазина.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls,comobj;

type

TForm5 = class(TForm)

DataSource1: TDataSource;

DBGrid3: TDBGrid;

Panel1: TPanel;

Panel2: TPanel;

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

Panel3: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

Label8: TLabel;

DBMemo1: TDBMemo;

Label9: TLabel;

DBComboBox1: TDBComboBox;

Panel4: TPanel;

Button1: TButton;

ADOTable1idтовара: TWideStringField;

ADOTable1idпоставки: TWideStringField;

ADOTable1Наименование: TWideStringField;

ADOTable1Стоимость: TBCDField;

ADOTable1Секция: TWideStringField;

ADOTable1Производитель: TWideStringField;

ADOTable1Категория: TWideStringField;

ADOTable1Описание: TWideStringField;

ADOTable1Количество: TIntegerField;

Label10: TLabel;

DBComboBox2: TDBComboBox;

Button2: TButton;

Button3: TButton;

Panel5: TPanel;

Panel6: TPanel;

ADOQuery1: TADOQuery;

Edit1: TEdit;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button4: TButton;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

4) Компонент Оформление поставки

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

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrls, Grids, DBGrids,comobj, ExtCtrls;

type

TForm4 = class(TForm)

DBGrid3: TDBGrid;

DataSource1: TDataSource;

Button1: TButton;

Button2: TButton;

Panel1: TPanel;

Panel2: TPanel;

RadioButton1: TRadioButton;

ADOTable1: TADOTable;

Label1: TLabel;

DBEdit7: TDBEdit;

Label6: TLabel;

DBEdit9: TDBEdit;

Label8: TLabel;

Label11: TLabel;

DBEdit11: TDBEdit;

Label12: TLabel;

DBMemo1: TDBMemo;

Label13: TLabel;

DBEdit12: TDBEdit;

Label14: TLabel;

DBEdit13: TDBEdit;

Panel3: TPanel;

Panel4: TPanel;

ADOConnection1: TADOConnection;

DBComboBox1: TDBComboBox;

ADOTable1idприхода: TWideStringField;

ADOTable1Наименование: TWideStringField;

ADOTable1Категория: TWideStringField;

ADOTable1Стоимость: TBCDField;

ADOTable1Описание: TWideStringField;

ADOTable1Датапоставки: TDateTimeField;

ADOTable1Количество: TIntegerField;

Button3: TButton;

Panel5: TPanel;

Button4: TButton;

Panel6: TPanel;

ADOQuery1: TADOQuery;

ADOQuery1idприхода: TWideStringField;

ADOQuery1Наименование: TWideStringField;

ADOQuery1Категория: TWideStringField;

ADOQuery1Стоимость: TBCDField;

ADOQuery1Описание: TWideStringField;

ADOQuery1Датапоставки: TDateTimeField;

ADOQuery1Количество: TIntegerField;

Edit1: TEdit;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure FormActive(Sender: TObject);

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

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

5) Компонент Оформление заказа

Данный компонент дает возможность оформлять и заказывать заказы для клиентов.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids,comobj;

type

TForm7 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

ADOQuery1id: TAutoIncField;

ADOQuery1idклиаента: TIntegerField;

ADOQuery1idсотрудника: TWideStringField;

ADOQuery1idтовара: TWideStringField;

ADOQuery1Стоимость: TBCDField;

ADOQuery1Адрес: TWideStringField;

ADOQuery1Датадоставки: TDateTimeField;

ADOQuery1Время: TIntegerField;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

Panel3: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Button5: TButton;

Button4: TButton;

Edit1: TEdit;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Button2: TButton;

Panel4: TPanel;

DBGrid1: TDBGrid;

Button1: TButton;

Button3: TButton;

Edit2: TEdit;

Edit3: TEdit;

Button6: TButton;

Label9: TLabel;

Label10: TLabel;

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

6) Компонент Данные сотрудников

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

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, IWVCLBaseControl,

IWBaseControl, IWBaseHTMLControl, IWControl, IWExtCtrls, ExtDlgs, JPEG,comobj;

type

TForm3 = class(TForm)

DBGrid3: TDBGrid;

DataSource1: TDataSource;

Button1: TButton;

ADOConnection1: TADOConnection;

Panel1: TPanel;

Panel2: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

Panel3: TPanel;

Panel4: TPanel;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Label12: TLabel;

DBEdit12: TDBEdit;

Label13: TLabel;

DBEdit13: TDBEdit;

Label14: TLabel;

DBEdit14: TDBEdit;

Label15: TLabel;

Panel5: TPanel;

Button3: TButton;

Button4: TButton;

Panel6: TPanel;

ADOQuery1: TADOQuery;

ADOQuery1Idсотрудника: TWideStringField;

ADOQuery1Фамилия: TWideStringField;

ADOQuery1Имя: TWideStringField;

ADOQuery1Отчество: TWideStringField;

ADOQuery1Серия: TIntegerField;

ADOQuery1Номер: TIntegerField;

ADOQuery1Датавыдачипасспорта: TDateTimeField;

ADOQuery1Кемвыдан: TWideStringField;

ADOQuery1Гражданство: TWideStringField;

ADOQuery1Адреспроживания: TWideStringField;

ADOQuery1Контактныйтелефон: TIntegerField;

ADOQuery1Должность: TWideStringField;

DBComboBox1: TDBComboBox;

Edit1: TEdit;

RadioButton2: TRadioButton;

RadioButton1: TRadioButton;

Button2: TButton;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;