Глава 3. Практическая часть
3.1. Разработка алгоритма и описание компонентов (составных частей) программного комплекса. Общие сведения. Разработка алгоритма
Рисунок 2. Алгоритм работы форм приложения.
Рисунок 3. Алгоритм формирования выходных документов.
Рисунок 4. Алгоритм работы главной формы приложения.
Описание программы
Данная программа предназначена для продажи светодиодных приборов, находящихся в базе данных. Также предусмотрена возможность редактирования базы данных из самой программы.
Для функционирования программного обеспечения необходим Microsoft Access.
Программа реализована в среде разработки Embarcadero Delphi XE2.
Общие сведения
Программное обеспечение: Microsoft Windows XP SP2, 7 и выше…
Среда разработки: Embarcadero Delphi XE2.
Стадия разработки программного продукта включает в себя разработку интерфейса, разработку базы данных и написание программного кода. Все действия я выполняю параллельно, постепенно дополняя.
Программный продукт состоит из:
1) Интерфейса пользователя
2) Программного кода
3) Базы данных
4) Отчетов
5) Справочников
3.2. Описание логической структуры информационного компонента и программного комплекса. Входные данные. Выходные данные. Описание логической структуры
Схема 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;