clRed;Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Договоры купли продажи'];
Sheet.Cells[1,2]:='Договоры купли продажи';
Sheet.Cells[3,1]:='';
Sheet.Cells[3,2]:='№ договора';
Sheet.Cells[3,3]:='Дата заключения';
Sheet.Cells[3,4]:='Представитель';
Sheet.Cells[3,5]:='Менеджер';
Sheet.Cells[3,5]:='Код авто';
Sheet.Cells[3,5]:='Основание для договора';
index:=7;
form1.DogPokup.First;
for i:=0 to form1.DogPokup.RecordCount-1 do
begin
Sheet.Cells[index,1]:=form1.DogPokup.Fields[0].AsString;
Sheet.Cells[index,2]:=form1.DogPokup.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=form1.DogPokup.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=form1.DogPokup.Fields[3].AsString;
Sheet.Cells[index,5]:=form1.DogPokup.Fields[4].AsString;
Sheet.Cells[index,6]:=form1.DogPokup.Fields[5].AsString;
Sheet.Cells[index,7]:=form1.DogPokup.Fields[6].AsString;
Inc(index);
form1.DogPokup.Next;
end;
end;
procedure TForm1.N22Click(Sender: TObject);
{Формирование отчета по списку сотрудников}
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Сотрудники';
Colum:=XLApp.Workbooks[1].WorkSheets['Сотрудники'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum.Columns[6].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Сотрудники'].Rows;
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clRed;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Сотрудники'];
Sheet.Cells[1,2]:='Сотрудники';
Sheet.Cells[3,1]:='';
Sheet.Cells[3,2]:='ФИО';
Sheet.Cells[3,3]:='Адрес';
Sheet.Cells[3,4]:='Телефон';
Sheet.Cells[3,5]:='Дата поступления';
Sheet.Cells[3,6]:='Должность';
index:=6;
form1.Sotrudnik.First;
for i:=0 to form1.Sotrudnik.RecordCount-1 do
begin
Sheet.Cells[index,1]:=form1.Sotrudnik.Fields[0].AsString;
Sheet.Cells[index,2]:=form1.Sotrudnik.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=form1.Sotrudnik.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=form1.Sotrudnik.Fields[3].AsString;
Sheet.Cells[index,5]:=form1.Sotrudnik.Fields[4].AsString;
Sheet.Cells[index,6]:=form1.Sotrudnik.Fields[5].AsString;
Inc(index);
form1.Sotrudnik.Next;
end;
end;
procedure TForm1.N15Click(Sender: TObject);
{Формирование отчета по списку поставщиков}
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Поставщики';
Colum:=XLApp.Workbooks[1].WorkSheets['Поставщики'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Поставщики'].Rows;
Colum.Rows[3].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clRed;
Colum.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].WorkSheets['Поставщики'];
Sheet.Cells[1,2]:='Поставщики';
Sheet.Cells[3,1]:='';
Sheet.Cells[3,2]:='Фирма';
Sheet.Cells[3,3]:='Страна';
Sheet.Cells[3,4]:='Представитель';
Sheet.Cells[3,5]:='Контактный тел';
index:=5;
form1.Postavka.First;
for i:=0 to form1.Postavka.RecordCount-1 do
begin
Sheet.Cells[index,1]:=form1.Postavka.Fields[0].AsString;
Sheet.Cells[index,2]:=form1.Postavka.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=form1.Postavka.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=form1.Postavka.Fields[3].AsString;
Sheet.Cells[index,5]:=form1.Postavka.Fields[4].AsString;
Inc(index);
form1.Postavka.Next;
end;
end;
procedure TForm1.N33Click(Sender: TObject);
begin
form7.DBGrid1.DataSource:=DataSource4;
form7.show;
end;
end.
Приложение С
(DFD диаграммы процессов)
Рис. 13 Диаграмма потоков данных процесса заключения договоров с дилерами
Рис. 14 Диаграмма потоков данных процесса поставки товара
Рис. 15 Диаграмма потоков данных процесса реализации товара
Рис. 16 Диаграмма потоков данных процесса формирования отчета
Приложение D
(IDEF3 диаграммы процессов)
Рис. 17. Схема бизнес-процессов поставки товара на склад
Рис. 18. Схема бизнес-процессов реализации товара
Рис. 19. Схема бизнес-процессов формирования отчета
Приложение E
(Экранные формы)
Рис.20 Экранная форма входа в программу
Рис.21 Экранная форма списка заключенных договоров
Рис.22 Экранная форма записи данных в БД
Рис.23 Экранная форма товара хранящегося на складе
Рис.24 Форма отчета по продажам
Рис.25 Экранная форма списка сотрудников
Приложение F
Данный носитель содержит дистрибутив программы AS “Avtosalon”