Дипломная работа: Автоматизированное рабочее место менеджера по продажам (на примере ООО "СОКОЛ")

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
77
begin виде
DataModule5.T_PRICE.Active := False организации;
end;
procedure TForm3.RadioButton1Click(Sender пособие: TObject);
begin преимущества
DataModule5.T_PRICE.Sort := '[NAME_PROD кранные] ASC';
end;
procedure входа TForm3.RadioButton2Click(Sender: TObject внешние);
begin
DataModule5.T_PRICE.Sort относительного := '[NAME_PROD] DESC архитектуры';
end;
end.
unit Unit договора4;
procedure TForm4.BitBtn1Click(Sender всей: TObject);
begin системе
Close;
end;
procedure управления TForm4.FormActivate(Sender: TObject procedure);
begin
DataModule5.T_SPR_CAT.Active приведены := True;
end;
procedure текущем TForm4.FormCloseQuery(Sender: TObject главного; var CanClose: Boolean среда);
begin
DataModule5.T_SPR_CAT.Active работы := False;
end;
procedure справочники TForm4.RadioButton1Click(Sender: TObject выполнения);
begin
78
DataModule5.T_SPR_CAT.Sort учет := '[NAME_CAT] ASC далее';
end;
procedure TForm4.RadioButton2Click(Sender данных: TObject);
begin contact
DataModule5.T_SPR_CAT.Sort := '[NAME_CAT идентификатор] DESC';
end;
end.
unit поддерживает Unit6;
procedure заставляет TForm6.BitBtn1Click(Sender: TObject основные);
begin
Close каскадной;
end;
procedure TForm6.BitBtn2Click(Sender контроль: TObject);
var
xlsApp клиентах, xlsBook, xlsSheet малых: Variant;
RowCount сценарий, NumRow, NumCol помимо: Integer;
begin основных
try
//создаем объект различные Excel
xlsApp программы := CreateOleObject('Excel.Application');
except основные
ShowMessage('Возможно не установлен поступающая MS Excel.');
Exit защиты;
end;
xlsApp.Visible := True применения;
xlsApp.DisplayAlerts := False преимущества;
try
xlsBook :=
Ошибка!
\Список
Ошибка!
');
79
xlsSheet := xlsBook.Worksheets.Item пользователей[1];
DataModule5.T_SPR_CLIENT.First;
while менеджер not DataModule5.T_SPR_CLIENT.Eof do
begin объектом
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,1] :=
IntToStr(DataModule5.T_SPR_CLIENT.FieldByName('ID_CLIENT').AsInteger кроме);
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,2] :=
DataModule5.T_SPR_CLIENT.FieldByName('NAME_CLIENT').AsString программный;
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,3] :=
DataModule5.T_SPR_CLIENT.FieldByName('NAME_CONTACT').AsString совместно;
xlsSheet.Cells[DataModule5.T_SPR_CLIENT.RecNo+1,4] :=
DataModule5.T_SPR_CLIENT.FieldByName('PHONE').AsString procedure;
DataModule5.T_SPR_CLIENT.Next;
end;
except стратегии
ShowMessage('Невозможно показатели открыть файл следующей.');
end;
xlsSheet := xlsBook.Worksheets.Item меню[1];
end;
procedure TForm6.FormActivate(Sender среде: TObject);
begin изучение
DataModule5.T_SPR_CLIENT.Active := True себя;
end;
procedure TForm6.FormCloseQuery(Sender трудовые: TObject; var CanClose состоящее: Boolean);
begin заставляет
DataModule5.T_SPR_CLIENT.Active := False хранения;
end;
procedure TForm6.RadioButton1Click(Sender самом: TObject);
begin больших
80
DataModule5.T_SPR_CLIENT.Sort := '[NAME_CLIENT оболочку] ASC';
end;
procedure регистрации TForm6.RadioButton2Click(Sender: TObject базу);
begin
DataModule5.T_SPR_CLIENT.Sort среди := '[NAME_CLIENT] DESC продаж';
end;
end.
unit Unit среди7;
procedure TForm7.BitBtn1Click(Sender модель: TObject);
begin программный
Close;
end;
procedure проектирование TForm7.BitBtn2Click(Sender: TObject основные);
var
xlsApp, xlsBook унок, xlsSheet: Variant таблице;
RowCount, NumRow internet, NumCol: Integer анализ;
begin
try
//создаем которых объект Excel выбранного
xlsApp := CreateOleObject('Excel.Application автоматизации');
except
ShowMessage('Возможно приложение не установлен MS Excel использованной.');
Exit;
end;
xlsApp.Visible учета := True;
xlsApp.DisplayAlerts решения := False;
try
81
xlsBook качестве := xlsApp.Workbooks.Open('C:\Temp\PRODAZHI\docs\Журнал принятия
продаж');
xlsSheet предприятии := xlsBook.Worksheets.Item[1];
DataModule5.T_SALE.First begin;
while not DataModule5.T_SALE.Eof рублей do
begin
xlsSheet.Cells[DataModule5.T_SALE.RecNo свободная+1,1] :=
IntToStr(DataModule5.T_SALE.FieldByName('ID_REC').AsInteger);
xlsSheet.Cells[DataModule5.T_SALE.RecNo качественной+1,2] :=
DataModule5.T_SALE.FieldByName('NCLIENT').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo проекта+1,3] :=
DataModule5.T_SALE.FieldByName('NPRICE').AsString;
xlsSheet.Cells[DataModule5.T_SALE.RecNo собой+1,4] :=
IntToStr(DataModule5.T_SALE.FieldByName('KOLVO').AsInteger);
xlsSheet.Cells[DataModule5.T_SALE.RecNo хрусталева+1,6] :=
IntToStr(DataModule5.T_SALE.FieldByName('NUM_DOG').AsInteger);
DataModule5.T_SALE.Next ведение;
end;
except
ShowMessage('Невозможно компоненты открыть файл разработки.');
end;
xlsSheet := xlsBook.Worksheets.Item устранить[1];
end;
procedure TForm7.FormActivate(Sender продаж: TObject);
begin входа
DataModule5.T_SALE.Active := True универсален;
end;
procedure TForm7.FormCloseQuery(Sender антивирусной: TObject; var CanClose стоимость: Boolean);
begin текущем
Источник: https://baza.diplomsite.ru/previewfile/2525

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии